luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

testing with parts of an app

Browse source
This commit is contained in:
anatoly 2015-11-14 11:05:22 -05:00
parent 50055e7b8b
commit beef424715
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
test/check/parts_test.clj Normal file
View file

@ -0,0 +1,17 @@
(ns check.parts-test
(:require [mount :refer [defstate] :as m]
[app.nyse :refer [conn]]
[clojure.test :refer :all]))
(defstate should-not-start :start (throw (RuntimeException. "should not have been started!")))
(defn with-parts [f]
(m/start #'app.config/app-config #'app.nyse/conn)
(f)
(m/stop #'app.config/app-config #'app.nyse/conn))
(use-fixtures :each with-parts)
(deftest start-only-parts
(is (instance? datomic.peer.LocalConnection conn))
(is (instance? mount.NotStartedState should-not-start)))