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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#!perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::DZil;
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(
'MetaJSON',
[
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;
my $meta = $tzil->slurp_file('build/META.json');
is_json(
$meta,
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;
|
