31 lines
1.1 KiB
Clojure
31 lines
1.1 KiB
Clojure
(ns check.stop-except-test
|
|
(:require [mount.core :as mount :refer [defstate]]
|
|
[app.config :refer [app-config]]
|
|
[app.nyse :refer [conn]]
|
|
[app :refer [nrepl]]
|
|
[clojure.test :refer :all]))
|
|
|
|
(deftest stop-except
|
|
|
|
(testing "should stop all except nrepl"
|
|
(let [_ (mount/start)
|
|
_ (mount/stop-except #'app.nyse/conn #'app.config/app-config)]
|
|
(is (map? app-config))
|
|
(is (instance? datomic.peer.LocalConnection conn))
|
|
(is (instance? mount.core.NotStartedState nrepl))
|
|
(mount/stop)))
|
|
|
|
(testing "should start normally after stop-except"
|
|
(let [_ (mount/start)]
|
|
(is (map? app-config))
|
|
(is (instance? clojure.tools.nrepl.server.Server nrepl))
|
|
(is (instance? datomic.peer.LocalConnection conn))
|
|
(mount/stop)))
|
|
|
|
(testing "should stop all normally after stop-except"
|
|
(let [_ (mount/start)
|
|
_ (mount/stop-except #'app.nyse/conn #'app.config/app-config)
|
|
_ (mount/stop)]
|
|
(is (instance? mount.core.NotStartedState app-config))
|
|
(is (instance? mount.core.NotStartedState conn))
|
|
(is (instance? mount.core.NotStartedState nrepl)))))
|