feature2.t revision 1.1.1.1 
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\z	
31    )x,
32    "misc pod-html --verbose warnings");
33
34__DATA__
35<?xml version="1.0" ?>
36<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
37<html xmlns="http://www.w3.org/1999/xhtml">
38<head>
39<title></title>
40<meta http-equiv="content-type" content="text/html; charset=utf-8" />
41<link rev="made" href="mailto:[PERLADMIN]" />
42</head>
43
44<body id="_podtop_" style="background-color: white">
45<table border="0" width="100%" cellspacing="0" cellpadding="3">
46<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
47<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
48</td></tr>
49</table>
50
51
52
53<ul id="index">
54  <li><a href="#Head-1">Head 1</a></li>
55  <li><a href="#Another-Head-1">Another Head 1</a></li>
56</ul>
57
58<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a>
59
60<p>A paragraph</p>
61
62
63
64some html
65
66<p>Another paragraph</p>
67
68<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a>
69
70<p>some text and a link <a>crossref</a></p>
71
72<table border="0" width="100%" cellspacing="0" cellpadding="3">
73<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
74<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
75</td></tr>
76</table>
77
78</body>
79
80</html>
81
82
83