Fix broken classpath test

Author: bbatsov

cider-classpath.el

@@ -89,6 +89,7 @@
   "List all classpath entries."
   (interactive)
   (cider-ensure-connected)
+  (cider-ensure-op-supported "classpath")
   (with-current-buffer (cider-popup-buffer cider-classpath-buffer t)
     (cider-classpath-list (current-buffer)
                           (mapcar (lambda (name)

test/cider-classpath-tests.el

@@ -0,0 +1,12 @@
+(require 'ert)
+(require 'noflet)
+(require 'cider)
+(require 'cider-classpath)
+
+(ert-deftest cider-classpath-not-connected ()
+  (noflet ((cider-connected-p () nil))
+    (should-error (cider-classpath) :type 'user-error)))
+
+(ert-deftest cider-classpath-unsupported-op ()
+  (noflet ((cider-ensure-op-supported (op) nil))
+    (should-error (cider-classpath) :type 'user-error)))

test/cider-tests.el

@@ -748,10 +748,6 @@
   (noflet ((cider-connected-p () nil))
     (should-error (cider-refresh) :type 'user-error)))
 
-(ert-deftest cider-classpath-not-connected ()
-  (noflet ((cider-connected-p () nil))
-    (should-error (cider-classpath) :type 'user-error)))
-
 (ert-deftest cider-quit-not-connected ()
   (noflet ((cider-connected-p () nil))
     (should-error (cider-quit) :type 'user-error)))