1#!/usr/bin/perl -w # -*- perl -*- 2 3 4BEGIN { 5 require "./t/pod2html-lib.pl"; 6} 7 8use strict; 9use Cwd; 10use Test::More tests => 2; 11 12my $cwd = cwd(); 13 14my $warn; 15$SIG{__WARN__} = sub { $warn .= $_[0] }; 16 17convert_n_test("feature2", "misc pod-html features 2", 18 "--backlink", 19 "--header", 20 "--podpath=.", 21 "--podroot=$cwd", 22 "--norecurse", 23 "--verbose", 24 "--quiet", 25 ); 26 27like($warn, 28 qr( 29 \Acaching\ directories\ for\ later\ use\n 30 Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n\z 31 )x, 32 "misc pod-html --verbose warnings"); 33 34__DATA__ 35<?xml version="1.0" ?> 36<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 37<html xmlns="http://www.w3.org/1999/xhtml"> 38<head> 39<title></title> 40<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 41<link rev="made" href="mailto:[PERLADMIN]" /> 42</head> 43 44<body id="_podtop_"> 45<table border="0" width="100%" cellspacing="0" cellpadding="3"> 46<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle"> 47<big><strong><span class="_podblock_"> </span></strong></big> 48</td></tr> 49</table> 50 51 52 53<ul id="index"> 54 <li><a href="#Head-1">Head 1</a></li> 55 <li><a href="#Another-Head-1">Another Head 1</a></li> 56</ul> 57 58<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a> 59 60<p>A paragraph</p> 61 62 63 64some html 65 66<p>Another paragraph</p> 67 68<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a> 69 70<p>some text and a link <a>crossref</a></p> 71 72<table border="0" width="100%" cellspacing="0" cellpadding="3"> 73<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle"> 74<big><strong><span class="_podblock_"> </span></strong></big> 75</td></tr> 76</table> 77 78</body> 79 80</html> 81 82 83