diff options
| author | Michael Albinus | 2014-04-19 23:05:30 +0200 |
|---|---|---|
| committer | Michael Albinus | 2014-04-19 23:05:30 +0200 |
| commit | ca2e9fb3064d0891c5143ba52c220f2c99be7273 (patch) | |
| tree | fed6d897e37228976424317e1b821d9ae9e05139 | |
| parent | d7b659bb0615d326f79b2ea96b2acd90b816c3c0 (diff) | |
| download | emacs-ca2e9fb3064d0891c5143ba52c220f2c99be7273.tar.gz emacs-ca2e9fb3064d0891c5143ba52c220f2c99be7273.zip | |
Instrument `tramp--test-check-files' in order to get traces on hydra.
| -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 () |