[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/tramp-thread-safe 0361de2: * test/lisp/net/tramp-t
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] feature/tramp-thread-safe 0361de2: * test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'. |
Date: |
Fri, 31 Aug 2018 07:23:43 -0400 (EDT) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/tramp-thread-safe 0361de2: * test/lisp/net/tramp-tests.el (tramp-test43-threads): Use `thread-live-p'.,
Michael Albinus <=