[perl5.git] / ext / Pod-Html / t / feature2.t

#!/usr/bin/perl -w                                         # -*- perl -*-


BEGIN {
    require "t/pod2html-lib.pl";
}

use strict;
use Cwd;
use Test::More tests => 2;

my $cwd = cwd();

my $warn;
$SIG{__WARN__} = sub { $warn .= $_[0] };

convert_n_test("feature2", "misc pod-html features 2", 
 "--backlink",
 "--header",
 "--podpath=.",
 "--podroot=$cwd",
 "--norecurse",
 "--verbose",
 "--quiet",
 );

like($warn,
    qr(
	\Acaching\ directories\ for\ later\ use\n
	Converting\ input\ file\ \S+[/\\\]]feature2\.pod\n\z	
    )x,
    "misc pod-html --verbose warnings");

__DATA__
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:[PERLADMIN]" />
</head>

<body id="_podtop_" style="background-color: white">
<table border="0" width="100%" cellspacing="0" cellpadding="3">
<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
</td></tr>
</table>


<ul id="index">
  <li><a href="#Head-1">Head 1</a></li>
  <li><a href="#Another-Head-1">Another Head 1</a></li>
</ul>

<a href="#_podtop_"><h1 id="Head-1">Head 1</h1></a>

<p>A paragraph</p>


some html

<p>Another paragraph</p>

<a href="#_podtop_"><h1 id="Another-Head-1">Another Head 1</h1></a>

<p>some text and a link <a>crossref</a></p>

<table border="0" width="100%" cellspacing="0" cellpadding="3">
<tr><td class="_podblock_" style="background-color: #cccccc" valign="middle">
<big><strong><span class="_podblock_">&nbsp;</span></strong></big>
</td></tr>
</table>

</body>

</html>
Commit	Line	Data
fbf24e08	1	#!/usr/bin/perl -w # -- perl --
8d43ec19	2
fbf24e08 MG	3
	4	BEGIN {
	5	require "t/pod2html-lib.pl";
	6	}
	7
	8	use strict;
8d43ec19	9	use Cwd;
cfb2be1c	10	use Test::More tests => 2;
fbf24e08	11
7c41f1ea	12	my $cwd = cwd();
fbf24e08	13
cfb2be1c RB	14	my $warn;
	15	$SIG{__WARN__} = sub { $warn .= $_[0] };
	16
8d43ec19	17	convert_n_test("feature2", "misc pod-html features 2",
fbf24e08 MG	18	"--backlink",
fbf24e08 MG	19	"--header",
75f30f9e	20	"--podpath=.",
fbf24e08 MG	21	"--podroot=$cwd",
fbf24e08 MG	22	"--norecurse",
1d7ed44a	23	"--verbose",
cfb2be1c	24	"--quiet",
fbf24e08 MG	25	);
fbf24e08 MG	26
cfb2be1c RB	27	like($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">
75f30f9e MG	47	<big><strong><span class="_podblock_"> </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>
fbf24e08 MG	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
	64	some 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">
75f30f9e MG	74	<big><strong><span class="_podblock_"> </span></strong></big>
fbf24e08 MG	75	</td></tr>
	76	</table>
	77
	78	</body>
	79
	80	</html>
75f30f9e MG	81
75f30f9e MG	82