A little commonsense is better than 1_compile.
authorAbhijit Menon-Sen <ams@wiw.org>
Mon, 11 Mar 2002 04:57:20 +0000 (04:57 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Mon, 11 Mar 2002 04:57:20 +0000 (04:57 +0000)
p4raw-id: //depot/perl@15167

lib/File/Find/t/find.t
lib/File/Find/t/taint.t

index 745c6ef..c281833 100644 (file)
@@ -51,10 +51,10 @@ BEGIN {
 
 cleanup();
 
-find({wanted => sub { print "ok 1\n" if $_ eq '1_compile.t'; } },
+find({wanted => sub { print "ok 1\n" if $_ eq 'commonsense.t'; } },
    File::Spec->curdir);
 
-finddepth({wanted => sub { print "ok 2\n" if $_ eq '1_compile.t'; } },
+finddepth({wanted => sub { print "ok 2\n" if $_ eq 'commonsense.t'; } },
        File::Spec->curdir);
 
 
index cef13a1..91fe8ee 100644 (file)
@@ -49,16 +49,16 @@ use Cwd;
 cleanup();
 
 my $found;
-find({wanted => sub { $found = 1 if ($_ eq '1_compile.t') },
+find({wanted => sub { $found = 1 if ($_ eq 'commonsense.t') },
                untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
 
-ok($found, '1_compile.t found');
+ok($found, 'commonsense.t found');
 $found = 0;
 
-finddepth({wanted => sub { $found = 1 if $_ eq '1_compile.t'; },
+finddepth({wanted => sub { $found = 1 if $_ eq 'commonsense.t'; },
            untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
 
-ok($found, '1_compile.t found again');
+ok($found, 'commonsense.t found again');
 
 my $case = 2;
 my $FastFileTests_OK = 0;