1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
use strict;
use warnings;
use Test::More 0.88;
use lib 't/lib';
use Test::DZil;
use YAML::Tiny;
{
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => {
'source/dist.ini' => simple_ini(
{ version => undef },
'GatherDir',
[ AutoVersion => { major => 6, format => '{{$major}}.{{$^T}}' } ],
),
},
},
);
$tzil->build;
my $want_version = "6." . $^T;
is($tzil->version, $want_version, "dist version is set (in DZ obj)");
}
done_testing;
|