commit 116ee6e420f66fb76dd885361d9d80765bbee07b
from: cage <cage@invalid>
date: Mon Jan 10 18:15:44 2022 UTC

- [regress-extra] added 'run-all-tests-with-debugger' to run the tests but landing on the debugger if an assertion fails.

commit - bb2b5c65e48a511d1ecae66b26a2891c66647792
commit + 116ee6e420f66fb76dd885361d9d80765bbee07b
blob - 4cf8f46d1a1d91cb741a9c27cd73279eea436091
blob + d563750e43d2f36d9ac9e9c89c01d34ddc9314ae
--- regress/lisp/9p-test/all-tests.lisp
+++ regress/lisp/9p-test/all-tests.lisp
@@ -57,17 +57,19 @@
 (defun exit-program (&optional (exit-code 0))
   (uiop:quit exit-code))
 
-(defun run-all-tests (&key (use-debugger t))
+(defun run-all-tests-with-debugger (&optional (use-debugger t))
   (setf *client-certificate* (uiop:getenv "REGRESS_CERT")
         *certificate-key*    (uiop:getenv "REGRESS_KEY")
         *host*               (uiop:getenv "REGRESS_HOSTNAME")
         *port*               (parse-integer (uiop:getenv "REGRESS_PORT")))
+  (clunit:run-suite 'all-suite :use-debugger use-debugger :report-progress t)
+  (exit-program 0))
+
+(defun run-all-tests (&key (use-debugger t))
   (handler-bind ((error (lambda (e)
                           (declare (ignore e))
                           (exit-program 1)))
                  (clunit::assertion-failed (lambda (e)
                           (declare (ignore e))
                           (exit-program 2))))
-      (progn
-        (clunit:run-suite 'all-suite :use-debugger use-debugger :report-progress t)
-        (exit-program 0))))
+    (run-all-tests-with-debugger use-debugger)))
blob - 1c73f2bce0101ebea5cc2a8652a9ef439f76a2ae
blob + c61e7cb9251d44b749ab5754adb02b5b45d2311c
--- regress/lisp/9p-test/package.lisp
+++ regress/lisp/9p-test/package.lisp
@@ -25,6 +25,7 @@
    :*port*
    :with-open-ssl-stream
    :all-suite
+   :run-all-tests-with-debugger
    :run-all-tests))
 
 (defpackage :kami-tests