Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
corpus	[ DIR ]	drwxr-xr-x	2016-10-10 18:23
corpus2	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib1	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib2	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testlib3	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00about.t	3.11 KB	-r--r--r--	2014-12-27 11:48
20_skip.t	308 B	-r--r--r--	2014-12-27 11:48
ac_d.t	3.33 KB	-r--r--r--	2014-12-27 11:48
accept01.t	2.67 KB	-r--r--r--	2014-12-27 11:48
accept05.t	4.71 KB	-r--r--r--	2014-12-27 11:48
basic.t	2.38 KB	-r--r--r--	2014-12-27 11:48
begin.t	22.22 KB	-r--r--r--	2014-12-27 11:48
cbacks.t	2.27 KB	-r--r--r--	2014-12-27 11:48
chunking.t	1.17 KB	-r--r--r--	2014-12-27 11:48
closeys.t	698 B	-r--r--r--	2014-12-27 11:48
corpus.t	3.99 KB	-r--r--r--	2014-12-27 11:48
emptylists.t	1.45 KB	-r--r--r--	2014-12-27 11:48
enc-chars.t	1.16 KB	-r--r--r--	2014-12-27 11:48
encod01.t	1.65 KB	-r--r--r--	2014-12-27 11:48
encod02.t	1.25 KB	-r--r--r--	2014-12-27 11:48
encod03.t	1.22 KB	-r--r--r--	2014-12-27 11:48
encod04.t	3.18 KB	-r--r--r--	2014-12-27 11:48
end_over.t	1.24 KB	-r--r--r--	2014-12-27 11:48
eol.t	2.18 KB	-r--r--r--	2014-12-27 11:48
eol2.t	2.09 KB	-r--r--r--	2014-12-27 11:48
fake-closers.t	1.45 KB	-r--r--r--	2014-12-27 11:48
fcodes.t	4.24 KB	-r--r--r--	2014-12-27 11:48
fcodes_e.t	2.62 KB	-r--r--r--	2014-12-27 11:48
fcodes_l.t	26.34 KB	-r--r--r--	2014-12-27 11:48
fcodes_s.t	12.08 KB	-r--r--r--	2014-12-27 11:48
for.t	5.04 KB	-r--r--r--	2014-12-27 11:48
fornot.t	5.28 KB	-r--r--r--	2014-12-27 11:48
heads.t	2.58 KB	-r--r--r--	2014-12-27 11:48
html01.t	2.06 KB	-r--r--r--	2014-12-27 11:48
html02.t	806 B	-r--r--r--	2014-12-27 11:48
html03.t	714 B	-r--r--r--	2014-12-27 11:48
htmlbat.t	2.61 KB	-r--r--r--	2014-12-27 11:48
items.t	8.46 KB	-r--r--r--	2014-12-27 11:48
items02.t	1.31 KB	-r--r--r--	2014-12-27 11:48
itemstar.t	1.67 KB	-r--r--r--	2014-12-27 11:48
junk1.pod	52 B	-r--r--r--	2014-12-27 11:48
junk1o.txt	318 B	-r--r--r--	2014-12-27 11:48
junk2.pod	46 B	-r--r--r--	2014-12-27 11:48
junk2o.txt	251 B	-r--r--r--	2014-12-27 11:48
linkclas.t	1.46 KB	-r--r--r--	2014-12-27 11:48
output.t	1.08 KB	-r--r--r--	2014-12-27 11:48
perlcyg.pod	19.93 KB	-r--r--r--	2014-12-27 11:48
perlcygo.txt	18.63 KB	-r--r--r--	2014-12-27 11:48
perlfaq.pod	30.59 KB	-r--r--r--	2014-12-27 11:48
perlfaqo.txt	29.9 KB	-r--r--r--	2014-12-27 11:48
perlvar.pod	40.57 KB	-r--r--r--	2014-12-27 11:48
perlvaro.txt	38.14 KB	-r--r--r--	2014-12-27 11:48
puller.t	7.92 KB	-r--r--r--	2014-12-27 11:48
pulltitl.t	10.9 KB	-r--r--r--	2014-12-27 11:48
reinit.t	1.87 KB	-r--r--r--	2014-12-27 11:48
render.t	3.5 KB	-r--r--r--	2014-12-27 11:48
search05.t	965 B	-r--r--r--	2014-12-27 11:48
search10.t	2.31 KB	-r--r--r--	2014-12-27 11:48
search12.t	2.22 KB	-r--r--r--	2014-12-27 11:48
search20.t	2.89 KB	-r--r--r--	2014-12-27 11:48
search22.t	3.21 KB	-r--r--r--	2014-12-27 11:48
search25.t	2.76 KB	-r--r--r--	2014-12-27 11:48
search26.t	2 KB	-r--r--r--	2014-12-27 11:48
search27.t	2.71 KB	-r--r--r--	2014-12-27 11:48
search28.t	1.79 KB	-r--r--r--	2014-12-27 11:48
search29.t	1.78 KB	-r--r--r--	2014-12-27 11:48
search50.t	2.62 KB	-r--r--r--	2014-12-27 11:48
stree.t	3.15 KB	-r--r--r--	2014-12-27 11:48
strpvbtm.t	4.22 KB	-r--r--r--	2014-12-27 11:48
tiedfh.t	1.22 KB	-r--r--r--	2014-12-27 11:48
verb_fmt.t	12.95 KB	-r--r--r--	2014-12-27 11:48
verbatim.t	7.65 KB	-r--r--r--	2014-12-27 11:48
whine.t	1.46 KB	-r--r--r--	2014-12-27 11:48
x_nixer.t	4.67 KB	-r--r--r--	2014-12-27 11:48
xhtml-bkb.t	421 B	-r--r--r--	2014-12-27 11:48
xhtml01.t	15.47 KB	-r--r--r--	2014-12-27 11:48
xhtml05.t	1.17 KB	-r--r--r--	2014-12-27 11:48
xhtml10.t	12.36 KB	-r--r--r--	2014-12-27 11:48
xhtml15.t	966 B	-r--r--r--	2014-12-27 11:48
xhtml20.t	1.18 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

