Commit | Line | Data |
---|---|---|
60ffb308 | 1 | # ID 20020716.013, the exit code would become 0 if the test died |
2 | # before a plan. | |
3 | ||
4 | require Test::Simple; | |
5 | ||
6 | push @INC, 't/lib'; | |
7 | require Test::Simple::Catch; | |
8 | my($out, $err) = Test::Simple::Catch::caught(); | |
9 | ||
10 | close STDERR; | |
11 | die "Knife?"; | |
12 | ||
13 | Test::Simple->import(tests => 3); | |
14 | ||
15 | ok(1); | |
16 | ok(1); | |
17 | ok(1); |