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

#!/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 id="LINKS">LINKS</h1>

<p><a href="#section1">&quot;section1&quot;</a></p>

<p><a href="[CURRENTWORKINGDIRECTORY]/t/htmllink.html#section-2">&quot;section 2&quot; in htmllink</a></p>

<p><a href="#item1">&quot;item1&quot;</a></p>

<p><a href="#non-existant-section">&quot;non existant section&quot;</a></p>

<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html">perlvar</a></p>

<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html#pod-">&quot;$&quot;&quot; in perlvar</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:">&quot;First:&quot; in perlpodspec</a></p>

<p><code>perlpodspec/First:</code></p>

<p><a>notperldoc</a></p>

<h1 id="TARGETS">TARGETS</h1>

<h2 id="section1">section1</h2>

<p>This is section one.</p>

<dl>
<dt id="item1">item1</dt>

<dd>

<p>This is item one.</p>

</dd>
</dl>


</body>

</html>
Commit	Line	Data
fbf24e08 MG	1	#!/usr/bin/perl -w # -- perl --
	2
	3	BEGIN {
	4	require "t/pod2html-lib.pl";
	5	}
	6
	7	use strict;
	8	use Test::More tests => 1;
	9
	10	use File::Spec;
	11	use Cwd;
	12
	13	# XXX Is there a better way to do this? I need a relative url to cwd because of
	14	# --podpath and --podroot
	15	# Remove root dir from path
	16	my $cwd = substr(Cwd::cwd(), length(File::Spec->rootdir()));
	17
	18	convert_n_test("htmlcrossref", "html cross references",
	19	"--podpath=$cwd/t:usr/share/perl",
	20	"--podroot=/",
	21	);
	22
	23	__DATA__
	24	<?xml version="1.0" ?>
	25	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	26	<html xmlns="http://www.w3.org/1999/xhtml">
	27	<head>
	28	<title></title>
	29	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
	30	<link rev="made" href="mailto:[PERLADMIN]" />
	31	</head>
	32
	33	<body style="background-color: white">
	34
	35
	36
	37	<ul id="index">
	38	<li><a href="#NAME">NAME</a></li>
	39	<li><a href="#LINKS">LINKS</a></li>
	40	<li><a href="#TARGETS">TARGETS</a>
	41	<ul>
	42	<li><a href="#section1">section1</a></li>
	43	</ul>
	44	</li>
	45	</ul>
	46
	47	<h1 id="NAME">NAME</h1>
	48
	49	<p>htmlcrossref - Test HTML cross reference links</p>
050f5da9 MG	50
	51	<h1 id="LINKS">LINKS</h1>
	52
	53	<p><a href="#section1">"section1"</a></p>
	54
	55	<p><a href="[CURRENTWORKINGDIRECTORY]/t/htmllink.html#section-2">"section 2" in htmllink</a></p>
	56
	57	<p><a href="#item1">"item1"</a></p>
	58
	59	<p><a href="#non-existant-section">"non existant section"</a></p>
	60
	61	<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html">perlvar</a></p>
	62
	63	<p><a href="/usr/share/perl/5.10.1/pod/perlvar.html#pod-">"$"" in perlvar</a></p>
	64
fbf24e08	65	<p><code>perlvar</code></p>
050f5da9	66
fbf24e08	67	<p><code>perlvar/$"</code></p>
050f5da9 MG	68
	69	<p><a href="/usr/share/perl/5.10.1/pod/perlpodspec.html#First:">"First:" in perlpodspec</a></p>
	70
fbf24e08	71	<p><code>perlpodspec/First:</code></p>
050f5da9 MG	72
	73	<p><a>notperldoc</a></p>
	74
	75	<h1 id="TARGETS">TARGETS</h1>
	76
	77	<h2 id="section1">section1</h2>
	78
fbf24e08	79	<p>This is section one.</p>
050f5da9	80
fbf24e08	81	<dl>
050f5da9	82	<dt id="item1">item1</dt>
fbf24e08 MG	83
fbf24e08 MG	84	<dd>
050f5da9	85
fbf24e08	86	<p>This is item one.</p>
050f5da9	87
fbf24e08 MG	88	</dd>
	89	</dl>
	90
050f5da9	91
fbf24e08 MG	92	</body>
	93
	94	</html>
050f5da9 MG	95
050f5da9 MG	96