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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
# t/eol2.t - check handling of \r, \n, and \r\n as line separators (again)
use strict;
use warnings;
use Test::More tests => 7;
use_ok('Pod::Simple::XHTML') or exit;
open(POD, ">$$.pod") or die "$$.pod: $!";
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);
# --- CR ---
my $p1 = Pod::Simple::XHTML->new ();
isa_ok ($p1, 'Pod::Simple::XHTML');
open(POD, "<$$.pod") or die "$$.pod: $!";
my $i1 = '';
while (<POD>) {
s/[\r\n]+/\r/g;
$i1 .= $_;
}
close(POD);
$p1->output_string(\my $o1);
$p1->parse_string_document($i1);
# --- LF ---
my $p2 = Pod::Simple::XHTML->new ();
isa_ok ($p2, 'Pod::Simple::XHTML');
open(POD, "<$$.pod") or die "$$.pod: $!";
my $i2 = '';
while (<POD>) {
s/[\r\n]+/\n/g;
$i2 .= $_;
}
close(POD);
$p2->output_string(\my $o2);
$p2->parse_string_document($i2);
# --- CRLF ---
my $p3 = Pod::Simple::XHTML->new ();
isa_ok ($p3, 'Pod::Simple::XHTML');
open(POD, "<$$.pod") or die "$$.pod: $!";
my $i3 = '';
while (<POD>) {
s/[\r\n]+/\r\n/g;
$i3 .= $_;
}
close(POD);
$p3->output_string(\my $o3);
$p3->parse_string_document($i3);
# --- now test ---
my $cksum1 = unpack("%32C*", $o1);
my $cksum2 = unpack("%32C*", $o2);
my $cksum3 = unpack("%32C*", $o3);
ok($cksum1 == $cksum2, "CR vs LF");
ok($cksum1 == $cksum3, "CR vs CRLF");
ok($cksum2 == $cksum3, "LF vs CRLF");
END {
1 while unlink("$$.pod", "$$.in");
}
|
