4 use Test qw($ntest plan ok $TESTOUT $TESTERR);
7 BEGIN { plan test => 6, onfail => \&myfail }
11 my $why = "zero != one";
12 # sneak in a test that Test::Harness wont see
17 $TESTOUT = *STDOUT{IO};
18 $TESTERR = *STDERR{IO};
28 ok($$t{diagnostic}, $why);
29 ok($$t{'package'}, 'main');
30 ok($$t{repetition}, 1);