Commit | Line | Data |
---|---|---|
bf4b1e52 GS |
1 | #!./perl |
2 | ||
3 | # | |
4 | # test the logical operators '&&', '||', '!', 'and', 'or', 'not' | |
5 | # | |
6 | ||
7 | BEGIN { | |
8 | chdir 't' if -d 't'; | |
20822f61 | 9 | @INC = '../lib'; |
bf4b1e52 GS |
10 | } |
11 | ||
12 | print "1..7\n"; | |
13 | ||
14 | my $test = 0; | |
15 | for my $i (undef, 0 .. 2, "", "0 but true") { | |
16 | my $true = 1; | |
17 | my $false = 0; | |
18 | for my $j (undef, 0 .. 2, "", "0 but true") { | |
19 | $true &&= !( | |
20 | ((!$i || !$j) != !($i && $j)) | |
21 | or (!($i || $j) != (!$i && !$j)) | |
22 | or (!!($i || $j) != !(!$i && !$j)) | |
23 | or (!(!$i || !$j) != !!($i && $j)) | |
24 | ); | |
25 | $false ||= ( | |
26 | ((!$i || !$j) == !!($i && $j)) | |
27 | and (!!($i || $j) == (!$i && !$j)) | |
28 | and ((!$i || $j) == ($i && !$j)) | |
29 | and (($i || !$j) != (!$i && $j)) | |
30 | ); | |
31 | } | |
32 | if (not $true) { | |
33 | print "not "; | |
34 | } elsif ($false) { | |
35 | print "not "; | |
36 | } | |
37 | print "ok ", ++$test, "\n"; | |
38 | } | |
39 | ||
40 | # $test == 6 | |
41 | my $i = 0; | |
42 | (($i ||= 1) &&= 3) += 4; | |
43 | print "not " unless $i == 7; | |
44 | print "ok ", ++$test, "\n"; |