1898184e3SsthenBEGIN { 2*256a93a4Safresh1 use File::Spec::Functions ':ALL'; 3*256a93a4Safresh1 @INC = map { rel2abs($_) } 4*256a93a4Safresh1 (qw| ./lib ./t/lib ../../lib |); 5898184e3Ssthen} 6898184e3Ssthen 7898184e3Ssthenuse strict; 8*256a93a4Safresh1use warnings; 9*256a93a4Safresh1use Test::More; 10898184e3Ssthen 11*256a93a4Safresh1use Testing qw( setup_testing_dir xconvert ); 12*256a93a4Safresh1use Cwd; 13*256a93a4Safresh1 14*256a93a4Safresh1my $debug = 0; 15*256a93a4Safresh1my $startdir = cwd(); 16*256a93a4Safresh1END { chdir($startdir) or die("Cannot change back to $startdir: $!"); } 17*256a93a4Safresh1my ($expect_raw, $args); 18*256a93a4Safresh1{ local $/; $expect_raw = <DATA>; } 19*256a93a4Safresh1 20*256a93a4Safresh1my $tdir = setup_testing_dir( { 21*256a93a4Safresh1 debug => $debug, 22*256a93a4Safresh1} ); 23*256a93a4Safresh1 24*256a93a4Safresh1$args = { 25*256a93a4Safresh1 podstub => "poderr", 26*256a93a4Safresh1 description => "pod error section", 27*256a93a4Safresh1 expect => $expect_raw, 28*256a93a4Safresh1 debug => 1, 29*256a93a4Safresh1}; 30*256a93a4Safresh1 31*256a93a4Safresh1xconvert($args); 32*256a93a4Safresh1 33*256a93a4Safresh1done_testing; 34898184e3Ssthen 35898184e3Ssthen__DATA__ 36898184e3Ssthen<?xml version="1.0" ?> 37898184e3Ssthen<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 38898184e3Ssthen<html xmlns="http://www.w3.org/1999/xhtml"> 39898184e3Ssthen<head> 40898184e3Ssthen<title></title> 41898184e3Ssthen<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 42898184e3Ssthen<link rev="made" href="mailto:[PERLADMIN]" /> 43898184e3Ssthen</head> 44898184e3Ssthen 456fb12b70Safresh1<body> 46898184e3Ssthen 47898184e3Ssthen 48898184e3Ssthen 49898184e3Ssthen<ul id="index"> 50898184e3Ssthen <li><a href="#NAME">NAME</a></li> 51898184e3Ssthen <li><a href="#POD-ERRORS">POD ERRORS</a></li> 52898184e3Ssthen</ul> 53898184e3Ssthen 54898184e3Ssthen<h1 id="NAME">NAME</h1> 55898184e3Ssthen 56898184e3Ssthen<p>Test POD ERROR section</p> 57898184e3Ssthen 58898184e3Ssthen<ul> 59898184e3Ssthen 60898184e3Ssthen<p>This text is not allowed</p> 61898184e3Ssthen 62898184e3Ssthen<p>*</p> 63898184e3Ssthen 64898184e3Ssthen<p>The wiz item.</p> 65898184e3Ssthen 66898184e3Ssthen<p>*</p> 67898184e3Ssthen 68898184e3Ssthen<p>The waz item.</p> 69898184e3Ssthen 70898184e3Ssthen</ul> 71898184e3Ssthen 72898184e3Ssthen<h1 id="POD-ERRORS">POD ERRORS</h1> 73898184e3Ssthen 74898184e3Ssthen<p>Hey! <b>The above document had some coding errors, which are explained below:</b></p> 75898184e3Ssthen 76898184e3Ssthen<dl> 77898184e3Ssthen 7891f110e0Safresh1<dt id="Around-line-5">Around line 5:</dt> 79898184e3Ssthen<dd> 80898184e3Ssthen 81898184e3Ssthen<p>You can't have =items (as at line 9) unless the first thing after the =over is an =item</p> 82898184e3Ssthen 83898184e3Ssthen</dd> 84898184e3Ssthen</dl> 85898184e3Ssthen 86898184e3Ssthen 87898184e3Ssthen</body> 88898184e3Ssthen 89898184e3Ssthen</html> 90898184e3Ssthen 91898184e3Ssthen 92