mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

; Remove instrumentation of tramp-tests.el

Browse Source
This commit is contained in:
Michael Albinus 2016-05-11 16:45:39 +02:00
parent 51c816b9aa
commit 4c7f32977c
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/lisp/net/tramp-tests.el
View File

@ -639,34 +639,24 @@ This checks also `file-name-as-directory', `file-name-directory',
(should-not
(unhandled-file-name-directory "/method:host:/path/to/file"))
(unwind-protect
;; Bug#10085.
(dolist (n-e '(nil t))
;; We must clear `tramp-default-method'. On hydra, it is "ftp",
;; which ruins the tests.
(let ((non-essential n-e)
tramp-default-method)
(when (getenv "NIX_STORE")
(dolist (elt (all-completions "tramp-" obarray 'functionp))
(trace-function-background (intern elt))))
(dolist (file
`(,(file-remote-p tramp-test-temporary-file-directory 'method)
,(file-remote-p tramp-test-temporary-file-directory 'host)))
(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)
(if (tramp-completion-mode-p) file (concat file "./"))))
(should (string-equal (file-name-directory file) file))
(should (string-equal (file-name-nondirectory file) ""))))))
(when (getenv "NIX_STORE")
(untrace-all)
(message "%s" (with-current-buffer trace-buffer (buffer-string))))))
(should (string-equal (file-name-nondirectory file) "")))))))
(ert-deftest tramp-test07-file-exists-p ()
"Check `file-exist-p', `write-region' and `delete-file'."