blob: 61046faab545a3ce9bfb5cff64f484d58d5281f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(require 'cider)
(require 'cider-selector)
;; selector
(defun cider-invoke-selector-method-by-key (ch)
(let ((method (find ch cider-selector-methods :key #'car)))
(funcall (third method))))
(ert-deftest test-cider-selector-n ()
(with-temp-buffer
(let ((b1 (current-buffer)))
(setq-local cider-endpoint '("123.123.123.123" 4006))
(let ((cider-connections (list (buffer-name b1))))
(cider-connection-browser)
(with-temp-buffer ;; switch to another buffer
(cider-invoke-selector-method-by-key ?n)
(should (equal (current-buffer)
(get-buffer cider--connection-browser-buffer-name))))))))
(ert-deftest test-cider-selector-c ()
(with-temp-buffer
(rename-buffer "*testfile*.clj")
(let ((b1 (current-buffer)))
(setq major-mode 'clojure-mode)
(with-temp-buffer
(rename-buffer "*testfile*.el")
(setq major-mode 'emacs-lisp-mode)
(with-temp-buffer
(should (not (equal (current-buffer) b1)))
(cider-invoke-selector-method-by-key ?e)
(should (not (equal (current-buffer) b1)))
(cider-invoke-selector-method-by-key ?c)
(should (equal (current-buffer) b1)))))))
(ert-deftest test-cider-selector-e ()
(with-temp-buffer
(rename-buffer "*testfile*.el")
(let ((b1 (current-buffer)))
(setq major-mode 'emacs-lisp-mode)
(with-temp-buffer
(rename-buffer "*testfile*.clj")
(setq major-mode 'clojure-mode)
(with-temp-buffer
(should (not (equal (current-buffer) b1)))
(cider-invoke-selector-method-by-key ?c)
(should (not (equal (current-buffer) b1)))
(cider-invoke-selector-method-by-key ?e)
(should (equal (current-buffer) b1)))))))
(ert-deftest test-cider-selector-m ()
(with-temp-buffer
(rename-buffer "*nrepl-messages*")
(let ((b1 (current-buffer)))
(with-temp-buffer
(should (not (equal (current-buffer) b1)))
(cider-invoke-selector-method-by-key ?m)
(should (equal (current-buffer) b1))))))
|