0.9.2.34:

[sbcl.git] / tests / threads.impure.lisp

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 4e9e8fa..fc917b4 100644 (file)
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -352,6 +352,19 @@
 
 (format t "~&thread startup sigmask test done~%")
 
+(sb-debug::enable-debugger)
+(let* ((main-thread *current-thread*)
+       (interruptor-thread
+        (make-thread (lambda ()
+                       (sleep 2)
+                       (interrupt-thread main-thread #'break)
+                       (sleep 2)
+                       (interrupt-thread main-thread #'continue)))))
+  (with-session-lock (*session*)
+    (sleep 3))
+  (loop while (thread-alive-p interruptor-thread)))
+
+(format t "~&session lock test done~%")
 #|  ;; a cll post from eric marsden
 | (defun crash ()
 |   (setq *debugger-hook*