1 files changed, 0 insertions, 197 deletions
diff --git a/contrib/perl5/t/lib/filefind.t b/contrib/perl5/t/lib/filefind.t
deleted file mode 100755
index 362c1eb..0000000
--- a/contrib/perl5/t/lib/filefind.t
+++ /dev/null
@@ -1,197 +0,0 @@
-####!./perl
-
-
-my %Expect;
-my $symlink_exists = eval { symlink("",""); 1 };
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
-if ( $symlink_exists ) { print "1..117\n"; }
-else                   { print "1..61\n"; }
-
-use File::Find;
-
-find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
-finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");
-
-
-my $case = 2;
-my $FastFileTests_OK = 0;
-
-END {
-    unlink 'fa/fa_ord','fa/fsl','fa/faa/faa_ord',
-	   'fa/fab/fab_ord','fa/fab/faba/faba_ord','fb/fb_ord','fb/fba/fba_ord';
-    rmdir 'fa/faa';
-    rmdir 'fa/fab/faba';
-    rmdir 'fa/fab';
-    rmdir 'fa';
-    rmdir 'fb/fba';
-    rmdir 'fb';
-    chdir '..';
-    rmdir 'for_find';
-}
-
-sub Check($) {
-  $case++;
-  if ($_[0]) { print "ok $case\n"; }
-  else       { print "not ok $case\n"; }
-}
-
-sub CheckDie($) {
-  $case++;
-  if ($_[0]) { print "ok $case\n"; }
-  else { print "not ok $case\n $!\n"; exit 0; }
-}
-
-sub touch {
-  CheckDie( open(my $T,'>',$_[0]) );
-}
-
-sub MkDir($$) {
-  CheckDie( mkdir($_[0],$_[1]) );
-}
-
-sub wanted {
-  print "# '$_' => 1\n";
-  s#\.$## if ($^O eq 'VMS' && $_ ne '.');
-  Check( $Expect{$_} );
-  if ( $FastFileTests_OK ) {
-    delete $Expect{$_} 
-      unless ( $Expect_Dir{$_} && ! -d _ );
-  } else {
-    delete $Expect{$_} 
-      unless ( $Expect_Dir{$_} && ! -d $_ );
-  }
-  $File::Find::prune=1 if  $_ eq 'faba';
-  
-}
-
-sub dn_wanted {
-  my $n = $File::Find::name;
-  $n =~ s#\.$## if ($^O eq 'VMS' && $n ne '.');
-  print "# '$n' => 1\n";
-  my $i = rindex($n,'/');
-  my $OK = exists($Expect{$n});
-  if ( $OK ) {
-      $OK= exists($Expect{substr($n,0,$i)})  if $i >= 0;
-  }
-  Check($OK);
-  delete $Expect{$n};
-}
-
-sub d_wanted {
-  print "# '$_' => 1\n";
-  s#\.$## if ($^O eq 'VMS' && $_ ne '.');
-  my $i = rindex($_,'/');
-  my $OK = exists($Expect{$_});
-  if ( $OK ) {
-      $OK= exists($Expect{substr($_,0,$i)})  if $i >= 0;
-  }
-  Check($OK);
-  delete $Expect{$_};
-}
-
-MkDir( 'for_find',0770 );
-CheckDie(chdir(for_find));
-MkDir( 'fa',0770 );
-MkDir( 'fb',0770  );
-touch('fb/fb_ord');
-MkDir( 'fb/fba',0770  );
-touch('fb/fba/fba_ord');
-CheckDie( symlink('../fb','fa/fsl') ) if $symlink_exists;
-touch('fa/fa_ord');
-
-MkDir( 'fa/faa',0770  );
-touch('fa/faa/faa_ord');
-MkDir( 'fa/fab',0770  );
-touch('fa/fab/fab_ord');
-MkDir( 'fa/fab/faba',0770  );
-touch('fa/fab/faba/faba_ord');
-
-%Expect = ('.' => 1, 'fsl' => 1, 'fa_ord' => 1, 'fab' => 1, 'fab_ord' => 1,
-	   'faba' => 1, 'faa' => 1, 'faa_ord' => 1);
-delete $Expect{'fsl'} unless $symlink_exists;
-%Expect_Dir = ('fa' => 1, 'faa' => 1, 'fab' => 1, 'faba' => 1, 
-               'fb' => 1, 'fba' => 1);
-delete @Expect_Dir{'fb','fba'} unless $symlink_exists;
-File::Find::find( {wanted => \&wanted, },'fa' );
-Check( scalar(keys %Expect) == 0 );
-
-%Expect=('fa' => 1, 'fa/fsl' => 1, 'fa/fa_ord' => 1, 'fa/fab' => 1,
-	 'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1,
-	 'fa/fab/faba/faba_ord' => 1, 'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
-delete $Expect{'fa/fsl'} unless $symlink_exists;
-%Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1, 
-               'fb' => 1, 'fb/fba' => 1);
-delete @Expect_Dir{'fb','fb/fba'} unless $symlink_exists;
-File::Find::find( {wanted => \&wanted, no_chdir => 1},'fa' );
-
-Check( scalar(keys %Expect) == 0 );
-
-%Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
-         './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
-         './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
-         './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
-delete $Expect{'./fa/fsl'} unless $symlink_exists;
-%Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1, 
-               './fb' => 1, './fb/fba' => 1);
-delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
-File::Find::finddepth( {wanted => \&dn_wanted },'.' );
-Check( scalar(keys %Expect) == 0 );
-
-%Expect=('.' => 1, './fa' => 1, './fa/fsl' => 1, './fa/fa_ord' => 1, './fa/fab' => 1,
-         './fa/fab/fab_ord' => 1, './fa/fab/faba' => 1,
-         './fa/fab/faba/faba_ord' => 1, './fa/faa' => 1, './fa/faa/faa_ord' => 1,
-         './fb' => 1, './fb/fba' => 1, './fb/fba/fba_ord' => 1, './fb/fb_ord' => 1);
-delete $Expect{'./fa/fsl'} unless $symlink_exists;
-%Expect_Dir = ('./fa' => 1, './fa/faa' => 1, '/fa/fab' => 1, './fa/fab/faba' => 1, 
-               './fb' => 1, './fb/fba' => 1);
-delete @Expect_Dir{'./fb','./fb/fba'} unless $symlink_exists;
-File::Find::finddepth( {wanted => \&d_wanted, no_chdir => 1 },'.' );
-Check( scalar(keys %Expect) == 0 );
-
-if ( $symlink_exists ) {
-  $FastFileTests_OK= 1;
-  %Expect=('.' => 1, 'fa_ord' => 1, 'fsl' => 1, 'fb_ord' => 1, 'fba' => 1,
-           'fba_ord' => 1, 'fab' => 1, 'fab_ord' => 1, 'faba' => 1, 'faa' => 1,
-           'faa_ord' => 1);
-  %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1, 
-                 'fb' => 1, 'fb/fba' => 1);
-
-  File::Find::find( {wanted => \&wanted, follow_fast => 1},'fa' );
-  Check( scalar(keys %Expect) == 0 );
-
-  %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
-           'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
-           'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
-           'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
-  %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1, 
-                 'fb' => 1, 'fb/fba' => 1);
-  File::Find::find( {wanted => \&wanted, follow_fast => 1, no_chdir => 1},'fa' );
-  Check( scalar(keys %Expect) == 0 );
-
-  %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
-           'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
-           'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
-           'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
-  %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1, 
-                 'fb' => 1, 'fb/fba' => 1);
-
-  File::Find::finddepth( {wanted => \&dn_wanted, follow_fast => 1},'fa' );
-  Check( scalar(keys %Expect) == 0 );
-
-  %Expect=('fa' => 1, 'fa/fa_ord' => 1, 'fa/fsl' => 1, 'fa/fsl/fb_ord' => 1,
-           'fa/fsl/fba' => 1, 'fa/fsl/fba/fba_ord' => 1, 'fa/fab' => 1,
-           'fa/fab/fab_ord' => 1, 'fa/fab/faba' => 1, 'fa/fab/faba/faba_ord' => 1,
-           'fa/faa' => 1, 'fa/faa/faa_ord' => 1);
-  %Expect_Dir = ('fa' => 1, 'fa/faa' => 1, '/fa/fab' => 1, 'fa/fab/faba' => 1, 
-                 'fb' => 1, 'fb/fba' => 1);
-
-  File::Find::finddepth( {wanted => \&d_wanted, follow_fast => 1, no_chdir => 1},'fa' );
-  Check( scalar(keys %Expect) == 0 );
-}
-
-print "# of cases: $case\n";