Rewhack Test-Simple into core harness.

p4raw-id: //depot/perl@11912

1 files changed, 7 insertions, 6 deletions

diff --git a/lib/Test/Simple/t/fail.t b/lib/Test/Simple/t/fail.t
index 5e77066bce..92202719dc 100644
--- a/lib/Test/Simple/t/fail.t
+++ b/lib/Test/Simple/t/fail.t
@@ -1,5 +1,10 @@
 use strict;
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 # Can't use Test.pm, that's a 5.005 thing.
 package My::Test;
 
@@ -23,7 +28,7 @@ package main;
 
 require Test::Simple;
 
-push @INC, 't/lib';
+push @INC, '../t/lib';
 require Test::Simple::Catch;
 my($out, $err) = Test::Simple::Catch::caught();
 
@@ -46,11 +51,7 @@ not ok 4 - oh no!
 not ok 5 - damnit
 OUT
 
-    My::Test::ok($$err eq <<ERR);
-#     Failed test ($0 at line 35)
-#     Failed test ($0 at line 36)
-# Looks like you failed 2 tests of 5.
-ERR
+    My::Test::ok($$err =~ /Looks like you failed 2 tests of 5/;
 
     # Prevent Test::Simple from exiting with non zero
     exit 0;