                                                                                           (wait-for-git ctx (get-in @state [:git :remote]) :ref ref :ms-between-polls 100)))]
                                     (first (vals (:outputs execute-step-result)))))]
     (swap! state #(assoc % :result-channel wait-for-result-channel))
+    (wait-for-step-waiting state)
     state))
 (defn start-wait-for-git-step [state]
   (let [wait-for-result-channel (async/go

  ; just an alias
  (get-step-result state))

(defn wait-a-bit [state]
  (Thread/sleep 500)
  state)

(defn commit-hash-by-msg [state msg]
  (git-utils/commit-by-msg (:git @state) msg))


    (let [state (-> (init-state)
                    (set-git-remote "some-uri-that-doesnt-exist")
                    (start-wait-for-git-step)
                    (kill-waiting-step)
                    (get-step-result))]
      (is (= :killed (:status (step-result state))))))
