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

fix test

Browse source
This commit is contained in:
Michiel Borkent 2024-04-28 16:12:10 +02:00
parent d4691a999e
commit df4897cfec
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test/babashka/test_test.clj
View file

@ -37,24 +37,26 @@
(deftest fixtures-test (deftest fixtures-test
(let [output (bb " (let [output (bb "
(require '[clojure.test :as t]) (require '[clojure.test :as t])
(defn once [f] (prn :once-before) (f) (prn :once-after)) (defn once [f] (prn :once-before) (f)
(defn each [f] (prn :each-before) (f) (prn :each-after)) (prn :once-after)
(prn (some? (::t/once-fixtures (meta *ns*)))))
(defn each [f] (prn :each-before) (f) (prn :each-after)
(prn (some? (::t/each-fixtures (meta *ns*)))))
(t/use-fixtures :once once) (t/use-fixtures :once once)
(t/use-fixtures :each each) (t/use-fixtures :each each)
(t/deftest foo) (t/deftest foo)
(t/deftest bar) (t/deftest bar)
(t/run-tests) (t/run-tests)")]
(prn (some? (::t/each-fixtures (meta *ns*))))
(prn (some? (::t/once-fixtures (meta *ns*))))")]
(println output)
(is (str/includes? output (str/trim " (is (str/includes? output (str/trim "
:once-before :once-before
:each-before :each-before
:each-after :each-after
true
:each-before :each-before
:each-after :each-after
:once-after
true true
:once-after
true"))))) true")))))
(deftest with-test (deftest with-test