1N/A# ID 20020716.013, the exit code would become 0 if the test died

1N/A# before a plan.

1N/A

1N/Arequire Test::Simple;

1N/A

1N/Apush @INC, 't/lib';

1N/Arequire Test::Simple::Catch;

1N/Amy($out, $err) = Test::Simple::Catch::caught();

1N/A

1N/Aclose STDERR;

1N/Adie "Knife?";

1N/A

1N/ATest::Simple->import(tests => 3);

1N/A

1N/Aok(1);

1N/Aok(1);

1N/Aok(1);