diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-16 01:06:51 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-16 18:56:07 +0100 |
commit | 291a1ba8cf36571b620f304ec2234aab61999fec (patch) | |
tree | 8213c0a770a09de2e1e0eacd98b88b599361a4ea /test | |
parent | b9ad4c43e921509da9eb2a9055ef63004ee15a01 (diff) |
cider-read-from-minibuffer accepts PROMPT without ": "
cider-symbol-at-point is smarter on checking for repl prompt
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index 56a2f21e..328486cf 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -563,9 +563,12 @@ (should (string= (cider-symbol-at-point) "")))) (ert-deftest cider-symbol-at-point-at-repl-prompt () - (noflet ((thing-at-point (thing) "user> ") - (cider-current-ns () "user")) - (should (string= (cider-symbol-at-point) "")))) + (noflet ((thing-at-point (thing) (propertize "user>" 'field 'cider-repl-prompt))) + (should (string= (cider-symbol-at-point) ""))) + (noflet ((thing-at-point (thing) (propertize "boogie>" 'field 'cider-repl-prompt))) + (should (string= (cider-symbol-at-point) ""))) + (noflet ((thing-at-point (thing) "boogie>")) + (should (string= (cider-symbol-at-point) "boogie>")))) (ert-deftest test-cider--url-to-file () (should (equal "/space test" (cider--url-to-file "file:/space%20test"))) |