Merge pull request #96 from SeasideSt/95-GRIntervalTest--testSorted-a…

…ssumes-new-collection

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

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)

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 ]