mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

; Instrument tramp-tests.el

Browse Source
This commit is contained in:
Michael Albinus 2016-05-10 08:05:49 +02:00
parent c20cc0986c
commit cfa59d6a26
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -639,9 +639,13 @@ 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))
(let ((non-essential n-e))
(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)))
@ -656,7 +660,10 @@ This checks also `file-name-as-directory', `file-name-directory',
(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) "")))))))
(should (string-equal (file-name-nondirectory file) ""))))))
(when (getenv "NIX_STORE")
(untrace-all)
(message "%s" (with-current-buffer trace-buffer (buffer-string))))))
(ert-deftest tramp-test07-file-exists-p ()
"Check `file-exist-p', `write-region' and `delete-file'."