--- t/author-split_like_shell.t
+++ t/author-split_like_shell.t
@@ -69,6 +69,8 @@
    { '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 @@
 	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 => 2;
 use File::Spec::Functions qw/catfile/;
 use ExtUtils::Helpers qw/man1_pagename man3_pagename/;
 
@@ -17,5 +17,3 @@
 is man1_pagename('script/foo'), 'foo.1', 'man1_pagename';
 
 is man3_pagename(catfile(qw/lib ExtUtils Helpers.pm/)), join($sep, qw/ExtUtils Helpers.3pm/), 'man3_pagename';
-
-done_testing;