RegressionTests__CompilerTest.st
changeset 1821 749dd6e3d23e
parent 1818 7fc16123f396
child 1879 16655013afd4
--- a/RegressionTests__CompilerTest.st	Thu Oct 12 15:22:45 2017 +0200
+++ b/RegressionTests__CompilerTest.st	Thu Oct 12 15:31:34 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -403,10 +405,14 @@
 !
 
 testNot
+    |compiledMethod skipStc|
+
     self assert:( ( self _testNot1:true ) == false ).
     self assert:( ( self _testNot1:false ) == true ).
 
-    (self class compiledMethodAt:#_testNot1:) byteCode isNil ifTrue:[ 
+    compiledMethod := self class compiledMethodAt:#'_testNot1:'.
+    skipStc := (compiledMethod notNil 
+    and:[compiledMethod byteCode isNil]) ifTrue:[ 
         "/ stc-compiled code handles not slightly differently
         "/ (does not raise an error)
         'CompilerTest >> testNot1: non-boolean cases skipped due to stc limitations' infoPrintCR.
@@ -420,7 +426,9 @@
     self assert:( ( self _testNot2:true _:false) == false ).
     self assert:( ( self _testNot2:false _:false) == true ).
 
-    (self class compiledMethodAt:#_testNot2:_:) byteCode isNil ifTrue:[ 
+    compiledMethod := self class compiledMethodAt:#'_testNot2:_:'.
+    skipStc := (compiledMethod notNil 
+    and:[compiledMethod byteCode isNil]) ifTrue:[ 
         "/ stc-compiled code handles not slightly differently
         "/ (does not raise an error)
         'CompilerTest >> testNot2: non-boolean cases skipped due to stc limitations' infoPrintCR.
@@ -440,7 +448,9 @@
     self assert:( ( self _testNot3:true _:false) == true ).
     self assert:( ( self _testNot3:false _:false) == true ).
 
-    (self class compiledMethodAt:#_testNot3:_:) byteCode isNil ifTrue:[ 
+    compiledMethod := self class compiledMethodAt:#'_testNot3:_:'.
+    skipStc := (compiledMethod notNil 
+    and:[compiledMethod byteCode isNil]) ifTrue:[ 
         "/ stc-compiled code handles not slightly differently
         "/ (does not raise an error)
         'CompilerTest >> testNot3: non-boolean cases skipped due to stc limitations' infoPrintCR.