[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4468

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el [test](inspector): New test.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/30 15:33:39	1.1485
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/30 15:33:46	1.1486
@@ -1,5 +1,7 @@
 2008-08-30  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el [test](inspector): New test.
+
 	* swank.lisp (prepare-part): Also wrap action elements
 	in a list.  Reported by Ariel Badichi and Madhu.
 
--- /project/slime/cvsroot/slime/slime.el	2008/08/30 15:33:34	1.1007
+++ /project/slime/cvsroot/slime/slime.el	2008/08/30 15:33:46	1.1008
@@ -9243,6 +9243,31 @@
                        visiblep
                        (not (not (get-buffer-window (current-buffer)))))))
 
+(def-slime-test inspector
+    (exp)
+    "Test basic inspector workingness."
+    '(((let ((h (make-hash-table)))
+         (loop for i below 10 do (setf (gethash i h) i))
+         h))
+      ((make-array 10))
+      ((make-list 10))
+      ('cons)
+      (#'cons))
+  (slime-inspect (prin1-to-string exp))
+  (assert (not (slime-inspector-visible-p)))
+  (slime-wait-condition "Inspector visible" #'slime-inspector-visible-p 5)
+  (with-current-buffer (window-buffer (selected-window))
+    (slime-inspector-quit))
+  (slime-wait-condition "Inspector closed" 
+                        (lambda () (not (slime-inspector-visible-p)))
+                        5)
+  (slime-sync-to-top-level 1))
+
+(defun slime-inspector-visible-p ()
+  (let ((buffer (window-buffer (selected-window))))
+    (string-match "\\*Slime Inspector\\*" 
+                  (buffer-name buffer))))
+
 (def-slime-test break 
     (times exp)
     "Test whether BREAK invokes SLDB."