introduce root set

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

diff --git a/t/ssh_key.t b/t/ssh_key.t
index b7ed6ed..da18596 100644 (file)
--- a/t/ssh_key.t
+++ b/t/ssh_key.t
@@ -1,6 +1,5 @@
 use strictures 1;
 use Test::More;
-use Unknown::Values;
 use List::Util qw(reduce);
 use aliased 'DX::Op::FromCode';
 use DX::Var;
@@ -29,7 +28,7 @@ sub make_set_bind {
     die "key unbound" unless $key->is_bound;
     die "thing bound" if $thing->is_bound;
     if (my $value = $set->{$key->bound_value}) {
-      return $state->bind_var_then($thing, $value, $self->next);
+      return $state->bind_value($thing, $value)->then($self->next);
     }
     return $state->backtrack;
   }