####!./perlmy %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";