1require Test::Simple;
2use Carp;
3
4push @INC, 't/lib';
5require Test::Simple::Catch;
6my($out, $err) = Test::Simple::Catch::caught();
7
8Test::Simple->import(tests => 5);
9
10ok(1);
11ok(1);
12ok(1);
13eval {
14        die "Foo";
15};
16ok(1);
17eval "die 'Bar'";
18ok(1);
19
20eval {
21        croak "Moo";
22};
23