Commit | Line | Data |
78343be7 |
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__ |
a19d7498 |
16 | <?xml version="1.0" ?> |
78343be7 |
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> |
a19d7498 |
21 | <meta http-equiv="content-type" content="text/html; charset=utf-8" /> |
78343be7 |
22 | <link rev="made" href="mailto:[PERLADMIN]" /> |
23 | </head> |
24 | |
25 | <body style="background-color: white"> |
26 | |
25ff0154 |
27 | |
78343be7 |
28 | <!-- INDEX BEGIN --> |
25ff0154 |
29 | <div name="index"> |
30 | <p><a name="__index__"></a></p> |
78343be7 |
31 | |
32 | <ul> |
33 | |
34 | <li><a href="#name">NAME</a></li> |
35 | <li><a href="#description">DESCRIPTION</a></li> |
36 | </ul> |
25ff0154 |
37 | |
38 | <hr name="index" /> |
39 | </div> |
78343be7 |
40 | <!-- INDEX END --> |
41 | |
78343be7 |
42 | <p> |
43 | </p> |
44 | <h1><a name="name">NAME</a></h1> |
45 | <p>Escape Sequences Test</p> |
46 | <p> |
47 | </p> |
48 | <hr /> |
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> |
8e3df7c8 |
52 | <p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em class="file">/etc/fstab</em> |
78343be7 |
53 | file and something that looks like an <html> tag. |
54 | This is some <code>$code($arg1)</code>.</p> |
bf6bfb44 |
55 | <p>Some numeric escapes: P e r l</p> |
78343be7 |
56 | |
57 | </body> |
58 | |
59 | </html> |