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

diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el
index 88f6e6945776104f51a535b296140904718580c6..7ce3677eaa097956e7ba294d64df1cd582f5935e 100644 (file)
--- 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")