diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2014-08-13 13:50:25 -0700 |
---|---|---|
committer | Vitalie Spinu <spinuvit@gmail.com> | 2014-08-25 12:02:51 -0700 |
commit | 09dcec951125300274eea6e0b5f591be1d57bb5e (patch) | |
tree | 41f678af60d204b3172b88a430eae05416c57397 /test | |
parent | b58ba0ac546fc6a4c9228cb18f552067741a060d (diff) |
Use repl buffer as connection buffer
Ancillary changes:
- new functions `nrepl-start-client-process' and `nrepl-start-server-process'.
- `cider-init-repl-buffer' and `cider-create-repl-buffer' have clear cut
separation of functionality
- `nrepl-make-buffer-name` and all `cider-create-xxx-buffer-name` take explicit
dir, port and host variables.
- increase `nrepl-decode-timeout` to 0.025 for greater reliability
- merge `nrepl--handle-process-output` into client process filter
- remove `nrepl-connect' in favor of `nrepl-start-client-process'
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index d85272b2..b7fc131f 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -96,19 +96,19 @@ ,@body (mapc 'kill-buffer (list ,@buffer-names)))))) -(ert-deftest test-nrepl-make-repl-connection-default () +(ert-deftest test-nrepl-make-connection-default () (let ((connections (nrepl-connection-buffers))) (cider-test-with-buffers (a b) (should (get-buffer a)) (should (get-buffer b)) ;; Add one connection - (nrepl-make-repl-connection-default a) + (nrepl-make-connection-default a) (should (equal (append (list (buffer-name a)) connections) (nrepl-connection-buffers))) (should (equal (buffer-name a) (nrepl-current-connection-buffer))) ;; Add second connection - (nrepl-make-repl-connection-default b) + (nrepl-make-connection-default b) (should (equal (append (list (buffer-name b) (buffer-name a)) connections) (nrepl-connection-buffers))) (should (equal (buffer-name b) (nrepl-current-connection-buffer)))))) @@ -117,8 +117,8 @@ (let ((connections (nrepl-connection-buffers))) (cider-test-with-buffers (a b) - (nrepl-make-repl-connection-default a) - (nrepl-make-repl-connection-default b) + (nrepl-make-connection-default a) + (nrepl-make-connection-default b) ;; killing a buffer should see it purged from the connection list (kill-buffer a) (should (equal (append (list (buffer-name b)) connections) @@ -168,8 +168,8 @@ (let ((connections (nrepl-connection-buffers))) (cider-test-with-buffers (a b) - (nrepl-make-repl-connection-default a) - (nrepl-make-repl-connection-default b) + (nrepl-make-connection-default a) + (nrepl-make-connection-default b) ;; closing a buffer should see it removed from the connection list (nrepl-close a) (should (not (buffer-live-p a))) |