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;