/[fuse.before_github]/perl/trunk/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/trunk/test/getattr.t

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

revision 17 by mszeredi, Thu Nov 11 14:44:15 2004 UTC revision 18 by dpavlin, Wed Dec 21 15:33:37 2005 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.17  
changed lines
  Added in v.18

  ViewVC Help
Powered by ViewVC 1.1.26