diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-07-25 10:05:43 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-07-25 10:05:43 +0200 |
| commit | ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a (patch) | |
| tree | 0f0a0810a741c5d3e999fb9fb5d8aa8a70f0cd7d /test/lisp/net | |
| parent | 565cfd9f6c19e4d2aa318efdf19bdc56175bd153 (diff) | |
| download | emacs-ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a.tar.gz emacs-ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a.tar.bz2 emacs-ea5789dac36adc0aaa76c7ca3aa497e7acd06b7a.zip | |
; Instrument entry of tramp--test-instrument-test-case
Diffstat (limited to 'test/lisp/net')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
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. |