1N/Arequire Test::Simple;

1N/Ause Carp;

1N/A

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

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

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

1N/A

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

1N/A

1N/Aok(1);

1N/Aok(1);

1N/Aok(1);

1N/Aeval {

1N/A die "Foo";

1N/A};

1N/Aok(1);

1N/Aeval "die 'Bar'";

1N/Aok(1);

1N/A

1N/Aeval {

1N/A croak "Moo";

1N/A};