 
 (defn session-option [parameters]
   {:username                 (:user parameters)
-   :password                 (:password parameters)
    :strict-host-key-checking :no})
 
 (defn remote-test-refresh [project & _]

                 "git reset --hard;"
                 (str "git apply --whitespace=warn " remote-patch-file-name ";")
                 "rm -f " remote-patch-file-name ";")
        result-apply-patch (ssh/ssh session {:cmd cmd})]
    (if (= 0 (:exit result-apply-patch))
      {:step :apply-patch :status :success}
      {:step :apply-patch :status :failed :error (:err result-apply-patch)})))

  (try
    (let [asset-paths (find-asset-paths project)
          parameters (start-parameters project)
          agent (ssh/ssh-agent {})
          session (ssh/session agent (:host parameters) (session-option parameters))]
      (m/info "* Starting with the parameters:" (assoc parameters :password "***") "\n")
      (ssh/connect session)
