--- a/RegressionTests__DictionaryTest.st Thu Nov 24 16:36:27 2016 +0100
+++ b/RegressionTests__DictionaryTest.st Mon Dec 05 15:39:39 2016 +0100
@@ -28,25 +28,25 @@
testAssociationsSelect
- "(self selector: #testAssociationsSelect) run"
+ "(self selector: #testAssociationsSelect) run"
- | answer d|
+ | answer d|
- 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.
+ 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:
- [: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:
+ [: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:
- [:assoc | (assoc key == #NoSuchKey) and: [assoc value == #NoSuchValue]].
- self should: [answer isKindOf: Dictionary].
- self should: [answer size == 0]
+ answer := d associationsSelect:
+ [:assoc | (assoc key == #NoSuchKey) and: [assoc value == #NoSuchValue]].
+ self should: [answer isKindOf: Dictionary].
+ self should: [answer size == 0]
!
testComma