 (defn job-name->environment
     [job-name preview-jobs-suffix stage-jobs-suffix prod-jobs-suffix]
     (cond
-        (.endsWith job-name preview-jobs-suffix) :preview
-        (.endsWith job-name stage-jobs-suffix)   :stage
-        (.endsWith job-name prod-jobs-suffix)    :prod))
+        (endsWith job-name preview-jobs-suffix) :preview
+        (endsWith job-name stage-jobs-suffix)   :stage
+        (endsWith job-name prod-jobs-suffix)    :prod))
 
 (defn compute-job-status
     [jenkins-job-status buildable?]

(require '[clj-jenkins-api.jenkins-api :as jenkins-api])

(require '[emender-jenkins.config      :as config])

(def results (atom nil))


(defn test-job?
    [job-name jobs-prefix preview-jobs-suffix stage-jobs-suffix prod-jobs-suffix]
    (and (.startsWith job-name jobs-prefix)
         (or (endsWith job-name preview-jobs-suffix)
             (endsWith job-name stage-jobs-suffix)
             (endsWith job-name prod-jobs-suffix))))

(defn filter-test-jobs
    [all-jobs jobs-prefix preview-jobs-suffix stage-jobs-suffix prod-jobs-suffix]
