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

[Nicholas Clark]

Change 34183 by [EMAIL PROTECTED] on 2008/08/08 09:24:39

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

Affected files ...

... //depot/perl/t/run/runenv.t#12 edit

Differences ...

==== //depot/perl/t/run/runenv.t#12 (text) ====
Index: perl/t/run/runenv.t
--- perl/t/run/runenv.t#11~26428~       2005-12-20 12:50:26.000000000 -0800
+++ perl/t/run/runenv.t 2008-08-08 02:24:39.000000000 -0700
@@ -12,10 +12,9 @@
         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 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
End of Patch.