blob: e78a812f07465fc2a8646d49650eda5ff28e0b78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(ns weepinbell.webserver-test
(:require [clojure.test :refer [deftest testing is]]
[clojure.core.async :refer [chan]]
[weepinbell.webserver.facade :refer [start-webserver]]
[weepinbell.http.client :as client]))
(deftest webserver-start-test
(testing "Webserver should start and perform a graceful shutdown normally"
(let [port "48080"
server-meta {:wmc (chan)
:store {:append (fn [_])
:update (fn [_])
:delete (fn [_])
:get (fn [_])}
:config {:port port}}
stop (start-webserver server-meta)]
(is (not (:error (client/get! (str "http://localhost:" port)))))
(stop)
(is (:error (client/get! (str "http://localhost:" port)))))))
|
