--- t/author-split_like_shell.t
+++ t/author-split_like_shell.t
@@ -69,6 +69,8 @@ my @win_splits =
{ 'a " b " c' => [ 'a', ' b ', 'c' ] },
);
+plan tests => (2 * scalar @win_splits) + (2 * scalar @unix_splits);
+
foreach my $test (@win_splits) {
my ($string, $expected) = %$test;
my @result = ExtUtils::Helpers::Windows::split_like_shell($string);
@@ -86,4 +88,3 @@ foreach my $test (@unix_splits) {
diag("split_like_shell error \n>$string< is not splitting as >" . join("|", @$expected) . '<');
}
-done_testing;
--- t/man_pagename.t
+++ t/man_pagename.t
@@ -2,7 +2,7 @@
use strict;
use warnings FATAL => 'all';
-use Test::More;
+use Test::More tests => 4;
use Config;
use File::Spec::Functions qw/catfile/;
use ExtUtils::Helpers qw/man1_pagename man3_pagename/;
@@ -20,5 +20,3 @@ is man1_pagename('script/foo'), "foo.$Co
is man3_pagename(catfile(qw/lib ExtUtils.pm/)), "ExtUtils.$Config{man3ext}", 'man3_pagename 1';
is man3_pagename(catfile(qw/lib ExtUtils Helpers.pm/)), join($sep, qw/ExtUtils Helpers./).$Config{man3ext}, 'man3_pagename 2';
is man3_pagename(catfile(qw/lib ExtUtils Helpers Unix.pm/)), join($sep, qw/ExtUtils Helpers Unix./).$Config{man3ext}, 'man3_pagename 3';
-
-done_testing;