Commit | Line | Data |
---|---|---|
60527824 FR |
1 | # t/eol2.t - check handling of \r, \n, and \r\n as line separators (again) |
2 | ||
643dfa47 | 3 | use strict; |
3afe1500 | 4 | use warnings; |
60527824 FR |
5 | use Test::More tests => 7; |
6 | ||
7 | use_ok('Pod::Simple::XHTML') or exit; | |
8 | ||
9 | open(POD, ">$$.pod") or die "$$.pod: $!"; | |
10 | print POD <<__EOF__; | |
11 | =pod | |
12 | ||
13 | =head1 NAME | |
14 | ||
15 | crlf | |
16 | ||
17 | =head1 DESCRIPTION | |
18 | ||
19 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
20 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
21 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
22 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
23 | ||
24 | crlf crlf crlf crlf | |
25 | crlf crlf crlf crlf | |
26 | crlf crlf crlf crlf | |
27 | ||
28 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
29 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
30 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
31 | crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf | |
32 | ||
33 | =cut | |
34 | __EOF__ | |
35 | close(POD); | |
36 | ||
37 | # --- CR --- | |
38 | ||
39 | my $p1 = Pod::Simple::XHTML->new (); | |
40 | isa_ok ($p1, 'Pod::Simple::XHTML'); | |
41 | ||
42 | open(POD, "<$$.pod") or die "$$.pod: $!"; | |
43 | my $i1 = ''; | |
44 | while (<POD>) { | |
45 | s/[\r\n]+/\r/g; | |
46 | $i1 .= $_; | |
47 | } | |
48 | close(POD); | |
49 | ||
50 | $p1->output_string(\my $o1); | |
51 | $p1->parse_string_document($i1); | |
52 | ||
53 | # --- LF --- | |
54 | ||
55 | my $p2 = Pod::Simple::XHTML->new (); | |
56 | isa_ok ($p2, 'Pod::Simple::XHTML'); | |
57 | ||
58 | open(POD, "<$$.pod") or die "$$.pod: $!"; | |
59 | my $i2 = ''; | |
60 | while (<POD>) { | |
61 | s/[\r\n]+/\n/g; | |
62 | $i2 .= $_; | |
63 | } | |
64 | close(POD); | |
65 | ||
66 | $p2->output_string(\my $o2); | |
67 | $p2->parse_string_document($i2); | |
68 | ||
69 | # --- CRLF --- | |
70 | ||
71 | my $p3 = Pod::Simple::XHTML->new (); | |
72 | isa_ok ($p3, 'Pod::Simple::XHTML'); | |
73 | ||
74 | open(POD, "<$$.pod") or die "$$.pod: $!"; | |
75 | my $i3 = ''; | |
76 | while (<POD>) { | |
77 | s/[\r\n]+/\r\n/g; | |
78 | $i3 .= $_; | |
79 | } | |
80 | close(POD); | |
81 | ||
82 | $p3->output_string(\my $o3); | |
83 | $p3->parse_string_document($i3); | |
84 | ||
85 | # --- now test --- | |
86 | ||
87 | my $cksum1 = unpack("%32C*", $o1); | |
88 | my $cksum2 = unpack("%32C*", $o2); | |
89 | my $cksum3 = unpack("%32C*", $o3); | |
90 | ||
91 | ok($cksum1 == $cksum2, "CR vs LF"); | |
92 | ok($cksum1 == $cksum3, "CR vs CRLF"); | |
93 | ok($cksum2 == $cksum3, "LF vs CRLF"); | |
94 | ||
95 | END { | |
96 | 1 while unlink("$$.pod", "$$.in"); | |
97 | } |