1 #!/usr/bin/perl -w # -*- perl -*-
4 require "./t/pod2html-lib.pl";
9 use File::Spec::Functions ':ALL';
10 use Test::More tests => 2;
13 my $data_pos = tell DATA; # to read <DATA> twice
15 convert_n_test("htmldir4", "test --htmldir and --htmlroot 4a",
18 "--outfile=". catfile('t', 'htmldir4.html'),
22 seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same)
24 convert_n_test("htmldir4", "test --htmldir and --htmlroot 4b",
27 "--htmldir=". catdir($cwd, 't'),
33 <?xml version="1.0" ?>
34 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
35 <html xmlns="http://www.w3.org/1999/xhtml">
37 <title>htmldir - Test --htmldir feature</title>
38 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
39 <link rev="made" href="mailto:[PERLADMIN]" />
47 <li><a href="#NAME">NAME</a></li>
48 <li><a href="#LINKS">LINKS</a></li>
51 <h1 id="NAME">NAME</h1>
53 <p>htmldir - Test --htmldir feature</p>
55 <h1 id="LINKS">LINKS</h1>
57 <p>Normal text, a <a>link</a> to nowhere,</p>
59 <p>a link to <a>perlvar-copy</a>,</p>
61 <p><a href="t/htmlescp.html">htmlescp</a>,</p>
63 <p><a href="t/feature.html#Another-Head-1">"Another Head 1" in feature</a>,</p>
65 <p>and another <a href="t/feature.html#Another-Head-1">"Another Head 1" in feature</a>.</p>