diff options
| -rw-r--r-- | test/automated/tramp-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 607718412fd..2572f9c82e4 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el | |||
| @@ -1418,6 +1418,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 1418 | 1418 | ||
| 1419 | (defun tramp--test-check-files (&rest files) | 1419 | (defun tramp--test-check-files (&rest files) |
| 1420 | "Runs a simple but comprehensive test over every file in FILES." | 1420 | "Runs a simple but comprehensive test over every file in FILES." |
| 1421 | (tramp--instrument-test-case 10 | ||
| 1421 | (let ((tmp-name1 (tramp--test-make-temp-name)) | 1422 | (let ((tmp-name1 (tramp--test-make-temp-name)) |
| 1422 | (tmp-name2 (tramp--test-make-temp-name 'local))) | 1423 | (tmp-name2 (tramp--test-make-temp-name 'local))) |
| 1423 | (unwind-protect | 1424 | (unwind-protect |
| @@ -1448,7 +1449,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 1448 | tmp-name2 nil directory-files-no-dot-files-regexp) | 1449 | tmp-name2 nil directory-files-no-dot-files-regexp) |
| 1449 | (sort (copy-sequence files) 'string-lessp)))) | 1450 | (sort (copy-sequence files) 'string-lessp)))) |
| 1450 | (ignore-errors (delete-directory tmp-name1 'recursive)) | 1451 | (ignore-errors (delete-directory tmp-name1 'recursive)) |
| 1451 | (ignore-errors (delete-directory tmp-name2 'recursive))))) | 1452 | (ignore-errors (delete-directory tmp-name2 'recursive)))))) |
| 1452 | 1453 | ||
| 1453 | ;; This test is inspired by Bug#17238. | 1454 | ;; This test is inspired by Bug#17238. |
| 1454 | (ert-deftest tramp-test30-special-characters () | 1455 | (ert-deftest tramp-test30-special-characters () |