[Fix #1593] Don't move point in cider-symbol-at-point

1 files changed, 12 insertions, 0 deletions

diff --git a/test/cider-util-tests.el b/test/cider-util-tests.el
new file mode 100644
index 00000000..0ea18864
--- /dev/null
+++ b/test/cider-util-tests.el
@@ -0,0 +1,12 @@
+(require 'cider)
+(require 'cider-util)
+(require 'ert)
+
+;;; cider-util tests
+(ert-deftest cider-symbol-at-point-dont-move ()
+  (with-temp-buffer
+    (clojure-mode)
+    (insert "something else\n")
+    (should (not (cider-symbol-at-point)))
+    (should (equal "else" (cider-symbol-at-point 'lookback)))
+    (should (= (point) (point-max)))))