1#!/usr/bin/perl -w # -*- perl -*- 2 3BEGIN { 4 chdir 't' if -d 't'; 5 unshift @INC, '../lib'; 6 unshift @INC, '../lib/Pod/t'; 7 require "pod2html-lib.pl"; 8} 9 10use strict; 11use Test::More tests => 1; 12 13convert_n_test("htmlescp", "html escape"); 14 15__DATA__ 16<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 17<html xmlns="http://www.w3.org/1999/xhtml"> 18<head> 19<title>NAME</title> 20<link rev="made" href="mailto:[PERLADMIN]" /> 21</head> 22 23<body style="background-color: white"> 24 25<p><a name="__index__"></a></p> 26<!-- INDEX BEGIN --> 27 28<ul> 29 30 <li><a href="#name">NAME</a></li> 31 <li><a href="#description">DESCRIPTION</a></li> 32</ul> 33<!-- INDEX END --> 34 35<hr /> 36<p> 37</p> 38<h1><a name="name">NAME</a></h1> 39<p>Escape Sequences Test</p> 40<p> 41</p> 42<hr /> 43<h1><a name="description">DESCRIPTION</a></h1> 44<p>I am a stupid fool who puts naked < & > characters in my POD 45instead of escaping them as < and >.</p> 46<p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em>/etc/fstab</em> 47file and something that looks like an <html> tag. 48This is some <code>$code($arg1)</code>.</p> 49 50</body> 51 52</html> 53