                   :text-done "The issue is created. Check out the repository."}
    :github-pull-request {:build build-gh-pull-request
                          :schema schm/GithubPullRequestAction
-                         :text-progress "Creating pull request on Github..."
+                         :text-progress "Creating test pull request on GitHub..."
                          :text-done "The pull request is created. Check out the repository."}})
 
 (defn send-new-action [data-pack]

            :dataType "json"
            :async true
            :error #(msg/danger "Invalid request. Please, check out request data.")
            :success callback}))

(defn get-github-repos [github-name callback error-handler]
  (jq/ajax (str "https://api.github.com/users/" github-name "/repos")

        data (build data-pack)]
    (if (s/check schema data)
      (msg/danger default-error-message)
      (ajax
       (str "/api/actions/" (:action-id data-pack)) "PUT"
       data (wrap-error-alert
             #(common-update-callback action-update-error-message data %))))))

(defn delete-action [action-id]
  (.modal ($ :#iModalAddAction) "hide")
