46 lines
1.7 KiB
Clojure
46 lines
1.7 KiB
Clojure
(ns check.start-with-test
|
|
(:require [mount.core :as mount :refer [defstate]]
|
|
[app.config :refer [app-config]]
|
|
[app.nyse :refer [conn]]
|
|
[app :refer [nrepl]]
|
|
[clojure.test :refer :all]))
|
|
|
|
(defstate test-conn :start (long 42)
|
|
:stop (constantly 0))
|
|
|
|
(defstate test-nrepl :start (vector))
|
|
|
|
(deftest start-with
|
|
|
|
(testing "should start with substitutes"
|
|
(let [_ (mount/start-with {#'app.nyse/conn #'check.start-with-test/test-conn
|
|
#'app/nrepl #'check.start-with-test/test-nrepl})]
|
|
(is (map? app-config))
|
|
(is (vector? nrepl))
|
|
(is (= conn 42))
|
|
(mount/stop)))
|
|
|
|
(testing "should not start the substitute itself"
|
|
(let [_ (mount/start-with {#'app.nyse/conn #'check.start-with-test/test-conn})]
|
|
(is (instance? mount.core.NotStartedState test-conn))
|
|
(is (= conn 42))
|
|
(mount/stop)))
|
|
|
|
(testing "should start normally after start-with"
|
|
(let [_ (mount/start)]
|
|
(is (map? app-config))
|
|
(is (instance? clojure.tools.nrepl.server.Server nrepl))
|
|
(is (instance? datomic.peer.LocalConnection conn))
|
|
(is (= test-conn 42))
|
|
(is (vector? test-nrepl))
|
|
(mount/stop)))
|
|
|
|
(testing "should start-without normally after start-with"
|
|
(let [_ (mount/start-without #'check.start-with-test/test-conn
|
|
#'check.start-with-test/test-nrepl)]
|
|
(is (map? app-config))
|
|
(is (instance? clojure.tools.nrepl.server.Server nrepl))
|
|
(is (instance? datomic.peer.LocalConnection conn))
|
|
(is (instance? mount.core.NotStartedState test-conn))
|
|
(is (instance? mount.core.NotStartedState test-nrepl))
|
|
(mount/stop))))
|