14 lines
387 B
Clojure
14 lines
387 B
Clojure
(ns check.private-fun-test
|
|
(:require [mount.core :as mount :refer [defstate]]
|
|
[check.fun-with-values-test :refer [private-f]]
|
|
[clojure.test :refer :all]))
|
|
|
|
(defn with-fun-and-values [f]
|
|
(mount/start #'check.fun-with-values-test/private-f)
|
|
(f)
|
|
(mount/stop))
|
|
|
|
(use-fixtures :each with-fun-and-values)
|
|
|
|
(deftest fun-with-valuesj
|
|
(is (= (private-f 1) 42)))
|