my $skip_mode_checks =
$^O eq 'cygwin' && $ENV{CYGWIN} !~ /ntsec/;
-plan tests => 32;
+plan tests => 34;
if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) {
# Check truncating a closed file.
eval { truncate "Iofs.tmp", 5; };
- skip("no truncate - $@", 6) if $@;
+ skip("no truncate - $@", 8) if $@;
is(-s "Iofs.tmp", 5, "truncation to five bytes");
close (FH); open (FH, ">>Iofs.tmp") or die "Can't reopen Iofs.tmp";
}
- if ($^O eq 'vos') {
- skip ("# TODO - hit VOS bug posix-973 - cannot resize an open file below the current file pos.", 3);
- }
+ SKIP: {
+ if ($^O eq 'vos') {
+ skip ("# TODO - hit VOS bug posix-973 - cannot resize an open file below the current file pos.", 5);
+ }
- is(-s "Iofs.tmp", 200, "fh resize to 200 working (filename check)");
+ is(-s "Iofs.tmp", 200, "fh resize to 200 working (filename check)");
- ok(truncate(FH, 0), "fh resize to zero");
+ ok(truncate(FH, 0), "fh resize to zero");
- if ($needs_fh_reopen) {
- close (FH); open (FH, ">>Iofs.tmp") or die "Can't reopen Iofs.tmp";
- }
+ if ($needs_fh_reopen) {
+ close (FH); open (FH, ">>Iofs.tmp") or die "Can't reopen Iofs.tmp";
+ }
- ok(-z "Iofs.tmp", "fh resize to zero working (filename check)");
+ ok(-z "Iofs.tmp", "fh resize to zero working (filename check)");
- close FH;
+ close FH;
+
+ open(FH, ">>Iofs.tmp") or die "Can't open Iofs.tmp for appending";
+
+ binmode FH;
+ select FH;
+ $| = 1;
+ select STDOUT;
+
+ {
+ use strict;
+ print FH "x\n" x 200;
+ ok(truncate(*FH{IO}, 100), "fh resize by IO slot");
+ }
+
+ if ($needs_fh_reopen) {
+ close (FH); open (FH, ">>Iofs.tmp") or die "Can't reopen Iofs.tmp";
+ }
+
+ is(-s "Iofs.tmp", 100, "fh resize by IO slot working");
+
+ close FH;
+ }
}
# check if rename() can be used to just change case of filename
ok(-d 'tmp1', "rename on directories working");
# need to remove 'tmp' if rename() in test 28 failed!
-END { rmdir 'tmp1'; rmdir 'tmp'; unlink "Iofs.tmp"; }
+END { rmdir 'tmp1'; rmdir 'tmp'; 1 while unlink "Iofs.tmp"; }