Add REPL helpers: repl-session! / close-session!

Many tests make use of `session-fixture`, which sets up an nREPL session, and
tears it down again. When working on tests this makes it tedious to quickly
evaluate test forms.

These helper functions set up the nREPL session similar to `session-fixture` but
allow you to manage the start/stop lifecycle yourself, so you can start the
session once and get to work.

Author: plexus

test/common/cider/nrepl/test_session.clj

@@ -8,12 +8,44 @@
 (def ^:dynamic *handler* cider-nrepl-handler)
 (def ^:dynamic *session* nil)
 
+(def ^:dynamic *server* nil)
+(def ^:dynamic *transport* nil)
+
+(defn repl-session!
+  "Start an nREPL session and set *session* accordingly.
+
+  Eval'ing this function in the REPL will allow you to test out messages
+  with [[message]].
+
+  When dealing with tests that use [[session-fixture]], this can help you to be
+  able to evaluate test forms in the REPL. Call [[close-session!]] when you're
+  done."
+  []
+  (let [server    (start-server :handler *handler*)
+        transport (nrepl/connect :port (:port server))
+        client    (nrepl/client transport Long/MAX_VALUE)]
+    (alter-var-root #'*server* (constantly server))
+    (alter-var-root #'*transport* (constantly transport))
+    (alter-var-root #'*session* (constantly (nrepl/client-session client)))))
+
+(defn close-session!
+  "Stop the server/session created by [[repl-session!]], and reset the vars."
+  []
+  (.close *server*)
+  (.close *transport*)
+  (alter-var-root #'*server* (constantly nil))
+  (alter-var-root #'*transport* (constantly nil))
+  (alter-var-root #'*session* (constantly nil)))
+
 (defn session-fixture
   [f]
-  (with-open [server (start-server :handler *handler*)
+  (with-open [server    (start-server :handler *handler*)
               transport (nrepl/connect :port (:port server))]
-    (let [client (nrepl/client transport Long/MAX_VALUE)]
-      (binding [*session* (nrepl/client-session client)]
+    (let [client  (nrepl/client transport Long/MAX_VALUE)
+          session (nrepl/client-session client)]
+      (binding [*server*    server
+                *transport* transport
+                *session*   session]
         (f)))))
 
 (defn message