t/xhtml.t - metacpan.org

#!perl -w

use strict;
use Test::More tests => 35;
use Test::NoWarnings;

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

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

my $results;

initialize( $parser, $results );
$parser->parse_string_document( "=head0 Narf!" );
is( $results, "<h1>Narf!</h1>\n\n", "head0 level output" );

initialize( $parser, $results );
$parser->parse_string_document( "=head1 Poit!" );
is( $results, "<h2>Poit!</h2>\n\n", "head1 level output" );

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

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

initialize( $parser, $results );
$parser->parse_string_document( "=head4 Zort!" );
is( $results, "<h5>Zort!</h5>\n\n", "head4 level output" );

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

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

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

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, don't think I can.
EOPOD

my $html = '<p>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>\n\n" . "<p>P: Mmmm, no, Brain, don't think I can.</p>\n\n";

is( $results, $html, "multiple paragraphs" );

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 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>1. P: Gee, Brain, what do you want to do tonight?</li>

<li>2. 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 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" );
<ul>

<li>Pinky<p>Gee, Brain, what do you want to do tonight?</p>

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

</li>
</ul>

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>.
EOPOD
is( $results, <<"EOHTML", "code entity in a paragraph" );
<p>A plain paragraph with a <code>functionname</code>.</p>

EOHTML

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

A plain paragraph with aN<footnote entry>.
EOPOD
is( $results, <<"EOHTML", "footnote entity in a paragraph" );
<p>A plain paragraph with a (footnote: footnote entry).</p>

EOHTML

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

A plain paragraph with body tags turned on.
EOPOD
is( $results, <<"EOHTML", "adding default html body tags" );
<?xml version="1.0" encoding="UTF-8"?>
<!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>
</head><body>

<p>A plain paragraph with body tags turned on.</p>

</body>
</html>

EOHTML

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

A plain paragraph with body tags turned on.
EOPOD
is( $results, <<"EOHTML", "adding strict html body tags" );
<?xml version="1.0" encoding="UTF-8"?>
<!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>
</head><body>

<p>A plain paragraph with body tags turned on.</p>

</body>
</html>

EOHTML

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

A plain paragraph with body tags turned on.
EOPOD
is( $results, <<"EOHTML", "adding transitional html body tags" );
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head><body>

<p>A plain paragraph with body tags turned on.</p>

</body>
</html>

EOHTML

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

A plain paragraph with body tags and css tags turned on.
EOPOD
is( $results, <<"EOHTML", "adding html body tags and css tags" );
<?xml version="1.0" encoding="UTF-8"?>
<!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>
<link rel='stylesheet' href='style.css' type='text/css' />
</head><body>

<p>A plain paragraph with body tags and css tags turned on.</p>

</body>
</html>

EOHTML

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

A plain paragraph with body tags turned on.
EOPOD
is( $results, <<"EOHTML", "adding transitional css and html body tags" );
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<link rel='stylesheet' href='style.css' type='text/css' />
</head><body>

<p>A plain paragraph with body tags turned on.</p>

</body>
</html>

EOHTML

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

A plain paragraph with aN<footnote entry> and css tags.
EOPOD
is( $results, <<"EOHTML", "css footnote entity in a paragraph" );
<p>A plain paragraph with a<font class="footnote"> (footnote: footnote entry)</font> and css tags.</p>

EOHTML

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

A plain paragraph with a U<http://test.url.com/stuff/and/junk.txt>.
EOPOD
is( $results, <<"EOHTML", "URL entity in a paragraph" );
<p>A plain paragraph with a <font class="url">http://test.url.com/stuff/and/junk.txt</font>.</p>

EOHTML

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

A plain paragraph with a Z<crossreferenceendpoint>.
EOPOD
is( $results, <<"EOHTML", "Link anchor entity in a paragraph" );
<p>A plain paragraph with a <a name="crossreferenceendpoint" />.</p>

EOHTML

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

A plain paragraph with a A<crossreferencelink>.
EOPOD
is( $results, <<"EOHTML", "Link entity in a paragraph" );
<p>A plain paragraph with a <a href="#crossreferencelink">link</a>.</p>

EOHTML

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

A plain paragraph with a G<superscript>.
EOPOD
is( $results, <<"EOHTML", "Superscript in a paragraph" );
<p>A plain paragraph with a <sup>superscript</sup>.</p>

EOHTML

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

A plain paragraph with a H<subscript>.
EOPOD
is( $results, <<"EOHTML", "Subscript in a paragraph" );
<p>A plain paragraph with a <sub>subscript</sub>.</p>

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" );
<p>A plain paragraph with <strong>bold text</strong>.</p>

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" );
<p>A plain paragraph with <em>italic text</em>.</p>

EOHTML

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

A plain paragraph with R<replaceable text>.
EOPOD
is( $results, <<"EOHTML", "Replaceable text in a paragraph" );
<p>A plain paragraph with <em>replaceable text</em>.</p>

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" );
<p>A plain paragraph with a <em>filename</em>.</p>

EOHTML

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

  # this header is very important & don't you forget it
  my $text = "File is: " . <FILE>;
EOPOD
like( $results, qr/&quot;/, "Verbatim text with encodable quotes" );
like( $results, qr/&amp;/,  "Verbatim text with encodable ampersands" );
like( $results, qr/&lt;/,   "Verbatim text with encodable less-than" );
like( $results, qr/&gt;/,   "Verbatim text with encodable greater-than" );

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

sub initialize {
  $_[ 0 ] = Pod::PseudoPod::XHTML->new();
  $_[ 0 ]->output_string( \$results );  # Send the resulting output to a string
  $_[ 1 ] = '';
  return;
}
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)