95 Don't assume Interval >> #sorted returns a new object

marschall · marschall · commit a3105c76501a · 2019-08-27T14:59:54.000+02:00
Fixes SeasideSt#95
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 ]
