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