Skip to content

Commit

Permalink
Fix tests on emacs25
Browse files Browse the repository at this point in the history
  • Loading branch information
vspinu committed Jun 17, 2018
1 parent be30bf0 commit 5657ae4
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 7 deletions.
4 changes: 2 additions & 2 deletions cider.el
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,7 @@
;; Maintainer: Bozhidar Batsov <[email protected]>
;; URL: http://www.github.com/clojure-emacs/cider
;; Version: 0.18.0-snapshot
;; Package-Requires: ((emacs "25") (clojure-mode "5.7.0") (pkg-info "0.4") (queue "0.1.1") (spinner "1.7") (seq "2.16") (sesman "0.1.0"))
;; Package-Requires: ((emacs "25") (clojure-mode "5.7.0") (pkg-info "0.4") (queue "0.1.1") (spinner "1.7") (seq "2.16"))
;; Keywords: languages, clojure, cider

;; This program is free software: you can redistribute it and/or modify
Expand Down Expand Up @@ -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.
Expand Down
12 changes: 7 additions & 5 deletions test/cider-connection-tests.el
Original file line number Diff line number Diff line change
Expand Up @@ -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))))))

0 comments on commit 5657ae4

Please sign in to comment.