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 => 60;
#use Test::More 'no_plan';

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

isa_ok my $parser = Pod::Simple::XHTML->new, 'Pod::Simple::XHTML';
my $header = $parser->html_header;
my $footer = $parser->html_footer;

for my $spec (
    [ 'foo'    => 'foo',   'foo'     ],
    [ '12foo'  => 'foo1',  'foo'     ],
    [ 'fo$bar' => 'fo-bar', 'fo-bar' ],
    [ 'f12'    => 'f12',    'f12'    ],
    [ '13'     => 'pod13',  'pod13'  ],
    [ '**.:'   => 'pod', 'pod' ],
) {
    is $parser->idify( $spec->[0] ), $spec->[1],
        qq{ID for "$spec->[0]" should be "$spec->[1]"};
    is $parser->idify( $spec->[0], 1 ), $spec->[2],
        qq{Non-unique ID for "$spec->[0]" should be "$spec->[2]"};
}

my $results;

initialize($parser, $results);
$parser->html_header($header);
$parser->html_footer($footer);
ok $parser->parse_string_document( '=head1 Foo' ), 'Parse one header';
is $results, <<'EOF', 'Should have the index';

</body>
</html>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( '=head1 Foo Bar' ), 'Parse multiword header';
is $results, <<'EOF', 'Should have the index';
<ul id="index">
  <li><a href="#Foo-Bar">Foo Bar</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo B<Bar>\n\n=head1 Foo B<Baz>" ),
    'Parse two multiword headers';
is $results, <<'EOF', 'Should have the index';
<ul id="index">
  <li><a href="#Foo-Bar">Foo Bar</a></li>
  <li><a href="#Foo-Baz">Foo Baz</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head1 Bar" ), 'Parse two headers';
is $results, <<'EOF', 'Should have both and the index';
<ul id="index">
  <li><a href="#Foo">Foo</a></li>
  <li><a href="#Bar">Bar</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo C<Bar>\n\n=head1 C<Baz>" ),
    'Parse two headers with C<> formatting';
is $results, <<'EOF', 'Should have the index';
<ul id="index">
  <li><a href="#Foo-Bar">Foo Bar</a></li>
  <li><a href="#Baz">Baz</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head1 Bar\n\n=head1 Baz" ),
    'Parse three headers';
is $results, <<'EOF', 'Should have all three and the index';
<ul id="index">
  <li><a href="#Foo">Foo</a></li>
  <li><a href="#Bar">Bar</a></li>
  <li><a href="#Baz">Baz</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar" ), 'Parse two levels';
is $results, <<'EOF', 'Should have the dual-level index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li><a href="#Bar">Bar</a></li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar\n\n=head3 Baz" ),
    'Parse three levels';
is $results, <<'EOF', 'Should have the three-level index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li><a href="#Bar">Bar</a>
        <ul>
          <li><a href="#Baz">Baz</a></li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar\n\n=head3 Baz\n\n=head4 Howdy" ),
    'Parse four levels';
is $results, <<'EOF', 'Should have the four-level index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li><a href="#Bar">Bar</a>
        <ul>
          <li><a href="#Baz">Baz</a>
            <ul>
              <li><a href="#Howdy">Howdy</a></li>
            </ul>
          </li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

<h4 id="Howdy">Howdy</h4>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head2 Bar\n\n=head2 Baz" ),
    'Parse 1/2';
is $results, <<'EOF', 'Should have the 1/s index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li><a href="#Bar">Bar</a></li>
      <li><a href="#Baz">Baz</a></li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head3 Bar" ), 'Parse jump from one to three';
is $results, <<'EOF', 'Should have the 1-3 index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li>
        <ul>
          <li><a href="#Bar">Bar</a></li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head4 Bar" ), 'Parse jump from one to four';
is $results, <<'EOF', 'Should have the 1-4 index';
<ul id="index">
  <li><a href="#Foo">Foo</a>
    <ul>
      <li>
        <ul>
          <li>
            <ul>
              <li><a href="#Bar">Bar</a></li>
            </ul>
          </li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head2 Foo\n\n=head1 Bar" ),
    'Parse two down to 1';
is $results, <<'EOF', 'Should have the 2-1 index';
<ul id="index">
  <li>
    <ul>
      <li><a href="#Foo">Foo</a></li>
    </ul>
  </li>
  <li><a href="#Bar">Bar</a></li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head2 Foo\n\n=head1 Bar\n\n=head4 Four\n\n=head4 Four2" ),
    'Parse two down to 1';
is $results, <<'EOF', 'Should have the 2-1 index';
<ul id="index">
  <li>
    <ul>
      <li><a href="#Foo">Foo</a></li>
    </ul>
  </li>
  <li><a href="#Bar">Bar</a>
    <ul>
      <li>
        <ul>
          <li>
            <ul>
              <li><a href="#Four">Four</a></li>
              <li><a href="#Four2">Four2</a></li>
            </ul>
          </li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( "=head4 Foo" ),
    'Parse just a four';
