aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/thread-tests.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index a87eb3e1591..109e71128ab 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -116,7 +116,7 @@
116 :tags '(:unstable) 116 :tags '(:unstable)
117 (skip-unless (featurep 'threads)) 117 (skip-unless (featurep 'threads))
118 (let ((thread (make-thread #'threads-call-error))) 118 (let ((thread (make-thread #'threads-call-error)))
119 (while (thread-alive-p thread) 119 (while (thread-live-p thread)
120 (thread-yield)) 120 (thread-yield))
121 (should-error (thread-join thread)))) 121 (should-error (thread-join thread))))
122 122
@@ -332,7 +332,7 @@
332 (erase-buffer)) 332 (erase-buffer))
333 (let ((thread 333 (let ((thread
334 (make-thread #'(lambda () (thread-signal main-thread 'error nil))))) 334 (make-thread #'(lambda () (thread-signal main-thread 'error nil)))))
335 (while (thread-alive-p thread) 335 (while (thread-live-p thread)
336 (thread-yield)) 336 (thread-yield))
337 (read-event nil nil 0.1) 337 (read-event nil nil 0.1)
338 ;; No error has been raised, which is part of the test. 338 ;; No error has been raised, which is part of the test.