diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-08-13 18:46:05 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-08-13 18:46:05 +0300 |
commit | b21572b9cac33dc16ab573e5f41a94ad9d37c4dc (patch) | |
tree | de7f24b49ac93c52f90bf082062acd93042af199 /test | |
parent | 77f7d21d6662584269dd7c97d993dd58e1903e29 (diff) |
Kill a few obsolete tests
Those were written before the connection and REPL buffers were unified
and are basically testing nothing. The only thing worth testing in the
function looking for the relevant connection.
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index dec796b0..2b9898e0 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -421,103 +421,6 @@ (should (= (cider--find-rest-args-position [fmt & arg]) 1)) (should (equal (cider--find-rest-args-position [fmt arg]) nil))) -(ert-deftest test-cider-switch-to-relevant-repl-buffer () - (noflet ((clojure-project-dir (dontcare) - nrepl-project-dir)) - (let* ((b1 (generate-new-buffer "temp")) - (b2 (generate-new-buffer "temp")) - (b3 (generate-new-buffer "temp")) - (b1-repl (generate-new-buffer "temp")) - (b2-repl (generate-new-buffer "temp")) - (b3-repl (generate-new-buffer "temp")) - (nrepl-connection-list (list (buffer-name b1) - (buffer-name b2) - (buffer-name b3)))) - (with-current-buffer b1 - (setq-local nrepl-endpoint '("localhost" 4005)) - (setq-local nrepl-project-dir "proj1") - (setq-local nrepl-repl-buffer b1-repl)) - (with-current-buffer b2 - (setq-local nrepl-endpoint '("localhost" 4006)) - (setq-local nrepl-project-dir "proj2") - (setq-local nrepl-repl-buffer b2-repl)) - (with-current-buffer b3 - (setq-local nrepl-endpoint '("localhost" 4009)) - (setq-local nrepl-project-dir "proj3") - (setq-local nrepl-repl-buffer b3-repl)) - (with-current-buffer b1 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b1-repl (current-buffer)))) - (with-current-buffer b2 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b2-repl (current-buffer)))) - (with-current-buffer b3 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b3-repl (current-buffer)))) ;; didn't switch to anything - (let ((nrepl-connection-list (list (buffer-name b3) - (buffer-name b2) - (buffer-name b1)))) - (with-current-buffer b1 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b1-repl (current-buffer))))) - (dolist (buf (list b1 b2 b3 b1-repl b2-repl b3-repl)) - (kill-buffer buf))))) - -(ert-deftest test-cider-switch-to-relevant-repl-buffer-ambiguous-project-dir () - (noflet ((clojure-project-dir (dontcare) - nrepl-project-dir)) - (let* ((b1 (generate-new-buffer "temp")) - (b2 (generate-new-buffer "temp")) - (b1-repl (generate-new-buffer "temp")) - (b2-repl (generate-new-buffer "temp")) - (nrepl-connection-list (list (buffer-name b1) - (buffer-name b2)))) - (with-current-buffer b1 ;; cider-jack-in 1 - (setq-local nrepl-endpoint '("localhost" 4005)) - (setq-local nrepl-project-dir "proj1") - (setq-local nrepl-repl-buffer b1-repl)) - (with-current-buffer b2 ;; cider-connect - no relevant buffer - (setq-local nrepl-endpoint '("localhost" 4006)) - (setq-local nrepl-repl-buffer b2-repl)) - (with-current-buffer b2 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b1-repl (current-buffer)))) - (dolist (buf (list b1 b2 b1-repl b2-repl)) - (kill-buffer buf))))) - -(ert-deftest test-cider-switch-to-relevant-repl-buffer-ambiguous-if-two-projects () - (noflet ((clojure-project-dir (dontcare) - nrepl-project-dir)) - (let* ((b1 (generate-new-buffer "temp")) - (b2 (generate-new-buffer "temp")) - (b3 (generate-new-buffer "temp")) - (b1-repl (generate-new-buffer "temp")) - (b2-repl (generate-new-buffer "temp")) - (b3-repl (generate-new-buffer "temp")) - (nrepl-connection-list (list (buffer-name b1) - (buffer-name b2) - (buffer-name b3)))) - (with-current-buffer b1 ;; cider-jack-in 1 - (setq-local nrepl-endpoint '("localhost" 4005)) - (setq-local nrepl-project-dir "proj1") - (setq-local nrepl-repl-buffer b1-repl)) - (with-current-buffer b2 ;; cider-connect - no relevant buffer - (setq-local nrepl-endpoint '("localhost" 4006)) - (setq-local nrepl-project-dir "proj1") - (setq-local nrepl-repl-buffer b2-repl)) - (with-current-buffer b3 ;; cider-connect - no relevant buffer - (setq-local nrepl-endpoint '("localhost" 4007)) - (setq-local nrepl-project-dir "proj2") - (setq-local nrepl-repl-buffer b3-repl)) - (with-current-buffer b3 - (cider-switch-to-relevant-repl-buffer '())) - (with-current-buffer b2 - (cider-switch-to-relevant-repl-buffer '()) - (should (equal b1-repl (current-buffer)))) - - (dolist (buf (list b1 b2 b3 b1-repl b2-repl b3-repl)) - (kill-buffer buf))))) - (ert-deftest test-cider-change-buffers-designation () (with-temp-buffer (let ((server-buffer (current-buffer))) |