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

#69: stop accepts collections of states

Browse source 
vs. an implicit all and varargs
This commit is contained in:
anatoly 2016-11-28 11:30:38 -05:00
parent e2ef7bba55
commit 62cb9dd516
2 changed files with 23 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/mount/core.cljc
View file

@ -252,11 +252,17 @@
{:started (bring states up <)})))) {:started (bring states up <)}))))
(defn stop [& states] (defn stop [& states]
(let [states (or states (find-all-states)) (let [fs (-> states first)]
(if (coll? fs)
(if-not (empty? fs) ;; (mount/start) vs. (mount/start #{}) vs. (mount/start #{1 2 3})
(apply stop fs)
{:stopped #{}})
(let [states (or (seq states)
(find-all-states))
_ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with" _ (dorun (map unsub states)) ;; unmark substitutions marked by "start-with"
stopped (bring states down >)] stopped (bring states down >)]
(dorun (map rollback! states)) ;; restore to origin from "start-with" (dorun (map rollback! states)) ;; restore to origin from "start-with"
{:stopped stopped})) {:stopped stopped}))))
;; composable set of states ;; composable set of states

12
test/core/mount/test/composable_fns.cljc
View file

@ -167,4 +167,14 @@
(let [scope #{}] (let [scope #{}]
(is (= {:started #{}} (-> (only scope) (is (= {:started #{}} (-> (only scope)
mount/start))) mount/start)))
(mount/stop))))) (mount/stop)))
(testing "should not stop anything on empty seq of states"
(let [scope #{}]
(mount/start)
(is (instance? datomic.peer.LocalConnection (dval conn)))
(is (= {:stopped #{}} (-> (only scope)
mount/stop)))
(is (instance? datomic.peer.LocalConnection (dval conn)))
(mount/stop)
(is (instance? mount.core.NotStartedState (dval conn)))))))