/usr/share/doc/perl-Test-Simple/t/lib/Test/Simple/sample_tests
# ID 20020716.013, the exit code would become 0 if the test died # before a plan. require Test::Simple; push @INC, 't/lib'; require Test::Simple::Catch; my($out, $err) = Test::Simple::Catch::caught(); close STDERR; die "Knife?"; Test::Simple->import(tests => 3); ok(1); ok(1); ok(1);
.
Edit
..
Edit
death.plx
Edit
death_in_eval.plx
Edit
death_with_handler.plx
Edit
exit.plx
Edit
extras.plx
Edit
five_fail.plx
Edit
last_minute_death.plx
Edit
missing_done_testing.plx
Edit
one_fail.plx
Edit
one_fail_without_plan.plx
Edit
pre_plan_death.plx
Edit
require.plx
Edit
success.plx
Edit
too_few.plx
Edit
too_few_fail.plx
Edit
two_fail.plx
Edit