1BEGIN { 2 use File::Spec::Functions ':ALL'; 3 @INC = map { rel2abs($_) } 4 (qw| ./lib ./t/lib ../../lib |); 5} 6 7use strict; 8use warnings; 9use Test::More; 10use Testing qw( setup_testing_dir xconvert ); 11use Cwd; 12 13my $debug = 0; 14my $startdir = cwd(); 15END { chdir($startdir) or die("Cannot change back to $startdir: $!"); } 16my ($expect_raw, $args); 17{ local $/; $expect_raw = <DATA>; } 18 19my $tdir = setup_testing_dir( { 20 debug => $debug, 21} ); 22 23$args = { 24 podstub => "htmldir2", 25 description => "test --htmldir and --htmlroot 2a", 26 expect => $expect_raw, 27 p2h => { 28 podpath => 't', 29 htmldir => 't', 30 quiet => 1, 31 }, 32 debug => $debug, 33}; 34xconvert($args); 35 36$args = { 37 podstub => "htmldir2", 38 description => "test --htmldir and --htmlroot 2b", 39 expect => $expect_raw, 40 p2h => { 41 podpath => 't', 42 quiet => 1, 43 }, 44 debug => $debug, 45}; 46xconvert($args); 47 48my $cwd = cwd(); 49$args = { 50 podstub => "htmldir2", 51 description => "test --htmldir and --htmlroot 2c", 52 expect => $expect_raw, 53 p2h => { 54 podpath => 't', 55 podroot => $cwd, 56 norecurse => 1, # testing --norecurse, too 57 quiet => 1, 58 }, 59 debug => $debug, 60}; 61xconvert($args); 62 63done_testing; 64 65__DATA__ 66<?xml version="1.0" ?> 67<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 68<html xmlns="http://www.w3.org/1999/xhtml"> 69<head> 70<title>htmldir - Test --htmldir feature</title> 71<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 72<link rev="made" href="mailto:[PERLADMIN]" /> 73</head> 74 75<body> 76 77 78 79<ul id="index"> 80 <li><a href="#NAME">NAME</a></li> 81 <li><a href="#LINKS">LINKS</a></li> 82</ul> 83 84<h1 id="NAME">NAME</h1> 85 86<p>htmldir - Test --htmldir feature</p> 87 88<h1 id="LINKS">LINKS</h1> 89 90<p>Normal text, a <a>link</a> to nowhere,</p> 91 92<p>a link to <a>perlvar-copy</a>,</p> 93 94<p><a href="/t/htmlescp.html">htmlescp</a>,</p> 95 96<p><a href="/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>,</p> 97 98<p>and another <a href="/t/feature.html#Another-Head-1">"Another Head 1" in feature</a>.</p> 99 100 101</body> 102 103</html> 104 105 106