view release on metacpan or  search on metacpan

t/02-builder.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Differences;
use Dist::Iller;
use syntax 'qs';
use Path::Tiny;
use DateTime;
use File::chdir;

my $iller = Dist::Iller->new(filepath => 't/corpus/02-builder.yaml');
$iller->parse('before');

my $tempdir = Path::Tiny->tempdir();

my $current_dir = path('.')->realpath;
{
    local $CWD = $tempdir->stringify;
    $iller->generate_files('before');
}
$iller->parse('after');
{
    local $CWD = $tempdir->stringify;
    $iller->generate_files('after');
}


eq_or_diff clean($tempdir->child('dist.ini')->slurp_utf8), clean(dist()), 'Correct dist.ini';
eq_or_diff clean($tempdir->child('weaver.ini')->slurp_utf8), clean(weaver()), 'Correct weaver.ini';

done_testing;

sub clean {
    my $string = shift;
    $string =~ s{^\v}{};
    $string =~ s{^(\s*?;.* on).*}{$1...};
    return $string;
}

sub dist {
    my $current_year = DateTime->now->year;
    return qqs{
        ; This file was auto-generated from iller.yaml by Dist::Iller on

        author = Erik Carlsson
        copyright_year = $current_year

        [GatherDir]

        [PruneCruft]

        [ManifestSkip]

        [MetaYAML]

        [License]

        [Readme]

        [ExtraTests]

        [ExecDir]

        [ShareDir]