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 | |
04955c14 | 8 | require Dev::Null; |
9 | ||
4dd974da | 10 | Test::Simple->import(tests => 5); |
04955c14 | 11 | tie *STDERR, 'Dev::Null'; |
4dd974da | 12 | |
13 | ok(1); | |
14 | ok(1); | |
15 | ok(1); | |
c7623038 | 16 | $! = 0; |
04955c14 | 17 | die "This is a test"; |