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