st_blocks is in 512 byte blocks.

p4raw-id: //depot/cfgperl@3973

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 206a2ef..2955397 100644 (file)
--- 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 9d9b8ae..bfcc33a 100644 (file)
--- 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();
 }