define-tests macro, evals body only when inside fennelrepl --test

2024-08-24 21:50:30 +01:00
parent 43612af71a
commit b475a680fb
2 changed files with 20 additions and 5 deletions
--- a/pkgs/anoia/assert.fnl
+++ b/pkgs/anoia/assert.fnl
@@ -18,4 +18,8 @@
               (.. "\nexpected " ve# "\ngot " va#)
               ))))

-{ : expect : expect= }
+(fn define-tests [& body]
+  (when _G.RUNNING_TESTS
+    `(do ,(unpack body))))
+
+{ : define-tests : expect : expect=  }