1#!./perl -w 2 3use Test::More tests => 3; 4 5my $podfile = "$$.pod"; 6my $infile = "$$.in"; 7my @outfile = map { "$$.o$_" } 0..2; 8 9open my $pod, '>', $podfile or die "$podfile: $!"; 10print $pod <<__EOF__; 11=pod 12 13=head1 NAME 14 15crlf 16 17=head1 DESCRIPTION 18 19crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 20crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 21crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 22crlf 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 28crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 29crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 30crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 31crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf 32 33=cut 34__EOF__ 35close $pod or die $!; 36 37use Pod::Html; 38 39my $i = 0; 40foreach my $eol ("\r", "\n", "\r\n") { 41 open $pod, '<', $podfile or die "$podfile: $!"; 42 open my $in, '>', $infile or die "$infile: $!"; 43 while (<$pod>) { 44 s/[\r\n]+/$eol/g; 45 print $in $_; 46 } 47 close $pod or die $!; 48 close $in or die $!; 49 50 pod2html("--title=eol", "--infile=$infile", "--outfile=$outfile[$i]"); 51 ++$i; 52} 53 54# --- now test --- 55 56my @cksum; 57 58foreach (0..2) { 59 local $/; 60 open my $in, '<', $outfile[$_] or die "$outfile[$_]: $!"; 61 $cksum[$_] = unpack "%32C*", <$in>; 62 close $in or die $!; 63} 64 65is($cksum[0], $cksum[1], "CR vs LF"); 66is($cksum[0], $cksum[2], "CR vs CRLF"); 67is($cksum[1], $cksum[2], "LF vs CRLF"); 68 69END { 70 1 while unlink $podfile, $infile, @outfile, 'pod2htmd.tmp'; 71} 72