1# -*-perl-*-
2
3use strict;
4use Test qw($ntest plan ok $TESTOUT $TESTERR);
5
6BEGIN { plan test => 6, onfail => \&myfail }
7
8our $mycnt = 0;
9
10my $why = "zero != one";
11# sneak in a test that Test::Harness wont see
12open J, ">", "junk";
13$TESTOUT = *J{IO};
14$TESTERR = *J{IO};
15ok(0, 1, $why);
16$TESTOUT = *STDOUT{IO};
17$TESTERR = *STDERR{IO};
18close J;
19unlink "junk";
20$ntest = 1;
21
22sub myfail {
23    my ($f) = @_;
24    ok(@$f, 1);
25
26    my $t = $$f[0];
27    ok($$t{diagnostic}, $why);
28    ok($$t{'package'}, 'main');
29    ok($$t{repetition}, 1);
30    ok($$t{result}, 0);
31    ok($$t{expected}, 1);
32}
33