Change 16399: fix t/io/fs.t for VOS

[Jarkko Hietaniemi]

Change 16399 by jhi@alpha on 2002/05/04 17:00:58

        Subject: fix t/io/fs.t for VOS
        From: [EMAIL PROTECTED]
        Date: Sat, 4 May 02 14:01 edt
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/t/io/fs.t#50 edit

Differences ...

==== //depot/perl/t/io/fs.t#50 (xtext) ====
Index: perl/t/io/fs.t
--- perl/t/io/fs.t.~1~  Sat May  4 11:15:05 2002
+++ perl/t/io/fs.t      Sat May  4 11:15:05 2002
@@ -271,7 +271,7 @@
 # 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 @@
     }
 
     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)");
End of Patch.