RegressionTests__STCCompilerTests.st
changeset 995 676127617c9e
parent 994 914cf744f89e
child 1046 06719286467f
--- a/RegressionTests__STCCompilerTests.st	Wed Sep 04 10:40:52 2013 +0200
+++ b/RegressionTests__STCCompilerTests.st	Wed Sep 04 10:42:15 2013 +0200
@@ -27,7 +27,6 @@
 "
 ! !
 
-
 !STCCompilerTests methodsFor:'code templates'!
 
 nextLittleEndianNumber: n from:bytes
@@ -118,33 +117,36 @@
     "
 
     |val|
-
-    Class withoutUpdatingChangesDo:[
-        "/ Check bytecode version first...
-        self class class compile:'returnMyName
-    ^ name
-'.
-        val := self class returnMyName.
-        self assert:(val == self class name).
-        self class removeSelector:#returnMyName.
+    [
+       Class withoutUpdatingChangesDo:[
+           "/ Check bytecode version first...
+           self class class compile:'returnMyName
+       ^ name
+   '.
+           val := self class returnMyName.
+           self assert:(val == self class name).
+           self class class removeSelector:#returnMyName.
 
-        "/ Now, compile the same source using stc and check...
-        (STCCompilerInterface new)
-            compileToMachineCode:'returnMyName
-    ^ name
-'
-            forClass:self class class
-            selector:#'returnMyName'
-            inCategory:'tests'
-            notifying:nil
-            install:true
-            skipIfSame:false
-            silent:true.
+           "/ Now, compile the same source using stc and check...
+           (STCCompilerInterface new)
+               compileToMachineCode:'returnMyName
+       ^ name
+   '
+               forClass:self class class
+               selector:#'returnMyName'
+               inCategory:'tests'
+               notifying:nil
+               install:true
+               skipIfSame:false
+               silent:true.
 
-        val := self class returnMyName.
-        self assert:(val == self class name).
-        self class removeSelector:#returnMyName.
-    ].
+           val := self class returnMyName.
+           self assert:(val == self class name).
+           self class class removeSelector:#returnMyName.
+       ].
+    ] ensure:[
+        self class class removeSelector:#returnMyName.
+    ]
 
     "
      self run:#test02_compilation