3 use Test::More tests => 3;
5 open(POD, ">$$.pod") or die "$$.pod: $!";
15 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
16 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
17 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
18 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
26 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
27 crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf
37 open(POD, "<$$.pod") or die "$$.pod: $!";
38 open(IN, ">$$.in") or die "$$.in: $!";
46 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o1");
50 open(POD, "<$$.pod") or die "$$.pod: $!";
51 open(IN, ">$$.in") or die "$$.in: $!";
59 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o2");
63 open(POD, "<$$.pod") or die "$$.pod: $!";
64 open(IN, ">$$.in") or die "$$.in: $!";
72 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o3");
78 open(IN, "<$$.o1") or die "$$.o1: $!";
79 my $cksum1 = unpack("%32C*", <IN>);
81 open(IN, "<$$.o2") or die "$$.o2: $!";
82 my $cksum2 = unpack("%32C*", <IN>);
84 open(IN, "<$$.o3") or die "$$.o3: $!";
85 my $cksum3 = unpack("%32C*", <IN>);
87 ok($cksum1 == $cksum2, "CR vs LF");
88 ok($cksum1 == $cksum3, "CR vs CRLF");
89 ok($cksum2 == $cksum3, "LF vs CRLF");
93 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3",
94 "pod2htmd.x~~", "pod2htmi.x~~");