# t/xhtml01.t - check basic output from Pod::Simple::XHTML

BEGIN {
    chdir 't' if -d 't';
}

use strict;
use lib '../lib';
use Test::More tests => 61;
#use Test::More 'no_plan';

use_ok('Pod::Simple::XHTML') or exit;

my $parser = Pod::Simple::XHTML->new ();
isa_ok ($parser, 'Pod::Simple::XHTML');

my $results;

my $PERLDOC = "http://search.cpan.org/perldoc";
my $MANURL = "http://man.he.net/man";

initialize($parser, $results);
$parser->parse_string_document( "=head1 Poit!" );
is($results, qq{<h1 id="Poit">Poit!</h1>\n\n}, "head1 level output");

initialize($parser, $results);
$parser->parse_string_document( "=head2 Yada Yada Operator
X<...> X<... operator> X<yada yada operator>" );
is($results, qq{<h2 id="Yada-Yada-Operator">Yada Yada Operator </h2>\n\n}, "head ID with X<>");

initialize($parser, $results);
$parser->parse_string_document( "=head2 Platforms with no supporting programmers:");
is($results, qq{<h2 id="Platforms-with-no-supporting-programmers">Platforms with no supporting programmers:</h2>\n\n}, "head ID ending in colon");

initialize($parser, $results);
$parser->html_h_level(2);
$parser->parse_string_document( "=head1 Poit!" );
is($results, qq{<h2 id="Poit">Poit!</h2>\n\n}, "head1 level output h_level 2");

initialize($parser, $results);
$parser->parse_string_document( "=head2 I think so Brain." );
is($results, qq{<h2 id="I-think-so-Brain">I think so Brain.</h2>\n\n}, "head2 level output");

initialize($parser, $results);
$parser->parse_string_document( "=head3 I say, Brain..." );
is($results, qq{<h3 id="I-say-Brain">I say, Brain...</h3>\n\n}, "head3 level output");

initialize($parser, $results);
$parser->parse_string_document( "=head4 Zort & Zog!" );
is($results, qq{<h4 id="Zort-Zog">Zort &amp; Zog!</h4>\n\n}, "head4 level output");

sub x ($;&) {
  my $code = $_[1];
  Pod::Simple::XHTML->_out(
  sub { $code->($_[0]) if $code },
  "=pod\n\n$_[0]",
) }

like(
 x("=head1 Header\n\n=for html <div>RAW!</div>\n\nDone."),
 qr/.+<\/h1>\s+<div>RAW!<\/span><\/div>\s+.*/sm,
 "heading building"
) or exit;

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

Gee, Brain, what do you want to do tonight?
EOPOD

is($results, <<'EOHTML', "simple paragraph");
Gee, Brain, what do you want to do tonight?

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

B: Now, Pinky, if by any chance you are captured during this mission,
remember you are Gunther Heindriksen from Appenzell. You moved to
Grindelwald to drive the cog train to Murren. Can you repeat that?

P: Mmmm, no, Brain, dont think I can.
EOPOD

is($results, <<'EOHTML', "multiple paragraphs");
B: Now, Pinky, if by any chance you are captured during this mission, remember you are Gunther Heindriksen from Appenzell. You moved to Grindelwald to drive the cog train to Murren. Can you repeat that?

P: Mmmm, no, Brain, dont think I can.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item *

P: Gee, Brain, what do you want to do tonight?

=item *

B: The same thing we do every night, Pinky. Try to take over the world!

=back

EOPOD

is($results, <<'EOHTML', "simple bulleted list");
<ul>

<li>P: Gee, Brain, what do you want to do tonight?

</li>
<li>B: The same thing we do every night, Pinky. Try to take over the world!

</li>
</ul>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item *

P: Gee, Brain, what do you want to do tonight?

=item *

B: The same thing we do every night, Pinky. Try to take over the world!

=over

=item *

Take over world

=item *

Do laundry

=back

EOPOD

is($results, <<'EOHTML', "nested bulleted list");
<ul>

<li>P: Gee, Brain, what do you want to do tonight?

</li>
<li>B: The same thing we do every night, Pinky. Try to take over the world!

<ul>

<li>Take over world

</li>
<li>Do laundry

</li>
</ul>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item 1

P: Gee, Brain, what do you want to do tonight?

=item 2

B: The same thing we do every night, Pinky. Try to take over the world!

=back

EOPOD

is($results, <<'EOHTML', "numbered list");
<ol>

<li>P: Gee, Brain, what do you want to do tonight?

</li>
<li>B: The same thing we do every night, Pinky. Try to take over the world!

</li>
</ol>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item 1

P: Gee, Brain, what do you want to do tonight?

=item 2

B: The same thing we do every night, Pinky. Try to take over the world!

=over

=item 1

Take over world

=item 2

Do laundry

=back

EOPOD

is($results, <<'EOHTML', "nested numbered list");
<ol>

<li>P: Gee, Brain, what do you want to do tonight?

</li>
<li>B: The same thing we do every night, Pinky. Try to take over the world!

<ol>

<li>Take over world

</li>
<li>Do laundry

</li>
</ol>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item Pinky

Gee, Brain, what do you want to do tonight?

=item Brain

The same thing we do every night, Pinky. Try to take over the world!

=back

EOPOD

is($results, <<'EOHTML', "list with text headings");
<dl>

<dt>Pinky</dt>
<dd>

Gee, Brain, what do you want to do tonight?

</dd>
<dt>Brain</dt>
<dd>

The same thing we do every night, Pinky. Try to take over the world!

</dd>
</dl>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item * Pinky

Gee, Brain, what do you want to do tonight?

=item * Brain

The same thing we do every night, Pinky. Try to take over the world!

=back

EOPOD

is($results, <<'EOHTML', "list with bullet and text headings");
<ul>

<li>Pinky

Gee, Brain, what do you want to do tonight?

</li>
<li>Brain

The same thing we do every night, Pinky. Try to take over the world!

</li>
</ul>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item * Brain <brain@binkyandthebrain.com>

=item * Pinky <pinky@binkyandthebrain.com>

=back

EOPOD

is($results, <<'EOHTML', "bulleted author list");
<ul>

<li>Brain &lt;brain@binkyandthebrain.com&gt;

</li>
<li>Pinky &lt;pinky@binkyandthebrain.com&gt;

</li>
</ul>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item Pinky

=over

=item World Domination

=back

=item Brain

=back

EOPOD

is($results, <<'EOHTML', 'nested lists');
<dl>

<dt>Pinky</dt>
<dd>

<dl>

<dt>World Domination</dt>
<dd>

</dd>
</dl>

</dd>
<dt>Brain</dt>
<dd>

</dd>
</dl>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=over

=item Pinky

On the list:

=over

=item World Domination

Fight the good fight

=item Go to Europe

(Steve Martin joke)

=back

=item Brain

Not so much

=back

EOPOD

is($results, <<'EOHTML', 'multiparagraph nested lists');
<dl>

<dt>Pinky</dt>
<dd>

On the list:

<dl>

<dt>World Domination</dt>
<dd>

Fight the good fight

</dd>
<dt>Go to Europe</dt>
<dd>

(Steve Martin joke)

</dd>
</dl>

</dd>
<dt>Brain</dt>
<dd>

Not so much

</dd>
</dl>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

1 + 1 = 2;
  2 + 2 = 4;

EOPOD

is($results, <<'EOHTML', "code block");
<pre><code> 1 + 1 = 2;
 2 + 2 = 4;</code></pre>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a C<functionname>.

C<< This code is B<important> to E<lt>me>! >>

EOPOD
is($results, <<"EOHTML", "code entity in a paragraph");
A plain paragraph with a <code>functionname</code>.

<code>This code is important to &lt;me&gt;!</code>

EOHTML

initialize($parser, $results);
$parser->html_header("<html>\n<body>");
$parser->html_footer("</body>\n</html>");
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with body tags turned on.
EOPOD
is($results, <<"EOHTML", "adding html body tags");
<html>
<body>

A plain paragraph with body tags turned on.

</body>
</html>

EOHTML

initialize($parser, $results);
$parser->html_css('style.css');
$parser->html_header(undef);
$parser->html_footer(undef);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with body tags and css tags turned on.
EOPOD
like($results, qr/<link rel="stylesheet" href="style.css" type="text\/css" \/>/,
"adding html body tags and css tags");

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with S<non breaking text>.
EOPOD
is($results, <<"EOHTML", "Non breaking text in a paragraph");
A plain paragraph with non breaking text.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a L<Newlines>.
EOPOD
is($results, <<"EOHTML", "Link entity in a paragraph");
A plain paragraph with a <a href="$PERLDOC?Newlines">Newlines</a>.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a L<perlport/Newlines>.
EOPOD
is($results, <<"EOHTML", "Link entity in a paragraph");
A plain paragraph with a <a href="$PERLDOC?perlport#Newlines">&quot;Newlines&quot; in perlport</a>.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a L<Boo|http://link.included.here>.
EOPOD
is($results, <<"EOHTML", "A link in a paragraph");
A plain paragraph with a <a href="http://link.included.here">Boo</a>.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a L<http://link.included.here>.
EOPOD
is($results, <<"EOHTML", "A link in a paragraph");
A plain paragraph with a <a href="http://link.included.here">http://link.included.here</a>.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a L<http://link.included.here?o=1&p=2>.
EOPOD
is($results, <<"EOHTML", "A link in a paragraph");
A plain paragraph with a <a href="http://link.included.here?o=1&amp;p=2">http://link.included.here?o=1&amp;p=2</a>.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with B<bold text>.
EOPOD
is($results, <<"EOHTML", "Bold text in a paragraph");
A plain paragraph with bold text.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with I<italic text>.
EOPOD
is($results, <<"EOHTML", "Italic text in a paragraph");
A plain paragraph with italic text.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A plain paragraph with a F<filename>.
EOPOD
is($results, <<"EOHTML", "File name in a paragraph");
A plain paragraph with a filename.

EOHTML

# It's not important that 's (apostrophes) be encoded for XHTML output.
initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

# this header is very important & dont you forget it
 my $text = "File is: " . <FILE>;
EOPOD
is($results, <<"EOHTML", "Verbatim text with encodable entities");
<pre><code> # this header is very important &amp; dont you forget it
 my \$text = &quot;File is: &quot; . &lt;FILE&gt;;</code></pre>

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A text paragraph using E<sol> and E<verbar> special POD entities.

EOPOD
is($results, <<"EOHTML", "Text with decodable entities");
A text paragraph using / and | special POD entities.

EOHTML

initialize($parser, $results);
$parser->parse_string_document(<<'EOPOD');
=pod

A text paragraph using numeric POD entities: E<60>, E<62>.

EOPOD
is($results, <<"EOHTML", "Text with numeric entities");
A text paragraph using numeric POD entities: &lt;, &gt;.

EOHTML

SKIP: for my $use_html_entities (0, 1) {
 if ($use_html_entities and not $Pod::Simple::XHTML::HAS_HTML_ENTITIES) {
 skip("HTML::Entities not installed", 3);
 }
 local $Pod::Simple::XHTML::HAS_HTML_ENTITIES = $use_html_entities;
 initialize($parser, $results);
 $parser->codes_in_verbatim(1);
 $parser->parse_string_document(<<'EOPOD');
=pod

# this header is very important & dont you forget it
 B<my $file = <FILEE<gt> || Blank!;>
 my $text = "File is: " . <FILE>;
EOPOD
is($results, <<"EOHTML", "Verbatim text with markup and embedded formatting");
<pre><code> # this header is very important &amp; dont you forget it
 my \$file = &lt;FILE&gt; || Blank!;
 my \$text = &quot;File is: &quot; . &lt;FILE&gt;;</code></pre>

EOHTML

# Specify characters to encode.
 initialize($parser, $results);
 $parser->html_encode_chars('><"&T');
 $parser->parse_string_document(<<'EOPOD');
=pod

This is Anna's "Answer" to the <q>Question</q>.

=cut

EOPOD
my $T = $use_html_entities ? 84 : 'x54';
is($results, <<"EOHTML", 'HTML Entities should be only for specified characters');
&#$T;his is Anna's &quot;Answer&quot; to the &lt;q&gt;Question&lt;/q&gt;.

EOHTML

# Keep =encoding out of content.
 initialize($parser, $results);
 $parser->parse_string_document("=encoding utf-8\n\n=head1 NAME\n");
 is($results, <<"EOHTML", 'Encoding should not be in content')
<h1 id="NAME">NAME</h1>

EOHTML

}

ok $parser = Pod::Simple::XHTML->new, 'Construct a new parser';
$results = '';
$parser->output_string( \$results ); # Send the resulting output to a string
ok $parser->parse_string_document( "=head1 Poit!" ), 'Parse with headers';
like $results, qr{\Q<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />},
 'Should have proper http-equiv meta tag';

ok $parser = Pod::Simple::XHTML->new, 'Construct a new parser again';
ok $parser->html_charset('UTF-8'), 'Set the html charset to UTF-8';
$results = '';
$parser->output_string( \$results ); # Send the resulting output to a string
ok $parser->parse_string_document( "=head1 Poit!" ), 'Parse with headers';
like $results, qr{\Q<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />},
 'Should have http-equiv meta tag with UTF-8';

# Test the link generation methods.
is $parser->resolve_pod_page_link('Net::Ping', 'INSTALL'),
    "$PERLDOC?Net::Ping#INSTALL",
    'POD link with fragment';
is $parser->resolve_pod_page_link('perlpodspec'),
    "$PERLDOC?perlpodspec", 'Simple POD link';
is $parser->resolve_pod_page_link(undef, 'SYNOPSIS'), '#SYNOPSIS',
    'Simple fragment link';
is $parser->resolve_pod_page_link(undef, 'this that'), '#this-that',
    'Fragment link with space';
is $parser->resolve_pod_page_link('perlpod', 'this that'),
    "$PERLDOC?perlpod#this-that",
    'POD link with fragment with space';

is $parser->resolve_man_page_link('crontab(5)', 'EXAMPLE CRON FILE'),
    "${MANURL}5/crontab", 'Man link with fragment';
is $parser->resolve_man_page_link('crontab(5)'),
    "${MANURL}5/crontab", 'Man link without fragment';
is $parser->resolve_man_page_link('crontab'),
    "${MANURL}1/crontab", 'Man link without section';

# Make sure that batch_mode_page_object_init() works.
ok $parser->batch_mode_page_object_init(0, 0, 0, 0, 6),
    'Call batch_mode_page_object_init()';
ok $parser->batch_mode, 'We should be in batch mode';
is $parser->batch_mode_current_level, 6,
    'The level should have been set';

######################################

sub initialize {
	$_[0] = Pod::Simple::XHTML->new ();
        $_[0]->html_header("");
        $_[0]->html_footer("");
	$_[0]->output_string( \$results ); # Send the resulting output to a string
	$_[1] = '';
	return;
}