t/lib/filefind.t

   1 ####!./perl
   2
   3
   4 my %Expect;
   5 my $symlink_exists = eval { symlink("",""); 1 };
   6
   7 BEGIN {
   8     chdir 't' if -d 't';
   9     unshift @INC, '../lib';
  10 }
  11
  12 if ( $symlink_exists ) { print "1..59\n"; }
  13 else                   { print "1..31\n"; }
  14
  15 use File::Find;
  16
  17 find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
  18 finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");
  19
  20
  21 my $case = 2;
  22
  23 END {
  24     unlink 'fa/fa_ord','fa/fsl','fa/faa/faa_ord',
  25            'fa/fab/fab_ord','fa/fab/faba/faba_ord','fb/fb_ord','fb/fba/fba_ord';
  26     rmdir 'fa/faa';
  27     rmdir 'fa/fab/faba';
  28     rmdir 'fa/fab';
  29     rmdir 'fa';
  30     rmdir 'fb/fba';
  31     rmdir 'fb';
  32 }
  33
  34 sub Check($) {
  35   $case++;
  36   if ($_[0]) { print "ok $case\n"; }
  37   else       { print "not ok $case\n"; }
  38 }
  39
  40 sub CheckDie($) {
  41   $case++;
  42   if ($_[0]) { print "ok $case\n"; }
  43   else { print "not ok $case\n $!\n"; exit 0; }
  44 }
  45
  46 sub touch {
  47   CheckDie( open(my $T,'>',$_[0]) );
  48 }
  49
  50 sub MkDir($$) {
  51   CheckDie( mkdir($_[0],$_[1]) );
  52 }
  53
  54 sub wanted {
  55   print "# '$_' => 1\n";
  56   Check( $Expect{$_} );
  57   delete $Expect{$_};
  58   $File::Find::prune=1 if  $_ eq 'faba';
  59 }
  60
  61 MkDir( 'fa',0770 );
  62 MkDir( 'fb',0770  );
  63 touch('fb/fb_ord');
  64 MkDir( 'fb/fba',0770  );
  65 touch('fb/fba/fba_ord');
  66 CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
  67 touch('fa/fa_ord');
  68
  69 MkDir( 'fa/faa',0770  );
  70 touch('fa/faa/faa_ord');
  71 MkDir( 'fa/fab',0770  );
  72 touch('fa/fab/fab_ord');
  73 MkDir( 'fa/fab/faba',0770  );
  74 touch('fa/fab/faba/faba_ord');
  75
  76 %Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
  77            'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
  78 delete $Expect{'fsl'} unless $symlink_exists;
  79 File::Find::find( {wanted => \&wanted, },'fa' );
  80 Check( scalar(keys %Expect) == 0 );
  81
  82 %Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
  83          'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
  84          'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
  85 delete $Expect{'fa/fsl'} unless $symlink_exists;
  86 File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
  87
  88 Check( scalar(keys %Expect) == 0 );
  89
  90 if ( $symlink_exists ) {
  91   %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
  92            'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
  93            'faa_ord' => 1);
  94
  95   File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
  96   Check( scalar(keys %Expect) == 0 );
  97   %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
  98            'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
  99            'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
 100            'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
 101   File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
 102   Check( scalar(keys %Expect) == 0 );
 103 }
 104
 105 print "# of cases: $case\n";