| Line | |
|---|
| 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 < & > 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>
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
