From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Jul 2017 08:05:43 +0000 (+0200)
Subject: ; Instrument entry of tramp--test-instrument-test-case
X-Git-Tag: emacs-26.0.90~517^2~108
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a;p=emacs.git

; Instrument entry of tramp--test-instrument-test-case
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index bb1bafa789f..58639e1bfa6 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -149,6 +149,7 @@ handled properly.  BODY shall not contain a timeout."
 	 (debug-ignored-errors
 	  (cons "^make-symbolic-link not supported$" debug-ignored-errors))
 	 inhibit-message)
+     (message "tramp--test-instrument-test-case %s" tramp-verbose)
      (unwind-protect
 	 (let ((tramp--test-instrument-test-case-p t)) ,@body)
        ;; Unwind forms.
@@ -3911,8 +3912,8 @@ Since it unloads Tramp, it shall be the last test to run."
     (should-not (cl--find-class 'tramp-file-name))
     (mapatoms
      (lambda (x)
-       (and (string-match "tramp-file-name" (symbol-name x))
-            (functionp x)
+       (and (functionp x)
+            (string-match "tramp-file-name" (symbol-name x))
             (ert-fail (format "Structure function `%s' still exists" x)))))
     ;; There shouldn't be left a hook function containing a Tramp
     ;; function.  We do not regard the Tramp unload hooks.