             nil)))
 
 (defn test-job?
+    "Check if the given job name is name of the test job."
     [job-name request]
     (results/test-job? job-name (config/get-test-jobs-prefix request)
                                 (config/get-preview-test-jobs-suffix request)

            (http-response/content-type "application/json"))))

(defn send-error-response
    [response request http-code]
    (if (config/pretty-print? request)
        (-> (http-response/response (with-out-str (json/pprint response)))

        (send-response response request)))

(defn configuration-handler
    "REST API handler for the /api/configuration request."
    [request]
    (if (config/verbose-show-configuration? request)
        (let [response (-> request :configuration)]
