projects
/
perl-fuse.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5b57085
)
Use the smaller size multiplier only for OS X.
author
Derrik Pates
<demon@now.ai>
Mon, 1 Aug 2011 16:46:22 +0000
(10:46 -0600)
committer
Derrik Pates
<demon@now.ai>
Mon, 1 Aug 2011 16:46:22 +0000
(10:46 -0600)
test/getattr.t
patch
|
blob
|
history
diff --git
a/test/getattr.t
b/test/getattr.t
index
3c417e8
..
5d8c85d
100644
(file)
--- 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;
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: $!";
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
, 0);
+ seek($fh, $size *
$scale
, 0);
print $fh ' ';
close($fh);
# diag "size $b = ",-s $b, " $a = ", -s $a;
print $fh ' ';
close($fh);
# diag "size $b = ",-s $b, " $a = ", -s $a;