RegressionTests__WeakCollectionTest.st
changeset 1447 2351db93aa5b
parent 1439 a51a503a55b8
child 1500 d406a10b2965
--- 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.
+	].
     ].
 
     "