3834 Update changelog, add test for new argument in cider-repls

Author: wilbrt

CHANGELOG.md

@@ -8,12 +8,12 @@
 
 - Bump the injected `nrepl` to [1.4.0](https://github.com/nrepl/nrepl/blob/master/CHANGELOG.md#140-2025-09-02).
 - Bump the injected `piggieback` to [0.6.1](https://github.com/nrepl/piggieback/blob/master/CHANGES.md#061-2025-12-31).
-- [#3834](https://github.com/clojure-emacs/cider/issues/3834): Change cider-ns-refresh to always use Clojure REPL
 
 ### Bugs fixed
 
 - [#3832](https://github.com/clojure-emacs/cider/issues/3832): Fix nrepl--eval-request sending duplicate info.
 - [#3837](https://github.com/clojure-emacs/cider/issues/3837): Fix broken stacktrace response when C-c C-p throws an exception.
+- [#3834](https://github.com/clojure-emacs/cider/issues/3834): Fix cider-ns-refresh throwing an error when a clojure REPL exists, but cider-current-repl does not support the required operations.
 
 ## 1.19.0 (2025-07-10)
 

doc/modules/ROOT/pages/usage/cider_mode.adoc

@@ -175,7 +175,7 @@ kbd:[C-u C-c C-c]
 
 | `cider-ns-refresh`
 | kbd:[C-c M-n (M-)r]
-| Reload all modified files on the classpath. If invoked with a prefix argument, reload all files on the classpath. If invoked with a double prefix argument, clear the state of the namespace tracker before reloading. Uses a clojure REPL whenever one exists.
+| Reload all modified files on the classpath. If invoked with a prefix argument, reload all files on the classpath. If invoked with a double prefix argument, clear the state of the namespace tracker before reloading.
 
 | `cider-doc`
 | kbd:[C-c C-d d] +

test/cider-connection-tests.el

@@ -365,7 +365,8 @@
                 (expect (cider-repls) :to-have-same-items-as (list l1 l2)))))))))
 
   (describe "killed buffers"
-    (it "do not show up in it"
+    (it "do not show up in it
+"
       (let ((default-directory (expand-file-name "/tmp/some-dir")))
         (cider-test-with-buffers
          (a b)
@@ -398,7 +399,25 @@
                    (append cider-connection-capabilities '(cljs))))
 
            (expect (cider-repls) :to-equal (list a b))
-           (sesman-unregister 'CIDER session)))))))
+           (sesman-unregister 'CIDER session))))))
+
+  (describe "when ops-to-support is not nil"
+    :var (nrepl-ops)
+    (it "only returns the repls that support the given ops"
+      (let ((proj-dir (expand-file-name "/tmp/proj-dir")))
+        (let ((default-directory proj-dir))
+          (with-repl-buffer ses-name 'clj b1
+            (setq nrepl-ops (nrepl-dict "refresh" 't))
+            (with-repl-buffer ses-name 'clj b2
+              (with-repl-buffer ses-name 'cljs b3
+                (expect (cider-repls nil nil '("refresh")) :to-equal (list b1))))))))
+    (it "raises a user error when ensure is not nil and no repl that supports the ops exist"
+      (let ((proj-dir (expand-file-name "/tmp/proj-dir")))
+        (let ((default-directory proj-dir))
+          (with-repl-buffer ses-name 'clj b1
+            (with-repl-buffer ses-name 'cljs b2
+              (expect (cider-repls nil 't '("refresh")) :to-throw 'user-error))))))))
+
 
 (describe "cider--connection-info"
   (before-each
@@ -525,3 +544,5 @@
                                                                                     :project-dir "/Users/me/myproject"
                                                                                     :repl-type cider-connection-tests-dummy-function))
             :to-equal "*cider-repl me/myproject:localhost:12345(cider-connection-tests-dummy-function)*")))
+
+(describe "")