perl/t/io/fs.t -- VOS bug
Paul Green [Thu, 7 Mar 2002 14:25:00 +0000 (09:25 -0500)]
Message-Id: <200203071924.OAA03273@mailhub2.stratus.com>

p4raw-id: //depot/perl@15086

t/io/fs.t

index 8e74a81..c30e14a 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -275,7 +275,11 @@ SKIP: {
        close (FH); open (FH, ">>Iofs.tmp") or die "Can't reopen Iofs.tmp";
     }
        
-    is(-s "Iofs.tmp", 200, "fh resize to 200 working (filename check)");
+    if ($^O eq 'vos') {
+     is(-s "Iofs.tmp", 200, "TODO - hit VOS bug posix-973 - fh resize to 200 working (filename check)");
+    } else {
+     is(-s "Iofs.tmp", 200, "fh resize to 200 working (filename check)");
+    }
 
     ok(truncate(FH, 0), "fh resize to zero");