diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 12:17:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 12:17:42 +0000 |
| commit | 5319f5cda006254c54e21c2a144c8f88da330a7f (patch) | |
| tree | a0887a1b876a53d83084e28c1e032c6471fc5beb /t/io | |
| parent | bde417e1a2abaeddb72f93c24d4b6f59f836872a (diff) | |
| download | perl-5319f5cda006254c54e21c2a144c8f88da330a7f.tar.gz | |
Test tweaks from mjd and Benjamin Goldberg.
p4raw-id: //depot/perl@15964
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/full.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/io/full.t b/t/io/full.t index d59689fbe7..917050f037 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; |