From 648382f64a64db117feffdd5234deb4e9f84c2be Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sun, 21 Apr 2024 11:19:42 +0100
Subject: [PATCH] report bodyless tests as PENDING

---
 pkgs/devout/test.fnl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/pkgs/devout/test.fnl b/pkgs/devout/test.fnl
index 796ce30..4db3982 100644
--- 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"