lib/Pod/t/eol.t

   1 #!./perl -w
   2
   3 use Test::More tests => 3;
   4
   5 open(POD, ">$$.pod") or die "$$.pod: $!";
   6 print POD <<__EOF__;
   7 =pod
   8
   9 =head1 NAME
  10
  11 crlf
  12
  13 =head1 DESCRIPTION
  14
  15 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  16 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  17 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  18 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  19
  20     clrf clrf clrf clrf
  21     clrf clrf clrf clrf
  22     clrf clrf clrf clrf
  23
  24 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  25 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  26 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  27 clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf
  28
  29 =cut
  30 __EOF__
  31 close(POD);
  32
  33 use Pod::Html;
  34
  35 # --- CR ---
  36
  37 open(POD, "<$$.pod") or die "$$.pod: $!";
  38 open(IN,  ">$$.in")  or die "$$.in: $!";
  39 while (<POD>) {
  40   tr/\x0D\x0A//d;
  41   print IN $_, "\x0D";
  42 }
  43 close(POD);
  44 close(IN);
  45
  46 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o1");
  47
  48 # --- LF ---
  49
  50 open(POD, "<$$.pod") or die "$$.pod: $!";
  51 open(IN,  ">$$.in")  or die "$$.in: $!";
  52 while (<POD>) {
  53   tr/\x0D\x0A//d;
  54   print IN $_, "\x0A";
  55 }
  56 close(POD);
  57 close(IN);
  58
  59 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o2");
  60
  61 # --- CRLF ---
  62
  63 open(POD, "<$$.pod") or die "$$.pod: $!";
  64 open(IN,  ">$$.in")  or die "$$.in: $!";
  65 while (<POD>) {
  66   tr/\x0D\x0A//d;
  67   print IN $_, "\x0D\x0A";
  68 }
  69 close(POD);
  70 close(IN);
  71
  72 pod2html("--title=eol", "--infile=$$.in", "--outfile=$$.o3");
  73
  74 # --- now test ---
  75
  76 local $/;
  77
  78 open(IN, "<$$.o1") or die "$$.o1: $!";
  79 my $cksum1 = unpack("%32C*", <IN>);
  80
  81 open(IN, "<$$.o2") or die "$$.o2: $!";
  82 my $cksum2 = unpack("%32C*", <IN>);
  83
  84 open(IN, "<$$.o3") or die "$$.o3: $!";
  85 my $cksum3 = unpack("%32C*", <IN>);
  86
  87 ok($cksum1 == $cksum2, "CR vs LF");
  88 ok($cksum1 == $cksum3, "CR vs CRLF");
  89 ok($cksum2 == $cksum3, "LF vs CRLF");
  90
  91 END {
  92   1 while unlink("$$.pod", "$$.in", "$$.o1", "$$.o2", "$$.o3");
  93 }