         (is (= (json/decode body true) expected))))
 
     (testing "get algorithms"
-      (let [resp   (req :get (str http-host "/algorithms"))
+      (let [resp   (get-algorithms http-host)
             status (:status resp)
             body   (:body resp)
             expected [{:algorithm "good"


(def json-header {"Accept" "application/json"
                  "Content-Type" "application/json"})

(deftest changes-health-resource
  (with-system


(deftest results
  (with-system
    ;; put a good alg in the system
    (upsert-algorithm http-host {:algorithm "test-alg"
                                 :enabled true
                                 :inputs_url_template
                                 "http://host/{algorithm}/{x}/{y}/{now}"})

    (testing "run non-existent algorithm")
    (testing "schedule existing algorithm")
    (testing "schedule same algorithm, get ticket")
