Make sure cider-open-classpath-entry doesn't blow up in the absence of a

connection or the classpath op

Author: bbatsov

cider-classpath.el

@@ -100,6 +100,8 @@
 (defun cider-open-classpath-entry ()
   "Open a classpath entry."
   (interactive)
+  (cider-ensure-connected)
+  (cider-ensure-op-supported "classpath")
   (when-let ((entry (completing-read "Classpath entries: " (cider-sync-request:classpath))))
     (find-file-other-window entry)))
 

test/cider-classpath-tests.el

@@ -10,3 +10,11 @@
 (ert-deftest cider-classpath-unsupported-op ()
   (noflet ((cider-ensure-op-supported (op) nil))
     (should-error (cider-classpath) :type 'user-error)))
+
+(ert-deftest cider-open-classpath-entry-not-connected ()
+  (noflet ((cider-connected-p () nil))
+    (should-error (cider-open-classpath-entry) :type 'user-error)))
+
+(ert-deftest cider-open-classpath-entry-unsupported-op ()
+  (noflet ((cider-ensure-op-supported (op) nil))
+    (should-error (cider-open-classpath-entry) :type 'user-error)))