is $results, <<'EOF', 'Should have the 2-1 index';
<ul id="index">
  <li>
    <ul>
      <li>
        <ul>
          <li>
            <ul>
              <li><a href="#Foo">Foo</a></li>
            </ul>
          </li>
        </ul>
      </li>
    </ul>
  </li>
</ul>

EOF

initialize($parser, $results);
ok $parser->parse_string_document( <<'EOF' ), 'Parse a mixture';
=head2 Foo

=head3 Bar

=head1 Baz

=head4 Drink

=head3 Sip

=head4 Ouch

=head1 Drip
EOF

is $results, <<'EOF', 'And it should work!';
<ul id="index">
  <li>
    <ul>
      <li><a href="#Foo">Foo</a>
        <ul>
          <li><a href="#Bar">Bar</a></li>
        </ul>
      </li>
    </ul>
  </li>
  <li><a href="#Baz">Baz</a>
    <ul>
      <li>
        <ul>
          <li>
            <ul>
              <li><a href="#Drink">Drink</a></li>
            </ul>
          </li>
          <li><a href="#Sip">Sip</a>
            <ul>
              <li><a href="#Ouch">Ouch</a></li>
            </ul>
          </li>
        </ul>
      </li>
    </ul>
  </li>
  <li><a href="#Drip">Drip</a></li>
</ul>

<h4 id="Drink">Drink</h4>

EOF

initialize($parser, $results);
$parser->html_header($header);
$parser->html_footer($footer);
$parser->backlink(1);
ok $parser->parse_string_document( '=head1 Foo' ), 'Parse a header';
is $results, <<'EOF', 'Should have the index and a backlink';

</body>
</html>

EOF

initialize($parser, $results);
$parser->html_header($header);
$parser->html_footer($footer);
$parser->backlink(1);
ok $parser->parse_string_document( "=head1 Foo \n\n=head2 Bar \n\n=head1 Baz" ), 'Parse headers';
is $results, <<'EOF', 'Should have the index and backlinks';

</body>
</html>

EOF

initialize($parser, $results);
$parser->html_header($header);
$parser->html_footer($footer);
$parser->index(0);
$parser->backlink(1);
ok $parser->parse_string_document( "=head1 Foo \n\n=head1 Bar" ), 'Parse headers';
is $results, <<'EOF', 'Should have backlinks but no index';

</body>
</html>

EOF

initialize($parser, $results);
$parser->html_header($header);
$parser->html_footer($footer);
$parser->backlink(1);
$parser->html_h_level(2);
ok $parser->parse_string_document( "=head1 Foo \n\n=head1 Bar" ), 'Parse headers';
is $results, <<'EOF', 'Should have index and backlinks around h2 elements';

</body>
</html>

EOF

initialize($parser, $results);
$parser->anchor_items(1);
ok $parser->parse_string_document( <<'EOPOD' ), 'Parse POD';
=head1 Foo

=over

=item test

=item Test 2

body of item

=back

=over

=item *

not anchored

=back

=over

=item 1

still not anchored

=back
EOPOD

is $results, <<'EOF', 'Anchor =item directives';
<ul id="index">
  <li><a href="#Foo">Foo</a></li>
</ul>

<dl>

</dd>
<dt id="Test-2">Test 2</dt>
<dd>

</dd>
</dl>

<ul>

<li><p>not anchored</p>

</li>
</ul>

<ol>

<li><p>still not anchored</p>

</li>
</ol>

EOF

initialize($parser, $results);
$parser->anchor_items(0);
ok $parser->parse_string_document( <<'EOPOD' ), 'Parse POD';
=head1 Foo

=over

=item test

=item Test 2

body of item

=back

=over

=item *

not anchored

=back

=over

=item 1

still not anchored

=back
EOPOD
is $results, <<'EOF', 'Do not anchor =item directives';
<ul id="index">
  <li><a href="#Foo">Foo</a></li>
</ul>

<dl>

</dd>
<dt>Test 2</dt>
<dd>

</dd>
</dl>

<ul>

<li><p>not anchored</p>

</li>
</ul>

<ol>

<li><p>still not anchored</p>

</li>
</ol>

EOF

$ENV{FOO}= 1;

initialize($parser, $results);
ok $parser->parse_string_document( <<'EOPOD' ), 'Parse POD';
=head1 Foo

Test links from perlpodspec: L</"About LE<lt>...E<gt> Codes">

=head1 About LE<lt>...E<gt> Codes

Here it is
EOPOD

my $id = 'About-L...-Codes'; # what should this be?

is $results, <<EOF, 'anchor and h1 use same section id for complex sections';
<ul id="index">
  <li><a href="#Foo">Foo</a></li>
  <li><a href="#$id">About L&lt;...&gt; Codes</a></li>
</ul>

<p>Test links from perlpodspec: <a href="#$id">&quot;About L&lt;...&gt; Codes&quot;</a></p>

<h1 id="$id">About L&lt;...&gt; Codes</h1>

EOF

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