This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
File::Find find.t: switch to done_testing()
authorTony Cook <tony@develop-help.com>
Wed, 7 Oct 2020 00:53:05 +0000 (11:53 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 1 Dec 2020 04:29:33 +0000 (15:29 +1100)
ext/File-Find/t/find.t

index 40d14db..37ba6d5 100644 (file)
@@ -24,13 +24,8 @@ BEGIN {
 }
 
 my $symlink_exists = eval { symlink("",""); 1 };
-my $test_count = 111;
-$test_count += 127 if $symlink_exists;
-$test_count += 26 if $^O eq 'MSWin32';
-$test_count += 2 if $^O eq 'MSWin32' and $symlink_exists;
 
 use Test::More;
-plan tests => $test_count;
 use lib qw( ./t/lib );
 use Testing qw(
     create_file_ok
@@ -1104,3 +1099,5 @@ if ($^O eq 'MSWin32') {
     like($@, qr/invalid top directory/,
         "find() correctly died due to undefined top directory");
 }
+
+done_testing();