X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=test%2Fgetattr.t;h=5d8c85d715031d2aaf6dda125f862c10f9b1ff5f;hb=788f7ce661e7404b75e7f42e623ef638b62a0a42;hp=a945cdcf5868bc38698a4c64122b4c78f43ca028;hpb=49e79554858c8d7bc8466ab8745670488c10b23f;p=perl-fuse.git

diff --git a/test/getattr.t b/test/getattr.t
index a945cdc..5d8c85d 100644
--- a/test/getattr.t
+++ b/test/getattr.t
@@ -3,12 +3,16 @@ use test::helper qw($_real $_point);
 use Test::More;
 use Data::Dumper;
 plan tests => 203;
+$scale = 1024 * 1024 * 1024;
+if ($^O eq 'darwin') {
+	$scale = 1024 * 1024;
+}
 sub test_file {
 	my $size = shift;
 	my ($a, $b) = ("$_real/wibble-$size","$_point/wibble-$size");
 #	diag "test $size Gb file";
 	open(my $fh, '>', $a) || die "can't open $b: $!";
-	seek($fh, $size * 1024 * 1024 * 1024, 0);
+	seek($fh, $size * $scale, 0);
 	print $fh ' ';
 	close($fh);
 #	diag "size $b = ",-s $b, " $a = ", -s $a;