Tiny SelfLoader patch for better warnings

[p5sagit/p5-mst-13.2.git] / lib / Test / t / skip.t

diff --git a/lib/Test/t/skip.t b/lib/Test/t/skip.t
index 7db35e6..a6d1cf4 100644 (file)
--- a/lib/Test/t/skip.t
+++ b/lib/Test/t/skip.t
@@ -1,9 +1,11 @@
 # -*-perl-*-
 use strict;
-use Test qw($TESTOUT $ntest plan ok skip); plan tests => 6;
+use Test qw($TESTOUT $TESTERR $ntest plan ok skip); 
+plan tests => 6;
 
 open F, ">skips" or die "open skips: $!";
 $TESTOUT = *F{IO};
+$TESTERR = *F{IO};
 
 skip(1, 0);  #should skip
 
@@ -15,6 +17,7 @@ skip('skipping stones is more fun', sub { $skipped = 0 });
 close F;
 
 $TESTOUT = *STDOUT{IO};
+$TESTERR = *STDERR{IO};
 $ntest = 1;
 open F, "skips" or die "open skips: $!";