aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/thread-tests.el12
1 files changed, 11 insertions, 1 deletions
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 4e7b052cba0..7261cda9fbb 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -221,8 +221,18 @@
221 :group 'widget-faces)) 221 :group 'widget-faces))
222 222
223(ert-deftest thread-errors () 223(ert-deftest thread-errors ()
224 "Test what happens when a thread signals an error." 224 "Test what happens when a thread signals an error."
225 (should (threadp (make-thread #'call-error "call-error"))) 225 (should (threadp (make-thread #'call-error "call-error")))
226 (should (threadp (make-thread #'thread-custom "thread-custom")))) 226 (should (threadp (make-thread #'thread-custom "thread-custom"))))
227 227
228(ert-deftest thread-sticky-point ()
229 "Test bug #25165 with point movement in cloned buffer."
230 (with-temp-buffer
231 (insert "Lorem ipsum dolor sit amet, consectetur adipiscing elit.")
232 (goto-char (point-min))
233 (clone-indirect-buffer nil nil)
234 (forward-char 20)
235 (sit-for 1)
236 (should (= (point) 21))))
237
228;;; threads.el ends here 238;;; threads.el ends here