RegressionTests__CompilerTest.st
changeset 1879 16655013afd4
parent 1821 749dd6e3d23e
child 2229 1550a455af89
--- a/RegressionTests__CompilerTest.st	Wed Oct 18 14:53:22 2017 +0200
+++ b/RegressionTests__CompilerTest.st	Wed Oct 18 14:53:34 2017 +0200
@@ -410,16 +410,16 @@
     self assert:( ( self _testNot1:true ) == false ).
     self assert:( ( self _testNot1:false ) == true ).
 
-    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.
-    ] ifFalse:[    
-        self should:[ self _testNot1:nil ] raise:Error.
-        self should:[ self _testNot1:1234  ] raise:Error.
-    ].
+    (Helper 
+        isStcCompiledMethod:#'_testNot1:'
+        in:self) ifTrue:[ 
+            "/ stc-compiled code handles not slightly differently
+            "/ (does not raise an error)
+            'CompilerTest >> testNot1: non-boolean cases skipped due to stc limitations' infoPrintCR.
+        ] ifFalse:[    
+            self should:[ self _testNot1:nil ] raise:Error.
+            self should:[ self _testNot1:1234  ] raise:Error.
+        ].
 
     self assert:( ( self _testNot2:true _:true) == false ).
     self assert:( ( self _testNot2:false _:true) == false ).