Cross Reference: death_in_eval.plx
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
lib
/
Test
/
Simple
/
sample_tests
/
death_in_eval.plx
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
death_in_eval.plx revision 1
1
N/A
require Test::Simple;
1
N/A
use Carp;
1
N/A
1
N/A
push @INC, '
t/lib
';
1
N/A
require Test::Simple::Catch;
1
N/A
my($out, $err) = Test::Simple::Catch::caught();
1
N/A
1
N/A
Test::Simple->import(tests => 5);
1
N/A
1
N/A
ok(1);
1
N/A
ok(1);
1
N/A
ok(1);
1
N/A
eval {
1
N/A
die "Foo";
1
N/A
};
1
N/A
ok(1);
1
N/A
eval "die 'Bar'";
1
N/A
ok(1);
1
N/A
1
N/A
eval {
1
N/A
croak "Moo";
1
N/A
};