4 use File::Spec::Functions;
7 my($podfile, $testname) = @_;
10 my $new_dir = catdir $cwd, "..", "lib", "Pod", "t";
11 my $infile = catfile $new_dir, "$podfile.pod";
12 my $outfile = catfile $new_dir, "$podfile.html";
26 $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;
29 open my $in, $outfile or die "cannot open $outfile: $!";
33 is($expect, $result, $testname);