diff options
| author | Andrea Corallo | 2021-04-05 21:00:18 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2021-04-05 21:00:18 +0200 |
| commit | 74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73 (patch) | |
| tree | b1e99508f836a1d12d17eb3072e14b0cfb2ba407 /test/src | |
| parent | 0a3e715e1f5e13874139b4678375b8f5704b800b (diff) | |
| parent | 14d295871a93c37a33d558ec4e8d49a93b787d8e (diff) | |
| download | emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.tar.gz emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.zip | |
Merge remote-tracking branch 'savannah/master' into native-comp
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/thread-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index f14d2426ef0..0e1ca76fd9c 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el | |||
| @@ -315,8 +315,8 @@ | |||
| 315 | "Test signaling a thread as soon as it is started by the OS." | 315 | "Test signaling a thread as soon as it is started by the OS." |
| 316 | (skip-unless (featurep 'threads)) | 316 | (skip-unless (featurep 'threads)) |
| 317 | (let ((thread | 317 | (let ((thread |
| 318 | (make-thread #'(lambda () | 318 | (make-thread (lambda () |
| 319 | (while t (thread-yield)))))) | 319 | (while t (thread-yield)))))) |
| 320 | (thread-signal thread 'error nil) | 320 | (thread-signal thread 'error nil) |
| 321 | (sit-for 1) | 321 | (sit-for 1) |
| 322 | (should-not (thread-live-p thread)) | 322 | (should-not (thread-live-p thread)) |
| @@ -331,7 +331,7 @@ | |||
| 331 | (let (buffer-read-only) | 331 | (let (buffer-read-only) |
| 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-live-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) |