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