File tree Expand file tree Collapse file tree 1 file changed +19
-0
lines changed Expand file tree Collapse file tree 1 file changed +19
-0
lines changed Original file line number Diff line number Diff line change 637
637
(should-not (non-func " ^hint " form))
638
638
(should-not (non-func " #macro " form))))
639
639
640
+ (ert-deftest clojure-syntax-prefixed-symbols ()
641
+ (dolist (form '((" #?@aaa" . " aaa" )
642
+ (" #?aaa" . " ?aaa" )
643
+ (" #aaa" . " aaa" )
644
+ (" 'aaa" . " aaa" )))
645
+ (with-temp-buffer
646
+ (clojure-mode)
647
+ (insert (car form))
648
+ (equal (symbol-name (symbol-at-point )) (cdr form)))))
649
+
650
+ (ert-deftest clojure-syntax-skip-prefixes ()
651
+ (dolist (form '(" #?@aaa" " #?aaa" " #aaa" " 'aaa" ))
652
+ (with-temp-buffer
653
+ (clojure-mode)
654
+ (insert form)
655
+ (backward-word )
656
+ (backward-prefix-chars )
657
+ (should (bobp )))))
658
+
640
659
(provide 'clojure-mode-indentation-test )
641
660
642
661
; ;; clojure-mode-indentation-test.el ends here
You can’t perform that action at this time.
0 commit comments