report bodyless tests as PENDING

2024-04-21 11:19:42 +01:00 · 2024-04-21 11:19:42 +01:00 · 648382f64a
commit 648382f64a
parent e9370358ae
1 changed files with 6 additions and 4 deletions
--- a/pkgs/devout/test.fnl
+++ b/pkgs/devout/test.fnl
@ -6,10 +6,12 @@
 (fn fail [d msg] (set failed true) (print :FAIL d (.. "\n" msg)))

 (macro example [description & body]
-  `(let [(ok?# err#) (xpcall (fn [] ,body) debug.traceback)]
-     (if ok?#
-         (print :PASS ,description)
-         (fail ,description err#))))
+  (if (. body 1)
+      `(let [(ok?# err#) (xpcall (fn [] ,body) debug.traceback)]
+         (if ok?#
+             (print :PASS ,description)
+             (fail ,description err#)))
+      `(print :PENDING ,description)))

 (example
 "given an empty database, searching it finds no entries"