                                                                               ref          "refs/heads/master"}}]
   (let [wait-for-result-channel (async/go
                                   (let [execute-step-result (lambdacd-core/execute-step {} (:ctx @state)
-                                                                                        (fn [args ctx]
+                                                                                        (fn [_ ctx]
                                                                                           (wait-for-git ctx (get-in @state [:git :remote]) :ref ref :ms-between-polls ms-between-polls)))]
                                     (first (vals (:outputs execute-step-result)))))]
     (swap! state #(assoc % :result-channel wait-for-result-channel))

                    (git-commit "initial commit")
                    (get-step-result))]
      (is (= :success (:status (step-result state))))
      (is (= (commit-hash-by-msg state "initial commit") (:revision (step-result state)))))))
(deftest clone-test
  (testing "that we can clone a specific commit"
    (let [state (init-state)

(defn start-list-changes-step [state cwd old-revision new-revision]
  (let [wait-for-result-channel (async/go
                                  (let [execute-step-result (lambdacd-core/execute-step {} (:ctx @state)
                                                                                        (fn [_ ctx]
                                                                                          (list-changes {:cwd             cwd
                                                                                                            :old-revision old-revision
                                                                                                            :revision     new-revision} ctx)))]
