diff options
author | James E Keenan <jkeenan@cpan.org> | 2021-03-11 14:36:39 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2021-07-06 01:08:03 +0000 |
commit | 9fd74660ade9f738757ab2f0255a502ff8fd277b (patch) | |
tree | 5a39b261981ce99143587b38154666f42afb670a /ext/Pod-Html | |
parent | d7b9d805e51812db07a246d21539b02b67ac4575 (diff) | |
download | perl-9fd74660ade9f738757ab2f0255a502ff8fd277b.tar.gz |
Reduce default arguments for Testing:_prepare_argstable()
Touch-up t/htmlview.t
Diffstat (limited to 'ext/Pod-Html')
-rw-r--r-- | ext/Pod-Html/t/htmlview.t | 1 | ||||
-rw-r--r-- | ext/Pod-Html/t/lib/Testing.pm | 8 |
2 files changed, 5 insertions, 4 deletions
diff --git a/ext/Pod-Html/t/htmlview.t b/ext/Pod-Html/t/htmlview.t index 56dcaa8f27..f73418bb56 100644 --- a/ext/Pod-Html/t/htmlview.t +++ b/ext/Pod-Html/t/htmlview.t @@ -27,6 +27,7 @@ $args = { description => "html rendering", expect => $expect_raw, p2h => { + podpath => 't', quiet => 1, }, }; diff --git a/ext/Pod-Html/t/lib/Testing.pm b/ext/Pod-Html/t/lib/Testing.pm index e3aa62197e..084a84cd90 100644 --- a/ext/Pod-Html/t/lib/Testing.pm +++ b/ext/Pod-Html/t/lib/Testing.pm @@ -406,7 +406,10 @@ this key. Required. Hash reference holding arguments passed to C<Pod::Html::pod2html()> (though without the leading double hyphens (C<-->). See documentation for -F<Pod::Html>. Optional, but mostly necessary. +F<Pod::Html>. Optional, but mostly necessary. In particular, if a F<.pod> +file contains any C<LE<lt>E<gt>> tags, a C<podpath> element almost always +needs to be supplied with a colon-delimited list of directories from which to +begin a search for files containing POD. =item * C<debug> @@ -496,9 +499,6 @@ sub _prepare_argstable { my %args_table = ( infile => $args->{infile}, outfile => $args->{outfile}, - podpath => 't', - htmlroot => '/', - podroot => $args->{cwd}, ); my %no_arg_switches = map { $_ => 1 } @no_arg_switches; if (defined $args->{p2h}) { |