4 use File::Spec::Functions;
7 my($podfile, $testname) = @_;
10 my $base_dir = catdir $cwd, "..", "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}/;
30 open my $in, $outfile or die "cannot open $outfile: $!";
34 is($expect, $result, $testname);