        :headers {"host" "t1.lumen.local:3030" "content-type" "application/json"}
        :uri uri}
     query-params (assoc :query-params query-params)))
+
+(defn get* [uri & more]
+  (>get* :get uri more))
+
+(defn del* [uri & more]
+  (>get* :delete uri more))
 
 (defn job-execution-dataset-id [h job-id]
   (dh/with-retry {:retry-if (fn [v e] (not v))

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

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

                          :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"
