44 lines
559 B
Perl
44 lines
559 B
Perl
|
#!./perl
|
||
|
|
|
||
|
|
print "1..10\n";
|
||
|
|
|
||
|
|
$SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ;
|
||
|
|
|
||
|
|
$err = "ok 1\n";
|
||
|
|
eval {
|
||
|
|
die $err;
|
||
|
|
};
|
||
|
|
|
||
|
|
print "not " unless $@ eq $err;
|
||
|
|
print "ok 2\n";
|
||
|
|
|
||
|
|
$x = [3];
|
||
|
|
eval { die $x; };
|
||
|
|
|
||
|
|
print "not " unless $x->[0] == 4;
|
||
|
|
print "ok 4\n";
|
||
|
|
|
||
|
|
eval {
|
||
|
|
eval {
|
||
|
|
die [ 5 ];
|
||
|
|
};
|
||
|
|
die if $@;
|
||
|
|
};
|
||
|
|
|
||
|
|
eval {
|
||
|
|
eval {
|
||
|
|
die bless [ 7 ], "Error";
|
||
|
|
};
|
||
|
|
die if $@;
|
||
|
|
};
|
||
|
|
|
||
|
|
print "not " unless ref($@) eq "Out";
|
||
|
|
print "ok 10\n";
|
||
|
|
|
||
|
|
package Error;
|
||
|
|
|
||
|
|
sub PROPAGATE {
|
||
|
|
print "ok ",$_[0]->[0]++,"\n";
|
||
|
|
bless [$_[0]->[0]], "Out";
|
||
|
|
}
|