27 lines
979 B
Clojure
27 lines
979 B
Clojure
|
(ns ruuter.core-test
|
||
|
|
(:require [clojure.test :refer [deftest is testing]]
|
||
|
|
[org.httpkit.client :as client]
|
||
|
|
[org.httpkit.server :as server]
|
||
|
|
[ruuter.core :as ruuter]))
|
||
|
|
|
||
|
|
(def routes [{:path "/"
|
||
|
|
:method :get
|
||
|
|
:response {:status 200
|
||
|
|
:body "Hi there!"}}
|
||
|
|
{:path "/hello/:who"
|
||
|
|
:method :get
|
||
|
|
:response (fn [req]
|
||
|
|
{:status 200
|
||
|
|
:body (str "Hello, " (:who (:params req)))})}])
|
||
|
|
|
||
|
|
(def port 8080)
|
||
|
|
|
||
|
|
(deftest ruuter-with-httpkit-test
|
||
|
|
(let [stop-server (server/run-server #(ruuter/route routes %) {:port port})
|
||
|
|
fetch #(:body (deref (client/get (str "http://localhost:" port %) {:as :text}) 500 nil))
|
||
|
|
root-result (fetch "/")
|
||
|
|
hello-result (fetch "/hello/babashka")]
|
||
|
|
(stop-server)
|
||
|
|
(is (= "Hi there!" root-result))
|
||
|
|
(is (= "Hello, babashka" hello-result))))
|