Merge pull request SeasideSt#96 from SeasideSt/95-GRIntervalTest--testSorted-assumes-new-collection

Johan Brichau · web-flow · commit 7b7648bb8732 · 2019-08-29T16:09:11.000+02:00
95 Don't assume Interval &gt;&gt; #sorted returns a new object
diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st
@@ -0,0 +1,5 @@
+asserting
+assert: responseCollection validSequencedResponseFrom: receiverCollection
+	"Assert that the returned object is of a valid response class for the tested collection."
+	
+	self assert: (self isValidNewSequencedResponseClass: responseCollection class)
diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st
@@ -0,0 +1,12 @@
+tests
+testSorted
+	"Unlike super implementation do not assume Interval >> #sorted returns a new object"
+	| sorted collection |
+	collection := self arbitraryCollection.
+	sorted := collection sorted.
+	self assert: sorted validSequencedResponseFrom: collection.
+	self assert: sorted sortedWith: [ :a :b | a <= b ].
+	
+	sorted := collection sorted: [ :a :b | a > b ].
+	self assert: sorted validSequencedNewResponseFrom: collection.
+	self assert: sorted sortedWith: [ :a :b | a > b ]
