--- 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;