RegressionTests__CollectionTests.st
changeset 1651 8d2368bccccb
parent 1447 2351db93aa5b
child 1894 40b3d473baaa
--- a/RegressionTests__CollectionTests.st	Thu Jul 27 15:15:40 2017 +0200
+++ b/RegressionTests__CollectionTests.st	Thu Jul 27 20:40:44 2017 +0200
@@ -854,8 +854,11 @@
     self assert: ( (d atIndex:2) == 2 ).
     self assert: ( (d atIndex:3) == 3 ).
 
-    self assert: ( (d first) = ('one'->1) ).
-    self assert: ( (d last) = ('three'->3) ).
+    self assert: ( (d firstAssociation) = ('one'->1) ).
+    self assert: ( (d lastAssociation) = ('three'->3) ).
+
+    self assert: ( (d first) = 1 ).
+    self assert: ( (d last) = 3 ).
 
     self assert:((ret := d collect:[:each | each]) sameContentsAs: #(1 2 3)).
     self assert:((ret := d select:[:each | true]) sameContentsAs: (OrderedDictionary withAssociations:(Array with:('one'->1) with:('two'->2) with:('three'->3)))).
@@ -882,6 +885,7 @@
     "
 
     "Modified: / 04-07-2011 / 19:32:34 / cg"
+    "Modified: / 27-07-2017 / 20:38:42 / mawalch"
 ! !
 
 !CollectionTests methodsFor:'tests-orderedSet'!