mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix last commit in tramp-tests.el

Browse source
This commit is contained in:
Michael Albinus 2016-05-02 11:45:16 +02:00
parent 1997d09f78
commit 1d287665dc
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -645,11 +645,13 @@ This checks also `file-name-as-directory', `file-name-directory',
(dolist (file (dolist (file
`(,(file-remote-p tramp-test-temporary-file-directory 'method) `(,(file-remote-p tramp-test-temporary-file-directory 'method)
,(file-remote-p tramp-test-temporary-file-directory 'host))) ,(file-remote-p tramp-test-temporary-file-directory 'host)))
(setq file (format "/%s:" file)) (unless (zerop (length file))
(should (string-equal (directory-file-name file) file)) (setq file (format "/%s:" file))
(should (string-equal (file-name-as-directory file) (concat file "./"))) (should (string-equal (directory-file-name file) file))
(should (string-equal (file-name-directory file) file)) (should
(should (string-equal (file-name-nondirectory file) "")))))) (string-equal (file-name-as-directory file) (concat file "./")))
(should (string-equal (file-name-directory file) file))
(should (string-equal (file-name-nondirectory file) "")))))))
(ert-deftest tramp-test07-file-exists-p () (ert-deftest tramp-test07-file-exists-p ()
"Check `file-exist-p', `write-region' and `delete-file'." "Check `file-exist-p', `write-region' and `delete-file'."