lib/Pod/t/pod2html-lib.pl

   1 require Cwd;
   2 require Pod::Html;
   3 require Config;
   4 use File::Spec::Functions;
   5
   6 sub convert_n_test {
   7     my($podfile, $testname) = @_;
   8
   9     my $cwd = Cwd::cwd();
  10     my $base_dir = catdir $cwd, updir(), "lib", "Pod";
  11     my $new_dir  = catdir $base_dir, "t";
  12     my $infile   = catfile $new_dir, "$podfile.pod";
  13     my $outfile  = catfile $new_dir, "$podfile.html";
  14
  15     Pod::Html::pod2html(
  16         "--podpath=t",
  17         "--podroot=$base_dir",
  18         "--htmlroot=/",
  19         "--infile=$infile",
  20         "--outfile=$outfile"
  21     );
  22
  23
  24     local $/;
  25     # expected
  26     my $expect = <DATA>;
  27     $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
  28     if (ord("A") == 193) { # EBCDIC.
  29         $expect =~ s/item_mat%3c%21%3e/item_mat%4c%5a%6e/;
  30     }
  31
  32     # result
  33     open my $in, $outfile or die "cannot open $outfile: $!";
  34     my $result = <$in>;
  35     close $in;
  36     1 while unlink $outfile;
  37
  38     is($expect, $result, $testname);
  39     # pod2html creates these
  40     1 while unlink "pod2htmd.x~~";
  41     1 while unlink "pod2htmi.x~~";
  42 }
  43
  44 1;