1 files changed, 0 insertions, 33 deletions
diff --git a/lib/Test/t/onfail.t b/lib/Test/t/onfail.t
deleted file mode 100644
index 85fe9eb884..0000000000
--- a/lib/Test/t/onfail.t
+++ /dev/null
@@ -1,33 +0,0 @@
-# -*-perl-*-
-
-use strict;
-use Test qw($ntest plan ok $TESTOUT $TESTERR);
-use vars qw($mycnt);
-
-BEGIN { plan test => 6, onfail => \&myfail }
-
-$mycnt = 0;
-
-my $why = "zero != one";
-# sneak in a test that Test::Harness wont see
-open J, ">junk";
-$TESTOUT = *J{IO};
-$TESTERR = *J{IO};
-ok(0, 1, $why);
-$TESTOUT = *STDOUT{IO};
-$TESTERR = *STDERR{IO};
-close J;
-unlink "junk";
-$ntest = 1;
-
-sub myfail {
-    my ($f) = @_;
-    ok(@$f, 1);
-
-    my $t = $$f[0];
-    ok($$t{diagnostic}, $why);
-    ok($$t{'package'}, 'main');
-    ok($$t{repetition}, 1);
-    ok($$t{result}, 0);
-    ok($$t{expected}, 1);
-}