test/getdir.t

   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 foreach $fname (@names) {
  11     open($file, '>', $fname);
  12     close($file);
  13 }
  14
  15 # make sure they exist in real dir
  16 opendir(REAL,$_real);
  17 my (@ents) = readdir(REAL);
  18 closedir(REAL);
  19 @ents = sort(@ents);
  20 map {
  21         shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
  22         is(shift(@ents),$_,"ent $_")
  23 } @names;
  24
  25 # make sure they exist in fuse dir
  26 opendir(POINT,$_point);
  27 @ents = readdir(POINT);
  28 closedir(POINT);
  29 @ents = sort(@ents);
  30 map {
  31         shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..');
  32         is(shift(@ents),$_,"ent $_")
  33 } @names;
  34
  35 # remove them
  36 map { unlink } @names;