diff options
author | Stas Bekman <stas@stason.org> | 2002-03-22 09:28:03 +0800 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-21 17:36:06 +0000 |
commit | d8022526a1bef8ae4dc11ee77c7986f6f9a3bce4 (patch) | |
tree | 4364f80353ca31205b315488946a76d4d7666aec /lib | |
parent | 7ddb28a3f19d8cce47422d3e3553bf3197f83187 (diff) | |
download | perl-d8022526a1bef8ae4dc11ee77c7986f6f9a3bce4.tar.gz |
Re: [tests for Pod::Html]
Message-ID: <Pine.LNX.4.44.0203220126250.29991-100000@hope.stason.org>
p4raw-id: //depot/perl@15393
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Pod/t/htmlview.pod | 144 | ||||
-rw-r--r-- | lib/Pod/t/htmlview.t | 176 | ||||
-rw-r--r-- | lib/Pod/t/pod2html-lib.pl | 11 |
3 files changed, 326 insertions, 5 deletions
diff --git a/lib/Pod/t/htmlview.pod b/lib/Pod/t/htmlview.pod new file mode 100644 index 0000000000..62ac71ced4 --- /dev/null +++ b/lib/Pod/t/htmlview.pod @@ -0,0 +1,144 @@ +=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 + +=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/lib/Pod/t/htmlview.t b/lib/Pod/t/htmlview.t new file mode 100644 index 0000000000..a36b58aee3 --- /dev/null +++ b/lib/Pod/t/htmlview.t @@ -0,0 +1,176 @@ +#!/usr/bin/perl -w # -*- perl -*- + +BEGIN { + chdir 't' if -d 't'; + unshift @INC, '../lib'; + unshift @INC, '../lib/Pod/t'; + require "pod2html-lib.pl"; +} + + +use strict; +use Test::More tests => 1; + +convert_n_test("htmlview", "html rendering"); + + +__DATA__ +<!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> +<link rev="made" href="mailto:[PERLADMIN]" /> +</head> + +<body style="background-color: white"> + +<p><a name="__index__"></a></p> +<!-- INDEX BEGIN --> + +<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> +<!-- INDEX END --> + +<hr /> +<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="item_foo">foo</a></strong><br /> +</dt> +<dd> +The foo item. +</dd> +<p></p> +<dt><strong><a name="item_bar">bar</a></strong><br /> +</dt> +<dd> +The bar item. +</dd> +<p>This is a list within a list</p> +<ul> +<li></li> +The wiz item. +<p></p> +<li></li> +The waz item. +<p></p></ul> +<dt><strong><a name="item_baz">baz</a></strong><br /> +</dt> +<dd> +The baz item. +</dd> +<p></p></dl> +<p>Title on the same line as the =item + * bullets</p> +<ul> +<li><strong><a name="item_black_cat"><code>Black</code> Cat</a></strong><br /> +</li> +<li><strong><a name="item_sat_on_the">Sat <em>on</em> the</a></strong><br /> +</li> +<li><strong><a name="item_mat%3c%21%3e">Mat<!></a></strong><br /> +</li> +</ul> +<p>Title on the same line as the =item + numerical bullets</p> +<ol> +<li><strong><a name="item_cat">Cat</a></strong><br /> +</li> +<li><strong><a name="item_sat">Sat</a></strong><br /> +</li> +<li><strong><a name="item_mat">Mat</a></strong><br /> +</li> +</ol> +<p>No bullets, no title</p> +<dl> +<dt></dt> +<dd> +Cat +</dd> +<p></p> +<dt></dt> +<dd> +Sat +</dd> +<p></p> +<dt></dt> +<dd> +Mat +</dd> +<p></p></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> +<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>/usr/local/my/module/rocks</em> +as well.</p> + +</body> + +</html> diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl index b44a3aac0a..de26389d56 100644 --- a/lib/Pod/t/pod2html-lib.pl +++ b/lib/Pod/t/pod2html-lib.pl @@ -7,13 +7,14 @@ sub convert_n_test { my($podfile, $testname) = @_; my $cwd = Cwd::cwd(); - my $new_dir = catdir $cwd, "..", "lib", "Pod", "t"; - my $infile = catfile $new_dir, "$podfile.pod"; - my $outfile = catfile $new_dir, "$podfile.html"; + my $base_dir = catdir $cwd, "..", "lib", "Pod"; + my $new_dir = catdir $base_dir, "t"; + my $infile = catfile $new_dir, "$podfile.pod"; + my $outfile = catfile $new_dir, "$podfile.html"; Pod::Html::pod2html( - "--podpath=pod2html", - "--podroot=$cwd", + "--podpath=t", + "--podroot=$base_dir", "--htmlroot=/", "--infile=$infile", "--outfile=$outfile" |