summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorBozhidar Batsov <bozhidar@batsov.com>2015-07-26 17:48:11 +0300
committerBozhidar Batsov <bozhidar@batsov.com>2015-07-26 17:48:11 +0300
commitb9e485d979482f864c1896a0aef7c5d7d083e806 (patch)
tree7f9f992b390dfc73ed11f8fbf0c4048b012c30f3 /test
parent03657705562a9882c95e9ab9020fb0743fd4656d (diff)
[Fix #1220] Treat keywords as symbols in lookup commands
Basically, if the thing at point is `:clojure.core/str` we'll treat it as `clojure.core/str` in commands like `cider-find-var'.
Diffstat (limited to 'test')
-rw-r--r--test/cider-tests.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el
index 6683ba25..1afdc4a1 100644
--- a/test/cider-tests.el
+++ b/test/cider-tests.el
@@ -596,3 +596,9 @@
(should (cider-namespace-qualified-p "a.a-a/a-a"))
(should (not (cider-namespace-qualified-p "/")))
(should (not (cider-namespace-qualified-p "/a"))))
+
+(ert-deftest cider--kw-to-symbol ()
+ (should (equal (cider--kw-to-symbol "symbol") "symbol"))
+ (should (equal (cider--kw-to-symbol ":clj.core/str") "clj.core/str"))
+ (should (equal (cider--kw-to-symbol "::keyword") "keyword"))
+ (should (equal (cider--kw-to-symbol nil) nil)))