view release on metacpan or  search on metacpan

t/fcodes_s.t  view on Meta::CPAN

    qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
);

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

is(
    x(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
    qq{\n<p><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></p>\n}
);

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

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

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

is(
    x(qq{L<things|crontab(5)/EXAMPLE CRON FILE>\n}),
    qq{\n<p><a href="${MANURL}5/crontab.5${MANURL_POSTFIX}#EXAMPLE_CRON_FILE" class="podlinkman"\n>things</a></p>\n}
);

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

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

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

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

is(
    x(qq{See L<perl.org|http://www.perl.org>\n}),
    qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\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;
}

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

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

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

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

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

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

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

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

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

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

is(