--- a/RegressionTests__CompilerTest.st	Tue Nov 09 10:37:35 1999 +0100
+++ b/RegressionTests__CompilerTest.st	Mon Nov 22 17:45:32 1999 +0100
@@ -6,6 +6,35 @@
 !
 
 
+!CompilerTest methodsFor:'tests - booleans'!
+
+testNot1:arg
+    ^ arg not
+
+    "
+     self new testNot1:true.
+     self new testNot1:false.
+     self new testNot1:1234.
+    "
+!
+
+testNot2:arg1 _:arg2
+    ^ arg1 not & arg2 not
+
+    "
+     self new testNot2:true  _:true.   
+     self new testNot2:false _:true.
+     self new testNot2:true  _:false.
+     self new testNot2:false _:false.
+
+     self new testNot2:false _:1234.
+     self new testNot2:true  _:1234.
+     self new testNot2:1234  _:true.
+     self new testNot2:1234  _:false.
+     self new testNot2:1234  _:2345.
+    "
+! !
+
 !CompilerTest methodsFor:'tests - constant folding'!
 
 testFloat_pi