From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 29 Jun 2014 18:32:35 +0000 (+0200)
Subject: * automated/tramp-tests.el (tramp--instrument-test-case):
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/87ed944822b8616396bd1b16257b7f299047c1a3?hp=8d56de79017652907c97aa00ba0d8155229b496b

* automated/tramp-tests.el (tramp--instrument-test-case):
Print debug buffer in any case.
---

diff --git a/test/ChangeLog b/test/ChangeLog
index 617ac98f5d..9b0f3ab1b0 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-29  Michael Albinus  <michael.albinus@gmx.de>
+
+	* automated/tramp-tests.el (tramp--instrument-test-case):
+	Print debug buffer in any case.
+
 2014-06-28  Leo Liu  <sdl.web@gmail.com>
 
 	* automated/calc-tests.el: New file and add tests for math-bignum.
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index b010ab467f..864a43d638 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -116,18 +116,15 @@ shall not contain a timeout."
   `(let ((tramp-verbose ,verbose)
 	 (tramp-message-show-message t)
 	 (tramp-debug-on-error t))
-     (condition-case err
+     (unwind-protect
 	 (progn ,@body)
-       (ert-test-skipped
-	(signal (car err) (cdr err)))
-       ((error quit)
-	(with-parsed-tramp-file-name tramp-test-temporary-file-directory nil
-	  (with-current-buffer (tramp-get-connection-buffer v)
-	    (message "%s" (buffer-string)))
-	  (with-current-buffer (tramp-get-debug-buffer v)
-	    (message "%s" (buffer-string))))
-	(message "%s" err)
-	(signal (car err) (cdr err))))))
+       (when (> tramp-verbose 3)
+	 (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil
+	   (with-current-buffer (tramp-get-connection-buffer v)
+	     (message "%s" (buffer-string)))
+	   (with-current-buffer
+	       (tramp-get-debug-buffer v)
+	     (message "%s" (buffer-string))))))))
 
 (ert-deftest tramp-test00-availability ()
   "Test availability of Tramp functions."