Yada no 404

yada_404.clj

(require '[yada.yada :as y])
(require '[bidi.vhosts :refer [vhosts-model]])
(require '[clj-http.client :as client])

(defmacro with-server
  "Runs resource in server and defines url for use in body"
  [resource & body]
  `(let [resource# ~resource
         vmodel# (vhosts-model [:* ["/api/foo" resource#]])
         listener# (y/listener vmodel#)
         port# (:port listener#)
         close# (:close listener#)
         ~'url (str "http://localhost:" port# "/api/foo")]
     ~@body
     (close#)))

(comment
  (with-server (y/resource
                {:methods {:post {:produces "application/json"
                                  :response (fn [ctx] nil)}}})
    (println (:status (client/post url))))) ;; 200??