diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 19:42:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 19:42:53 +0000 |
| commit | 5cec1e3b3b86ef84555da325ea92c9cc0b18b7b2 (patch) | |
| tree | 58e50def40569a222e9881c4831a7ef6b03229d4 | |
| parent | 09e3ef00b24ebbe093c0460f3ad3fdbeec8215e7 (diff) | |
| download | perl-5cec1e3b3b86ef84555da325ea92c9cc0b18b7b2.tar.gz | |
st_blocks is in 512 byte blocks.
p4raw-id: //depot/cfgperl@3973
| -rw-r--r-- | t/lib/syslfs.t | 5 | ||||
| -rw-r--r-- | t/op/lfs.t | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t index 206a2ef081..2955397b73 100644 --- a/t/lib/syslfs.t +++ b/t/lib/syslfs.t @@ -51,11 +51,12 @@ my @s; print "# @s\n"; +my $BLOCKSIZE = 512; # is this really correct everywhere? + unless (@s == 13 && $s[7] == 1_000_003 && - defined $s[11] && defined $s[12] && - $s[11] * $s[12] < 1000_003) { + $BLOCKSIZE * $s[12] < 1_000_003) { print "1..0\n# no sparse files?\n"; bye(); } diff --git a/t/op/lfs.t b/t/op/lfs.t index 9d9b8ae9b8..bfcc33aee7 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -54,11 +54,12 @@ my @s; print "# @s\n"; +my $BLOCKSIZE = 512; # is this really correct everywhere? + unless (@s == 13 && $s[7] == 1_000_003 && - defined $s[11] && defined $s[12] && - $s[11] * $s[12] < 1000_003) { + $BLOCKSIZE * $s[12] < 1_000_003) { print "1..0\n# no sparse files?\n"; bye(); } |