$solver->add_rule(shell => [ 'S' ] => [ member_of => qw(S shells) ])
->add_rule(name => [ qw(T N) ],
[ constrain => [ qw(T N) ],
- sub { ::Dwarn(\@_); $_[0]->{name} eq $_[1] } ]
+ sub { $_[0]->{name} eq $_[1] } ]
)
->add_rule(shell_installed_on => [ qw(Shell Srv) ],
[ constrain => [ qw(Shell Srv) ],
$s = $solver->query(
[ qw(Shell Srv) ],
- [ call => shell => 'Shell' ],
- [ call => name => 'Shell', [ value => 'bash' ] ],
- [ call => server => 'Srv' ],
- [ call => shell_installed_on => qw(Shell Srv) ],
+ [ shell => 'Shell' ],
+ [ name => 'Shell', [ value => 'bash' ] ],
+ [ server => 'Srv' ],
+ [ shell_installed_on => qw(Shell Srv) ],
);
-::Dwarn($s->results);
+is_deeply(
+ [ sort map $_->{Srv}{name}, $s->results ],
+ [ qw(joe.example.com kitty.scsys.co.uk) ]
+);
done_testing;