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 => 2; 15 16# XXX Separate tests that rely on test.lib from the others so they are the only 17# ones skipped (instead of all of them). This applies to htmldir{1,3,5}.t, and 18# crossref.t (as of 10/29/11). 19SKIP: { 20 my $output = make_test_dir(); 21 skip "$output", 2 if $output; 22 23 my ($v, $d) = splitpath(cwd(), 1); 24 my @dirs = splitdir($d); 25 shift @dirs if $dirs[0] eq ''; 26 my $relcwd = join '/', @dirs; 27 28 my $data_pos = tell DATA; # to read <DATA> twice 29 30 31 convert_n_test("htmldir1", "test --htmldir and --htmlroot 1a", 32 "--podpath=". File::Spec::Unix->catdir($relcwd, 't') . ":" 33 . File::Spec::Unix->catdir($relcwd, 'testdir/test.lib'), 34 "--podroot=". catpath($v, '/', ''), 35 "--htmldir=t", 36 "--quiet", 37 ); 38 39 seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same) 40 41 convert_n_test("htmldir1", "test --htmldir and --htmlroot 1b", 42 "--podpath=$relcwd", 43 "--podroot=". catpath($v, '/', ''), 44 "--htmldir=". catdir($relcwd, 't'), 45 "--htmlroot=/", 46 "--quiet", 47 ); 48} 49 50__DATA__ 51<?xml version="1.0" ?> 52<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 53<html xmlns="http://www.w3.org/1999/xhtml"> 54<head> 55<title>htmldir - Test --htmldir feature</title> 56<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 57<link rev="made" href="mailto:[PERLADMIN]" /> 58</head> 59 60<body> 61 62 63 64<ul id="index"> 65 <li><a href="#NAME">NAME</a></li> 66 <li><a href="#LINKS">LINKS</a></li> 67</ul> 68 69<h1 id="NAME">NAME</h1> 70 71<p>htmldir - Test --htmldir feature</p> 72 73<h1 id="LINKS">LINKS</h1> 74 75<pre><code> Verbatim B<means> verbatim.</code></pre> 76 77<p>Normal text, a <a>link</a> to nowhere,</p> 78 79<p>a link to <a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html">var-copy</a>,</p> 80 81<p><a href="/[RELCURRENTWORKINGDIRECTORY]/t/htmlescp.html">htmlescp</a>,</p> 82 83<p><a href="/[RELCURRENTWORKINGDIRECTORY]/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>,</p> 84 85<p>and another <a href="/[RELCURRENTWORKINGDIRECTORY]/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>.</p> 86 87 88</body> 89 90</html> 91 92 93