Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

use strict;
use Test::More 0.88;
use lib 't/lib';
{
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => {
'source/dist.ini' => simple_ini(
{ name => undef },
'GatherDir',
'TestAutoName',
),
},
},
);
$tzil->build;
is($tzil->name, 'FooBar', "dist name is set (in DZ obj)");
}
done_testing;