1#!/usr/bin/perl -w # -*- perl -*- 2 3BEGIN { 4 require "./t/pod2html-lib.pl"; 5} 6 7use strict; 8use Test::More tests => 1; 9 10convert_n_test("htmlescp", "html escape"); 11 12__DATA__ 13<?xml version="1.0" ?> 14<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 15<html xmlns="http://www.w3.org/1999/xhtml"> 16<head> 17<title>Escape Sequences Test</title> 18<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 19<link rev="made" href="mailto:[PERLADMIN]" /> 20</head> 21 22<body> 23 24 25 26<ul id="index"> 27 <li><a href="#NAME">NAME</a></li> 28 <li><a href="#DESCRIPTION">DESCRIPTION</a></li> 29</ul> 30 31<h1 id="NAME">NAME</h1> 32 33<p>Escape Sequences Test</p> 34 35<h1 id="DESCRIPTION">DESCRIPTION</h1> 36 37<p>I am a stupid fool who puts naked < & > characters in my POD instead of escaping them as < and >.</p> 38 39<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> 40 41<p>Some numeric escapes: P e r l</p> 42 43 44</body> 45 46</html> 47 48 49