RegressionTests__EnumerationTests.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
child 1567 e17701a073f9
--- a/RegressionTests__EnumerationTests.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__EnumerationTests.st	Thu Jun 30 09:02:08 2016 +0100
@@ -45,12 +45,12 @@
     a := (1 to:100) asArray.
 
     10 timesRepeat:[
-        a keysAndValuesDo:[:index :val |
-            ObjectMemory scavenge.
-            index printString.
-            ObjectMemory scavenge.
-            val printString.
-        ]
+	a keysAndValuesDo:[:index :val |
+	    ObjectMemory scavenge.
+	    index printString.
+	    ObjectMemory scavenge.
+	    val printString.
+	]
     ]
 
     "
@@ -68,25 +68,25 @@
     a := WeakArray new:100.
     w := WeakArray new:100.
     1 to:a size do:[:i |
-        |o|
+	|o|
 
-        o := Object new.
-        a at:i put:o.
-        w at:i put:o.
+	o := Object new.
+	a at:i put:o.
+	w at:i put:o.
     ].
 
     w keysAndValuesDo:[:index :val |
-        self assert:(val class == Object).
+	self assert:(val class == Object).
     ].
 
     w keysAndValuesDo:[:index :val |
-        index == 5 ifTrue:[
-            a at:7 put:nil.
-            ObjectMemory scavenge
-        ].
-        index == 7 ifTrue:[
-            self assert:(val class == SmallInteger).
-        ]
+	index == 5 ifTrue:[
+	    a at:7 put:nil.
+	    ObjectMemory scavenge
+	].
+	index == 7 ifTrue:[
+	    self assert:(val class == SmallInteger).
+	]
     ]
 
     "