--- a/RegressionTests__DictionaryTest.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__DictionaryTest.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -14,10 +14,10 @@
testAddAll
"(self run: #testAddAll)"
-
+
| dict1 dict2 |
dict1 := Dictionary new.
- dict1 at: #a put:1 ; at: #b put: 2.
+ dict1 at: #a put:1 ; at: #b put: 2.
dict2 := Dictionary new.
dict2 at: #a put: 3 ; at: #c put: 4.
dict1 addAll: dict2.
@@ -51,10 +51,10 @@
testComma
"(self run: #testComma)"
-
+
| dict1 dict2 dict3 |
dict1 := Dictionary new.
- dict1 at: #a put:1 ; at: #b put: 2.
+ dict1 at: #a put:1 ; at: #b put: 2.
dict2 := Dictionary new.
dict2 at: #a put: 3 ; at: #c put: 4.
dict3 := dict1, dict2.
@@ -67,12 +67,12 @@
"self debug: #testIncludesAssociation"
| d |
- d := Dictionary new
- at: #five put: 5;
+ d := Dictionary new
+ at: #five put: 5;
at: #givemefive put: 5;
at: #six put: 6;
yourself.
-
+
self assert: (d includesAssociation: (d associationAt: #five)).
self assert: (d includesAssociation: (#five -> 5)).
self assert: (d includesAssociation: (#five -> 6)) not.