From a775a89e01872c9bd2d3085db0e669f4fab96be2 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sun, 8 Oct 2023 17:34:50 -0500
Subject: [PATCH] Improve assert-no-error test helper.

---
 test/helper.janet | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/helper.janet b/test/helper.janet
index 01c760d3..799f3993 100644
--- a/test/helper.janet
+++ b/test/helper.janet
@@ -34,8 +34,11 @@
 
 (defmacro assert-no-error
   [msg & forms]
-  (def errsym (keyword (gensym)))
-  ~(assert (not= ,errsym (try (do ,;forms) ([_] ,errsym))) ,msg))
+  (def e (gensym))
+  (def f (gensym))
+  (if is-verbose
+  ~(try (do ,;forms (,assert true ,msg)) ([,e ,f] (,assert false ,msg) (,debug/stacktrace ,f ,e "\e[31m✘\e[0m ")))
+  ~(try (do ,;forms (,assert true ,msg)) ([_] (,assert false ,msg)))))
 
 (defn start-suite [&opt x]
   (default x (dyn :current-file))