From: Paul Green <Paul.Green@stratus.com>
Date: Thu, 7 Mar 2002 14:25:00 +0000 (-0500)
Subject: perl/t/io/fs.t -- VOS bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ca35bcb9bebeaf18b12337306900f3d4105ce12;p=p5sagit%2Fp5-mst-13.2.git

perl/t/io/fs.t -- VOS bug
Message-Id: <200203071924.OAA03273@mailhub2.stratus.com>

p4raw-id: //depot/perl@15086
---

diff --git a/t/io/fs.t b/t/io/fs.t
index 8e74a81..c30e14a 100755
--- 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");