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