; Instrument tramp-tests.el

This commit is contained in:
Michael Albinus 2016-05-09 16:53:49 +02:00
parent fd45b5276b
commit 608f2bd0ac

View file

@ -648,6 +648,9 @@ This checks also `file-name-as-directory', `file-name-directory',
(unless (zerop (length file))
(setq file (format "/%s:" file))
(should (string-equal (directory-file-name file) file))
(when (getenv "NIX_STORE")
(message "file %s non-essential %s tramp-completion-mode-p %s"
file non-essential (tramp-completion-mode-p)))
(should
(string-equal
(file-name-as-directory file)