From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 31 Aug 2018 11:23:33 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0361de2f5fd8ff592c2f724ab31949e3dcf128f9;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 81c021db6ee..d72ca2ca645 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))