Commit | Line | Data |
---|---|---|
4dd974da | 1 | require Test::Simple; |
2 | ||
d020a79a | 3 | push @INC, 't/lib'; |
4 | require Test::Simple::Catch; | |
5 | my($out, $err) = Test::Simple::Catch::caught(); | |
4dd974da | 6 | |
04955c14 | 7 | require Dev::Null; |
8 | ||
4dd974da | 9 | Test::Simple->import(tests => 5); |
04955c14 | 10 | tie *STDERR, 'Dev::Null'; |
4dd974da | 11 | |
12 | ok(1); | |
13 | ok(1); | |
14 | ok(1); | |
c7623038 | 15 | $! = 0; |
04955c14 | 16 | die "This is a test"; |