feature2.t revision 1.1.1.4 
1#!/usr/bin/perl -w                                         # -*- perl -*-
2
3
4BEGIN {
5    require "./t/pod2html-lib.pl";
6}
7
8use strict;
9use Cwd;
10use Test::More tests => 2;
11
12my $cwd = cwd();
13
14my $warn;
15$SIG{__WARN__} = sub { $warn .= $_[0] };
16
17convert_n_test("feature2", "misc pod-html features 2", 
18 "--backlink",
19 "--header",
20 "--podpath=.",
21 "--podroot=$cwd",
22 "--norecurse",
23 "--verbose",
24 "--quiet",
25 );
26
27like($warn,
28    qr(
29    \Acaching\ directories\ for\ later\ use\n
30    Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n
31    Cannot\ find\ file\ "crossref\.\*"\ directly\ under\ podpath,\ cannot\ find
32    \ suitable\ replacement:\ link\ remains\ unresolved\.\n\z
33    )x,
34    "misc pod-html --verbose warnings");
35
36__DATA__
37<?xml version="1.0" ?>
38<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
39<html xmlns="http://www.w3.org/1999/xhtml">
40<head>
41<title></title>
42<meta http-equiv="content-type" content="text/html; charset=utf-8" />
43<link rev="made" href="mailto:[PERLADMIN]" />
44</head>
45
46<body id="_podtop_">
47<table border="0" width="100%" cellspacing="0" cellpadding="3">
48<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle">
49<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
50</td></tr>
51</table>
52
53
54
55<ul id="index">
56  <li><a href="#Head-1">Head 1</a></li>
57  <li><a href="#Another-Head-1">Another Head 1</a></li>
58</ul>
59
60<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a>
61
62<p>A paragraph</p>
63
64
65
66some html
67
68<p>Another paragraph</p>
69
70<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a>
71
72<p>some text and a link <a>crossref</a></p>
73
74<table border="0" width="100%" cellspacing="0" cellpadding="3">
75<tr><td class="_podblock_" style="background-color: #cccccc; color: #000" valign="middle">
76<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
77</td></tr>
78</table>
79
80</body>
81
82</html>
83
84
85