   [path]
   (client/get (str "http://localhost:8192" path)
               {:throw-exceptions false
-               :content-type     :edn
-               :accept           :edn
-               :as               :clojure}))
+               :accept           :json}))
 
 (defmacro should-have-status
   [expected-status response]

                      expected-status#
                      (pretty-print response#))))))

(defn tap
  [message data]
  (l/debugf "%s: %s" message (pretty-print data))
  data)

(def expected-swagger-data
  {})


(def swagger-options (-> rs/default-swagger-options
                         (assoc-in [:template :info :title] "Hotels and Rooms API")
                         (assoc-in [:template :info :version] "Pre-Alpha")))

(binding [t/*log-trace-level* :info]
  (-> (swagger-object nil swagger-options
                      ["hotels" 'hotels
                       [[:hotel-id "rooms"] 'rooms]])


    (it "can expose the resource listing"

        ;; The result is so large and complex, there isn't much we can do to check it here.
        (->> (get* "/swagger.json")
             (should-have-status HttpServletResponse/SC_OK)))))

(run-specs)
