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 => "htmlescp", 25 description => "html escape", 26 expect => $expect_raw, 27 debug => $debug, 28}; 29 30xconvert($args); 31 32done_testing; 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>Escape Sequences Test: Recalling the Glory "<&&&>" of Ampersands</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> 45 46 47 48<ul id="index"> 49 <li><a href="#NAME">NAME</a></li> 50 <li><a href="#DESCRIPTION">DESCRIPTION</a></li> 51</ul> 52 53<h1 id="NAME">NAME</h1> 54 55<p>Escape Sequences Test: Recalling the Glory "<&&&>" of Ampersands</p> 56 57<h1 id="DESCRIPTION">DESCRIPTION</h1> 58 59<p>I am a stupid fool who puts naked < & > characters in my POD instead of escaping them as < and >.</p> 60 61<p>Here is some <b>bold</b> text, some <i>italic</i> plus <i>/etc/fstab</i> file and something that looks like an <html> tag. This is some <code>$code($arg1)</code>.</p> 62 63<p>Some numeric escapes: P e r l</p> 64 65 66</body> 67 68</html> 69 70 71