--- a/RegressionTests__WeakCollectionTest.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__WeakCollectionTest.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -48,7 +48,7 @@
self assert:(w size == 2).
o1 := nil.
-
+
ObjectMemory garbageCollect.
ObjectMemory finalize.
@@ -82,7 +82,7 @@
self assert:(w size == 2).
o1 := nil.
-
+
ObjectMemory garbageCollect.
ObjectMemory finalize.
@@ -108,24 +108,24 @@
ww := WeakValueDictionary new.
1 "100" timesRepeat:[
- (1 to:n) do:[:idx |
- |k v|
+ (1 to:n) do:[:idx |
+ |k v|
- k := 'k_' , idx printString , '_12345678901234567890'.
- v := 'v_' , idx printString , '_12345678901234567890'.
- ww at:k put:v.
- k := v := nil.
- ].
+ k := 'k_' , idx printString , '_12345678901234567890'.
+ v := 'v_' , idx printString , '_12345678901234567890'.
+ ww at:k put:v.
+ k := v := nil.
+ ].
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect.
- 1 to:n do:[:idx |
- |k v|
+ 1 to:n do:[:idx |
+ |k v|
- k := 'k_' , idx printString , '_12345678901234567890'.
- v := ww at:k ifAbsent:nil.
- self assert:v isNil.
- ].
+ k := 'k_' , idx printString , '_12345678901234567890'.
+ v := ww at:k ifAbsent:nil.
+ self assert:v isNil.
+ ].
].
"