Commit | Line | Data |
---|---|---|
9b599b2a GS |
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], | |
33 | ); | |
34 | ||
35 | my $max = keys %tests; | |
36 | ||
37 | print "1..$max\n"; | |
38 | ||
39 | foreach my $test (1 .. $max) { | |
40 | my($bang, $query) = @{$tests{$test}}; | |
41 | my $exit = | |
42 | system qq($perl -e '\$! = $bang; \$? = $query; die;' 2> /dev/null); | |
43 | ||
44 | printf "# 0x%04x 0x%04x 0x%04x\nnot ", $exit, $bang, $query | |
45 | unless $exit == (($bang || ($query >> 8) || 255) << 8); | |
46 | print "ok $test\n"; | |
47 | } | |
48 |