34 lines
944 B
Diff
34 lines
944 B
Diff
--- 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;
|