#!perl
use Test::Most;
use strict;
use warnings;
use autodie;
use Test::DZil;
use Dist::Zilla::Plugin::ReadmeAnyFromPod;
my @config = ('GatherDir',
[ 'ReadmeAnyFromPod',
{
source_filename => "bin/sample",
},
]
);
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => {
'source/dist.ini' => simple_ini(@config),
},
}
);
my $built = lives_ok { $tzil->build; } "Built dist successfully";
if ($built) {
my $content = $tzil->slurp_file("build/README");
like($content, qr/script/, "README contents are derived from 'bin/sample' instead of default.");
}
else {
skip "Building dist failed", 1;
}
done_testing(2);