From 1b293ed1e0e66b606ed121bd34c8112e6fd8e30d Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Mon, 14 Feb 2005 13:54:17 -0600 Subject: [PATCH] Additional tests for t/op/not.t Message-ID: <20050215015417.GA30368@mccoy.peters.homeunix.org> p4raw-id: //depot/perl@23967 --- t/op/not.t | 38 +++++++++++++++++++++++++++++++++++++- 1 file changed, 37 insertions(+), 1 deletion(-) 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); +} -- 1.8.3.1