(replaced by #4172)

p4raw-id: //depot/cfgperl@4171

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 1fe5032..f4959f7 100644 (file)
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -68,7 +68,11 @@ my @s;
 
 print "# @s\n";
 
-my $BLOCKSIZE = 512; # is this really correct everywhere?
+# Is there a portable way to find out what's the unit of st_blocks?
+
+my $BLOCKSIZE = 512;
+
+$BLOCKSIZE = 4096 if $^O eq 'unicos';
 
 unless (@s == 13 &&
        $s[7] == 1_000_003 &&

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 6003df2..46df014 100644 (file)
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -71,7 +71,11 @@ my @s;
 
 print "# @s\n";
 
-my $BLOCKSIZE = 512; # is this really correct everywhere?
+# Is there a portable way to find out what's the unit of st_blocks?
+
+my $BLOCKSIZE = 512;
+
+$BLOCKSIZE = 4096 if $^O eq 'unicos';
 
 unless (@s == 13 &&
        $s[7] == 1_000_003 &&