From: Paul Green Date: Sat, 4 May 2002 14:01:00 +0000 (-0400) Subject: fix t/io/fs.t for VOS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f4ea74e3de0f657a4b2a6ef601d944a9cad5c5b;p=p5sagit%2Fp5-mst-13.2.git fix t/io/fs.t for VOS Message-Id: <200205041801.OAA13071@mailhub1.stratus.com> p4raw-id: //depot/perl@16399 --- diff --git a/t/io/fs.t b/t/io/fs.t index 12eec19..7535e4e 100755 --- a/t/io/fs.t +++ b/t/io/fs.t @@ -271,7 +271,7 @@ SKIP: { # Check truncating a closed file. eval { truncate "Iofs.tmp", 5; }; - skip("no truncate - $@", 10) if $@; + skip("no truncate - $@", 6) if $@; is(-s "Iofs.tmp", 5, "truncation to five bytes"); @@ -304,7 +304,7 @@ SKIP: { } if ($^O eq 'vos') { - skip ("# TODO - hit VOS bug posix-973 - cannot resize an open file below the current file pos.", 7); + skip ("# TODO - hit VOS bug posix-973 - cannot resize an open file below the current file pos.", 3); } is(-s "Iofs.tmp", 200, "fh resize to 200 working (filename check)");