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 7896be3..f3594c6 100644 (file)
--- a/t/observe.t
+++ b/t/observe.t
@@ -2,7 +2,6 @@ use strictures 1;
 use Test::More;
 use aliased 'DX::Op::FromCode';
 use aliased 'DX::ArrayStream';
-use DX::ResultStream;
 use DX::Var;
 use DX::State;
 use DX::ObservationRequired;
@@ -16,7 +15,8 @@ my %paths = %observe_path;
 my $set_dot_ssh = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
-    $state->bind_var_then($state->scope_var('P'), '/home/me/.ssh', $self->next);
+    $state->bind_value($state->scope_var('P')->id, '/home/me/.ssh')
+          ->then($self->next);
   }
 );
 
@@ -24,7 +24,8 @@ my $path_status = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
     if (my $p = $paths{$state->scope_var('P')->bound_value}) {
-      return $state->bind_var_then($state->scope_var('PS'), $p, $self->next);
+      return $state->bind_value($state->scope_var('PS')->id, $p)
+                   ->then($self->next);
     }
     return $state->backtrack;
   }