This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missed test changes and a bit of debugging code that should
[perl5.git] / lib / Pod / t / htmlescp.t
1 #!/usr/bin/perl -w                                         # -*- perl -*-
2
3 BEGIN {
4    chdir 't' if -d 't';
5    unshift @INC, '../lib';
6    unshift @INC, '../lib/Pod/t';
7    require "pod2html-lib.pl";
8 }
9
10 use strict;
11 use Test::More tests => 1;
12
13 convert_n_test("htmlescp", "html escape");
14
15 __DATA__
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">
19 <head>
20 <title>NAME</title>
21 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
22 <link rev="made" href="mailto:[PERLADMIN]" />
23 </head>
24
25 <body style="background-color: white">
26
27 <p><a name="__index__"></a></p>
28 <!-- INDEX BEGIN -->
29
30 <ul>
31
32         <li><a href="#name">NAME</a></li>
33         <li><a href="#description">DESCRIPTION</a></li>
34 </ul>
35 <!-- INDEX END -->
36
37 <hr />
38 <p>
39 </p>
40 <h1><a name="name">NAME</a></h1>
41 <p>Escape Sequences Test</p>
42 <p>
43 </p>
44 <hr />
45 <h1><a name="description">DESCRIPTION</a></h1>
46 <p>I am a stupid fool who puts naked &lt; &amp; &gt; characters in my POD
47 instead of escaping them as &lt; and &gt;.</p>
48 <p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em>/etc/fstab</em>
49 file and something that looks like an &lt;html&gt; tag.
50 This is some <code>$code($arg1)</code>.</p>
51
52 </body>
53
54 </html>