mount/test/check/start_with_test.clj

(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 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))))