1#!/usr/bin/perl -w # -*- perl -*- 2 3BEGIN { 4 require "./t/pod2html-lib.pl"; 5} 6 7use strict; 8use Cwd; 9use File::Spec::Functions; 10use Test::More tests => 1; 11 12my $cwd = cwd(); 13 14convert_n_test("feature", "misc pod-html features", 15 "--backlink", 16 "--css=style.css", 17 "--header", # no styling b/c of --ccs 18 "--htmldir=". catdir($cwd, 't'), 19 "--noindex", 20 "--podpath=t", 21 "--podroot=$cwd", 22 "--title=a title", 23 "--quiet", 24 ); 25 26__DATA__ 27<?xml version="1.0" ?> 28<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 29<html xmlns="http://www.w3.org/1999/xhtml"> 30<head> 31<title>a title</title> 32<link rel="stylesheet" href="style.css" type="text/css" /> 33<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 34<link rev="made" href="mailto:[PERLADMIN]" /> 35</head> 36 37<body id="_podtop_"> 38<table border="0" width="100%" cellspacing="0" cellpadding="3"> 39<tr><td class="_podblock_" valign="middle"> 40<big><strong><span class="_podblock_"> a title</span></strong></big> 41</td></tr> 42</table> 43 44 45 46<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a> 47 48<p>A paragraph</p> 49 50 51 52some html 53 54<p>Another paragraph</p> 55 56<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a> 57 58<p>some text and a link <a href="t/crossref.html">crossref</a></p> 59 60<table border="0" width="100%" cellspacing="0" cellpadding="3"> 61<tr><td class="_podblock_" valign="middle"> 62<big><strong><span class="_podblock_"> a title</span></strong></big> 63</td></tr> 64</table> 65 66</body> 67 68</html> 69 70 71