ext/Pod-Html/t/htmldir2.t

   1 #!/usr/bin/perl -w                                         # -*- perl -*-
   2
   3 BEGIN {
   4     require "t/pod2html-lib.pl";
   5 }
   6
   7 use strict;
   8 use Test::More tests => 2;
   9
  10 my $data_pos = tell DATA; # to read <DATA> twice
  11
  12 convert_n_test("htmldir2", "test --htmldir and --htmlroot 2a",
  13  "--podpath=t",
  14  "--htmldir=t",
  15 );
  16
  17 seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same)
  18
  19 convert_n_test("htmldir2", "test --htmldir and --htmlroot 2b",
  20  "--podpath=t",
  21 # "--htmldir=t",
  22 );
  23
  24 __DATA__
  25 <?xml version="1.0" ?>
  26 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
  27 <html xmlns="http://www.w3.org/1999/xhtml">
  28 <head>
  29 <title>htmldir - Test --htmldir feature</title>
  30 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  31 <link rev="made" href="mailto:[PERLADMIN]" />
  32 </head>
  33
  34 <body style="background-color: white">
  35
  36
  37 <!-- INDEX BEGIN -->
  38 <div name="index">
  39 <p><a name="__index__"></a></p>
  40
  41 <ul>
  42
  43         <li><a href="#name">NAME</a></li>
  44         <li><a href="#links">LINKS</a></li>
  45 </ul>
  46
  47 <hr name="index" />
  48 </div>
  49 <!-- INDEX END -->
  50
  51 <p>
  52 </p>
  53 <h1><a name="name">NAME</a></h1>
  54 <p>htmldir - Test --htmldir feature</p>
  55 <p>
  56 </p>
  57 <hr />
  58 <h1><a name="links">LINKS</a></h1>
  59 <p>Normal text, a <em>link</em> to nowhere,</p>
  60 <p>a link to <em>perlvar</em>,</p>
  61 <p><a href="/t/htmlescp.html">the htmlescp manpage</a>,</p>
  62 <p><a href="/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>,</p>
  63 <p>and another <a href="/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>.</p>
  64
  65 </body>
  66
  67 </html>