mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Michael Albinus 2017-07-25 10:05:43 +02:00
parent 565cfd9f6c
commit ea5789dac3
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/net/tramp-tests.el
View file

@ -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.