summaryrefslogtreecommitdiff
path: root/ext/Pod-Html/t/anchorify-536.t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Pod-Html/t/anchorify-536.t')
-rw-r--r--ext/Pod-Html/t/anchorify-536.t114
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__