diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 14:07:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 14:07:16 +0000 |
| commit | b18f81617324e36c48296a53292bca2c6526c9e9 (patch) | |
| tree | dfead8377c8fb63f5bbda6f24b5a38501113579d | |
| parent | 65843c0f33efc6b80d1bec1c4bfde40d0a428ffb (diff) | |
| download | perl-b18f81617324e36c48296a53292bca2c6526c9e9.tar.gz | |
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
| -rw-r--r-- | t/lib/syslfs.t | 7 | ||||
| -rw-r--r-- | t/op/lfs.t | 7 |
2 files changed, 14 insertions, 0 deletions
diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t index c3f7de3a2e..4619e111dc 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 dcba6308ed..129752b6b1 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. |