# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 943289132 -3600
# Node ID 022fba2b591706b5c0cdbc53dd744e6315a255e7
# Parent  3258d44978a019bc64e620e0d7b8fda24113669a
checkin from browser

diff -r 3258d44978a0 -r 022fba2b5917 RegressionTests__CompilerTest.st
--- 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