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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::DZil;
use Test::Deep;
use Test::Fatal;
use Path::Tiny;
# the cache should be invalidated when the file moves,
# since the filename is stored in the MMD object.
{
package FileAdder;
use Moose;
with 'Dist::Zilla::Role::FileGatherer';
use Dist::Zilla::File::InMemory;
sub gather_files {
my $self = shift;
$self->add_file(
Dist::Zilla::File::InMemory->new(
name => 'Foo.pm',
content => "package Foo;\nour \$VERSION = '0.001';\n1\n",
),
);
}
}
{
package FileMover;
use Moose;
with 'Dist::Zilla::Role::FileGatherer',
'Dist::Zilla::Role::ModuleMetadata';
use Scalar::Util 'refaddr';
sub gather_files {
my $self = shift;
my ($file) = grep { $_->name eq 'Foo.pm' } @{ $self->zilla->files };
my $mmd = $self->module_metadata_for_file($file);
$self->log_debug([ 'got MMD object with refaddr 0x%x for %s', refaddr($mmd), $file->name ]);
# move file from the root of the repository into lib/
# this should invalidate the MMD cache
$file->name('lib/Foo.pm');
$mmd = $self->module_metadata_for_file($file);
$self->log_debug([ 'got MMD object with refaddr 0x%x for %s', refaddr($mmd), $file->name ]);
}
}
my $tzil = Builder->from_config(
{ dist_root => 'does-not-exist' },
{
add_files => {
path(qw(source dist.ini)) => simple_ini(
'=FileAdder',
'=FileMover',
),
},
},
);
$tzil->chrome->logger->set_debug(1);
is(
exception { $tzil->build },
undef,
'build proceeds normally',
);
cmp_deeply(
[ grep { /^\[=FileMover\]/ } @{ $tzil->log_messages } ],
[
'[=FileMover] parsing Foo.pm for Module::Metadata',
re(qr/\Q[=FileMover] got MMD object with refaddr 0x\E[0-9a-f]+ for Foo\.pm/),
'[=FileMover] parsing lib/Foo.pm for Module::Metadata',
re(qr/\Q[=FileMover] got MMD object with refaddr 0x\E[0-9a-f]+ for lib\/Foo\.pm/),
],
'when a module filename changes, the cache is invalidated',
);
diag 'got log messages: ', explain $tzil->log_messages
if not Test::Builder->new->is_passing;
done_testing;
|
