diff options
author | Bozhidar Batsov <bozhidar@tradeo.com> | 2013-02-12 15:39:06 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2013-02-12 15:39:06 +0200 |
commit | 8d7819bf72ea50542f85cf42c33b793d52ffa96f (patch) | |
tree | 2b36a72d5585f621020b0fd787ca0b5afc5759dd /test | |
parent | 9399cd7aca6b2928c5a006fbe2f8969c173b9a2f (diff) |
Introduce the option to hide special buffers
Some "boring" buffers can now optionally be hidden by
the users via the use of the `nrepl-hide-special-buffers` setting.
By default all special buffers are visible.
Diffstat (limited to 'test')
-rw-r--r-- | test/nrepl-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/nrepl-tests.el b/test/nrepl-tests.el index 056633eb..cebb48d9 100644 --- a/test/nrepl-tests.el +++ b/test/nrepl-tests.el @@ -121,3 +121,16 @@ ("status" "done"))) (nrepl-decode "d2:id2:422:ns4:user7:session36:3f586403-ed47-4e4d-b8db-70522054f9715:value5:\"←\"ed2:id2:427:session36:3f586403-ed47-4e4d-b8db-70522054f9716:statusl4:doneee")))) + +;;;; generic +(ert-deftest test-nrepl-connection-buffer () + (let ((nrepl-hide-special-buffers nil)) + (should (equal (nrepl-connection-buffer-name) "*nrepl-connection*"))) + (let ((nrepl-hide-special-buffers t)) + (should (equal (nrepl-connection-buffer-name) " *nrepl-connection*")))) + +(ert-deftest test-nrepl-server-buffer () + (let ((nrepl-hide-special-buffers nil)) + (should (equal (nrepl-server-buffer-name) "*nrepl-server*"))) + (let ((nrepl-hide-special-buffers t)) + (should (equal (nrepl-server-buffer-name) " *nrepl-server*")))) |