Re: [PATCH lib/Cwd.pm] fixing proto mismatch warning

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / pod2html-lib.pl

require Cwd;
require Pod::Html;
require Config;
use File::Spec::Functions;

sub convert_n_test {
    my($podfile, $testname) = @_;

    my $cwd = Cwd::cwd();
    my $new_dir = catdir $cwd, "..", "lib", "Pod", "t";
    my $infile  = catfile $new_dir, "$podfile.pod";
    my $outfile = catfile $new_dir, "$podfile.html";

    Pod::Html::pod2html(
        "--podpath=pod2html",
        "--podroot=$cwd",
        "--htmlroot=/",
        "--infile=$infile",
        "--outfile=$outfile"
    );


    local $/;
    # expected
    my $expect = <DATA>;
    $expect =~ s/\[PERLADMIN\]/$Config::Config{perladmin}/;

    # result
    open my $in, $outfile or die "cannot open $outfile: $!";
    my $result = <$in>;
    close $in;

    is($expect, $result, $testname);

}

1;