BEGIN { use File::Spec::Functions ':ALL'; @INC = map { rel2abs($_) } (qw| ./lib ./t/lib ../../lib |); } use strict; use warnings; use Test::More; use Testing qw( setup_testing_dir xconvert ); use Cwd; my $debug = 0; my $startdir = cwd(); END { chdir($startdir) or die("Cannot change back to $startdir: $!"); } my ($expect_raw, $args); { local $/; $expect_raw = ; } my $tdir = setup_testing_dir( { debug => $debug, } ); my $cwd = cwd(); my ($v, $d) = splitpath($cwd, 1); my @dirs = splitdir($d); shift @dirs if $dirs[0] eq ''; my $relcwd = join '/', @dirs; $args = { podstub => "htmldir3", description => "test --htmldir and --htmlroot 3c: as expected pod file not yet locatable either under podroot or in cache: GH 12271", expect => $expect_raw, expect_fail => 1, p2h => { podpath => catdir($relcwd, 't'), podroot => catpath($v, '/', ''), htmldir => 't', outfile => 't/htmldir3.html', quiet => 1, }, debug => $debug, }; $args->{core} = 1 if $ENV{PERL_CORE}; xconvert($args); $args = { podstub => "htmldir3", description => "test --htmldir and --htmlroot 3a", expect => $expect_raw, p2h => { podpath => $relcwd, podroot => catpath($v, '/', ''), htmldir => catdir($cwd, 't', ''), # test removal trailing slash, quiet => 1, }, debug => $debug, }; xconvert($args); $args = { podstub => "htmldir3", description => "test --htmldir and --htmlroot 3b: as expected pod file not yet locatable either under podroot or in cache: GH 12271", expect => $expect_raw, expect_fail => 1, p2h => { podpath => catdir($relcwd, 't'), podroot => catpath($v, '/', ''), htmldir => 't', outfile => 't/htmldir3.html', quiet => 1, }, debug => $debug, }; xconvert($args); done_testing; __DATA__ htmldir - Test --htmldir feature

NAME

htmldir - Test --htmldir feature

LINKS

Normal text, a link to nowhere,

a link to var-copy,

htmlescp,

"Another Head 1" in feature,

and another "Another Head 1" in feature.