1 |
#!/usr/bin/perl |
2 |
use test::helper qw($_real $_point); |
3 |
use Test::More; |
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); |
5 |
@names = sort(@names); |
6 |
plan tests => 2 * scalar @names; |
7 |
chdir($_real); |
8 |
|
9 |
# create entries |
10 |
map { system("touch \"$_\"") } @names; |
11 |
|
12 |
# make sure they exist in real dir |
13 |
opendir(REAL,$_real); |
14 |
my (@ents) = readdir(REAL); |
15 |
closedir(REAL); |
16 |
@ents = sort(@ents); |
17 |
map { |
18 |
shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..'); |
19 |
is(shift(@ents),$_,"ent $_") |
20 |
} @names; |
21 |
|
22 |
# make sure they exist in fuse dir |
23 |
opendir(POINT,$_point); |
24 |
@ents = readdir(POINT); |
25 |
closedir(POINT); |
26 |
@ents = sort(@ents); |
27 |
map { |
28 |
shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..'); |
29 |
is(shift(@ents),$_,"ent $_") |
30 |
} @names; |
31 |
|
32 |
# remove them |
33 |
map { unlink } @names; |