bind_var_then -> bind_value

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

diff --git a/t/ssh_key.t b/t/ssh_key.t
index ef61682..da18596 100644 (file)
--- a/t/ssh_key.t
+++ b/t/ssh_key.t
@@ -28,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;
   }