Change 15981 by jhi@alpha on 2002/04/17 21:02:13
Subject: Re: [ID 20020416.001] 'close' does not report failure when buffer
flush fails
From: Mark-Jason Dominus <[EMAIL PROTECTED]>
Date: Wed, 17 Apr 2002 11:14:17 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/io/full.t#3 edit
Differences ...
==== //depot/perl/t/io/full.t#3 (text) ====
Index: perl/t/io/full.t
--- perl/t/io/full.t.~1~ Wed Apr 17 15:15:05 2002
+++ perl/t/io/full.t Wed Apr 17 15:15:05 2002
@@ -4,7 +4,7 @@
# 20020416 [EMAIL PROTECTED]
unless (-c "/dev/full" && open FULL, "> /dev/full") {
- print "1..0\n"; exit 0;
+ print "1..0\n"; exit;
}
my $z;
@@ -16,17 +16,17 @@
print $z ? "not ok 2 # z=$z; $!\n" : "ok 2\n";
print $!{ENOSPC} ? "ok 3\n" : "not ok 3\n";
-unless (open FULL, "> /dev/full") {
+if (open FULL, "> /dev/full") {
+ select FULL; $| = 1; select STDOUT;
+
+ # Should fail
+ $z = print FULL "I like pie.\n";
+ print $z ? "not ok 4 # z=$z; $!\n" : "ok 4\n";
+ print $!{ENOSPC} ? "ok 5\n" : "not ok 5\n";
+ $z = close FULL;
+ print $z ? "ok 6\n" : "not ok 6 # z=$s; $!\n";
+} else {
print "# couldn't open /dev/full the second time: $!\n";
print "not ok $_\n" for 4..6;
- exit 0;
}
-select FULL; $| = 1; select STDOUT;
-
-# Should fail
-$z = print FULL "I like pie.\n";
-print $z ? "not ok 4 # z=$z; $!\n" : "ok 4\n";
-print $!{ENOSPC} ? "ok 5\n" : "not ok 5\n";
-$z = close FULL;
-print $z ? "ok 6\n" : "not ok 6 # z=$s; $!\n";
End of Patch.
