Start modifying test cases to suit new Pod::Html

author: Marc Green <marcgreen@cpan.org> 2011-06-19 16:24:40 -0400
committer: Marc Green <marcgreen@cpan.org> 2011-10-31 13:26:40 -0400
commit: fbf24e084f7e43d3caa066f3520b4c32ebbb2e3a (patch)
tree: 5f127bed8959c61307051a244956849cee8f58f2 /ext
parent: 1be43d30851563082d5dc74b187ae83927bf4bea (diff)
download: perl-fbf24e084f7e43d3caa066f3520b4c32ebbb2e3a.tar.gz
15 files changed, 681 insertions, 6 deletions
diff --git a/ext/Pod-Html/t/htmlcrossref.pod b/ext/Pod-Html/t/htmlcrossref.pod
new file mode 100644
index 0000000000..ea19c1fea2
--- /dev/null
+++ b/ext/Pod-Html/t/htmlcrossref.pod
@@ -0,0 +1,41 @@
+=head1 NAME
+
+htmlcrossref - Test HTML cross reference links
+
+=head1 LINKS
+
+L</"section1">
+
+L<htmllink/section 2>
+
+L</"item1">
+
+L</"non existant section">
+
+L<perlvar>
+
+L<perlvar/$">
+
+C<perlvar>
+
+C<perlvar/$">
+
+L<perlpodspec/First:>
+
+C<perlpodspec/First:>
+
+L<notperldoc>
+
+=head1 TARGETS
+
+=head2 section1
+
+This is section one.
+
+=over 4
+
+=item item1 X<item> X<one>
+
+This is item one.
+
+=back
diff --git a/ext/Pod-Html/t/htmlcrossref.t b/ext/Pod-Html/t/htmlcrossref.t
new file mode 100644
index 0000000000..b8607197b5
--- /dev/null
+++ b/ext/Pod-Html/t/htmlcrossref.t
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 1;
+
+use File::Spec;
+use Cwd;
+
+# XXX Is there a better way to do this? I need a relative url to cwd because of
+# --podpath and --podroot
+# Remove root dir from path
+my $cwd = substr(Cwd::cwd(), length(File::Spec->rootdir()));
+
+convert_n_test("htmlcrossref", "html cross references", 
+ "--podpath=$cwd/t:usr/share/perl",
+ "--podroot=/",
+);
+
+__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 style="background-color: white">
+
+
+
+<ul id="index">
+  <li><a href="#NAME">NAME</a></li>
+  <li><a href="#LINKS">LINKS</a></li>
+  <li><a href="#TARGETS">TARGETS</a>
+    <ul>
+      <li><a href="#section1">section1</a></li>
+    </ul>
+  </li>
+</ul>
+
+<h1 id="NAME">NAME</h1>
+
+<p>htmlcrossref - Test HTML cross reference links</p>
+<h1><a name="links">LINKS</a></h1>
+<p><a href="#section1">section1</a></p>
+<p><a href="[CURRENTWORKINGDIRECTORY]/t/htmllink.html#section_2">section 2 in the htmllink manpage</a></p>
+<p><a href="#item1">item1</a></p>
+<p><a href="#non_existant_section">non existant section</a></p>
+<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html">the perlvar manpage</a></p>
+<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html#_">$&quot; in the perlvar manpage</a></p>
+<p><code>perlvar</code></p>
+<p><code>perlvar/$&quot;</code></p>
+<p><a href="/usr/share/perl/5.10.1/pod/perlpodspec.html#first_">First: in the perlpodspec manpage</a></p>
+<p><code>perlpodspec/First:</code></p>
+<p><em>notperldoc</em></p>
+<p>
+</p>
+<hr />
+<h1><a name="targets">TARGETS</a></h1>
+<p>
+</p>
+<h2><a name="section1">section1</a></h2>
+<p>This is section one.</p>
+<dl>
+<dt><strong><a name="item1" class="item">item1</a></strong></dt>
+
+<dd>
+<p>This is item one.</p>
+</dd>
+</dl>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmldir.pod b/ext/Pod-Html/t/htmldir.pod
new file mode 100644
index 0000000000..7b9be919ce
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir.pod
@@ -0,0 +1,15 @@
+=head1 NAME
+
+htmldir - Test --htmldir feature
+
+=head1 LINKS
+
+Normal text, a L<link> to nowhere, 
+
+a link to L<perlvar>, 
+
+L<htmlescp>, 
+
+L<htmlfeature/Another Head 1>, 
+
+and another L<htmlfeature/"Another Head 1">.
diff --git a/ext/Pod-Html/t/htmldir.t b/ext/Pod-Html/t/htmldir.t
new file mode 100644
index 0000000000..6b154d793c
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir.t
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 2;
+
+use File::Spec;
+use Cwd;
+
+# XXX Is there a better way to do this? I need a relative url to cwd because of
+# --podpath and --podroot
+# Remove root dir from path
+my $cwd = substr(Cwd::cwd(), length(File::Spec->rootdir()));
+
+my $data_pos = tell DATA; # to read <DATA> twice
+
+convert_n_test("htmldir", "test --htmldir and --htmlroot 1a", 
+ "--podpath=$cwd/t:usr/share/perl",
+ "--podroot=/",
+# "--podpath=t",
+# "--htmlroot=/test/dir",
+ "--htmldir=t",
+);
+
+seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same)
+
+convert_n_test("htmldir", "test --htmldir and --htmlroot 1b", 
+ "--podpath=$cwd:usr/share/perl",
+ "--podroot=/",
+ "--htmldir=$cwd/t",
+ "--htmlroot=/",
+);
+
+__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>htmldir - Test --htmldir feature</title>
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body style="background-color: white">
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+
+<ul>
+
+	<li><a href="#name">NAME</a></li>
+	<li><a href="#links">LINKS</a></li>
+</ul>
+
+<hr name="index" />
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="name">NAME</a></h1>
+<p>htmldir - Test --htmldir feature</p>
+<p>
+</p>
+<hr />
+<h1><a name="links">LINKS</a></h1>
+<p>Normal text, a <em>link</em> to nowhere,</p>
+<p>a link to <a href="/usr/share/perl/5.10.1/pod/perlvar.html">the perlvar manpage</a>,</p>
+<p><a href="[CURRENTWORKINGDIRECTORY]/t/htmlescp.html">the htmlescp manpage</a>,</p>
+<p><a href="[CURRENTWORKINGDIRECTORY]/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>,</p>
+<p>and another <a href="[CURRENTWORKINGDIRECTORY]/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>.</p>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmldir2.pod b/ext/Pod-Html/t/htmldir2.pod
new file mode 100644
index 0000000000..7b9be919ce
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir2.pod
@@ -0,0 +1,15 @@
+=head1 NAME
+
+htmldir - Test --htmldir feature
+
+=head1 LINKS
+
+Normal text, a L<link> to nowhere, 
+
+a link to L<perlvar>, 
+
+L<htmlescp>, 
+
+L<htmlfeature/Another Head 1>, 
+
+and another L<htmlfeature/"Another Head 1">.
diff --git a/ext/Pod-Html/t/htmldir2.t b/ext/Pod-Html/t/htmldir2.t
new file mode 100644
index 0000000000..e5d9c5c34c
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir2.t
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 2;
+
+my $data_pos = tell DATA; # to read <DATA> twice
+
+convert_n_test("htmldir2", "test --htmldir and --htmlroot 2a", 
+ "--podpath=t",
+ "--htmldir=t",
+);
+
+seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same)
+
+convert_n_test("htmldir2", "test --htmldir and --htmlroot 2b", 
+ "--podpath=t",
+# "--htmldir=t",
+);
+
+__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>htmldir - Test --htmldir feature</title>
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body style="background-color: white">
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+
+<ul>
+
+	<li><a href="#name">NAME</a></li>
+	<li><a href="#links">LINKS</a></li>
+</ul>
+
+<hr name="index" />
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="name">NAME</a></h1>
+<p>htmldir - Test --htmldir feature</p>
+<p>
+</p>
+<hr />
+<h1><a name="links">LINKS</a></h1>
+<p>Normal text, a <em>link</em> to nowhere,</p>
+<p>a link to <em>perlvar</em>,</p>
+<p><a href="/t/htmlescp.html">the htmlescp manpage</a>,</p>
+<p><a href="/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>,</p>
+<p>and another <a href="/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>.</p>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmldir3.pod b/ext/Pod-Html/t/htmldir3.pod
new file mode 100644
index 0000000000..7b9be919ce
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir3.pod
@@ -0,0 +1,15 @@
+=head1 NAME
+
+htmldir - Test --htmldir feature
+
+=head1 LINKS
+
+Normal text, a L<link> to nowhere, 
+
+a link to L<perlvar>, 
+
+L<htmlescp>, 
+
+L<htmlfeature/Another Head 1>, 
+
+and another L<htmlfeature/"Another Head 1">.
diff --git a/ext/Pod-Html/t/htmldir3.t b/ext/Pod-Html/t/htmldir3.t
new file mode 100644
index 0000000000..d0ece0f8bd
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir3.t
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 2;
+
+use File::Spec;
+use Cwd;
+
+# XXX Is there a better way to do this? I need a relative url to cwd because of
+# --podpath and --podroot
+# Remove root dir from path
+my $cwd = substr(Cwd::cwd(), length(File::Spec->rootdir()));
+
+my $data_pos = tell DATA; # to read <DATA> twice
+
+convert_n_test("htmldir3", "test --htmldir and --htmlroot 3a", 
+ "--podpath=$cwd",
+ "--podroot=/",
+ "--htmldir=/$cwd/t/", # test removal trailing slash
+);
+
+seek DATA, $data_pos, 0; # to read <DATA> twice (expected output is the same)
+
+convert_n_test("htmldir3", "test --htmldir and --htmlroot 3b", 
+ "--podpath=$cwd/t",
+ "--podroot=/",
+ "--htmldir=t",
+ "--outfile=t/htmldir4.html",
+);
+
+__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>htmldir - Test --htmldir feature</title>
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body style="background-color: white">
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+
+<ul>
+
+	<li><a href="#name">NAME</a></li>
+	<li><a href="#links">LINKS</a></li>
+</ul>
+
+<hr name="index" />
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="name">NAME</a></h1>
+<p>htmldir - Test --htmldir feature</p>
+<p>
+</p>
+<hr />
+<h1><a name="links">LINKS</a></h1>
+<p>Normal text, a <em>link</em> to nowhere,</p>
+<p>a link to <em>perlvar</em>,</p>
+<p><a href="[RELCURRENTWORKINGDIRECTORY]/t/htmlescp.html">the htmlescp manpage</a>,</p>
+<p><a href="[RELCURRENTWORKINGDIRECTORY]/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>,</p>
+<p>and another <a href="[RELCURRENTWORKINGDIRECTORY]/t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>.</p>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmldir4.pod b/ext/Pod-Html/t/htmldir4.pod
new file mode 100644
index 0000000000..7b9be919ce
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir4.pod
@@ -0,0 +1,15 @@
+=head1 NAME
+
+htmldir - Test --htmldir feature
+
+=head1 LINKS
+
+Normal text, a L<link> to nowhere, 
+
+a link to L<perlvar>, 
+
+L<htmlescp>, 
+
+L<htmlfeature/Another Head 1>, 
+
+and another L<htmlfeature/"Another Head 1">.
diff --git a/ext/Pod-Html/t/htmldir4.t b/ext/Pod-Html/t/htmldir4.t
new file mode 100644
index 0000000000..b16999cae2
--- /dev/null
+++ b/ext/Pod-Html/t/htmldir4.t
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 1;
+
+use File::Spec;
+use Cwd;
+
+# XXX Is there a better way to do this? I need a relative url to cwd because of
+# --podpath and --podroot
+# Remove root dir from path
+my $cwd = substr(Cwd::cwd(), length(File::Spec->rootdir()));
+
+convert_n_test("htmldir4", "test --htmldir and --htmlroot 4", 
+ "--podpath=t",
+ "--htmldir=t",
+ "--outfile=t/htmldir4.html",
+);
+
+__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>htmldir - Test --htmldir feature</title>
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body style="background-color: white">
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+
+<ul>
+
+	<li><a href="#name">NAME</a></li>
+	<li><a href="#links">LINKS</a></li>
+</ul>
+
+<hr name="index" />
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="name">NAME</a></h1>
+<p>htmldir - Test --htmldir feature</p>
+<p>
+</p>
+<hr />
+<h1><a name="links">LINKS</a></h1>
+<p>Normal text, a <em>link</em> to nowhere,</p>
+<p>a link to <em>perlvar</em>,</p>
+<p><a href="t/htmlescp.html">the htmlescp manpage</a>,</p>
+<p><a href="t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>,</p>
+<p>and another <a href="t/htmlfeature.html#another_head_1">Another Head 1 in the htmlfeature manpage</a>.</p>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmlfeature.pod b/ext/Pod-Html/t/htmlfeature.pod
new file mode 100644
index 0000000000..8ca0ca2956
--- /dev/null
+++ b/ext/Pod-Html/t/htmlfeature.pod
@@ -0,0 +1,21 @@
+=head1 Head 1
+
+A paragraph
+
+=for html some html
+
+=begin image
+
+|--|
+|  |
+|--|
+
+=end image
+
+Another paragraph
+
+=head1 Another Head 1
+
+some text and a link L<htmlcrossref>
+
+=cut
diff --git a/ext/Pod-Html/t/htmlfeature.t b/ext/Pod-Html/t/htmlfeature.t
new file mode 100644
index 0000000000..7425477a4a
--- /dev/null
+++ b/ext/Pod-Html/t/htmlfeature.t
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+require Cwd;
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 1;
+
+my $cwd = Cwd::cwd();
+
+convert_n_test("htmlfeature", "misc pod-html features", 
+ "--backlink", # doesn't appear b/c of --noindex
+ "--css=style.css",
+ "--header", # no styling b/c of --ccs
+ "--htmldir=$cwd/t",
+ "--noindex",
+ "--podpath=t",
+ "--podroot=$cwd",
+ "--title=a title",
+ 
+ );
+
+__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>a title</title>
+<link rel="stylesheet" href="style.css" type="text/css" />
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body>
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="block" valign="middle">
+<big><strong><span class="block">&nbsp;a title</span></strong></big>
+</td></tr>
+</table>
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+<!--
+
+<ul>
+
+	<li><a href="#head_1">Head 1</a></li>
+	<li><a href="#another_head_1">Another Head 1</a></li>
+</ul>
+
+-->
+
+
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="head_1">Head 1</a></h1>
+<p>A paragraph</p>
+some html<p>Another paragraph</p>
+<p>
+</p>
+<hr />
+<h1><a name="another_head_1">Another Head 1</a></h1>
+<p>some text and a link <a href="t/htmlcrossref.html">the htmlcrossref manpage</a></p>
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="block" valign="middle">
+<big><strong><span class="block">&nbsp;a title</span></strong></big>
+</td></tr>
+</table>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/htmlfeature2.pod b/ext/Pod-Html/t/htmlfeature2.pod
new file mode 100644
index 0000000000..8ca0ca2956
--- /dev/null
+++ b/ext/Pod-Html/t/htmlfeature2.pod
@@ -0,0 +1,21 @@
+=head1 Head 1
+
+A paragraph
+
+=for html some html
+
+=begin image
+
+|--|
+|  |
+|--|
+
+=end image
+
+Another paragraph
+
+=head1 Another Head 1
+
+some text and a link L<htmlcrossref>
+
+=cut
diff --git a/ext/Pod-Html/t/htmlfeature2.t b/ext/Pod-Html/t/htmlfeature2.t
new file mode 100644
index 0000000000..925423e38c
--- /dev/null
+++ b/ext/Pod-Html/t/htmlfeature2.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w                                         # -*- perl -*-
+require Cwd;
+
+BEGIN {
+    require "t/pod2html-lib.pl";
+}
+
+use strict;
+use Test::More tests => 1;
+
+my $cwd = Cwd::cwd();
+
+convert_n_test("htmlfeature2", "misc pod-html features 2", 
+ "--backlink",
+ "--header",
+ "--podpath=$cwd",
+ "--podroot=$cwd",
+ "--norecurse",
+ );
+
+__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>Head 1</title>
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:[PERLADMIN]" />
+</head>
+
+<body style="background-color: white">
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="block" style="background-color: #cccccc" valign="middle">
+<big><strong><span class="block">&nbsp;Head 1</span></strong></big>
+</td></tr>
+</table>
+
+
+<!-- INDEX BEGIN -->
+<div name="index">
+<p><a name="__index__"></a></p>
+
+<ul>
+
+	<li><a href="#head_1">Head 1</a></li>
+	<li><a href="#another_head_1">Another Head 1</a></li>
+</ul>
+
+<hr name="index" />
+</div>
+<!-- INDEX END -->
+
+<p>
+</p>
+<h1><a name="head_1">Head 1</a></h1>
+<p>A paragraph</p>
+some html<p>Another paragraph</p>
+<p>
+<a href="#__index__"><small>'back link'</small></a>
+</p>
+<hr />
+<h1><a name="another_head_1">Another Head 1</a></h1>
+<p>some text and a link <em>htmlcrossref</em></p>
+<p><a href="#__index__"><small>'back link'</small></a></p>
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="block" style="background-color: #cccccc" valign="middle">
+<big><strong><span class="block">&nbsp;Head 1</span></strong></big>
+</td></tr>
+</table>
+
+</body>
+
+</html>
diff --git a/ext/Pod-Html/t/pod2html-lib.pl b/ext/Pod-Html/t/pod2html-lib.pl
index fbdf4aeb0a..5b49700865 100644
--- a/ext/Pod-Html/t/pod2html-lib.pl
+++ b/ext/Pod-Html/t/pod2html-lib.pl
@@ -2,23 +2,29 @@ require Cwd;
 require Pod::Html;
 require Config;
 use File::Spec::Functions;
