Change 13902: [PATCH] better error diagnosis from t/op/sysio.t

[Jarkko Hietaniemi]

Change 13902 by jhi@alpha on 2001/12/27 13:38:30

        Subject: [PATCH] better error diagnosis from t/op/sysio.t
        From: [EMAIL PROTECTED] (Andreas J. Koenig)
        Date: 27 Dec 2001 09:21:16 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/t/op/sysio.t#11 edit

Differences ...

==== //depot/perl/t/op/sysio.t#11 (xtext) ====
Index: perl/t/op/sysio.t
--- perl/t/op/sysio.t.~1~       Thu Dec 27 06:45:06 2001
+++ perl/t/op/sysio.t   Thu Dec 27 06:45:06 2001
@@ -6,7 +6,11 @@
 
 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 "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 @@
 
 unlink $outfile;
 
-chdir('..'); 
+chdir('..');
 
 1;
 
End of Patch.