summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorBozhidar Batsov <bozhidar@tradeo.com>2013-02-12 15:39:06 +0200
committerBozhidar Batsov <bozhidar@tradeo.com>2013-02-12 15:39:06 +0200
commit8d7819bf72ea50542f85cf42c33b793d52ffa96f (patch)
tree2b36a72d5585f621020b0fd787ca0b5afc5759dd /test
parent9399cd7aca6b2928c5a006fbe2f8969c173b9a2f (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.el13
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*"))))