Added debug! which is run! but enters the debugger on errors

diff --git a/src/packages.lisp b/src/packages.lisp
index c8f8cb2..ddd6ba0 100644 (file)
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -62,6 +62,7 @@
            #:explain
            #:explain!
            #:run!
+           #:debug!
            #:!
            #:!!
            #:!!!

diff --git a/src/run.lisp b/src/run.lisp
index dbdd4ed..7ff6692 100644 (file)
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -208,6 +208,12 @@ run."))
 detailed-text-explainer with output going to *test-dribble*"
   (explain (make-instance 'detailed-text-explainer) result-list *test-dribble*))
 
+(defun debug! (&optional (test-spec *suite*))
+  "Calls (run! test-spec) but enters the debugger if any kind of error happens."
+  (let ((*debug-on-error* t)
+        (*debug-on-failure* t))
+    (run! test-spec)))
+
 (defun run (test-spec)
     "Run the test specified by TEST-SPEC.