From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 14:07:16 +0000 (+0000)
Subject: UNICOS does support large files but doesn't support sparse files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b18f81617324e36c48296a53292bca2c6526c9e9;p=p5sagit%2Fp5-mst-13.2.git

UNICOS does support large files but doesn't support sparse files
so we cannot easily test for large file support.

p4raw-id: //depot/cfgperl@4174
---

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index c3f7de3..4619e11 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -49,6 +49,13 @@ if ($^O eq 'win32' || $^O eq 'vms') {
     bye();
 }
 
+# Known haves that have problems running this test
+# (for example because they do not support sparse files, like UNICOS)
+if ($^O eq 'unicos') {
+    print "1..0\n# large files known to work but unable to test them here\n";
+    bye();
+}
+
 # Then try to deduce whether we have sparse files.
 
 # We'll start off by creating a one megabyte file which has
diff --git a/t/op/lfs.t b/t/op/lfs.t
index dcba630..129752b 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -48,6 +48,13 @@ if ($^O eq 'win32' || $^O eq 'vms') {
     bye();
 }
 
+# Known haves that have problems running this test
+# (for example because they do not support sparse files, like UNICOS)
+if ($^O eq 'unicos') {
+    print "1..0\n# large files known to work but unable to test them here\n";
+    bye();
+}
+
 # Then try to deduce whether we have sparse files.
 
 # Let's not depend on Fcntl or any other extension.