factor action execution out into solver method

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

diff --git a/t/dot_ssh.t b/t/dot_ssh.t
index 1c752a7..2e37b31 100644 (file)
--- a/t/dot_ssh.t
+++ b/t/dot_ssh.t
@@ -262,9 +262,7 @@ is(
   scalar(my ($action) = $res[0]->actions), 1
 );
 
-my ($type, $value) = $action->run;
-
-$solver->facts->{$type}->remove_value($value);
+$solver->run_action($action);
 
 ok(!$path_status{'.ssh'}, 'Empty retracted');
 
@@ -343,9 +341,7 @@ is(scalar(my @act = $res[0]->actions), 2, 'Two actions');
 
 is(scalar(my ($poss) = grep !@{$_->dependencies}, @act), 1, 'One possible');
 
-($type, $value) = $poss->run;
-
-$solver->facts->{$type}->remove_value($value);
+$solver->run_action($poss);
 
 @res = keys_file()->results;
 
@@ -356,9 +352,7 @@ is(
   'One possible'
 );
 
-($type, $value) = $poss->run;
-
-$solver->facts->{$type}->remove_value($value);
+$solver->run_action($poss);
 
 @res = keys_file()->results;