28 lines
725 B
Clojure
28 lines
725 B
Clojure
(ns shapey-shifty.test.handler
|
|
(:require
|
|
[clojure.test :refer :all]
|
|
[ring.mock.request :refer :all]
|
|
[shapey-shifty.handler :refer :all]
|
|
[shapey-shifty.middleware.formats :as formats]
|
|
[muuntaja.core :as m]
|
|
[mount.core :as mount]))
|
|
|
|
(defn parse-json [body]
|
|
(m/decode formats/instance "application/json" body))
|
|
|
|
(use-fixtures
|
|
:once
|
|
(fn [f]
|
|
(mount/start #'shapey-shifty.config/env
|
|
#'shapey-shifty.handler/app-routes)
|
|
(f)))
|
|
|
|
(deftest test-app
|
|
(testing "main route"
|
|
(let [response ((app) (request :get "/"))]
|
|
(is (= 200 (:status response)))))
|
|
|
|
(testing "not-found route"
|
|
(let [response ((app) (request :get "/invalid"))]
|
|
(is (= 404 (:status response))))))
|