From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 8 Aug 2008 09:24:39 +0000 (+0000)
Subject: Use test.pl, not Test.pm, in t/run/*.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16570ae7eebaecacdda358922298468d022f241d;p=p5sagit%2Fp5-mst-13.2.git

Use test.pl, not Test.pm, in t/run/*.t

p4raw-id: //depot/perl@34183
---

diff --git a/t/run/runenv.t b/t/run/runenv.t
index 7359c4e..2a73e7c 100644
--- a/t/run/runenv.t
+++ b/t/run/runenv.t
@@ -12,10 +12,9 @@ BEGIN {
         print "1..0 # Skip: no fork\n";
 	    exit 0;
     }
+    require './test.pl'
 }
 
-use Test;
-
 plan tests => 17;
 
 my $STDOUT = './results-0';
@@ -82,7 +81,8 @@ sub it_didnt_work {
 sub try {
   my ($success, $reason) = runperl(@_);
   $reason =~ s/\n/\\n/g if defined $reason;
-  ok( !!$success, 1, $reason );
+  local $::Level = $::Level + 1;
+  ok( $success, $reason );
 }
 
 #  PERL5OPT    Command-line options (switches).  Switches in