Commit | Line | Data |
9b599b2a |
1 | #!./perl |
2 | |
3 | # |
4 | # Verify that C<die> return the return code |
5 | # -- Robin Barker <rmb@cise.npl.co.uk> |
6 | # |
7 | |
8 | BEGIN { |
9 | chdir 't' if -d 't'; |
10 | @INC = '../lib' if -e '../lib'; |
11 | } |
12 | my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl'; |
13 | |
14 | use strict; |
15 | |
16 | my %tests = ( |
17 | 1 => [ 0, 0], |
18 | 2 => [ 0, 1], |
19 | 3 => [ 0, 127], |
20 | 4 => [ 0, 128], |
21 | 5 => [ 0, 255], |
22 | 6 => [ 0, 256], |
23 | 7 => [ 0, 512], |
24 | 8 => [ 1, 0], |
25 | 9 => [ 1, 1], |
26 | 10 => [ 1, 256], |
27 | 11 => [ 128, 0], |
28 | 12 => [ 128, 1], |
29 | 13 => [ 128, 256], |
30 | 14 => [ 255, 0], |
31 | 15 => [ 255, 1], |
32 | 16 => [ 255, 256], |
df0bd2f4 |
33 | # see if implicit close preserves $? |
a8710ca1 |
34 | 17 => [ 0, 512, '{ local *F; open F, q[TEST]; close F; $!=0 } die;'], |
9b599b2a |
35 | ); |
36 | |
37 | my $max = keys %tests; |
38 | |
39 | print "1..$max\n"; |
40 | |
41 | foreach my $test (1 .. $max) { |
df0bd2f4 |
42 | my($bang, $query, $code) = @{$tests{$test}}; |
43 | $code ||= 'die;'; |
9b599b2a |
44 | my $exit = |
55d729e4 |
45 | ($^O eq 'MSWin32' |
df0bd2f4 |
46 | ? system qq($perl -e "\$! = $bang; \$? = $query; $code" 2> nul) |
47 | : system qq($perl -e '\$! = $bang; \$? = $query; $code' 2> /dev/null)); |
9b599b2a |
48 | |
d289e7db |
49 | printf "# 0x%04x 0x%04x 0x%04x\n", $exit, $bang, $query; |
50 | print "not " unless $exit == (($bang || ($query >> 8) || 255) << 8); |
9b599b2a |
51 | print "ok $test\n"; |
52 | } |
53 | |