Add dape-debug contents on failure

svaante · Jan 1, 2024 · 250cbb8 · 250cbb8
1 parent 9f7bd26
commit 250cbb8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/dape-tests.el b/dape-tests.el
@@ -53,6 +53,8 @@ failed."
          (ert-test-failed
           (message "Current buffer: %s" (current-buffer))
           (message "Current buffer contents:\n%s" (buffer-string))
+          (when-let ((debug-buffer (get-buffer "*dape-debug*")))
+            (message "dape-debug contents:\n%s" (buffer-string)))
           (signal 'ert-test-failed (cdr err))))
        (let ((ret ,pred))
          (ignore ret)