gistfile1.clj

=================== app ==================================================

(ns app.core
  (:require [org.httpkit.server :as server]
            [ring.util.response :refer [response]]
            [ring.middleware.json :refer :all]
            [compojure.core :refer :all])
  (:import (java.lang System))
  (:gen-class))

(defn handler [request]
  (prn (get-in request [:body "user"]))
  (response {:foo "bar"}))

(defroutes app-routes
  (POST "/test" [] handler))

(def app (-> app-routes wrap-json-body wrap-json-response))

(defn -main []
  (prn "create server")
  (server/run-server app {:port 49000}))


=================== test ==================================================

(ns app.test.core
  (:use [app.core])
  (:use [clojure.test])
  (:use [peridot.core])
  (:require [cheshire.core :as json]))

(deftest simple-test
  (let [res (-> (session app)
                (request "/test"
                         :request-method :post
                         :content-type "application/json"
                         :body (.getBytes "{\"user\": \"Vasya\"}" "UTF-8")))]
    (let [data (json/parse-string (:body (:response res)) true)]
      (is "bar" (:foo data)))))