[p5sagit/p5-mst-13.2.git] / t / op / not.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

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);
}
Commit	Line	Data
a758b0b5	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
1b293ed1	9	plan tests => 16;
a758b0b5	10
1b293ed1	11	# not() tests
a758b0b5	12	pass() if not();
	13	is(not(), 1);
	14	is(not(), not(0));
1b293ed1	15
	16	# test not(..) and !
	17	is(! 1, not 1);
	18	is(! 0, not 0);
	19	is(! (0, 0), not(0, 0));
	20
	21	# test the return of !
	22	{
	23	my $not0 = ! 0;
	24	my $not1 = ! 1;
	25
	26	no warnings;
	27	ok($not1 == undef);
	28	ok($not1 == ());
	29
	30	use warnings;
	31	ok($not1 eq '');
	32	ok($not1 == 0);
	33	ok($not0 == 1);
	34	}
	35
	36	# test the return of not
	37	{
	38	my $not0 = not 0;
	39	my $not1 = not 1;
	40
	41	no warnings;
	42	ok($not1 == undef);
	43	ok($not1 == ());
	44
	45	use warnings;
	46	ok($not1 eq '');
	47	ok($not1 == 0);
	48	ok($not0 == 1);
	49	}