Fix tests on emacs25

clojure-emacs · Jun 17, 2018 · 71e8243 · 71e8243
1 parent be30bf0
commit 71e8243
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/cider.el b/cider.el
@@ -81,8 +81,8 @@
 (require 'cider-debug)
 (require 'tramp-sh)
 (require 'cider-repl-history)
-
 (require 'seq)
+(require 'sesman)
 
 (defconst cider-version "0.18.0-snapshot"
   "Fallback version used when it cannot be extracted automatically.

diff --git a/test/cider-connection-tests.el b/test/cider-connection-tests.el
@@ -301,8 +301,10 @@
     (let ((default-directory "/tmp/some-dir"))
       (cider-test-with-buffers
        (a b)
-       (sesman-register 'CIDER (list (symbol-name (gensym "session")) a b))
-       (cider--close-connection b)
-       (message "%S" sesman-links-alist)
-       (expect (buffer-live-p b) :not :to-be-truthy)
-       (expect (cider-repls) :to-equal (list a))))))
+       (let ((session (list "some-session" a b)))
+         (sesman-register 'CIDER session)
+         (cider--close-connection b)
+         (message "%S" sesman-links-alist)
+         (expect (buffer-live-p b) :not :to-be-truthy)
+         (expect (cider-repls) :to-equal (list a))
+         (sesman-unregister 'CIDER session))))))