diff options
| author | Jon Pither <jon.pither@gmail.com> | 2013-08-13 10:32:20 +0100 |
|---|---|---|
| committer | Jon Pither <jon.pither@gmail.com> | 2013-08-13 10:32:20 +0100 |
| commit | 1e9d5cddd65316a6dc7db1f47a11c50b876ba545 (patch) | |
| tree | 24371fac53a1ac56d6465e465d59d40950f574b5 /test | |
| parent | 12558e8f6da7d83a13d3f9ae319a731fccda2be6 (diff) | |
formatting - making indentation consistent
Diffstat (limited to 'test')
| -rw-r--r-- | test/nrepl-tests.el | 80 |
1 files changed, 40 insertions, 40 deletions
diff --git a/test/nrepl-tests.el b/test/nrepl-tests.el index 273357ac..6e2849bf 100644 --- a/test/nrepl-tests.el +++ b/test/nrepl-tests.el @@ -301,51 +301,51 @@ (funcall (third method)))) (ert-deftest test-nrepl-selector-n () - (with-temp-buffer - (lexical-let ((b1 (current-buffer))) - (set (make-local-variable 'nrepl-endpoint) '("123.123.123.123" 4006)) - (let ((nrepl-connection-list (list (buffer-name b1)))) - (nrepl-connection-browser) - (with-temp-buffer ;; switch to another buffer - (nrepl-invoke-selector-method-by-key ?n) - (equal (current-buffer) - (get-buffer nrepl--connection-browser-buffer-name))))))) + (with-temp-buffer + (lexical-let ((b1 (current-buffer))) + (set (make-local-variable 'nrepl-endpoint) '("123.123.123.123" 4006)) + (let ((nrepl-connection-list (list (buffer-name b1)))) + (nrepl-connection-browser) + (with-temp-buffer ;; switch to another buffer + (nrepl-invoke-selector-method-by-key ?n) + (equal (current-buffer) + (get-buffer nrepl--connection-browser-buffer-name))))))) (ert-deftest test-nrepl-selector-c () + (with-temp-buffer + (rename-buffer "*testfile*.clj") + (lexical-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 - (rename-buffer "*testfile*.clj") - (lexical-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 - (not (equal (current-buffer) b1)) - (nrepl-invoke-selector-method-by-key ?e) - (not (equal (current-buffer) b1)) - (nrepl-invoke-selector-method-by-key ?c) - (equal (current-buffer) b1)))))) + (not (equal (current-buffer) b1)) + (nrepl-invoke-selector-method-by-key ?e) + (not (equal (current-buffer) b1)) + (nrepl-invoke-selector-method-by-key ?c) + (equal (current-buffer) b1)))))) (ert-deftest test-nrepl-selector-e () + (with-temp-buffer + (rename-buffer "*testfile*.el") + (lexical-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 - (rename-buffer "*testfile*.el") - (lexical-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 - (not (equal (current-buffer) b1)) - (nrepl-invoke-selector-method-by-key ?c) - (not (equal (current-buffer) b1)) - (nrepl-invoke-selector-method-by-key ?e) - (equal (current-buffer) b1)))))) + (not (equal (current-buffer) b1)) + (nrepl-invoke-selector-method-by-key ?c) + (not (equal (current-buffer) b1)) + (nrepl-invoke-selector-method-by-key ?e) + (equal (current-buffer) b1)))))) (ert-deftest test-nrepl-selector-v () - (with-temp-buffer - (rename-buffer "*nrepl-events*") - (lexical-let ((b1 (current-buffer))) - (with-temp-buffer - (not (equal (current-buffer) b1)) - (nrepl-invoke-selector-method-by-key ?v) - (equal (current-buffer) b1))))) + (with-temp-buffer + (rename-buffer "*nrepl-events*") + (lexical-let ((b1 (current-buffer))) + (with-temp-buffer + (not (equal (current-buffer) b1)) + (nrepl-invoke-selector-method-by-key ?v) + (equal (current-buffer) b1))))) |