[Emacs-diffs] feature/tramp-thread-safe 0361de2: * test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'.

[Michael Albinus]

branch: feature/tramp-thread-safe
commit 0361de2f5fd8ff592c2f724ab31949e3dcf128f9
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'.
---
 test/lisp/net/tramp-tests.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 81c021d..d72ca2c 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5096,7 +5096,7 @@ process sentinels.  They shall not disturb each other."
          "thread1"))
 
        (should (threadp tmp-thread1))
-       (should (thread-alive-p tmp-thread1))
+       (should (thread-live-p tmp-thread1))
 
        ;; This thread renames `tmp-name2' to `tmp-name1' twice.
        (setq
@@ -5118,13 +5118,13 @@ process sentinels.  They shall not disturb each other."
          "thread2"))
 
        (should (threadp tmp-thread2))
-       (should (thread-alive-p tmp-thread2))
+       (should (thread-live-p tmp-thread2))
        (should (= (length (all-threads)) 3))
 
        ;; Wait for thread1.
        (thread-join tmp-thread1)
        ;; Checks.
-       (should-not (thread-alive-p tmp-thread1))
+       (should-not (thread-live-p tmp-thread1))
        (should (= (length (all-threads)) 2))
        (should-not (thread-last-error))
        (should (file-exists-p tmp-name2))
@@ -5137,7 +5137,7 @@ process sentinels.  They shall not disturb each other."
        ;; Wait for thread2.
        (thread-join tmp-thread2)
        ;; Checks.
-       (should-not (thread-alive-p tmp-thread2))
+       (should-not (thread-live-p tmp-thread2))
        (should (= (length (all-threads)) 1))
        (should-not (thread-last-error))
        (should (file-exists-p tmp-name1))