From 250cbb864bd7e119b80a50e367bb6afec516af6c Mon Sep 17 00:00:00 2001 From: Daniel Pettersson Date: Mon, 1 Jan 2024 14:56:58 +0100 Subject: [PATCH] Add dape-debug contents on failure --- dape-tests.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/dape-tests.el b/dape-tests.el index 5d0baf3a..62d5a5e0 100644 --- 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)