/[fuse.before_github]/perl-llin/test/getattr.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/test/getattr.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 21 by dpavlin, Mon Jan 2 19:50:33 2006 UTC revision 119 by dpavlin, Sun Mar 16 13:34:34 2008 UTC
# Line 2  Line 2 
2  use test::helper qw($_real $_point);  use test::helper qw($_real $_point);
3  use Test::More;  use Test::More;
4  use Data::Dumper;  use Data::Dumper;
5  plan tests => 28;  plan tests => 29;
6  my ($a, $b) = ("$_real/wibble","$_point/wibble");  my ($a, $b) = ("$_real/wibble","$_point/wibble");
7  `touch $b`;  # create 3G file to expose 2G bug
8    open(my $fh, '>', $a) || die "can't open $b: $!";
9    seek($fh, 3 * 1024 * 1024 * 1024, 0);
10    print $fh ' ';
11    close($fh);
12    diag "size $b = ",-s $b;
13  is(-A "$a", -A "$b", '-A'); # 1  is(-A "$a", -A "$b", '-A'); # 1
14  is(-B "$a", -B "$b", '-B'); # 2  is(-B "$a", -B "$b", '-B'); # 2
15  is(-C "$a", -C "$b", '-C'); # 3  is(-C "$a", -C "$b", '-C'); # 3
# Line 39  my (@astat, @bstat); Line 44  my (@astat, @bstat);
44  @astat = @astat[2..10,12];  @astat = @astat[2..10,12];
45  @bstat = @bstat[2..10,12];  @bstat = @bstat[2..10,12];
46  is(join(" ",@astat),join(" ",@bstat),"stat()");  is(join(" ",@astat),join(" ",@bstat),"stat()");
47  `rm -f $a`;  ok( unlink($a), 'unlink' );
Legend:
Removed from v.21  
changed lines
  Added in v.119
  ViewVC Help
Powered by ViewVC 1.1.26