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..117\n"; }
  13 else                   { print "1..61\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     chdir '..';
  33     rmdir 'for_find';
  34 }
  35
  36 sub Check($) {
  37   $case++;
  38   if ($_[0]) { print "ok $case\n"; }
  39   else       { print "not ok $case\n"; }
  40 }
  41
  42 sub CheckDie($) {
  43   $case++;
  44   if ($_[0]) { print "ok $case\n"; }
  45   else { print "not ok $case\n $!\n"; exit 0; }
  46 }
  47
  48 sub touch {
  49   CheckDie( open(my $T,'>',$_[0]) );
  50 }
  51
  52 sub MkDir($$) {
  53   CheckDie( mkdir($_[0],$_[1]) );
  54 }
  55
  56 sub wanted {
  57   print "# '$_' => 1\n";
  58   s#\.$## if ($^O eq 'VMS' && $_ ne '.');
  59   Check( $Expect{$_} );
  60   delete $Expect{$_}
  61     unless ( $Expect_Dir{$_} && ! -d _ );
  62   $File::Find::prune=1 if  $_ eq 'faba';
  63
  64 }
  65
  66 sub dn_wanted {
  67   my $n = $File::Find::name;
  68   $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
  69   print "# '$n' => 1\n";
  70   my $i = rindex($n,'/');
  71   my $OK = exists($Expect{$n});
  72   if ( $OK ) {
  73       $OK= exists($Expect{substr($n,0,$i)})  if $i >= 0;
  74   }
  75   Check($OK);
  76   delete $Expect{$n};
  77 }
  78
  79 sub d_wanted {
  80   print "# '$_' => 1\n";
  81   s#\.$## if ($^O eq 'VMS' && $_ ne '.');
  82   my $i = rindex($_,'/');
  83   my $OK = exists($Expect{$_});
  84   if ( $OK ) {
  85       $OK= exists($Expect{substr($_,0,$i)})  if $i >= 0;
  86   }
  87   Check($OK);
  88   delete $Expect{$_};
  89 }
  90
  91 MkDir( 'for_find',0770 );
  92 CheckDie(chdir(for_find));
  93 MkDir( 'fa',0770 );
  94 MkDir( 'fb',0770  );
  95 touch('fb/fb_ord');
  96 MkDir( 'fb/fba',0770  );
  97 touch('fb/fba/fba_ord');
  98 CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
  99 touch('fa/fa_ord');
 100
 101 MkDir( 'fa/faa',0770  );
 102 touch('fa/faa/faa_ord');
 103 MkDir( 'fa/fab',0770  );
 104 touch('fa/fab/fab_ord');
 105 MkDir( 'fa/fab/faba',0770  );
 106 touch('fa/fab/faba/faba_ord');
 107
 108 %Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
 109            'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
 110 delete $Expect{'fsl'} unless $symlink_exists;
 111 %Expect_Dir = ('fa' => 1, 'faa' => 1, 'fab' => 1, 'faba' => 1,
 112                'fb' => 1, 'fba' => 1);
 113 delete @Expect_Dir{'fb','fba'} unless $symlink_exists;
 114 File::Find::find( {wanted => \&wanted, },'fa' );
 115 Check( scalar(keys %Expect) == 0 );
 116
 117 %Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
 118          'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
 119          'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
 120 delete $Expect{'fa/fsl'} unless $symlink_exists;
 121 %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
 122                'fb' => 1, 'fb/fba' => 1);
 123 delete @Expect_Dir{'fb','fb/fba'} unless $symlink_exists;
 124 File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
 125
 126 Check( scalar(keys %Expect) == 0 );
 127
 128 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
 129          './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
 130          './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
 131          './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
 132 delete $Expect{'./fa/fsl'} unless $symlink_exists;
 133 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
 134                './fb' => 1, './fb/fba' => 1);
 135 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
 136 File::Find::finddepth( {wanted => \&dn_wanted },'.' );
 137 Check( scalar(keys %Expect) == 0 );
 138
 139 %Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
 140          './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
 141          './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
 142          './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
 143 delete $Expect{'./fa/fsl'} unless $symlink_exists;
 144 %Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1,
 145                './fb' => 1, './fb/fba' => 1);
 146 delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
 147 File::Find::finddepth( {wanted => \&d_wanted, no_chdir => 1 },'.' );
 148 Check( scalar(keys %Expect) == 0 );
 149
 150 if ( $symlink_exists ) {
 151   %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
 152            'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
 153            'faa_ord' => 1);
 154   %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
 155                  'fb' => 1, 'fb/fba' => 1);
 156
 157   File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
 158   Check( scalar(keys %Expect) == 0 );
 159
 160   %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
 161            'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
 162            'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
 163            'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
 164   %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
 165                  'fb' => 1, 'fb/fba' => 1);
 166   File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
 167   Check( scalar(keys %Expect) == 0 );
 168
 169   %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
 170            'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
 171            'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
 172            'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
 173   %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
 174                  'fb' => 1, 'fb/fba' => 1);
 175
 176   File::Find::finddepth( {wanted => \&dn_wanted, follow_fast => 1},'fa' );
 177   Check( scalar(keys %Expect) == 0 );
 178
 179   %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
 180            'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
 181            'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
 182            'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
 183   %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1,
 184                  'fb' => 1, 'fb/fba' => 1);
 185
 186   File::Find::finddepth( {wanted => \&d_wanted, follow_fast => 1, no_chdir => 1},'fa' );
 187   Check( scalar(keys %Expect) == 0 );
 188 }
 189
 190 print "# of cases: $case\n";