4 use File::Spec::Functions;
7 my($podfile, $testname) = @_;
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";
17 "--podroot=$base_dir",
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/;
33 open my $in, $outfile or die "cannot open $outfile: $!";
36 1 while unlink $outfile;
38 is($expect, $result, $testname);
39 # pod2html creates these
40 1 while unlink "pod2htmd.x~~";
41 1 while unlink "pod2htmi.x~~";