diff options
Diffstat (limited to 'test/src/thread-tests.el')
| -rw-r--r-- | test/src/thread-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el index 9cbe1f3a1aa..c575f13b488 100644 --- a/test/src/thread-tests.el +++ b/test/src/thread-tests.el | |||
| @@ -122,10 +122,10 @@ | |||
| 122 | (skip-unless (featurep 'threads)) | 122 | (skip-unless (featurep 'threads)) |
| 123 | (let ((thread (make-thread #'threads-thread-sleeps)) | 123 | (let ((thread (make-thread #'threads-thread-sleeps)) |
| 124 | err) | 124 | err) |
| 125 | (thread-signal thread 'error "Error signal for thread") | 125 | (thread-signal thread 'error '("Error signal for thread")) |
| 126 | (thread-yield) | 126 | (thread-yield) |
| 127 | (setq err (should-error (thread-join thread))) | 127 | (setq err (should-error (thread-join thread))) |
| 128 | (should (equal err '(error . "Error signal for thread"))))) | 128 | (should (equal err '(error "Error signal for thread"))))) |
| 129 | 129 | ||
| 130 | (defvar threads-test-binding nil) | 130 | (defvar threads-test-binding nil) |
| 131 | 131 | ||