diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 08:18:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 08:18:53 +0000 |
| commit | 6421506506a4cafd1649a8ef1a844697bb17eeee (patch) | |
| tree | 7c757c31466860790229e126bb3991e0109dd394 /t/op/lfs.t | |
| parent | 9f8fdb7deccb72904f51462a0509685b345f54c6 (diff) | |
| download | perl-6421506506a4cafd1649a8ef1a844697bb17eeee.tar.gz | |
Minor niggles on the lfs tests.
p4raw-id: //depot/cfgperl@3963
Diffstat (limited to 't/op/lfs.t')
| -rw-r--r-- | t/op/lfs.t | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/t/op/lfs.t b/t/op/lfs.t index 345fa26085..5d4b3a128d 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -14,7 +14,7 @@ BEGIN { # Don't bother if there are no quad offsets. require Config; import Config; if ($Config{lseeksize} < 8) { - print "1..0\n# no 64-bit offsets\n"; + print "1..0\n# no 64-bit file offsets\n"; bye(); } } @@ -33,6 +33,8 @@ if ($^O eq 'win32' || $^O eq 'vms') { # Then try to deduce whether we have sparse files. +# Let's not depend on Fcntl or any other extension. + my ($SEEK_SET, $SEEK_CUR, $SEEK_END) = (0, 1, 2); # We'll start off by creating a one megabyte file which has @@ -79,14 +81,14 @@ close BIG; print "# @s\n"; sub fail () { - print " not "; + print "not "; $fail++; } -fail unless $s[7] == 5_000_000_003; +fail unless $s[7] == 5_000_000_003; # exercizes pp_stat print "ok 1\n"; -fail unless -s "big" == 5_000_000_003; +fail unless -s "big" == 5_000_000_003; # exercizes pp_ftsize print "ok 2\n"; open(BIG, "big") or do { warn "open failed: $!\n"; bye }; |