#!/usr/bin/perl -w # -*- perl -*- BEGIN { require "t/pod2html-lib.pl"; } use strict; use Test::More tests => 2; use File::Spec::Functions; use File::Spec; use Cwd; my $cwd = cwd(); my ($v, $d) = splitpath($cwd, 1); my $relcwd = substr($d, length(File::Spec->rootdir())); my $data_pos = tell DATA; # to read twice my $htmldir = catdir $cwd, 't', ''; # test removal trailing slash convert_n_test("htmldir3", "test --htmldir and --htmlroot 3a", "--podpath=$relcwd", "--podroot=$v".File::Spec->rootdir, "--htmldir=$htmldir", ); seek DATA, $data_pos, 0; # to read twice (expected output is the same) my $podpath = catdir $relcwd, 't'; convert_n_test("htmldir3", "test --htmldir and --htmlroot 3b", "--podpath=$podpath", "--podroot=$v".File::Spec->rootdir, "--htmldir=t", "--outfile=t/htmldir3.html", ); __DATA__

NAME

htmldir - Test --htmldir feature

LINKS

Normal text, a link to nowhere,

a link to perlvar,

htmlescp,

"Another Head 1" in htmlfeature,

and another "Another Head 1" in htmlfeature.