1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
use strict;
use warnings;
use Pod::Html;
use Test::More;
my $podfile = "$$.pod";
my $infile = "$$.in";
my @outfile = map { "$$.o$_" } 0..2;
open my $pod, '>', $podfile or die "$podfile: $!";
print $pod <<__EOF__;
=pod
=head1 NAME
crlf
=head1 DESCRIPTION
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf
crlf crlf crlf crlf
crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
=cut
__EOF__
close $pod or die $!;
my $i = 0;
foreach my $eol ("\r", "\n", "\r\n") {
open $pod, '<', $podfile or die "$podfile: $!";
open my $in, '>', $infile or die "$infile: $!";
while (<$pod>) {
s/[\r\n]+/$eol/g;
print $in $_;
}
close $pod or die $!;
close $in or die $!;
pod2html("--title=eol", "--infile=$infile", "--outfile=$outfile[$i]");
++$i;
}
# --- now test ---
my @cksum;
foreach (0..2) {
local $/;
open my $in, '<', $outfile[$_] or die "$outfile[$_]: $!";
$cksum[$_] = unpack "%32C*", <$in>;
close $in or die $!;
}
is($cksum[0], $cksum[1], "CR vs LF");
is($cksum[0], $cksum[2], "CR vs CRLF");
is($cksum[1], $cksum[2], "LF vs CRLF");
END {
1 while unlink $podfile, $infile, @outfile, 'pod2htmd.tmp';
}
done_testing;
|
