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