blob: 0ea18864038388e556e8d182728c8aabe3070484 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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)))))
|