From 65a336ce48303855461cdbe228839d3a183928b1 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 10 Jul 2022 12:42:55 +0200 Subject: [PATCH] ; * test/lisp/dnd-tests.el (dnd-tests-begin-drag-files): Instrument. --- test/lisp/dnd-tests.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el index 88f6e694577..7ce3677eaa0 100644 --- a/test/lisp/dnd-tests.el +++ b/test/lisp/dnd-tests.el @@ -274,6 +274,7 @@ This function only tries to handle strings." (skip-unless (and (dnd-tests-remote-accessible-p) ;; TODO: make these tests work under X. (not (eq window-system 'x)))) + (let ((tramp-verbose (if (getenv "EMACS_HYDRA_CI") 10 3))) (let ((normal-temp-file (expand-file-name (make-temp-name "dnd-test") temporary-file-directory)) (normal-temp-file-1 (expand-file-name (make-temp-name "dnd-test") @@ -383,9 +384,14 @@ This function only tries to handle strings." ;; And when all remote files are inaccessible. (should-error (dnd-begin-drag-files (list nonexistent-remote-file nonexistent-remote-file-1)))) + (when (getenv "EMACS_HYDRA_CI") + (dolist (buf (tramp-list-tramp-buffers)) + (message ";; %s\n%s" buf (tramp-get-buffer-string buf)) + (kill-buffer buf))) (delete-file normal-temp-file) (delete-file normal-temp-file-1) (delete-file remote-temp-file)))) + ) (ert-deftest dnd-tests-get-local-file-uri () (should (equal (dnd-get-local-file-uri "file://localhost/path/to/foo") -- 2.39.5