expunge [ value => $value ] style in favour of scalarrefs

[scpubgit/DKit.git] / t / basic_rule.t

diff --git a/t/basic_rule.t b/t/basic_rule.t
index 1922d7e..44e7366 100644 (file)
--- a/t/basic_rule.t
+++ b/t/basic_rule.t
@@ -42,7 +42,7 @@ my $solver = DX::Solver->new(
 );
 
 $solver->add_rule(
-  server => [ 'S' ] => [ member_of => S => [ value => 'servers' ] ]
+  server => [ 'S' ] => [ member_of => S => \'servers' ]
 );
 
 my $s = $solver->query([ server => 'S' ]);
@@ -50,7 +50,7 @@ my $s = $solver->query([ server => 'S' ]);
 is_deeply([ map $_->value_for('S')->{name}, $s->results ], [ sort @servers ]);
 
 $solver->add_rule(
-  shell => [ 'S' ] => [ member_of => S => [ value => 'shells' ] ])
+  shell => [ 'S' ] => [ member_of => S => \'shells' ])
        ->add_rule(name => [ qw(T N) ],
                     [ constrain => [ qw(T N) ],
                       sub { $_[0]->{name} eq $_[1] } ]
@@ -62,7 +62,7 @@ $solver->add_rule(
 
 $s = $solver->query(
        [ shell => 'Shell' ],
-       [ name => 'Shell', [ value => 'bash' ] ],
+       [ name => 'Shell', \'bash' ],
        [ server => 'Srv' ],
        [ shell_installed_on => qw(Shell Srv) ],
      );