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))))