1# ID 20020716.013, the exit code would become 0 if the test died 2# before a plan. 3 4require Test::Simple; 5 6push @INC, 't/lib'; 7require Test::Simple::Catch; 8my($out, $err) = Test::Simple::Catch::caught(); 9 10close STDERR; 11die "Knife?"; 12 13Test::Simple->import(tests => 3); 14 15ok(1); 16ok(1); 17ok(1); 18