RegressionTests__CompilerTest.st
changeset 1818 7fc16123f396
parent 1817 6867df270674
child 1821 749dd6e3d23e
--- a/RegressionTests__CompilerTest.st	Thu Oct 12 14:28:52 2017 +0200
+++ b/RegressionTests__CompilerTest.st	Thu Oct 12 14:35:18 2017 +0200
@@ -409,7 +409,7 @@
     (self class compiledMethodAt:#_testNot1:) byteCode isNil ifTrue:[ 
         "/ stc-compiled code handles not slightly differently
         "/ (does not raise an error)
-        'CompilerTest >> testNot: skipped _testNot1:nil / _testNot1:1234 die to stc limitations' infoPrintCR.
+        '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.
@@ -420,34 +420,46 @@
     self assert:( ( self _testNot2:true _:false) == false ).
     self assert:( ( self _testNot2:false _:false) == true ).
 
-    self should:[ self _testNot2:false _:1234] raise:Error.
-    self should:[ self _testNot2:true _:1234] raise:Error.
-    self should:[ self _testNot2:1234 _:false] raise:Error.
-    self should:[ self _testNot2:1234 _:true] raise:Error.
-    self should:[ self _testNot2:1234 _:1234] raise:Error.
-    self should:[ self _testNot2:nil _:false] raise:Error.
-    self should:[ self _testNot2:nil _:true] raise:Error.
-    self should:[ self _testNot2:nil _:1234] raise:Error.
-
+    (self class compiledMethodAt:#_testNot2:_:) 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.
+    ] ifFalse:[    
+        self should:[ self _testNot2:false _:1234] raise:Error.
+        self should:[ self _testNot2:true _:1234] raise:Error.
+        self should:[ self _testNot2:1234 _:false] raise:Error.
+        self should:[ self _testNot2:1234 _:true] raise:Error.
+        self should:[ self _testNot2:1234 _:1234] raise:Error.
+        self should:[ self _testNot2:nil _:false] raise:Error.
+        self should:[ self _testNot2:nil _:true] raise:Error.
+        self should:[ self _testNot2:nil _:1234] raise:Error.
+    ].
+    
     self assert:( ( self _testNot3:true _:true) == false ).
     self assert:( ( self _testNot3:false _:true) == true ).
     self assert:( ( self _testNot3:true _:false) == true ).
     self assert:( ( self _testNot3:false _:false) == true ).
 
-    self should:[ self _testNot3:false _:1234] raise:Error.
-    self should:[ self _testNot3:true _:1234] raise:Error.
-    self should:[ self _testNot3:1234 _:false] raise:Error.
-    self should:[ self _testNot3:1234 _:true] raise:Error.
-    self should:[ self _testNot3:1234 _:1234] raise:Error.
-    self should:[ self _testNot3:nil _:false] raise:Error.
-    self should:[ self _testNot3:nil _:true] raise:Error.
-    self should:[ self _testNot3:nil _:1234] raise:Error.
-
+    (self class compiledMethodAt:#_testNot3:_:) 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.
+    ] ifFalse:[    
+        self should:[ self _testNot3:false _:1234] raise:Error.
+        self should:[ self _testNot3:true _:1234] raise:Error.
+        self should:[ self _testNot3:1234 _:false] raise:Error.
+        self should:[ self _testNot3:1234 _:true] raise:Error.
+        self should:[ self _testNot3:1234 _:1234] raise:Error.
+        self should:[ self _testNot3:nil _:false] raise:Error.
+        self should:[ self _testNot3:nil _:true] raise:Error.
+        self should:[ self _testNot3:nil _:1234] raise:Error.
+    ].
+    
     "
      self new testNot
     "
 
-    "Modified: / 12-10-2017 / 14:28:36 / cg"
+    "Modified: / 12-10-2017 / 14:35:05 / cg"
 !
 
 testOr
@@ -2304,6 +2316,10 @@
 
 !CompilerTest class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 ! !