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

# fcodes S
BEGIN {
    if($ENV{PERL_CORE}) {
        chdir 't';
        @INC = '../lib';
    }
}

use strict;
use Test;
BEGIN { plan tests => 80 };

#use Pod::Simple::Debug (6);

ok 1;

use Pod::Simple::XMLOutStream;
print "# Pod::Simple version $Pod::Simple::VERSION\n";
my $x = 'Pod::Simple::XMLOutStream';
sub e ($$) { $x->_duo(@_) }

$Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output

print "# S as such...\n";

ok( $x->_out("=pod\n\nI like S<bric-a-brac>.\n"),
 => '<Document><Para>I like <S>bric-a-brac</S>.</Para></Document>' );
ok( $x->_out("=pod\n\nI like S<bric-a-brac a gogo >.\n"),
 => '<Document><Para>I like <S>bric-a-brac a gogo </S>.</Para></Document>' );
ok( $x->_out("=pod\n\nI like S<< bric-a-brac a gogo >>.\n"),
 => '<Document><Para>I like <S>bric-a-brac a gogo</S>.</Para></Document>' );

my $unless_ascii = (chr(65) eq 'A') ? '' :
 "Skip because not in ASCIIland";

skip( $unless_ascii,
 $x->_out( sub { $_[0]->nbsp_for_S(1) },
 "=pod\n\nI like S<bric-a-brac a gogo>.\n"),
'<Document><Para>I like bric-a-brac&#160;a&#160;gogo.</Para></Document>'
);
skip( $unless_ascii,
 $x->_out( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L content-implicit="yes" section="bric-a-brac a gogo" type="pod">&#34;bric-a-brac&#160;a&#160;gogo&#34;</L>.</Para></Document>'
);
skip( $unless_ascii,
 $x->_out( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff&#160;like&#160;that</L>.</Para></Document>'
);
skip( $unless_ascii,
 $x->_out( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff&#160;like&#160;that</L>.</Para></Document>'
);

&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
 "=pod\n\nI like S<bric-a-brac a gogo>.\n",
 "=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
));
&ok(
 map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
 $x->_duo( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
 qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
));
&ok( 
 map {my $z = $_; $z =~ s/raw=".+?" //g; $z }
 $x->_duo( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
 qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
));
&ok(
 map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z =~ s/raw=".+?" //g; $z }
 $x->_duo( sub { $_[0]->nbsp_for_S(1) },
 qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
 qq{=pod\n\nI like L<StuffE<160>I<likeE<160>that>|"bric-a-brac a gogo">.\n},
));

use Pod::Simple::Text;
$x = Pod::Simple::Text->new;
$x->preserve_whitespace(1);
# RT#25679
ok(
 $x->_out(<<END
=head1 The Tk::mega manpage showed me how C<< SE<lt> > foo >> is being rendered

Both pod2text and pod2man S< > lose the rest of the line

=head1 Do they always S< > lose the rest of the line?

=cut
END
 ),
 <<END
The Tk::mega manpage showed me how S< > foo is being rendered

Both pod2text and pod2man      lose the rest of the line

Do they always      lose the rest of the line?

END
);

$x = 'Pod::Simple::Text';
# Test text output of links.
ok(
 $x->_out(qq{=pod\n\nL<Net::Ping>\n}),
 " Net::Ping\n\n"
);

ok(
 $x->_out(qq{=pod\n\nBe sure to read the L<Net::Ping> docs\n}),
 " Be sure to read the Net::Ping docs\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<http://www.perl.com>\n}),
 " http://www.perl.com\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<crontab(5)>\n}),
 " crontab(5)\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}),
 qq{ "Ping-pong" in Net::Ping\n\n}
);

ok(
 $x->_out(qq{=pod\n\nL</"Object Methods">\n}),
 qq{ "Object Methods"\n\n}
);

ok(
 $x->_out(qq{=pod\n\nL</Object Methods>\n}),
 qq{ "Object Methods"\n\n}
);

ok(
 $x->_out(qq{=pod\n\nL<"Object Methods">\n}),
 qq{ "Object Methods"\n\n}
);

ok(
 $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
 qq{ "Ping-pong" in Net::Ping\n\n}
);

ok(
 $x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}),
 " news:comp.lang.perl.misc\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<http://www.perl.org>\n}),
 " http://www.perl.org\n\n"
);

