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