Cross Reference: pre_plan_death.plx
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
lib
/
Test
/
Simple
/
sample_tests
/
pre_plan_death.plx
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
pre_plan_death.plx revision 1
1
N/A
# ID 20020716.013, the exit code would become 0 if the test died
1
N/A
# before a plan.
1
N/A
1
N/A
require Test::Simple;
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
close STDERR;
1
N/A
die "Knife?";
1
N/A
1
N/A
Test::Simple->import(tests => 3);
1
N/A
1
N/A
ok(1);
1
N/A
ok(1);
1
N/A
ok(1);