From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 14 Feb 2005 19:54:17 +0000 (-0600)
Subject: Additional tests for t/op/not.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b293ed1e0e66b606ed121bd34c8112e6fd8e30d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
+}