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(); $args = { podstub => "feature", description => "misc pod-html features", expect => $expect_raw, p2h => { backlink => 1, css => 'style.css', header => 1, # no styling b/c of --ccs htmldir => catdir($cwd, 't'), noindex => 1, podpath => 't', podroot => $cwd, title => 'a title', quiet => 1, }, debug => $debug, }; xconvert($args); done_testing; __DATA__ a title

a title

Head 1

A paragraph

some html

Another paragraph

Another Head 1

some text and a link crossref

a title