/[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

perl/trunk/test/getattr.t revision 4 by mszeredi, Thu Nov 11 14:44:15 2004 UTC perl-llin/test/getattr.t revision 21 by dpavlin, Mon Jan 2 19:50:33 2006 UTC
# Line 35  is(-z "$a", -z "$b", '-z'); # 27 Line 35  is(-z "$a", -z "$b", '-z'); # 27
35  my (@astat, @bstat);  my (@astat, @bstat);
36  @astat = stat("$a");  @astat = stat("$a");
37  @bstat = stat("$b");  @bstat = stat("$b");
38  # dev and inode can legally change  # dev, inode and blksize can legally change
39  shift(@astat); shift(@astat);  @astat = @astat[2..10,12];
40  shift(@bstat); shift(@bstat);  @bstat = @bstat[2..10,12];
41  is(join(" ",@astat),join(" ",@bstat),"stat()");  is(join(" ",@astat),join(" ",@bstat),"stat()");
42  `rm -f $a`;  `rm -f $a`;

Legend:
Removed from v.4  
changed lines
  Added in v.21

  ViewVC Help
Powered by ViewVC 1.1.26