htmldir5.t revision 1.1.1.2 
1#!/usr/bin/perl -w                                         # -*- perl -*-
2
3BEGIN {
4    require "t/pod2html-lib.pl";
5}
6
7END {
8    rem_test_dir();
9}
10
11use strict;
12use Cwd;
13use File::Spec::Functions;
14use Test::More tests => 1;
15
16SKIP: {
17    my $output = make_test_dir();
18    skip "$output", 1 if $output;
19
20
21    my $cwd = catdir cwd(); # catdir converts path separators to that of the OS
22                            # running the test
23                            # XXX but why don't the other tests complain about
24                            # this?
25
26    convert_n_test("htmldir5", "test --htmldir and --htmlroot 5", 
27     "--podpath=t:testdir/test.lib",
28     "--podroot=$cwd",
29     "--htmldir=$cwd",
30     "--htmlroot=/",
31     "--quiet",
32    );
33}
34
35__DATA__
36<?xml version="1.0" ?>
37<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
38<html xmlns="http://www.w3.org/1999/xhtml">
39<head>
40<title></title>
41<meta http-equiv="content-type" content="text/html; charset=utf-8" />
42<link rev="made" href="mailto:[PERLADMIN]" />
43</head>
44
45<body>
46
47
48
49<ul id="index">
50  <li><a href="#NAME">NAME</a></li>
51  <li><a href="#LINKS">LINKS</a></li>
52</ul>
53
54<h1 id="NAME">NAME</h1>
55
56<p>htmldir - Test --htmldir feature</p>
57
58<h1 id="LINKS">LINKS</h1>
59
60<p>Normal text, a <a>link</a> to nowhere,</p>
61
62<p>a link to <a href="../testdir/test.lib/var-copy.html">var-copy</a>,</p>
63
64<p><a href="./htmlescp.html">htmlescp</a>,</p>
65
66<p><a href="./feature.html#Another-Head-1">&quot;Another Head 1&quot; in feature</a>,</p>
67
68<p>and another <a href="./feature.html#Another-Head-1">&quot;Another Head 1&quot; in feature</a>.</p>
69
70
71</body>
72
73</html>
74
75
76