--- 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