#!/usr/bin/perl -w # -*- perl -*- BEGIN { require "./t/pod2html-lib.pl"; } END { rem_test_dir(); } use strict; use Cwd; use File::Spec::Functions; use Test::More tests => 2; SKIP: { my $output = make_test_dir(); skip "$output", 2 if $output; my $cwd = cwd(); my ($v, $d) = splitpath($cwd, 1); my @dirs = splitdir($d); shift @dirs if $dirs[0] eq ''; my $relcwd = join '/', @dirs; my $data_pos = tell DATA; # to read twice convert_n_test("htmldir3", "test --htmldir and --htmlroot 3a", "--podpath=$relcwd", "--podroot=". catpath($v, '/', ''), "--htmldir=". catdir($cwd, 't', ''), # test removal trailing slash, "--quiet", ); seek DATA, $data_pos, 0; # to read twice (expected output is the same) convert_n_test("htmldir3", "test --htmldir and --htmlroot 3b", "--podpath=". catdir($relcwd, 't'), "--podroot=". catpath($v, '/', ''), "--htmldir=t", "--outfile=t/htmldir3.html", "--quiet", ); } __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.