liminix

commit 648382f64a64db117feffdd5234deb4e9f84c2be
parent e9370358aedb76d43dcd617eb20005f67357b673
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 21 Apr 2024 11:19:42 +0100

report bodyless tests as PENDING

Diffstat:
M
pkgs/devout/test.fnl
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git 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"