 (defn commit-hash-by-msg [state msg]
   (git-utils/commit-by-msg (:git @state) msg))
 
-(defn wait-for-git-result [state]
-  (:wait-for-git-result @state))
+(defn step-result [state]
+  (:step-result @state))
 
 (deftest wait-for-git-test-clean
   (testing "that it waits for a new commit to happen and that it prints out information on old and new commit hashes"

                    (wait-a-bit)
                    (kill-waiting-step)
                    (get-step-result))]
      (is (= :killed                                (:status (wait-for-git-result state))))
      (is (= (commit-hash-by-msg state "initial commit") (:_git-last-seen-revision (wait-for-git-result state))))))
  (testing "that it retries until being killed if the repository cannot be reached"
    (let [state (-> (init-state)
                    (set-git-remote "some-uri-that-doesnt-exist")

                    (wait-a-bit)
                    (kill-waiting-step)
                    (get-step-result))]
      (is (str-containing "some-uri-that-doesnt-exist" (:out (step-result state)))))))

(deftest clone-test
  (testing "that we can clone a specific commit"
