Commit | Line | Data |
---|---|---|
4dd974da | 1 | require Test::Simple; |
3c4bf434 | 2 | # $Id$ |
4dd974da | 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); | |
04955c14 | 9 | |
10 | require Dev::Null; | |
11 | tie *STDERR, 'Dev::Null'; | |
4dd974da | 12 | |
13 | ok(1); | |
14 | ok(1); | |
15 | ok(1); | |
16 | ok(1); | |
17 | ok(1); | |
18 | ||
c7623038 | 19 | $! = 0; |
04955c14 | 20 | die "This is a test"; |