+use 5.14.0;
 
 sub convert_n_test {
     my($podfile, $testname, @p2h_args) = @_;
 
     my $cwd = Cwd::cwd();
+    # XXX Is there a better way to do this? I need a relative url to cwd because of
+	# --podpath and --podroot
+	# Remove root dir from path
+	my $rel_cwd = substr($cwd, length(File::Spec->rootdir()));
+	
     my $new_dir  = catdir $cwd, "t";
     my $infile   = catfile $new_dir, "$podfile.pod";
     my $outfile  = catfile $new_dir, "$podfile.html";
     
-    # If other args to p2h are needed,use @p2h_args
-    @p2h_args = ("--podpath=t", "--htmlroot=/") unless @p2h_args;
-
+    # To add/modify args to p2h, use @p2h_args
     Pod::Html::pod2html(
-        @p2h_args,
-        "--podroot=$cwd",
         "--infile=$infile",
-        "--outfile=$outfile"
+        "--outfile=$outfile",
+        "--podpath=t",
+        "--htmlroot=/",
+        "--podroot=$cwd",
+        @p2h_args,
     );
 
 
@@ -28,6 +34,8 @@ sub convert_n_test {
 	# expected
 	$expect = <DATA>;
 	$expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
+	$expect =~ s/\[CURRENTWORKINGDIRECTORY\]/$cwd/g;
+	$expect =~ s/\[RELCURRENTWORKINGDIRECTORY\]/$rel_cwd/g;
 	if (ord("A") == 193) { # EBCDIC.
 	    $expect =~ s/item_mat_3c_21_3e/item_mat_4c_5a_6e/;
 	}
author	Marc Green <marcgreen@cpan.org>	2011-06-19 16:24:40 -0400
committer	Marc Green <marcgreen@cpan.org>	2011-10-31 13:26:40 -0400
commit	fbf24e084f7e43d3caa066f3520b4c32ebbb2e3a (patch)
tree	5f127bed8959c61307051a244956849cee8f58f2 /ext
parent	1be43d30851563082d5dc74b187ae83927bf4bea (diff)
download	perl-fbf24e084f7e43d3caa066f3520b4c32ebbb2e3a.tar.gz