[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv9889

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el ([test] interrupt-encode-message): New test.

--- /project/slime/cvsroot/slime/ChangeLog	2010/04/14 17:51:38	1.2063
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/14 17:51:47	1.2064
@@ -1,5 +1,9 @@
 2010-04-14  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el ([test] interrupt-encode-message): New test.
+
+2010-04-14  Helmut Eller  <heller at common-lisp.net>
+
 	Handle errors during interrupt processing with SLDB.
 	Bugfix for http://article.gmane.org/gmane.lisp.slime.devel/9641
 
--- /project/slime/cvsroot/slime/slime.el	2010/04/12 18:51:01	1.1299
+++ /project/slime/cvsroot/slime/slime.el	2010/04/14 17:51:47	1.1300
@@ -8012,6 +8012,23 @@
     (sldb-quit))
   (slime-sync-to-top-level 5))
 
+(def-slime-test (interrupt-encode-message (:style :sigio))
+    ()
+    "Test interrupt processing during swank::encode-message"
+    '(())
+  (slime-eval-async '(cl:loop :for i :from 0 
+                              :do (swank::background-message "foo ~d" i)))
+  (sleep-for 1)
+  (slime-eval-async '(cl:/ 1 0))
+  (slime-wait-condition "Debugger visible" 
+                        (lambda () 
+                          (and (slime-sldb-level= 1)
+                               (get-buffer-window (sldb-get-default-buffer))))
+                        30)
+  (with-current-buffer (sldb-get-default-buffer)
+    (sldb-quit))
+  (slime-sync-to-top-level 5))
+
 (def-slime-test inspector
     (exp)
     "Test basic inspector workingness."