2 use test::helper qw($_real $_point);
4 my (@names) = qw(abc def ghi jkl mno pqr stu jlk sfdaljk sdfakjlsdfa kjldsf kjl;sdf akjl;asdf klj;asdf lkjsdflkjsdfkjlsdfakjsdfakjlsadfkjl;asdfklj;asdfkjl;asdfklj;asdfkjl;asdfkjlasdflkj;sadf);
6 plan tests => 2 * scalar @names;
10 foreach $fname (@names) {
11 open($file, '>', $fname);
15 # make sure they exist in real dir
17 my (@ents) = readdir(REAL);
21 shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
22 is(shift(@ents),$_,"ent $_")
25 # make sure they exist in fuse dir
26 opendir(POINT,$_point);
27 @ents = readdir(POINT);
31 shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
32 is(shift(@ents),$_,"ent $_")
36 map { unlink } @names;