api.clj

(ns seraph.test.redirect
  (:use
   clojure.test
   picard.test
   picard.helpers
   seraph.redirect))

(defn handle-request
  [{path-info :path-info :as hdrs} body]
  (cond
    (= "api.strobeapp.com" host))
    [200 {:request-hdrs hdrs} "you got api.strobeapp.com"]

    (= "api.strobeapp.local" host))
    [200 {:request-hdrs hdrs} "you got api.strobeapp.local"]


   :else
   [404 {} ""]

(defn- mock-proxy
  [dn]
  (defstream
    (request [[hdrs body]]
      (dn :response (handle-request hdrs body)))))

(defmacro with-stack
  [opts & stmts]
  (if-not (map? opts)
    `(with-stack {} ~opts ~@stmts)
    `(with-app
       (routing/mk-stack
        {:api-proxy mock-proxy})
       ~@stmts)))

(deftest ^{:focus true} forwards-api-request-default
  (with-stack
    (GET "api.strobeapp.com/applications")
    (is (= 200 (last-response-status)))))