1.0.38: will be tagged as sbcl_1_0_38

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

diff --git a/tests/signals.impure.lisp b/tests/signals.impure.lisp
index 675fd8a..7be8bac 100644 (file)
--- a/tests/signals.impure.lisp
+++ b/tests/signals.impure.lisp
@@ -56,3 +56,12 @@
     (loop until returning)
     (loop repeat 1000000000)
     (assert (= saved-errno (sb-unix::get-errno)))))
+
+(with-test (:name :handle-interactive-interrupt)
+  (assert (eq :condition
+              (handler-case
+                  (sb-thread::kill-safely
+                   (sb-thread::thread-os-thread sb-thread::*current-thread*)
+                   sb-unix:sigint)
+                (sb-sys:interactive-interrupt ()
+                  :condition)))))