eliminate variable name requirement from query()
[scpubgit/DKit.git] / t / basic_rule.t
index 173b47b..1922d7e 100644 (file)
@@ -45,9 +45,9 @@ $solver->add_rule(
   server => [ 'S' ] => [ member_of => S => [ value => 'servers' ] ]
 );
 
-my $s = $solver->query([ 'S' ], [ call => server => 'S' ]);
+my $s = $solver->query([ server => 'S' ]);
 
-is_deeply([ map $_->{S}{name}, $s->results ], [ sort @servers ]);
+is_deeply([ map $_->value_for('S')->{name}, $s->results ], [ sort @servers ]);
 
 $solver->add_rule(
   shell => [ 'S' ] => [ member_of => S => [ value => 'shells' ] ])
@@ -61,7 +61,6 @@ $solver->add_rule(
                  );
 
 $s = $solver->query(
-       [ qw(Shell Srv) ],
        [ shell => 'Shell' ],
        [ name => 'Shell', [ value => 'bash' ] ],
        [ server => 'Srv' ],
@@ -69,7 +68,7 @@ $s = $solver->query(
      );
 
 is_deeply(
-  [ sort map $_->{Srv}{name}, $s->results ],
+  [ sort map $_->value_for('Srv')->{name}, $s->results ],
   [ qw(joe.example.com kitty.scsys.co.uk) ]
 );