#!/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; # XXX Separate tests that rely on test.lib from the others so they are the only # ones skipped (instead of all of them). This applies to htmldir{1,3,5}.t, and # crossref.t (as of 10/29/11). SKIP: { my $output = make_test_dir(); skip "$output", 2 if $output; 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("htmldir1", "test --htmldir and --htmlroot 1a", "--podpath=". File::Spec::Unix->catdir($relcwd, 't') . ":" . File::Spec::Unix->catdir($relcwd, 'testdir/test.lib'), "--podroot=". catpath($v, '/', ''), "--htmldir=t", "--quiet", ); seek DATA, $data_pos, 0; # to read twice (expected output is the same) convert_n_test("htmldir1", "test --htmldir and --htmlroot 1b", "--podpath=$relcwd", "--podroot=". catpath($v, '/', ''), "--htmldir=". catdir($relcwd, 't'), "--htmlroot=/", "--quiet", ); } __DATA__ htmldir - Test --htmldir feature

NAME

htmldir - Test --htmldir feature

LINKS

  Verbatim B<means> verbatim.

Normal text, a link to nowhere,

a link to var-copy,

htmlescp,

"Another Head 1" in feature,

and another "Another Head 1" in feature.