mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-29 07:58:28 +00:00
* automated/tramp-tests.el (tramp--test-check-files): Remove traces.
This commit is contained in:
parent
14828a9567
commit
d5ff4ded7a
@ -1,7 +1,7 @@
|
||||
2014-04-22 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* automated/tramp-tests.el (tramp-test30-special-characters):
|
||||
Remove test for backslash.
|
||||
* automated/tramp-tests.el (tramp--test-check-files): Remove traces.
|
||||
(tramp-test30-special-characters): Remove test for backslash.
|
||||
|
||||
2014-04-20 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
|
@ -1426,7 +1426,6 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
||||
|
||||
(defun tramp--test-check-files (&rest files)
|
||||
"Runs a simple but comprehensive test over every file in FILES."
|
||||
(tramp--instrument-test-case 10
|
||||
(let ((tmp-name1 (tramp--test-make-temp-name))
|
||||
(tmp-name2 (tramp--test-make-temp-name 'local)))
|
||||
(unwind-protect
|
||||
@ -1457,7 +1456,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
||||
tmp-name2 nil directory-files-no-dot-files-regexp)
|
||||
(sort files 'string-lessp))))
|
||||
(ignore-errors (delete-directory tmp-name1 'recursive))
|
||||
(ignore-errors (delete-directory tmp-name2 'recursive))))))
|
||||
(ignore-errors (delete-directory tmp-name2 'recursive)))))
|
||||
|
||||
;; This test is inspired by Bug#17238.
|
||||
(ert-deftest tramp-test30-special-characters ()
|
||||
|
Loading…
Reference in New Issue
Block a user