diff options
Diffstat (limited to 'test/macros.fnl')
| -rw-r--r-- | test/macros.fnl | 27 |
1 files changed, 8 insertions, 19 deletions
diff --git a/test/macros.fnl b/test/macros.fnl index 6341433..638a29d 100644 --- a/test/macros.fnl +++ b/test/macros.fnl @@ -1,18 +1,7 @@ -(import-macros {: assert-eq : assert-ne : assert* : testing : deftest} :test.test) +(require-macros :test.test) (local {: eq : identity} (require :core)) ;; required for testing -(import-macros - {: if-let - : when-let - : if-some - : when-some - : into - : defmethod - : defmulti - : defonce - : def - : meta - : with-meta} :macros.core) +(require-macros :macros.core) (deftest into (testing into @@ -131,18 +120,18 @@ (deftest meta (testing with-meta - (assert-eq (meta (with-meta :a {:k :v})) {:k :v})) + (assert-eq (meta (with-meta :a {:k :v})) (when-meta {:k :v}))) (testing def-meta (def {:doc "x"} x 10) - (assert-eq (meta x) {:fnl/docstring "x"}) + (assert-eq (meta x) (when-meta {:fnl/docstring "x"})) (def {:doc "x" :dynamic true} x 10) - (assert-eq (meta x) {:fnl/docstring "x"})) + (assert-eq (meta x) (when-meta {:fnl/docstring "x"}))) (testing defonce-meta (defonce {:doc "x"} x 10) - (assert-eq (meta x) {:fnl/docstring "x"}) + (assert-eq (meta x) (when-meta {:fnl/docstring "x"})) (defonce {:doc "y"} x 20) - (assert-eq (meta x) {:fnl/docstring "x"}) + (assert-eq (meta x) (when-meta {:fnl/docstring "x"})) (defonce {:doc "y" :dynamic true} y 20) - (assert-eq (meta y) {:fnl/docstring "y"}))) + (assert-eq (meta y) (when-meta {:fnl/docstring "y"})))) |