RegressionTests__DictionaryTest.st
branchjv
changeset 1544 657989d600f7
parent 1500 d406a10b2965
child 1564 2a4963ef3a4a
--- a/RegressionTests__DictionaryTest.st	Thu Nov 10 00:27:25 2016 +0000
+++ b/RegressionTests__DictionaryTest.st	Sat Nov 19 10:43:57 2016 +0000
@@ -32,18 +32,18 @@
 
 	| answer d|
 
-	d _ Dictionary new.
+	d := Dictionary new.
 	d at: (Array with: #hello with: #world) put: #fooBar.
 	d at: Smalltalk put: #'Smalltalk is the key'.
 	d at: #Smalltalk put: Smalltalk.
 
-	answer _ d associationsSelect:
+	answer := d associationsSelect:
 		[:assoc | (assoc key == #Smalltalk) and: [assoc value == Smalltalk]].
 	self should: [answer isKindOf: Dictionary].
 	self should: [answer size == 1].
 	self should: [(answer at: #Smalltalk) == Smalltalk].
 
-	answer _ d associationsSelect:
+	answer := d associationsSelect:
 		[:assoc | (assoc key == #NoSuchKey) and: [assoc value == #NoSuchValue]].
 	self should: [answer isKindOf: Dictionary].
 	self should: [answer size == 0]