RegressionTests__WeakCollectionTest.st
changeset 266 7abd1fd501a5
parent 181 a56517005229
child 868 745b639be55b
--- a/RegressionTests__WeakCollectionTest.st	Wed Apr 27 13:00:50 2005 +0200
+++ b/RegressionTests__WeakCollectionTest.st	Wed Apr 27 13:40:26 2005 +0200
@@ -38,23 +38,23 @@
     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 := 'k_' , idx printString , '_12345678901234567890'.
+	    v := 'v_' , idx printString , '_12345678901234567890'.
+	    ww at:k put:v.
+	].
 
-        (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.
-            v notNil ifTrue:[
-                self halt.
-            ]
-        ].
+	    k := 'k_' , idx printString , '_12345678901234567890'.
+	    v := ww at:k ifAbsent:nil.
+	    v notNil ifTrue:[
+		self halt.
+	    ]
+	].
     ].
 
     "