[PATCH] Additional tests for t/op/not.t

[Steve Peters]

Attached are some additional tests for t/op/not.t.  The additional
tests cover a few additional cases for ! and not beyond the 
test for not().

Steve Peters
[EMAIL PROTECTED]
 

--- t/op/not.t.orig     Fri Feb 11 21:49:00 2005
+++ t/op/not.t  Fri Feb 11 22:31:52 2005
@@ -5,9 +5,46 @@
     @INC = '../lib';
     require './test.pl';
 }

+plan tests => 16;
-plan tests => 3;
-
+# not() tests
 pass() if not();
 is(not(), 1);
 is(not(), not(0));
+ 
+# test not(..) and !
+is(! 1, not 1);
+is(! 0, not 0);
+is(! (0, 0) , not(0, 0));
+
+# test the return of !
+{
+    my $not0 = ! 0;
+    my $not1 = ! 1;
+
+    no warnings;
+    ok($not1 == undef);
+    ok($not1 == ());
+
+    use warnings;
+    ok($not1  eq '');
+    ok($not1  == 0);
+    ok($not0 == 1);
+}
+
+# test the return of not
+{
+    my $not0 = not 0;
+    my $not1 = not 1;
+
+    no warnings;
+    ok($not1 ==  undef);
+    ok($not1 == ());
+
+    use warnings;
+    ok($not1 eq '');
+    ok($not1 == 0 );
+    ok($not0 == 1);
+
+}