diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-10-17 17:27:37 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-10-17 17:27:37 +0300 |
| commit | 883bf16148c2dd7a67bd4be4078f7c39a529b7a9 (patch) | |
| tree | ea39798a5cbb29cbaf64be8ddc15a5fa8b40afae /test | |
| parent | 7eb82ad9e5ef29a48681357a6fe616bd64e2d10b (diff) | |
Fix broken test
Diffstat (limited to 'test')
| -rw-r--r-- | test/cider-tests.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index 5b92874b..9cfc4370 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -286,34 +286,37 @@ (ert-deftest test-cider-connections-buffer () (with-temp-buffer + (rename-buffer "*cider-repl test1*") (let ((b1 (current-buffer))) (setq-local nrepl-endpoint '("localhost" 4005)) (setq-local nrepl-project-dir "proj") (with-temp-buffer + (rename-buffer "*cider-repl test2*") (let ((b2 (current-buffer))) (setq-local nrepl-endpoint '("123.123.123.123" 4006)) (let ((cider-connections (list b1 b2))) (cider-connection-browser) (with-current-buffer "*cider-connections*" - (should (equal " Host Port Project + (should (equal " REPL Host Port Project -* localhost 4005 proj - 123.123.123.123 4006 \n\n" +* *cider-repl test1* localhost 4005 proj + *cider-repl test2* 123.123.123.123 4006 \n\n" (buffer-string))) - (goto-char 80) ; somewhere in the second connection listed + (goto-line 4) ; somewhere in the second connection listed (cider-connections-make-default) (should (equal b2 (car cider-connections))) - (should (equal " Host Port Project + (message "%s" (cider-connections)) + (should (equal " REPL Host Port Project - localhost 4005 proj -* 123.123.123.123 4006 \n\n" + *cider-repl test1* localhost 4005 proj +* *cider-repl test2* 123.123.123.123 4006 \n\n" (buffer-string))) - (goto-char 80) ; somewhere in the second connection listed + (goto-line 4) ; somewhere in the second connection listed (cider-connections-close-connection) (should (equal (list b1) cider-connections)) - (should (equal " Host Port Project + (should (equal " REPL Host Port Project -* localhost 4005 proj\n\n" +* *cider-repl test1* localhost 4005 proj\n\n" (buffer-string))) (cider-connections-goto-connection) (should (equal b1 (current-buffer))) |