format aperture in backtrack trace

[scpubgit/DX.git] / t / depmap.t

use strictures 2;
use DX::Utils qw(:all);
use DX::DependencyMap;
use List::Util qw(reduce);
use Test::More;

my $start = DX::DependencyMap->new(deps => {}, revdeps => {});

{

  my @xyz = qw(x x.y x.z);

  my $content = reduce {
    $a->with_entry_for($b, [ [ CONTENTS_OF ,=> split(/\./,$b) ] ])
  } $start, @xyz;

  is(
    (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x y) ])),
   'x x.y',
   'x.y set clears contents_of x',
  );
  is(
    (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x) ])),
    'x x.y x.z',
    'x set clears contents_of all x.*',
  );
}

done_testing;