From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 17 Apr 2002 12:17:42 +0000 (+0000)
Subject: Test tweaks from mjd and Benjamin Goldberg.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5319f5cda006254c54e21c2a144c8f88da330a7f;p=p5sagit%2Fp5-mst-13.2.git

Test tweaks from mjd and Benjamin Goldberg.

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

diff --git a/t/io/full.t b/t/io/full.t
index d59689f..917050f 100644
--- a/t/io/full.t
+++ b/t/io/full.t
@@ -4,7 +4,7 @@
 # 20020416 mjd-perl-patch+@plover.com
 
 unless (-c "/dev/full" && open FULL, "> /dev/full") {
-  print "1..0\n"; exit;
+  print "1..0\n"; exit 0;
 }
 
 my $z;
@@ -14,11 +14,12 @@ 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} ? "ok 3\n" : print "not ok 3\n";
+print $!{ENOSPC} ? "ok 3\n" : "not ok 3\n";
   
 unless (open FULL, "> /dev/full") {
   print "# couldn't open /dev/full the second time: $!\n";
   print "not ok $_\n" for 4..6;
+  exit 0;
 }
 
 select FULL;   $| = 1;  select STDOUT;