diff options
Diffstat (limited to 'lib/Pod/t/htmlescp.t')
| -rw-r--r-- | lib/Pod/t/htmlescp.t | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/lib/Pod/t/htmlescp.t b/lib/Pod/t/htmlescp.t new file mode 100644 index 0000000000..b7913c505b --- /dev/null +++ b/lib/Pod/t/htmlescp.t @@ -0,0 +1,52 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + chdir 't' if -d 't'; + unshift @INC, '../lib'; + unshift @INC, '../lib/Pod/t'; + require "pod2html-lib.pl"; +} + +use strict; +use Test::More tests => 1; + +convert_n_test("htmlescp", "html escape"); + +__DATA__ +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml"> +<head> +<title>NAME</title> +<link rev="made" href="mailto:[PERLADMIN]" /> +</head> + +<body style="background-color: white"> + +<p><a name="__index__"></a></p> +<!-- INDEX BEGIN --> + +<ul> + + <li><a href="#name">NAME</a></li> + <li><a href="#description">DESCRIPTION</a></li> +</ul> +<!-- INDEX END --> + +<hr /> +<p> +</p> +<h1><a name="name">NAME</a></h1> +<p>Escape Sequences Test</p> +<p> +</p> +<hr /> +<h1><a name="description">DESCRIPTION</a></h1> +<p>I am a stupid fool who puts naked < & > characters in my POD +instead of escaping them as < and >.</p> +<p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em>/etc/fstab</em> +file and something that looks like an <html> tag. +This is some <code>$code($arg1)</code>.</p> + +</body> + +</html> |