aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2022-02-04 19:24:43 +0100
committerMichael Albinus2022-02-04 19:24:43 +0100
commitf88d4e424877c5709bb49d7d905004dea06ce089 (patch)
tree24441bb208c104084ff0ed6cb0ae3304955f9546 /test
parentdcf30f14f90d13ffe9d1ccca153b17287334060e (diff)
downloademacs-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.el4
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))