           :sort nil,
           :showValueLabels false}})
 
+(defn body-kw [res]
+  (-> res :body (json/parse-string keyword)))
 
 (deftest handler-test
   (let [h (:handler (:akvo.lumen.component.handler/handler *system*))]

                          :body (json/parse-string keyword) :id))))

          (is (= title* (-> (h (get* (api-url "/library")))
                           :body (json/parse-string keyword) :collections first :title)))
          ))
      (testing "/datasets"
        (let [title "dataset-title"

(defn put* [uri body & args]
  (apply with-body :post uri body args))

(defn >get* [method uri & [query-params]]
  (cond->
      {:request-method method
       :server-port 3030,
       :server-name "t1.lumen.local",
       :path-info uri
