This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pod::Html's feature2.t needs to match path separators portably.
[perl5.git] / ext / Pod-Html / t / feature2.t
CommitLineData
fbf24e08 1#!/usr/bin/perl -w # -*- perl -*-
8d43ec19 2
fbf24e08
MG
3
4BEGIN {
5 require "t/pod2html-lib.pl";
6}
7
8use strict;
8d43ec19 9use Cwd;
cfb2be1c 10use Test::More tests => 2;
fbf24e08 11
7c41f1ea 12my $cwd = cwd();
fbf24e08 13
cfb2be1c
RB
14my $warn;
15$SIG{__WARN__} = sub { $warn .= $_[0] };
16
8d43ec19 17convert_n_test("feature2", "misc pod-html features 2",
fbf24e08
MG
18 "--backlink",
19 "--header",
75f30f9e 20 "--podpath=.",
fbf24e08
MG
21 "--podroot=$cwd",
22 "--norecurse",
1d7ed44a 23 "--verbose",
cfb2be1c 24 "--quiet",
fbf24e08
MG
25 );
26
cfb2be1c
RB
27like($warn,
28 qr(
29 \Acaching\ directories\ for\ later\ use\n
27f98b9e 30 Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n\z
cfb2be1c
RB
31 )x,
32 "misc pod-html --verbose warnings");
33
fbf24e08
MG
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>
75f30f9e 39<title></title>
fbf24e08
MG
40<meta http-equiv="content-type" content="text/html; charset=utf-8" />
41<link rev="made" href="mailto:[PERLADMIN]" />
42</head>
43
75f30f9e 44<body id="_podtop_" style="background-color: white">
fbf24e08 45<table border="0" width="100%" cellspacing="0" cellpadding="3">
75f30f9e
MG
46<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
47<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
fbf24e08
MG
48</td></tr>
49</table>
50
51
fbf24e08 52
75f30f9e
MG
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>
fbf24e08
MG
56</ul>
57
75f30f9e 58<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a>
fbf24e08 59
fbf24e08 60<p>A paragraph</p>
75f30f9e
MG
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
8d43ec19 70<p>some text and a link <a>crossref</a></p>
75f30f9e 71
fbf24e08 72<table border="0" width="100%" cellspacing="0" cellpadding="3">
75f30f9e
MG
73<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
74<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
fbf24e08
MG
75</td></tr>
76</table>
77
78</body>
79
80</html>
75f30f9e
MG
81
82