           (git-commit "second commit")
           (start-clone-step (commit-hash-by-msg state "first commit") workspace)
           (get-step-result))
-      (is (= :success (:status (wait-for-git-result state))))
+      (is (= :success (:status (step-result state))))
       (is (= "some content"
              (slurp (io/file workspace "some-file"))))))
   (testing "that we can get information on the progress of a clone"

                    (wait-a-bit)
                    (git-commit "other commit")
                    (get-step-result))]
      (is (str-containing (commit-hash-by-msg state "initial commit") (:out (wait-for-git-result state))))
      (is (str-containing (commit-hash-by-msg state "other commit") (:out (wait-for-git-result state))))))
  (testing "that waiting returns immediately when a commit happened while it was not waiting"
    (let [state (-> (init-state)
                    (git-init)

                    (wait-a-bit)
                    (kill-waiting-step)
                    (get-step-result))]
      (is (= :killed (:status (step-result state))))))
  (testing "that it prints out errors if a repository can't be reached"
    (let [state (-> (init-state)
                    (set-git-remote "some-uri-that-doesnt-exist")