ok(
 $x->_out(qq{=pod\n\nSee L<http://www.perl.org>\n}),
 " See http://www.perl.org\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
 " http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}),
 " news:comp.lang.perl.misc\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.org>\n}),
 " http://www.perl.org\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<things|crontab(5)>\n}),
 " things\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<things|crontab(5)/ENVIRONMENT>\n}),
 " things\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}),
 " Perl Error Messages\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}),
 " Perl Error Messages\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}),
 " Perl Error Messages\n\n"
);

ok(
 $x->_out(qq{=pod\n\nL<perl.org|http://www.perl.org>\n}),
 " perl.org <http://www.perl.org>\n\n"
);

ok(
 $x->_out(qq{=pod\n\nSee L<perl.org|http://www.perl.org>\n}),
 " See perl.org <http://www.perl.org>\n\n"
);

# Test HTML output of links.
use Pod::Simple::HTML;
my $PERLDOC = "http://search.cpan.org/perldoc";
my $MANURL = "http://man.he.net/man";
sub x ($) {
    Pod::Simple::HTML->_out(
        sub {  $_[0]->bare_output(1)  },
        "=pod\n\n$_[0]",
    )
}

ok(
 x(qq{L<Net::Ping>\n}),
 qq{\n<a href="$PERLDOC?Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a>\n}
);

ok(
 x(qq{Be sure to read the L<Net::Ping> docs\n}),
 qq{\nBe sure to read the <a href="$PERLDOC?Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a> docs\n}
);

ok(
 x(qq{L<http://www.perl.com>\n}),
 qq{\n<a href="http://www.perl.com" class="podlinkurl"\n>http://www.perl.com</a>\n}
);

ok(
 x(qq{L<crontab(5)>\n}),
 qq{\n<a href="${MANURL}5/crontab" class="podlinkman"\n>crontab(5)</a>\n}
);

ok(
 x(qq{L<Net::Ping/Ping-pong>\n}),
 qq{\n<a href="$PERLDOC?Net%3A%3APing#Ping-pong" class="podlinkpod"\n>&#34;Ping-pong&#34; in Net::Ping</a>\n}
);

ok(
 x(qq{L</"Object Methods">\n}),
 qq{\n<a href="#Object_Methods" class="podlinkpod"\n>&#34;Object Methods&#34;</a>\n}
);

ok(
 x(qq{L</Object Methods>\n}),
 qq{\n<a href="#Object_Methods" class="podlinkpod"\n>&#34;Object Methods&#34;</a>\n}
);

ok(
 x(qq{L<"Object Methods">\n}),
 qq{\n<a href="#Object_Methods" class="podlinkpod"\n>&#34;Object Methods&#34;</a>\n}
);

ok(
 x(qq{L<Net::Ping/Ping-E<112>ong>\n}),
 qq{\n<a href="$PERLDOC?Net%3A%3APing#Ping-pong" class="podlinkpod"\n>&#34;Ping-pong&#34; in Net::Ping</a>\n}
);

ok(
 x(qq{L<news:comp.lang.perl.misc>\n}),
 qq{\n<a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a>\n}
);

ok(
 x(qq{L<http://www.perl.org>\n}),
 qq{\n<a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a>\n}
);

ok(
 x(qq{See L<http://www.perl.org>\n}),
 qq{\nSee <a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a>\n}
);

ok(
 x(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
 qq{\n<a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/" class="podlinkurl"\n>http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a>\n}
);

ok(
 x(qq{L<news:compE<46>lang.perl.misc>\n}),
 qq{\n<a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a>\n}
);

ok(
 x(qq{L<http://wwwE<46>perl.org>\n}),
 qq{\n<a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a>\n}
);

ok(
 x(qq{L<things|crontab(5)>\n}),
 qq{\n<a href="${MANURL}5/crontab" class="podlinkman"\n>things</a>\n}
);

ok(
 x(qq{L<things|crontab(5)/ENVIRONMENT>\n}),
 qq{\n<a href="${MANURL}5/crontab" class="podlinkman"\n>things</a>\n}
);

ok(
 x(qq{L<Perl Error Messages|perldiag>\n}),
 qq{\n<a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a>\n}
);

ok(
 x(qq{L<Perl\nError\nMessages|perldiag>\n}),
 qq{\n<a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a>\n}
);

ok(
 x(qq{L<Perl\nError\t Messages|perldiag>\n}),
 qq{\n<a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a>\n}
);

ok(
 x(qq{L<perl.org|http://www.perl.org>\n}),
 qq{\n<a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a>\n}
);

ok(
 x(qq{See L<perl.org|http://www.perl.org>\n}),
 qq{\nSee <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a>\n}
);

# Test link output in XHTML.
use Pod::Simple::XHTML;
sub o ($) {
    my $p = Pod::Simple::XHTML->new;
    $p->html_header("");
    $p->html_footer("");
    my $results = '';
    $p->output_string( \$results ); # Send the resulting output to a string
    $p->parse_string_document("=pod\n\n$_[0]");
    return $results;
}

ok(
 o(qq{L<Net::Ping>}),
 qq{<a href="$PERLDOC?Net::Ping">Net::Ping</a>\n\n}
);

ok(
 o(qq{Be sure to read the L<Net::Ping> docs}),
 qq{Be sure to read the <a href="$PERLDOC?Net::Ping">Net::Ping</a> docs\n\n}
);

ok(
 o(qq{L<http://www.perl.com>}),
 qq{<a href="http://www.perl.com">http://www.perl.com</a>\n\n}
);

ok(
 o(qq{L<crontab(5)>}),
 qq{<a href="${MANURL}5/crontab">crontab(5)</a>\n\n}
);

ok(
 o(qq{L<Net::Ping/Ping-pong>}),
 qq{<a href="$PERLDOC?Net::Ping#Ping-pong">&quot;Ping-pong&quot; in Net::Ping</a>\n\n}
);

ok(
 o(qq{L</"Object Methods">}),
 qq{<a href="#Object-Methods">&quot;Object Methods&quot;</a>\n\n}
);

ok(
 o(qq{L</Object Methods>}),
 qq{<a href="#Object-Methods">&quot;Object Methods&quot;</a>\n\n}
);

ok(
 o(qq{L<"Object Methods">}),
 qq{<a href="#Object-Methods">&quot;Object Methods&quot;</a>\n\n}
);

ok(
 o(qq{L<Net::Ping/Ping-E<112>ong>}),
 qq{<a href="$PERLDOC?Net::Ping#Ping-pong">&quot;Ping-pong&quot; in Net::Ping</a>\n\n}
);

ok(
 o(qq{L<news:comp.lang.perl.misc>}),
 qq{<a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a>\n\n}
);

ok(
 o(qq{L<http://www.perl.org>}),
 qq{<a href="http://www.perl.org">http://www.perl.org</a>\n\n}
);

ok(
 o(qq{See L<http://www.perl.org>}),
 qq{See <a href="http://www.perl.org">http://www.perl.org</a>\n\n}
);

ok(
 o(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>}),
 qq{<a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/">http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a>\n\n}
);

ok(
 o(qq{L<news:compE<46>lang.perl.misc>}),
 qq{<a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a>\n\n}
);

ok(
 o(qq{L<http://wwwE<46>perl.org>}),
 qq{<a href="http://www.perl.org">http://www.perl.org</a>\n\n}
);

ok(
 o(qq{L<things|crontab(5)>}),
 qq{<a href="${MANURL}5/crontab">things</a>\n\n}
);

ok(
 o(qq{L<things|crontab(5)/ENVIRONMENT>}),
 qq{<a href="${MANURL}5/crontab">things</a>\n\n}
);

ok(
 o(qq{L<Perl Error Messages|perldiag>}),
 qq{<a href="$PERLDOC?perldiag">Perl Error Messages</a>\n\n}
);

ok(
 o(qq{L<Perl\nError\nMessages|perldiag>}),
 qq{<a href="$PERLDOC?perldiag">Perl Error Messages</a>\n\n}
);

ok(
 o(qq{L<Perl\nError\t Messages|perldiag>}),
 qq{<a href="$PERLDOC?perldiag">Perl Error Messages</a>\n\n}
);

ok(
 o(qq{L<perl.org|http://www.perl.org>}),
 qq{<a href="http://www.perl.org">perl.org</a>\n\n}
);

ok(
 o(qq{See L<perl.org|http://www.perl.org>}),
 qq{See <a href="http://www.perl.org">perl.org</a>\n\n}
);

print "# Wrapping up... one for the road...\n";
ok 1;
print "# --- Done with ", __FILE__, " --- \n";