1 #!/usr/bin/perl -w # -*- perl -*-
5 unshift @INC, '../lib';
6 unshift @INC, '../lib/Pod/t';
7 require "pod2html-lib.pl";
11 use Test::More tests => 1;
13 convert_n_test("htmlescp", "html escape");
16 <?xml version="1.0" ?>
17 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
18 <html xmlns="http://www.w3.org/1999/xhtml">
21 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
22 <link rev="made" href="mailto:[PERLADMIN]" />
25 <body style="background-color: white">
30 <p><a name="__index__"></a></p>
34 <li><a href="#name">NAME</a></li>
35 <li><a href="#description">DESCRIPTION</a></li>
44 <h1><a name="name">NAME</a></h1>
45 <p>Escape Sequences Test</p>
49 <h1><a name="description">DESCRIPTION</a></h1>
50 <p>I am a stupid fool who puts naked < & > characters in my POD
51 instead of escaping them as < and >.</p>
52 <p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em class="file">/etc/fstab</em>
53 file and something that looks like an <html> tag.
54 This is some <code>$code($arg1)</code>.</p>