lib/Pod/t/htmlescp.t

   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
  28 <!-- INDEX BEGIN -->
  29 <div name="index">
  30 <p><a name="__index__"></a></p>
  31
  32 <ul>
  33
  34         <li><a href="#name">NAME</a></li>
  35         <li><a href="#description">DESCRIPTION</a></li>
  36 </ul>
  37
  38 <hr name="index" />
  39 </div>
  40 <!-- INDEX END -->
  41
  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 &lt; &amp; &gt; characters in my POD
  51 instead of escaping them as &lt; and &gt;.</p>
  52 <p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em class="file">/etc/fstab</em>
  53 file and something that looks like an &lt;html&gt; tag.
  54 This is some <code>$code($arg1)</code>.</p>
  55
  56 </body>
  57
  58 </html>