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