b96c0e35e0
- New upstream release 0.020 - Fix man3_pagename for top level domains - Update patch for building with Test::More < 0.88
34 lines
1.2 KiB
Diff
34 lines
1.2 KiB
Diff
--- 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 File::Spec::Functions qw/catfile/;
|
|
use ExtUtils::Helpers qw/man1_pagename man3_pagename/;
|
|
|
|
@@ -19,5 +19,3 @@ is man1_pagename('script/foo'), 'foo.1',
|
|
is man3_pagename(catfile(qw/lib ExtUtils.pm/)), join($sep, qw/ExtUtils.3pm/), 'man3_pagename 1';
|
|
is man3_pagename(catfile(qw/lib ExtUtils Helpers.pm/)), join($sep, qw/ExtUtils Helpers.3pm/), 'man3_pagename 2';
|
|
is man3_pagename(catfile(qw/lib ExtUtils Helpers Unix.pm/)), join($sep, qw/ExtUtils Helpers Unix.3pm/), 'man3_pagename 3';
|
|
-
|
|
-done_testing;
|