aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorŠtěpán Němec2020-03-01 18:50:14 +0100
committerŠtěpán Němec2020-04-18 17:10:02 +0200
commit067b0705986572e42687334c4eaf32988f22f680 (patch)
tree70129d8ec8e109cb64f895e462298adf2c2636e8 /test
parentf3b62b6c62c41d2e5d15418ea940bce6b11bdf7d (diff)
downloademacs-067b0705986572e42687334c4eaf32988f22f680.tar.gz
emacs-067b0705986572e42687334c4eaf32988f22f680.zip
; Fix some typos and doc issues (bug#40695)
Diffstat (limited to 'test')
-rw-r--r--test/lisp/jsonrpc-tests.el4
-rw-r--r--test/src/thread-tests.el2
2 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/jsonrpc-tests.el b/test/lisp/jsonrpc-tests.el
index 63c4c32d45f..6c08023d4f3 100644
--- a/test/lisp/jsonrpc-tests.el
+++ b/test/lisp/jsonrpc-tests.el
@@ -114,7 +114,7 @@
114 (condition-case err 114 (condition-case err
115 (progn 115 (progn
116 (jsonrpc-request conn 'delete-directory "~/tmp") 116 (jsonrpc-request conn 'delete-directory "~/tmp")
117 (ert-fail "A `jsonrpc-error' should have been signalled!")) 117 (ert-fail "A `jsonrpc-error' should have been signaled!"))
118 (jsonrpc-error 118 (jsonrpc-error
119 (should (= -32601 (cdr (assoc 'jsonrpc-error-code (cdr err))))))))) 119 (should (= -32601 (cdr (assoc 'jsonrpc-error-code (cdr err)))))))))
120 120
@@ -124,7 +124,7 @@
124 (condition-case err 124 (condition-case err
125 (progn 125 (progn
126 (jsonrpc-request conn '+ ["a" 2]) 126 (jsonrpc-request conn '+ ["a" 2])
127 (ert-fail "A `jsonrpc-error' should have been signalled!")) 127 (ert-fail "A `jsonrpc-error' should have been signaled!"))
128 (jsonrpc-error 128 (jsonrpc-error
129 (should (= -32603 (cdr (assoc 'jsonrpc-error-code (cdr err))))))))) 129 (should (= -32603 (cdr (assoc 'jsonrpc-error-code (cdr err)))))))))
130 130
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 6673ac4b4eb..5d85fc74e50 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -112,7 +112,7 @@
112 (should-error (thread-join (current-thread)))) 112 (should-error (thread-join (current-thread))))
113 113
114(ert-deftest threads-join-error () 114(ert-deftest threads-join-error ()
115 "Test of error signalling from `thread-join'." 115 "Test of error signaling from `thread-join'."
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)))