Additional tests for t/op/not.t

Message-ID: <20050215015417.GA30368@mccoy.peters.homeunix.org>

p4raw-id: //depot/perl@23967

diff --git a/t/op/not.t b/t/op/not.t
index 5ff65be..3d07797 100644 (file)
--- a/t/op/not.t
+++ b/t/op/not.t
@@ -6,8 +6,44 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 3;
+plan tests => 16;
 
+# 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);
+}