diff options
| author | Michael Albinus | 2022-02-04 19:24:43 +0100 |
|---|---|---|
| committer | Michael Albinus | 2022-02-04 19:24:43 +0100 |
| commit | f88d4e424877c5709bb49d7d905004dea06ce089 (patch) | |
| tree | 24441bb208c104084ff0ed6cb0ae3304955f9546 /test | |
| parent | dcf30f14f90d13ffe9d1ccca153b17287334060e (diff) | |
| download | emacs-f88d4e424877c5709bb49d7d905004dea06ce089.tar.gz emacs-f88d4e424877c5709bb49d7d905004dea06ce089.zip | |
Improve Tramp tests backward compatibility
* test/lisp/net/tramp-tests.el (tramp-test39-detect-external-change):
Improve backward compatibility.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index b41824a6cf3..9be1985780d 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -6018,13 +6018,13 @@ Use direct async.") | |||
| 6018 | (ignore-errors (delete-file tmp-name1)) | 6018 | (ignore-errors (delete-file tmp-name1)) |
| 6019 | (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password))))) | 6019 | (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password))))) |
| 6020 | 6020 | ||
| 6021 | ;; The function was introduced in Emacs 28.1. | 6021 | ;; The functions were introduced in Emacs 28.1. |
| 6022 | (ert-deftest tramp-test39-detect-external-change () | 6022 | (ert-deftest tramp-test39-detect-external-change () |
| 6023 | "Check that an external file modification is reported." | 6023 | "Check that an external file modification is reported." |
| 6024 | (skip-unless (tramp--test-enabled)) | 6024 | (skip-unless (tramp--test-enabled)) |
| 6025 | (skip-unless (not (tramp--test-ange-ftp-p))) | 6025 | (skip-unless (not (tramp--test-ange-ftp-p))) |
| 6026 | ;; Since Emacs 28.1. | 6026 | ;; Since Emacs 28.1. |
| 6027 | (skip-unless (fboundp 'file-locked-p)) | 6027 | (skip-unless (and (fboundp 'lock-file) (fboundp 'file-locked-p))) |
| 6028 | 6028 | ||
| 6029 | (dolist (quoted (if (tramp--test-expensive-test-p) '(nil t) '(nil))) | 6029 | (dolist (quoted (if (tramp--test-expensive-test-p) '(nil t) '(nil))) |
| 6030 | (dolist (create-lockfiles '(nil t)) | 6030 | (dolist (create-lockfiles '(nil t)) |