better error diagnosis from t/op/sysio.t
authorAndreas König <a.koenig@mind.de>
Thu, 27 Dec 2001 09:21:16 +0000 (10:21 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 27 Dec 2001 13:38:30 +0000 (13:38 +0000)
Message-ID: <m3n105gjk3.fsf@anima.de>

p4raw-id: //depot/perl@13902

t/op/sysio.t

index 251c7f8..473a3f0 100755 (executable)
@@ -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;