diff options
| author | Andreas König <a.koenig@mind.de> | 2001-12-27 10:21:16 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 13:38:30 +0000 |
| commit | 502257bbd84303d76b53d1bb0970d257fb57e87e (patch) | |
| tree | a8ac7d3eeaaf50e16722f07cd20dbf2c10198d95 /t/op/sysio.t | |
| parent | 374f099828257f592a8c181d18eeff42426588cc (diff) | |
| download | perl-502257bbd84303d76b53d1bb0970d257fb57e87e.tar.gz | |
better error diagnosis from t/op/sysio.t
Message-ID: <m3n105gjk3.fsf@anima.de>
p4raw-id: //depot/perl@13902
Diffstat (limited to 't/op/sysio.t')
| -rwxr-xr-x | t/op/sysio.t | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t index 251c7f8151..473a3f0883 100755 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -6,7 +6,11 @@ chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!"; open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!"; -$reopen = ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' || +$reopen = ($^O eq 'VMS' || + $^O eq 'os2' || + $^O eq 'MSWin32' || + $^O eq 'NetWare' || + $^O eq 'dos' || $^O eq 'mpeix'); $x = 'abc'; @@ -108,8 +112,14 @@ print 'not ' if (-s $outfile); print "ok 19\n"; # default offset 0 -print 'not ' unless (syswrite(O, $a, 2) == 2); -print "ok 20\n"; +if (syswrite(O, $a, 2) == 2){ + print "ok 20\n"; +} else { + print "# $!\nnot ok 20\n"; + # most other tests make no sense after e.g. "No space left on device" + die $!; +} + # $a still intact print 'not ' unless ($a eq "#!.\0\0erl"); @@ -203,7 +213,7 @@ close(I); unlink $outfile; -chdir('..'); +chdir('..'); 1; |