Skip to content

Commit

Permalink
Cleaned up tests for XHTML->HTML rename.
Browse files Browse the repository at this point in the history
  • Loading branch information
@chromatic
chromatic committed Mar 24, 2012
1 parent 5bb05ca commit 126dea4
Show file tree
Hide file tree
Showing 15 changed files with 33 additions and 38 deletions.
7 changes: 1 addition & 6 deletions lib/Pod/PseudoPod/DOM/Role/HTML.pm
View file
Expand Up @@ -175,13 +175,8 @@ sub emit_body
{ {
my $self = shift; my $self = shift;
return <<END_HTML_HEAD . $self->emit_kids( @_ ) . <<END_HTML; return <<END_HTML_HEAD . $self->emit_kids( @_ ) . <<END_HTML;
<?xml version="1.0" encoding="UTF-8"?> <html>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head> <head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="../css/style.css" type="text/css" /> <link rel="stylesheet" href="../css/style.css" type="text/css" />
</head> </head>
<body> <body>
Expand Down
14 changes: 7 additions & 7 deletions t/html/basic.t
View file
Expand Up @@ -3,21 +3,21 @@ use warnings;


use Test::More; use Test::More;
use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


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


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


my $result = parse( "=head0 Narf!" ); my $result = parse( "=head0 Narf!" );
like $result, qr|<a name="Narf!"></a><h1 id="narf">Narf!</h1>\n\n|, like $result, qr|<a name="Narf%21"></a><h1 id="narf">Narf!</h1>\n\n|,
"head0 level output"; "head0 level output";


$result = parse( "=head1 Poit!" ); $result = parse( "=head1 Poit!" );
like $result, qr|<a name="Poit!"></a><h2 id="poit">Poit!</h2>\n\n|, like $result, qr|<a name="Poit%21"></a><h2 id="poit">Poit!</h2>\n\n|,
"head1 level output"; "head1 level output";


$result = parse( "=head2 I think so Brain." ); $result = parse( "=head2 I think so Brain." );
Expand All @@ -27,12 +27,12 @@ like $result,


$result = parse( "=head3 I say, Brain..." ); $result = parse( "=head3 I say, Brain..." );
like $result, like $result,
qr|<a name="Isay,Brain..."></a><h4 id="isaybrain">I say, Brain...</h4>\n\n|, qr|<a name="Isay%2CBrain..."></a><h4 id="isaybrain">I say, Brain...</h4>\n|,
"head3 level output"; "head3 level output";


$result = parse( "=head4 Zort!" ); $result = parse( "=head4 Zort!" );
like $result, like $result,
qr|<a name="Zort!"></a><h5 id="zort">Zort!</h5>\n\n|, qr|<a name="Zort%21"></a><h5 id="zort">Zort!</h5>\n\n|,
"head4 level output"; "head4 level output";




Expand Down Expand Up @@ -199,7 +199,7 @@ EOPOD
is $result, <<"EOHTML", "adding html body tags"; is $result, <<"EOHTML", "adding html body tags";
<html> <html>
<head> <head>
<link rel="stylesheet" href="style.css" type="text/css" /> <link rel="stylesheet" href="../css/style.css" type="text/css" />
</head> </head>
<body> <body>
Expand Down
2 changes: 1 addition & 1 deletion t/html/emit_environments.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


use File::Slurp; use File::Slurp;
use File::Spec::Functions; use File::Spec::Functions;
Expand Down
2 changes: 1 addition & 1 deletion t/html/environments.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


use File::Slurp; use File::Slurp;
use File::Spec::Functions; use File::Spec::Functions;
Expand Down
22 changes: 11 additions & 11 deletions t/html/escapes.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down Expand Up @@ -59,37 +59,37 @@ like_string $result, qr/ineffable/, 'ff ligature also gets no marking';
like_string $result, qr/ligatures&mdash;and/, like_string $result, qr/ligatures&mdash;and/,
'spacey double dash should become a real emdash'; 'spacey double dash should become a real emdash';


like_string $result, qr/<a name="negation!operator1">/, like_string $result, qr/<a name="negation%21operator1">/,
'! is fine as-is in index anchor'; '! needs URI encoding in index anchor';


like_string $result, qr/<a name="array\@sigil1">/, like_string $result, qr/<a name="array%40sigil1">/,
'@ is also fine as-is in index anchor'; '@ needs URI encoding in index anchor';


like_string $result, qr/<a name="thepipe|1">/, like_string $result, qr/<a name="thepipe|1">/,
'spaces removed from index anchors'; 'spaces removed from index anchors';


like_string $result, qr/<a name="strangequoteaa1">/, like_string $result, qr/<a name="strangequoteaa1">/,
'quotes removed from index anchors'; 'quotes removed from index anchors';


like_string $result, qr/<a name="\$\^W;carats1">/, like_string $result, qr/<a name="%24%5EW%3Bcarats1">/,
'... carat gets no special treatment in anchor'; '... carat needs URI encoding in anchor';


like_string $result, qr/<a name="hierarchicalterms;omittingtrailingspaces1">/, like_string $result, qr/<a name="hierarchicalterms%3Bomittingtrailingspaces1">/,
'trailing spaces in hierarchical terms should be ignored'; 'trailing spaces in hierarchical terms should be ignored';


like_string $result, qr/<a name="codeanditalicstext1">/, like_string $result, qr/<a name="codeanditalicstext1">/,
'... and code/italics formatting'; '... and code/italics formatting';


like_string $result, qr/<a name="&lt;=&gt;;numericcomparisonoperator1">/, like_string $result, qr/<a name="%3C%3D%3E%3Bnumericcomparisonoperator1">/,
'... and should escape <> symbols'; '... and should escape <> symbols';


like_string $result, qr/<a name="sigils;&amp;1">/, like_string $result, qr/<a name="sigils%3B%261">/,
'... in index anchors as well'; '... in index anchors as well';


like_string $result, qr/<a name="\.tfiles1">/, like_string $result, qr/<a name="\.tfiles1">/,
'... and should suppress HTML tags in index anchors'; '... and should suppress HTML tags in index anchors';


like_string $result, qr/<a name="operators;&lt;1">/, like_string $result, qr/<a name="operators%3B&lt;1">/,
'... encoding entities as necessary'; '... encoding entities as necessary';


like_string $result, qr/<code>&lt;=&gt;<\/code>/, like_string $result, qr/<code>&lt;=&gt;<\/code>/,
Expand Down
4 changes: 2 additions & 2 deletions t/html/extra_tags.t
View file
Expand Up @@ -3,12 +3,12 @@ use warnings;


use Test::More; use Test::More;
use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


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


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


Expand Down
2 changes: 1 addition & 1 deletion t/html/figures.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down
2 changes: 1 addition & 1 deletion t/html/lists.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down
4 changes: 2 additions & 2 deletions t/html/nested.t
View file
Expand Up @@ -3,12 +3,12 @@ use warnings;


use Test::More; use Test::More;
use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


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


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


Expand Down
2 changes: 1 addition & 1 deletion t/html/sections.t
View file
Expand Up @@ -7,7 +7,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use Pod::PseudoPod::DOM::App; use Pod::PseudoPod::DOM::App;
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;
Expand Down
2 changes: 1 addition & 1 deletion t/html/sidebar.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


use File::Slurp; use File::Slurp;
use File::Spec::Functions; use File::Spec::Functions;
Expand Down
2 changes: 1 addition & 1 deletion t/html/tables.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down
2 changes: 1 addition & 1 deletion t/html/tags.t
View file
Expand Up @@ -5,7 +5,7 @@ use Test::More;
use Test::LongString; use Test::LongString;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down
2 changes: 1 addition & 1 deletion t/html/toc.t
View file
Expand Up @@ -4,7 +4,7 @@ use warnings;
use Test::More; use Test::More;


use lib 't/lib'; use lib 't/lib';
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';
use File::Spec::Functions; use File::Spec::Functions;
use File::Slurp; use File::Slurp;


Expand Down
2 changes: 1 addition & 1 deletion t/html/translations.t
View file
Expand Up @@ -5,7 +5,7 @@ use lib 't/lib';


use Test::More; use Test::More;
use Test::LongString; use Test::LongString;
use TestDOM 'Pod::PseudoPod::DOM::Role::XHTML'; use TestDOM 'Pod::PseudoPod::DOM::Role::HTML';


use File::Slurp; use File::Slurp;
use File::Spec::Functions; use File::Spec::Functions;
Expand Down

0 comments on commit 126dea4

Please sign in to comment.