diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-16 17:22:03 -0700 |
---|---|---|
committer | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-21 13:07:21 -0700 |
commit | 57ac60494e2bc37ac6c9fcc6b8f972ece960e800 (patch) | |
tree | 59673163dfe3b3d548f3d78df5a7e9db5458cd04 /test | |
parent | f587820bedf5a04f1d3a6b7082c13c60a60c0692 (diff) |
Enhance `cider-connect` to auto-detect running nREPL servers
- `cider-connect` now interactively asks for host from a combined list of hosts
from machine-wide ssh configuration and `cider-known-endpoints`.
- Once the host has been selected `cider-connect` locates ports of the running
instances of nREPL servers on the corresponding host (currently only those
started with lein repl). The machine must have `ps` and `grep` programs in
the bin path.
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index 78559a39..eb7e29e3 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -455,25 +455,6 @@ (dolist (buf (list b1 b2 b3 b1-repl b2-repl b3-repl)) (kill-buffer buf))))) -(ert-deftest test-cider-known-endpoint-candidates () - (let ((cider-known-endpoints '(("label" "host" "port")))) - (noflet ((nrepl-current-host () "current-host") - (nrepl-default-port () "current-port")) - (should (equal '("current-host current-port" "label host port") - (cider-known-endpoint-candidates)))))) - -(ert-deftest test-cider-known-endpoint-candidates-remove-duplicates () - (let ((cider-known-endpoints '(("label" "host" "port") ("label" "host" "port")))) - (noflet ((nrepl-current-host () "current-host") - (nrepl-default-port () "current-port")) - (should (equal '("current-host current-port" "label host port") - (cider-known-endpoint-candidates)))))) - -(ert-deftest test-cider-select-known-endpoint-remove-label () - (noflet ((cider-known-endpoint-candidates () '()) - (completing-read (dontcare dontcare) "label host port")) - (should (equal '("host" "port") (cider-select-known-endpoint))))) - (ert-deftest test-cider-change-buffers-designation () (with-temp-buffer (let ((server-buffer (current-buffer))) |