diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-28 18:18:58 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-01 19:17:31 +0100 |
| commit | c24bd67bca072daf6aecc1ea83a1fc119c43edde (patch) | |
| tree | 30deb5ebecb56733f923c7a7c30af19ca7628691 /test | |
| parent | 4410610c0c6f70b2613a2dfa6716b0d941b4eed1 (diff) | |
Add inspecting to the debugger
Diffstat (limited to 'test')
| -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)) |