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
|
use strict;
use warnings;
use Test::More 0.88;
use lib 't/lib';
use Test::DZil;
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => {
'source/dist.ini' => simple_ini(
[ GatherDir => ],
[ GatherDir => BonusFiles => {
root => '../corpus/extra',
prefix => 'bonus',
} ],
[ GatherDir => DottyFiles => {
root => '../corpus/extra',
prefix => 'dotty',
include_dotfiles => 1,
} ],
[ GatherDir => Selective => {
root => '../corpus/extra',
prefix => 'some',
exclude_filename => 'notme.txt',
} ],
[ GatherDir => SelectiveMatch => {
root => '../corpus/extra',
prefix => 'xmatch',
exclude_match => 'notme\.*',
} ],
'Manifest',
),
'source/.profile' => "Bogus dotfile.\n",
'corpus/extra/.dotfile' => "Bogus dotfile.\n",
'corpus/extra/notme.txt' => "A file to exclude.\n",
},
also_copy => { 'corpus/extra' => 'corpus/extra' },
},
);
$tzil->build;
my @files = map {; $_->name } @{ $tzil->files };
is_filelist(
[ @files ],
[ qw(
bonus/subdir/index.html bonus/vader.txt bonus/notme.txt
dotty/subdir/index.html dotty/vader.txt dotty/.dotfile dotty/notme.txt
some/subdir/index.html some/vader.txt
xmatch/subdir/index.html xmatch/vader.txt
dist.ini lib/DZT/Sample.pm t/basic.t
MANIFEST
) ],
"GatherDir gathers all files in the source dir",
);
my $manifest = $tzil->slurp_file('build/MANIFEST');
my %in_manifest = map {; chomp; $_ => 1 } grep {length} split /\n/, $manifest;
my $count = grep { $in_manifest{$_} } @files;
ok($count == @files, "all files found were in manifest");
ok(keys(%in_manifest) == @files, "all files in manifest were on disk");
done_testing;
|
