X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FShell.t;h=b2d3d67aa05584a8711eb9dc509b3a9bb93c2fc6;hb=ba690e3299357f01ba3a8cb5887c44f0790a0c35;hp=a285896e640f5bde6e4d12fb96b28d044c8e7483;hpb=72c157b023d430ca1a19cb152e889432a114232b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Shell.t b/lib/Shell.t
index a285896..b2d3d67 100644
--- a/lib/Shell.t
+++ b/lib/Shell.t
@@ -1,5 +1,10 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use Test::More tests => 4;
 
 BEGIN { use_ok('Shell'); }
@@ -19,7 +24,7 @@ while ( -f $tmpfile )
   $tmpfile++;
 }
 
-END { -f $tmpfile && unlink $tmpfile };
+END { -f $tmpfile && (open STDERR, '>&SAVERR' and unlink $tmpfile) };
 
 
 
@@ -28,7 +33,8 @@ open(STDERR, ">$tmpfile");
 
 xXx();  # Ok someone could have a program called this :(
 
-ok( !(-s $tmpfile) ,'$Shell::capture_stderr');
+# On os2 the warning is on by default...
+ok( ($^O eq 'os2' xor !(-s $tmpfile)) ,'$Shell::capture_stderr');
 
 $Shell::capture_stderr = 0; #
 
@@ -57,3 +63,4 @@ else
   ok(@files,'Quoted arguments');
 
 }
+open(STDERR,">&SAVERR") ;