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