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 => "podnoerr", 25 description => "pod error section", 26 expect => $expect_raw, 27 p2h => { 28 nopoderrors => 1, 29 }, 30}; 31 32xconvert($args); 33 34done_testing; 35 36__DATA__ 37<?xml version="1.0" ?> 38<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 39<html xmlns="http://www.w3.org/1999/xhtml"> 40<head> 41<title></title> 42<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 43<link rev="made" href="mailto:[PERLADMIN]" /> 44</head> 45 46<body> 47 48 49 50<ul id="index"> 51 <li><a href="#NAME">NAME</a></li> 52</ul> 53 54<h1 id="NAME">NAME</h1> 55 56<p>Test POD ERROR section</p> 57 58<ul> 59 60<p>This text is not allowed</p> 61 62<p>*</p> 63 64<p>The wiz item.</p> 65 66<p>*</p> 67 68<p>The waz item.</p> 69 70</ul> 71 72 73</body> 74 75</html> 76 77 78