view release on metacpan or  search on metacpan

ext/Pod-Html/t/anchorify.t  view on Meta::CPAN

use strict;
use warnings;
use Pod::Html::Util qw( anchorify relativize_url );
use Test::More;

my @filedata;
{
    local $/ = '';
    @filedata = <DATA>;
}

my (@poddata, $i, $j);
for ($i = 0, $j = -1; $i <= $#filedata; $i++) {
    $j++ if ($filedata[$i] =~ /^\s*=head[1-6]/);
    if ($j >= 0) {
        $poddata[$j]  = "" unless defined $poddata[$j];
        $poddata[$j] .= "\n$filedata[$i]" if $j >= 0;
    }
}

my %heads = ();
foreach $i (0..$#poddata) {
    $heads{anchorify($1)} = 1 if $poddata[$i] =~ /=head[1-6]\s+(.*)/;
}
my %expected = map { $_ => 1 } qw(
    NAME
    DESCRIPTION
    Subroutine
    Error
    Method
    Has_A_Wordspace
    HasTrailingWordspace
    HasLeadingWordspace
    Has_Extra_InternalWordspace
    Has_Quotes
    Has_QuestionMark
    Has_Hyphen_And_Space
);
is_deeply(
    \%heads,
    \%expected,
    "Got expected POD heads"
);

{
    # adapted from 'installhtml'
    my $file = '/home/username/tmp/installhtml/pod/perlipc';
    my $capture = 'NAME';
    my $expected_url = '/home/username/tmp/installhtml/pod/perlipc/NAME.html';
    my $expected_relativized_url = 'perlipc/NAME.html';
    my $url = "$file/@{[anchorify(qq($capture))]}.html" ;
    is($url, $expected_url, "anchorify() returned expected value");
    my $relativized_url = relativize_url( $url, "$file.html" );
    is($relativized_url, $expected_relativized_url, "relativize_url() returned expected value");
}

done_testing;

__DATA__
=head1 NAME

anchorify - Test C<Pod::Html::Util::anchorify()>

=head1 DESCRIPTION

alpha

=head2 Subroutine