add exists, convert dot_ssh to use prop for everything

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

diff --git a/t/observe.t b/t/observe.t
index 04432ac..f3594c6 100644 (file)
--- a/t/observe.t
+++ b/t/observe.t
@@ -15,7 +15,7 @@ my %paths = %observe_path;
 my $set_dot_ssh = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
-    $state->bind_value($state->scope_var('P'), '/home/me/.ssh')
+    $state->bind_value($state->scope_var('P')->id, '/home/me/.ssh')
           ->then($self->next);
   }
 );
@@ -24,7 +24,7 @@ my $path_status = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
     if (my $p = $paths{$state->scope_var('P')->bound_value}) {
-      return $state->bind_value($state->scope_var('PS'), $p)
+      return $state->bind_value($state->scope_var('PS')->id, $p)
                    ->then($self->next);
     }
     return $state->backtrack;