5 print "1..0 \# Skip: EBCDIC\n";
10 use Test::More tests => 3;
12 open(POD, ">$$.pod") or die "$$.pod: $!";
22 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
23 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
24 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
25 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 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
33 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
34 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
44 open(POD, "<$$.pod") or die "$$.pod: $!";
45 open(IN, ">$$.in") or die "$$.in: $!";
53 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o1");
57 open(POD, "<$$.pod") or die "$$.pod: $!";
58 open(IN, ">$$.in") or die "$$.in: $!";
66 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o2");
70 open(POD, "<$$.pod") or die "$$.pod: $!";
71 open(IN, ">$$.in") or die "$$.in: $!";
74 print IN $_, "\x0D\x0A";
79 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o3");
85 open(IN, "<$$.o1") or die "$$.o1: $!";
86 my $cksum1 = unpack("%32C*", <IN>);
88 open(IN, "<$$.o2") or die "$$.o2: $!";
89 my $cksum2 = unpack("%32C*", <IN>);
91 open(IN, "<$$.o3") or die "$$.o3: $!";
92 my $cksum3 = unpack("%32C*", <IN>);
94 ok($cksum1 == $cksum2, "CR vs LF");
95 ok($cksum1 == $cksum3, "CR vs CRLF");
96 ok($cksum2 == $cksum3, "LF vs CRLF");
99 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3");