prop op

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

diff --git a/t/dot_ssh.t b/t/dot_ssh.t
index 6e4b017..47a178b 100644 (file)
--- a/t/dot_ssh.t
+++ b/t/dot_ssh.t
@@ -55,7 +55,7 @@ $solver->add_rule(@$_) for (
   [ path_status => [ qw(PS) ],
     [ member_of => 'PS', [ value => 'path_status' ] ] ],
   [ path => [ qw(PS P) ],
-    [ constrain => [ qw(PS P) ], sub { $_[0]->path eq $_[1] } ] ],
+    [ prop => 'PS', [ value => 'path' ], 'P' ] ],
   [ mode => [ qw(PS M) ],
     [ constrain => [ qw(PS M) ],
         sub { $_[0]->info and $_[0]->info->mode eq $_[1] } ] ],