Commit | Line | Data |
---|---|---|
78343be7 SB |
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 SB |
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 SB |
22 | <link rev="made" href="mailto:[PERLADMIN]" /> |
23 | </head> | |
24 | ||
25 | <body style="background-color: white"> | |
26 | ||
25ff0154 | 27 | |
78343be7 | 28 | <!-- INDEX BEGIN --> |
25ff0154 JA |
29 | <div name="index"> |
30 | <p><a name="__index__"></a></p> | |
78343be7 SB |
31 | |
32 | <ul> | |
33 | ||
34 | <li><a href="#name">NAME</a></li> | |
35 | <li><a href="#description">DESCRIPTION</a></li> | |
36 | </ul> | |
25ff0154 JA |
37 | |
38 | <hr name="index" /> | |
39 | </div> | |
78343be7 SB |
40 | <!-- INDEX END --> |
41 | ||
78343be7 SB |
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 SB |
53 | file and something that looks like an <html> tag. |
54 | This is some <code>$code($arg1)</code>.</p> | |
55 | ||
56 | </body> | |
57 | ||
58 | </html> |