diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-12-18 21:45:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-19 15:04:03 +0000 |
| commit | dfcfdb64cf0cdaf3745a1082d9b4a94480414c62 (patch) | |
| tree | dfc2125707e6a7bfbab5dcff74d64102e2c0509d /lib/Shell.t | |
| parent | 505f3f16d6d7a74e8cf7e8f3a785787b06f153f9 (diff) | |
| download | perl-dfcfdb64cf0cdaf3745a1082d9b4a94480414c62.tar.gz | |
OS/2 build
Message-ID: <20011219024541.A29803@math.ohio-state.edu>
(skipped the t/TEST change)
p4raw-id: //depot/perl@13805
Diffstat (limited to 'lib/Shell.t')
| -rw-r--r-- | lib/Shell.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Shell.t b/lib/Shell.t index 837f6aca88..b2d3d67aa0 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; # |