master 65a336ce48: ; * test/lisp/dnd-tests.el (dnd-tests-begin-drag-files): Instrument.

[Michael Albinus]

branch: master
commit 65a336ce48303855461cdbe228839d3a183928b1
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    ; * 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 88f6e69457..7ce3677eaa 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")