diff options
Diffstat (limited to 'ext/Pod-Html/t/anchorify-536.t')
-rw-r--r-- | ext/Pod-Html/t/anchorify-536.t | 114 |
1 files changed, 0 insertions, 114 deletions
diff --git a/ext/Pod-Html/t/anchorify-536.t b/ext/Pod-Html/t/anchorify-536.t deleted file mode 100644 index e8e01ea9c5..0000000000 --- a/ext/Pod-Html/t/anchorify-536.t +++ /dev/null @@ -1,114 +0,0 @@ -use strict; -use warnings; -use Pod::Html qw( anchorify relativize_url ); -my ($revision,$version,$subversion) = split /\./, sprintf("%vd",$^V); -use Test::More; -unless ($version == 35 or $version == 36) { - plan skip_all => "Needed only during 5.36"; -} - -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 - -beta - -=head3 Error - -gamma - -=head4 Method - -delta - -=head4 Has A Wordspace - -delta - -=head4 HasTrailingWordspace - -epsilon - -=head4 HasLeadingWordspace - -zeta - -=head4 Has Extra InternalWordspace - -eta - -=head4 Has"Quotes" - -theta - -=head4 Has?QuestionMark - -iota - -=head4 Has-Hyphen And Space - -kappa - -=cut - -__END__ |