diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-02 23:49:49 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-02 23:49:49 +0100 |
commit | 685d0af4a474a24af6648731315a08893a59756f (patch) | |
tree | 31b4d041012258618741cb086caa1a0deab7cbec /test | |
parent | c97ed6442083f0c96925c519b1e1a05b212de084 (diff) |
Fix navigation bug introduced with map handling
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index 8bc5a49e..b4e0e7de 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -48,6 +48,23 @@ (cider--debug-prompt '("abc")) #("abc" 0 1 (face cider-debug-prompt-face))))) +(ert-deftest test-debug-move-point () + (with-temp-buffer + (clojure-mode) + (save-excursion (insert "(defn a [] (let [x 1] (inc x)) {:a 1, :b 2})")) + (cider--debug-move-point '(3 2 1)) + (should (string= (thing-at-point 'symbol) "x")) + (goto-char (point-min)) + (cider--debug-move-point '(3 1 1)) + (should (string= (thing-at-point 'symbol) "1")) + (goto-char (point-min)) + (cider--debug-move-point '(2)) + (should (looking-back (rx "[]"))) + (goto-char (point-min)) + (cider--debug-move-point '(4 ":b")) + (message "%S" (point)) + (should (string= (thing-at-point 'symbol) "2")))) + (ert-deftest test-cider-connection-buffer-name () (setq-local nrepl-endpoint '("localhost" 1)) (let ((nrepl-hide-special-buffers nil)) |