diff options
Diffstat (limited to 'ext/Pod-Html/t')
| -rw-r--r-- | ext/Pod-Html/t/htmlescp.pod | 16 | ||||
| -rw-r--r-- | ext/Pod-Html/t/htmlescp.t | 56 | ||||
| -rw-r--r-- | ext/Pod-Html/t/htmllink.pod | 109 | ||||
| -rw-r--r-- | ext/Pod-Html/t/htmllink.t | 127 | ||||
| -rw-r--r-- | ext/Pod-Html/t/htmlview.pod | 146 | ||||
| -rw-r--r-- | ext/Pod-Html/t/htmlview.t | 183 | ||||
| -rw-r--r-- | ext/Pod-Html/t/pod2html-lib.pl | 61 |
7 files changed, 698 insertions, 0 deletions
diff --git a/ext/Pod-Html/t/htmlescp.pod b/ext/Pod-Html/t/htmlescp.pod new file mode 100644 index 0000000000..c901314c76 --- /dev/null +++ b/ext/Pod-Html/t/htmlescp.pod @@ -0,0 +1,16 @@ +=head1 NAME + +Escape Sequences Test + +=head1 DESCRIPTION + +I am a stupid fool who puts naked < & > characters in my POD +instead of escaping them as E<lt> and E<gt>. + +Here is some B<bold> text, some I<italic> plus F</etc/fstab> +file and something that looks like an E<lt>htmlE<gt> tag. +This is some C<$code($arg1)>. + +Some numeric escapes: E<0120> E<0x65> E<x72> E<108> + +=cut diff --git a/ext/Pod-Html/t/htmlescp.t b/ext/Pod-Html/t/htmlescp.t new file mode 100644 index 0000000000..3314829dfd --- /dev/null +++ b/ext/Pod-Html/t/htmlescp.t @@ -0,0 +1,56 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + require "t/pod2html-lib.pl"; +} + +use strict; +use Test::More tests => 1; + +convert_n_test("htmlescp", "html escape"); + +__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>NAME</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="#description">DESCRIPTION</a></li> +</ul> + +<hr name="index" /> +</div> +<!-- INDEX END --> + +<p> +</p> +<h1><a name="name">NAME</a></h1> +<p>Escape Sequences Test</p> +<p> +</p> +<hr /> +<h1><a name="description">DESCRIPTION</a></h1> +<p>I am a stupid fool who puts naked < & > characters in my POD +instead of escaping them as < and >.</p> +<p>Here is some <strong>bold</strong> text, some <em>italic</em> plus <em class="file">/etc/fstab</em> +file and something that looks like an <html> tag. +This is some <code>$code($arg1)</code>.</p> +<p>Some numeric escapes: P e r l</p> + +</body> + +</html> diff --git a/ext/Pod-Html/t/htmllink.pod b/ext/Pod-Html/t/htmllink.pod new file mode 100644 index 0000000000..db2f98402b --- /dev/null +++ b/ext/Pod-Html/t/htmllink.pod @@ -0,0 +1,109 @@ +=head1 NAME + +htmllink - Test HTML links + +=head1 LINKS + +L</"section1"> + +L</"section 2"> + +L</"section three"> + +L</"item1"> + +L</"item 2"> + +L</"item three"> + +L</section1> + +L</section 2> + +L</section three> + +L</item1> + +L</item 2> + +L</item three> + +L<"section1"> + +L<"section 2"> + +L<"section three"> + +L<"item1"> + +L<"item 2"> + +L<"item three"> + +L<text|/"section1"> + +L<text|/"section 2"> + +L<text|/"section three"> + +L<text|/"item1"> + +L<text|/"item 2"> + +L<text|/"item three"> + +L<text|/section1> + +L<text|/section 2> + +L<text|/section three> + +L<text|/item1> + +L<text|/item 2> + +L<text|/item three> + +L<text|"section1"> + +L<text|"section 2"> + +L<text|"section three"> + +L<text|"item1"> + +L<text|"item 2"> + +L<text|"item three"> + +=head1 TARGETS + +=head2 section1 + +This is section one. + +=head2 section 2 + +This is section two. + +=head2 section three + +This is section three. + +=over 4 + +=item item1 X<item> X<one> + +This is item one. + +=item item 2 +X<item> X<two> + +This is item two. + +=item item three X<item> +X<three> + +This is item three. + +=back diff --git a/ext/Pod-Html/t/htmllink.t b/ext/Pod-Html/t/htmllink.t new file mode 100644 index 0000000000..592fef3262 --- /dev/null +++ b/ext/Pod-Html/t/htmllink.t @@ -0,0 +1,127 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + require "t/pod2html-lib.pl"; +} + +use strict; +use Test::More tests => 1; + +convert_n_test("htmllink", "html links"); + +__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>htmllink - Test HTML links</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> + <li><a href="#targets">TARGETS</a></li> + <ul> + + <li><a href="#section1">section1</a></li> + <li><a href="#section_2">section 2</a></li> + <li><a href="#section_three">section three</a></li> + </ul> + +</ul> + +<hr name="index" /> +</div> +<!-- INDEX END --> + +<p> +</p> +<h1><a name="name">NAME</a></h1> +<p>htmllink - Test HTML links</p> +<p> +</p> +<hr /> +<h1><a name="links">LINKS</a></h1> +<p><a href="#section1">section1</a></p> +<p><a href="#section_2">section 2</a></p> +<p><a href="#section_three">section three</a></p> +<p><a href="#item1">item1</a></p> +<p><a href="#item_2">item 2</a></p> +<p><a href="#item_three">item three</a></p> +<p><a href="#section1">section1</a></p> +<p><a href="#section_2">section 2</a></p> +<p><a href="#section_three">section three</a></p> +<p><a href="#item1">item1</a></p> +<p><a href="#item_2">item 2</a></p> +<p><a href="#item_three">item three</a></p> +<p><a href="#section1">section1</a></p> +<p><a href="#section_2">section 2</a></p> +<p><a href="#section_three">section three</a></p> +<p><a href="#item1">item1</a></p> +<p><a href="#item_2">item 2</a></p> +<p><a href="#item_three">item three</a></p> +<p><a href="#section1">text</a></p> +<p><a href="#section_2">text</a></p> +<p><a href="#section_three">text</a></p> +<p><a href="#item1">text</a></p> +<p><a href="#item_2">text</a></p> +<p><a href="#item_three">text</a></p> +<p><a href="#section1">text</a></p> +<p><a href="#section_2">text</a></p> +<p><a href="#section_three">text</a></p> +<p><a href="#item1">text</a></p> +<p><a href="#item_2">text</a></p> +<p><a href="#item_three">text</a></p> +<p><a href="#section1">text</a></p> +<p><a href="#section_2">text</a></p> +<p><a href="#section_three">text</a></p> +<p><a href="#item1">text</a></p> +<p><a href="#item_2">text</a></p> +<p><a href="#item_three">text</a></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> +<p> +</p> +<h2><a name="section_2">section 2</a></h2> +<p>This is section two.</p> +<p> +</p> +<h2><a name="section_three">section three</a></h2> +<p>This is section three.</p> +<dl> +<dt><strong><a name="item1" class="item">item1</a></strong></dt> + +<dd> +<p>This is item one.</p> +</dd> +<dt><strong><a name="item_2" class="item">item 2</a></strong></dt> + +<dd> +<p>This is item two.</p> +</dd> +<dt><strong><a name="item_three" class="item">item three</a></strong></dt> + +<dd> +<p>This is item three.</p> +</dd> +</dl> + +</body> + +</html> diff --git a/ext/Pod-Html/t/htmlview.pod b/ext/Pod-Html/t/htmlview.pod new file mode 100644 index 0000000000..2ac15d36fe --- /dev/null +++ b/ext/Pod-Html/t/htmlview.pod @@ -0,0 +1,146 @@ +=head1 NAME + +Test HTML Rendering + +=head1 SYNOPSIS + + use My::Module; + + my $module = My::Module->new(); + +=head1 DESCRIPTION + +This is the description. + + Here is a verbatim section. + +This is some more regular text. + +Here is some B<bold> text, some I<italic> and something that looks +like an E<lt>htmlE<gt> tag. This is some C<$code($arg1)>. + +This C<text contains embedded B<bold> and I<italic> tags>. These can +be nested, allowing B<bold and I<bold E<amp> italic> text>. The module also +supports the extended B<< syntax >> and permits I<< nested tags E<amp> +other B<<< cool >>> stuff >> + +=head1 METHODS =E<gt> OTHER STUFF + +Here is a list of methods + +=head2 new() + +Constructor method. Accepts the following config options: + +=over 4 + +=item foo + +The foo item. + +=item bar + +The bar item. + +=over 4 + +This is a list within a list + +=item * + +The wiz item. + +=item * + +The waz item. + +=back + +=item baz + +The baz item. + +=back + +Title on the same line as the =item + * bullets + +=over + +=item * C<Black> Cat + +=item * Sat S<I<on> the> + +=item * MatE<lt>!E<gt> + +=back + +Title on the same line as the =item + numerical bullets + +=over + +=item 1 Cat + +=item 2 Sat + +=item 3 Mat + +=back + +No bullets, no title + +=over + +=item + +Cat + +=item + +Sat + +=item + +Mat + +=back + +=head2 old() + +Destructor method + +=head1 TESTING FOR AND BEGIN + +=for html <br /> +<p> +blah blah +</p> + +intermediate text + +=begin html + +<more> +HTML +</more> + +some text + +=end html + +=head1 TESTING URLs hyperlinking + +This is an href link1: http://example.com + +This is an href link2: http://example.com/foo/bar.html + +This is an email link: mailto:foo@bar.com + + This is a link in a verbatim block <a href="http://perl.org"> Perl </a> + +=head1 SEE ALSO + +See also L<Test Page 2|htmlescp>, the L<Your::Module> and L<Their::Module> +manpages and the other interesting file F</usr/local/my/module/rocks> +as well. + +=cut diff --git a/ext/Pod-Html/t/htmlview.t b/ext/Pod-Html/t/htmlview.t new file mode 100644 index 0000000000..dc15c6b194 --- /dev/null +++ b/ext/Pod-Html/t/htmlview.t @@ -0,0 +1,183 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + require "t/pod2html-lib.pl"; +} + +use strict; +use Test::More tests => 1; + +convert_n_test("htmlview", "html rendering"); + +__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>NAME</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="#synopsis">SYNOPSIS</a></li> + <li><a href="#description">DESCRIPTION</a></li> + <li><a href="#methods____other_stuff">METHODS => OTHER STUFF</a></li> + <ul> + + <li><a href="#new__"><code>new()</code></a></li> + <li><a href="#old__"><code>old()</code></a></li> + </ul> + + <li><a href="#testing_for_and_begin">TESTING FOR AND BEGIN</a></li> + <li><a href="#testing_urls_hyperlinking">TESTING URLs hyperlinking</a></li> + <li><a href="#see_also">SEE ALSO</a></li> +</ul> + +<hr name="index" /> +</div> +<!-- INDEX END --> + +<p> +</p> +<h1><a name="name">NAME</a></h1> +<p>Test HTML Rendering</p> +<p> +</p> +<hr /> +<h1><a name="synopsis">SYNOPSIS</a></h1> +<pre> + use My::Module;</pre> +<pre> + my $module = My::Module->new();</pre> +<p> +</p> +<hr /> +<h1><a name="description">DESCRIPTION</a></h1> +<p>This is the description.</p> +<pre> + Here is a verbatim section.</pre> +<p>This is some more regular text.</p> +<p>Here is some <strong>bold</strong> text, some <em>italic</em> and something that looks +like an <html> tag. This is some <code>$code($arg1)</code>.</p> +<p>This <code>text contains embedded bold and italic tags</code>. These can +be nested, allowing <strong>bold and <em>bold & italic</em> text</strong>. The module also +supports the extended <strong>syntax </strong>> and permits <em>nested tags & +other <strong>cool </strong></em>> stuff >></p> +<p> +</p> +<hr /> +<h1><a name="methods____other_stuff">METHODS => OTHER STUFF</a></h1> +<p>Here is a list of methods</p> +<p> +</p> +<h2><a name="new__"><code>new()</code></a></h2> +<p>Constructor method. Accepts the following config options:</p> +<dl> +<dt><strong><a name="foo" class="item">foo</a></strong></dt> + +<dd> +<p>The foo item.</p> +</dd> +<dt><strong><a name="bar" class="item">bar</a></strong></dt> + +<dd> +<p>The bar item.</p> +<p>This is a list within a list</p> +<ul> +<li> +<p>The wiz item.</p> +</li> +<li> +<p>The waz item.</p> +</li> +</ul> +</dd> +<dt><strong><a name="baz" class="item">baz</a></strong></dt> + +<dd> +<p>The baz item.</p> +</dd> +</dl> +<p>Title on the same line as the =item + * bullets</p> +<ul> +<li><strong><a name="black_cat" class="item"><code>Black</code> Cat</a></strong> + +</li> +<li><strong><a name="sat_on_the" class="item">Sat <em>on</em> the</a></strong> + +</li> +<li><strong><a name="mat" class="item">Mat<!></a></strong> + +</li> +</ul> +<p>Title on the same line as the =item + numerical bullets</p> +<ol> +<li><strong><a name="cat" class="item">Cat</a></strong> + +</li> +<li><strong><a name="sat" class="item">Sat</a></strong> + +</li> +<li><strong><a name="mat2" class="item">Mat</a></strong> + +</li> +</ol> +<p>No bullets, no title</p> +<dl> +<dt> +<dd> +<p>Cat</p> +</dd> +<dt> +<dd> +<p>Sat</p> +</dd> +<dt> +<dd> +<p>Mat</p> +</dd> +</dl> +<p> +</p> +<h2><a name="old__"><code>old()</code></a></h2> +<p>Destructor method</p> +<p> +</p> +<hr /> +<h1><a name="testing_for_and_begin">TESTING FOR AND BEGIN</a></h1> +<br /> +<p> +blah blah +</p><p>intermediate text</p> +<more> +HTML +</more>some text<p> +</p> +<hr /> +<h1><a name="testing_urls_hyperlinking">TESTING URLs hyperlinking</a></h1> +<p>This is an href link1: <a href="http://example.com">http://example.com</a></p> +<p>This is an href link2: <a href="http://example.com/foo/bar.html">http://example.com/foo/bar.html</a></p> +<p>This is an email link: <a href="mailto:mailto:foo@bar.com">mailto:foo@bar.com</a></p> +<pre> + This is a link in a verbatim block <a href="<a href="http://perl.org">http://perl.org</a>"> Perl </a></pre> +<p> +</p> +<hr /> +<h1><a name="see_also">SEE ALSO</a></h1> +<p>See also <a href="/t/htmlescp.html">Test Page 2</a>, the <a href="/Your/Module.html">the Your::Module manpage</a> and <a href="/Their/Module.html">the Their::Module manpage</a> +manpages and the other interesting file <em class="file">/usr/local/my/module/rocks</em> +as well.</p> + +</body> + +</html> diff --git a/ext/Pod-Html/t/pod2html-lib.pl b/ext/Pod-Html/t/pod2html-lib.pl new file mode 100644 index 0000000000..2259d4528e --- /dev/null +++ b/ext/Pod-Html/t/pod2html-lib.pl @@ -0,0 +1,61 @@ +require Cwd; +require Pod::Html; +require Config; +use File::Spec::Functions; + +sub convert_n_test { + my($podfile, $testname) = @_; + + my $cwd = Cwd::cwd(); + my $new_dir = catdir $cwd, "t"; + my $infile = catfile $new_dir, "$podfile.pod"; + my $outfile = catfile $new_dir, "$podfile.html"; + + Pod::Html::pod2html( + "--podpath=t", + "--podroot=$cwd", + "--htmlroot=/", + "--infile=$infile", + "--outfile=$outfile" + ); + + + my ($expect, $result); + { + local $/; + # expected + $expect = <DATA>; + $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/; + if (ord("A") == 193) { # EBCDIC. + $expect =~ s/item_mat_3c_21_3e/item_mat_4c_5a_6e/; + } + + # result + open my $in, $outfile or die "cannot open $outfile: $!"; + $result = <$in>; + close $in; + } + + ok($expect eq $result, $testname) or do { + my $diff = '/bin/diff'; + -x $diff or $diff = '/usr/bin/diff'; + if (-x $diff) { + my $expectfile = "pod2html-lib.tmp"; + open my $tmpfile, ">", $expectfile or die $!; + print $tmpfile $expect; + close $tmpfile; + my $diffopt = $^O eq 'linux' ? 'u' : 'c'; + open my $diff, "diff -$diffopt $expectfile $outfile |" or die $!; + print "# $_" while <$diff>; + close $diff; + unlink $expectfile; + } + }; + + # pod2html creates these + 1 while unlink $outfile; + 1 while unlink "pod2htmd.tmp"; + 1 while unlink "pod2htmi.tmp"; +} + +1; |