#!/usr/bin/perl -w # -*- perl -*- BEGIN { require "./t/pod2html-lib.pl"; } use strict; use Cwd; use Test::More tests => 3; my $cwd = cwd(); my $data_pos = tell DATA; # to read twice convert_n_test("htmldir2", "test --htmldir and --htmlroot 2a", "--podpath=t", "--htmldir=t", "--quiet", ); seek DATA, $data_pos, 0; # to read twice (expected output is the same) convert_n_test("htmldir2", "test --htmldir and --htmlroot 2b", "--podpath=t", "--quiet", ); seek DATA, $data_pos, 0; # to read thrice (expected output is the same) # this test makes sure paths are absolute unless --htmldir is specified convert_n_test("htmldir2", "test --htmldir and --htmlroot 2c", "--podpath=t", "--podroot=$cwd", "--norecurse", # testing --norecurse, too "--quiet", ); __DATA__ htmldir - Test --htmldir feature

NAME

htmldir - Test --htmldir feature

LINKS

Normal text, a link to nowhere,

a link to perlvar-copy,

htmlescp,

"Another Head 1" in feature,

and another "Another Head 1" in feature.