diff options
Diffstat (limited to 'test/cider-tests.el')
-rw-r--r-- | test/cider-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index f01496e3..8bc5a49e 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -36,6 +36,18 @@ ;;;; generic +(ert-deftest test-debug-prompt () + (should (equal-including-properties + (cider--debug-prompt '("a" "b" "c")) + #("a b c" 0 1 (face cider-debug-prompt-face) 2 3 + (face cider-debug-prompt-face) 4 5 (face cider-debug-prompt-face)))) + (should (equal-including-properties + (cider--debug-prompt '("a" "bc")) + #("a bc" 0 1 (face cider-debug-prompt-face) 2 3 (face cider-debug-prompt-face)))) + (should (equal-including-properties + (cider--debug-prompt '("abc")) + #("abc" 0 1 (face cider-debug-prompt-face))))) + (ert-deftest test-cider-connection-buffer-name () (setq-local nrepl-endpoint '("localhost" 1)) (let ((nrepl-hide-special-buffers nil)) |