Commit | Line | Data |
efad53c4 |
1 | use strictures 2; |
2 | use DX::Utils qw(:all); |
3 | use DX::DependencyMap; |
4 | use List::Util qw(reduce); |
5 | use Test::More; |
6 | |
7 | my $start = DX::DependencyMap->new(deps => {}, revdeps => {}); |
8 | |
9 | { |
10 | |
11 | my @xyz = qw(x x.y x.z); |
12 | |
13 | my $content = reduce { |
14 | $a->with_entry_for($b, [ [ CONTENTS_OF ,=> split(/\./,$b) ] ]) |
15 | } $start, @xyz; |
16 | |
17 | is( |
18 | (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x y) ])), |
19 | 'x x.y', |
20 | 'x.y set clears contents_of x', |
21 | ); |
22 | is( |
23 | (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x) ])), |
24 | 'x x.y x.z', |
25 | 'x set clears contents_of all x.*', |
26 | ); |
27 | } |
28 | |
29 | done_testing; |