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 map { system("touch \"$_\"") } @names;
12 # make sure they exist in real dir
14 my (@ents) = readdir(REAL);
18 shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
19 is(shift(@ents),$_,"ent $_")
22 # make sure they exist in fuse dir
23 opendir(POINT,$_point);
24 @ents = readdir(POINT);
28 shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
29 is(shift(@ents),$_,"ent $_")
33 map { unlink } @names;