Blob Blame History Raw
diff --git a/slime-tests.el b/slime-tests.el
index c0aa11b..f8ecd50 100644
--- a/slime-tests.el
+++ b/slime-tests.el
@@ -962,26 +962,6 @@ Confirm that SUBFORM is correctly located."
     (sldb-quit))
   (slime-sync-to-top-level 5))
 
-(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))
-  (cl-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-buffer-visible-p (name)
   (let ((buffer (window-buffer (selected-window))))
     (string-match name (buffer-name buffer))))