From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 17 Apr 2002 21:51:18 +0000 (+0000)
Subject: Move /dev/full testing post-5.8.0.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d5a560e6257e98fbb384456cc2d9b09a6b228b7;p=p5sagit%2Fp5-mst-13.2.git

Move /dev/full testing post-5.8.0.

p4raw-id: //depot/perl@15987
---

diff --git a/MANIFEST b/MANIFEST
index ea5c80a..148317f 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2275,7 +2275,6 @@ t/io/crlf.t			See if :crlf works
 t/io/dup.t			See if >& works right
 t/io/fflush.t			See if auto-flush on fork/exec/system/qx works
 t/io/fs.t			See if directory manipulations work
-t/io/full.t			See if 'disk full' errors are reported
 t/io/inplace.t			See if inplace editing works
 t/io/iprefix.t			See if inplace editing works with prefixes
 t/io/nargv.t			See if nested ARGV stuff works
diff --git a/t/io/full.t b/t/io/full.t
deleted file mode 100644
index c4aa8f0..0000000
--- a/t/io/full.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!./perl
-#
-# Test for 'disk full' errors, if possible
-# 20020416 mjd-perl-patch+@plover.com
-
-unless (-c "/dev/full" && open FULL, "> /dev/full") {
-  print "1..0\n"; exit;
-}
-
-my $z;
-print "1..6\n";
-
-print FULL "I like pie.\n" ? print "ok 1\n" : print "not ok 1\n";
-# Should fail
-$z = close(FULL);
-print $z ? "not ok 2 # z=$z; $!\n" : "ok 2\n";
-print $!{ENOSPC} || $!{EBADF} ? "ok 3\n" : "not ok 3\n";
-  
-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} || $!{EBADF} ? "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;
-}
-