| 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 | |
| 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 < & > characters in my POD |
| 47 | instead of escaping them as < and >.</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 <html> tag. |
| 50 | This is some <code>$code($arg1)</code>.</p> |
| 51 | |
| 52 | </body> |
| 53 | |
| 54 | </html> |
projects / p5sagit/p5-mst-13.2.git / blame