| 1 | # t/eol2.t - check handling of \r, \n, and \r\n as line separators (again) |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 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 | } |