#!./perl -w
-BEGIN {
- if (ord("A") == 193) {
- print "1..0 \# Skip: EBCDIC\n";
- exit(0);
- }
-}
-
use Test::More tests => 3;
open(POD, ">$$.pod") or die "$$.pod: $!";
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0D";
+ s/[\r\n]+/\r/g;
+ print IN $_;
}
close(POD);
close(IN);
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0A";
+ s/[\r\n]+/\n/g;
+ print IN $_;
}
close(POD);
close(IN);
open(POD, "<$$.pod") or die "$$.pod: $!";
open(IN, ">$$.in") or die "$$.in: $!";
while (<POD>) {
- tr/\x0D\x0A//d;
- print IN $_, "\x0D\x0A";
+ s/[\r\n]+/\r\n/g;
+ print IN $_;
}
close(POD);
close(IN);
ok($cksum1 == $cksum2, "CR vs LF");
ok($cksum1 == $cksum3, "CR vs CRLF");
ok($cksum2 == $cksum3, "LF vs CRLF");
+close IN;
END {
- 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3");
+ 1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3",
+ "pod2htmd.x~~", "pod2htmi.x~~");
}