feature.t revision 1.1.1.1
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 "--libpods=perlguts:perlootut", 25 ); 26 27__DATA__ 28<?xml version="1.0" ?> 29<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 30<html xmlns="http://www.w3.org/1999/xhtml"> 31<head> 32<title>a title</title> 33<link rel="stylesheet" href="style.css" type="text/css" /> 34<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 35<link rev="made" href="mailto:[PERLADMIN]" /> 36</head> 37 38<body id="_podtop_"> 39<table border="0" width="100%" cellspacing="0" cellpadding="3"> 40<tr><td class="_podblock_" valign="middle"> 41<big><strong><span class="_podblock_"> a title</span></strong></big> 42</td></tr> 43</table> 44 45 46 47<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a> 48 49<p>A paragraph</p> 50 51 52 53some html 54 55<p>Another paragraph</p> 56 57<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a> 58 59<p>some text and a link <a href="t/crossref.html">crossref</a></p> 60 61<table border="0" width="100%" cellspacing="0" cellpadding="3"> 62<tr><td class="_podblock_" valign="middle"> 63<big><strong><span class="_podblock_"> a title</span></strong></big> 64</td></tr> 65</table> 66 67</body> 68 69</html> 70 71 72