From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
my %TEST_ATTR = (
files => {
values => [ qw(My/Module.pm My/Module2.pm) ],
aliases => [ qw(files) ],
},
directories => {
values => [ qw(My/Private My/Private2) ],
aliases => [ qw(dir directory folder) ],
},
packages => {
values => [ qw(My::Module::Stuff My::Module::Things) ],
aliases => [ qw(class module package) ],
},
namespaces => {
values => [ qw(My::Module::Stuff My::Module::Things)],
aliases => [ qw(namespace) ],
},
);
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => {
'source/dist.ini' => simple_ini(
[
MetaNoIndex => {
file => 'file-1.txt',
files => 'file-2.txt',
dir => 'dir-1',
directory => 'dir-2',
directories => 'dir-3',
folder => 'dir-4',
package => 'Package::1',
packages => 'Package::2',
class => 'Class::1',
module => 'Module::1',
namespace => 'Namespace::1',
namespaces => 'Namespaces::1',
},
],
),
},
},
);
$tzil->build;
cmp_deeply(
$tzil->distmeta,
superhashof({ no_index => {
file => bag(qw(file-1.txt file-2.txt)),
directory => bag(qw(dir-1 dir-2 dir-3 dir-4)),
package => bag(qw(Package::1 Package::2 Class::1 Module::1)),
namespace => bag(qw(Namespace::1 Namespaces::1)),
}}),
"we generated the no_index entry we expected",
);
done_testing;