1 |
mszeredi |
4 |
#!/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; |