10Sstevel@tonic-gateBEGIN { 20Sstevel@tonic-gate use File::Spec::Functions ':ALL'; 30Sstevel@tonic-gate @INC = map { rel2abs($_) } 40Sstevel@tonic-gate (qw| ./lib ./t/lib ../../lib |); 53066Sjg} 63066Sjg 70Sstevel@tonic-gateuse strict; 80Sstevel@tonic-gateuse warnings; 90Sstevel@tonic-gateuse Test::More; 100Sstevel@tonic-gateuse Testing qw( setup_testing_dir xconvert ); 110Sstevel@tonic-gateuse Cwd; 120Sstevel@tonic-gate 130Sstevel@tonic-gatemy $debug = 0; 140Sstevel@tonic-gatemy $startdir = cwd(); 150Sstevel@tonic-gateEND { chdir($startdir) or die("Cannot change back to $startdir: $!"); } 160Sstevel@tonic-gatemy ($expect_raw, $args); 170Sstevel@tonic-gate{ local $/; $expect_raw = <DATA>; } 180Sstevel@tonic-gate 190Sstevel@tonic-gatemy $tdir = setup_testing_dir( { 200Sstevel@tonic-gate debug => $debug, 210Sstevel@tonic-gate} ); 223824Srotondo 230Sstevel@tonic-gatemy $cwd = cwd(); 240Sstevel@tonic-gate 250Sstevel@tonic-gate$args = { 260Sstevel@tonic-gate podstub => "feature", 270Sstevel@tonic-gate description => "misc pod-html features", 280Sstevel@tonic-gate expect => $expect_raw, 290Sstevel@tonic-gate p2h => { 300Sstevel@tonic-gate backlink => 1, 310Sstevel@tonic-gate css => 'style.css', 320Sstevel@tonic-gate header => 1, # no styling b/c of --ccs 330Sstevel@tonic-gate htmldir => catdir($cwd, 't'), 340Sstevel@tonic-gate noindex => 1, 350Sstevel@tonic-gate podpath => 't', 36904Smcpowers podroot => $cwd, 370Sstevel@tonic-gate title => 'a title', 380Sstevel@tonic-gate quiet => 1, 390Sstevel@tonic-gate }, 400Sstevel@tonic-gate debug => $debug, 410Sstevel@tonic-gate}; 420Sstevel@tonic-gatexconvert($args); 430Sstevel@tonic-gate 440Sstevel@tonic-gatedone_testing; 450Sstevel@tonic-gate 463824Srotondo__DATA__ 473824Srotondo<?xml version="1.0" ?> 483824Srotondo<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 490Sstevel@tonic-gate<html xmlns="http://www.w3.org/1999/xhtml"> 500Sstevel@tonic-gate<head> 510Sstevel@tonic-gate<title>a title</title> 520Sstevel@tonic-gate<link rel="stylesheet" href="style.css" type="text/css" /> 530Sstevel@tonic-gate<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 540Sstevel@tonic-gate<link rev="made" href="mailto:[PERLADMIN]" /> 550Sstevel@tonic-gate</head> 560Sstevel@tonic-gate 570Sstevel@tonic-gate<body id="_podtop_"> 580Sstevel@tonic-gate<table border="0" width="100%" cellspacing="0" cellpadding="3"> 590Sstevel@tonic-gate<tr><td class="_podblock_" valign="middle"> 600Sstevel@tonic-gate<big><strong><span class="_podblock_"> a title</span></strong></big> 610Sstevel@tonic-gate</td></tr> 620Sstevel@tonic-gate</table> 630Sstevel@tonic-gate 640Sstevel@tonic-gate 650Sstevel@tonic-gate 660Sstevel@tonic-gate<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a> 670Sstevel@tonic-gate 680Sstevel@tonic-gate<p>A paragraph</p> 690Sstevel@tonic-gate 700Sstevel@tonic-gate 710Sstevel@tonic-gate 720Sstevel@tonic-gatesome html 730Sstevel@tonic-gate 740Sstevel@tonic-gate<p>Another paragraph</p> 750Sstevel@tonic-gate 760Sstevel@tonic-gate<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a> 77904Smcpowers 78904Smcpowers<p>some text and a link <a href="t/crossref.html">crossref</a></p> 790Sstevel@tonic-gate 800Sstevel@tonic-gate<table border="0" width="100%" cellspacing="0" cellpadding="3"> 813066Sjg<tr><td class="_podblock_" valign="middle"> 823066Sjg<big><strong><span class="_podblock_"> a title</span></strong></big> 833066Sjg</td></tr> 843066Sjg</table> 853066Sjg 863066Sjg</body> 873066Sjg 883066Sjg</html> 893066Sjg 900Sstevel@tonic-gate 910Sstevel@tonic-gate