summaryrefslogtreecommitdiff
path: root/test/lisp/textmodes/css-mode-tests.el
diff options
context:
space:
mode:
authorSimen Heggestøyl <simenheg@gmail.com>2017-09-28 18:47:07 +0200
committerSimen Heggestøyl <simenheg@gmail.com>2017-09-28 18:55:06 +0200
commit0f9a78e7700ab3eed370c2f616d7932d953dd100 (patch)
tree642b065f6f45df4c8f8a8ecd3880fc5f699f34db /test/lisp/textmodes/css-mode-tests.el
parent88a0dd71f10ffb63fba08c062e948551c3e876c2 (diff)
downloademacs-0f9a78e7700ab3eed370c2f616d7932d953dd100.tar.gz
emacs-0f9a78e7700ab3eed370c2f616d7932d953dd100.tar.bz2
emacs-0f9a78e7700ab3eed370c2f616d7932d953dd100.zip
Add tests for `css-current-defun-name'
* test/lisp/textmodes/css-mode-tests.el (css-test-current-defun-name) (css-test-current-defun-name-nested) (css-test-current-defun-name-complex): New tests for `css-current-defun-name'.
Diffstat (limited to 'test/lisp/textmodes/css-mode-tests.el')
-rw-r--r--test/lisp/textmodes/css-mode-tests.el21
1 files changed, 21 insertions, 0 deletions
diff --git a/test/lisp/textmodes/css-mode-tests.el b/test/lisp/textmodes/css-mode-tests.el
index f93fdbbc5af..47cf5f9244b 100644
--- a/test/lisp/textmodes/css-mode-tests.el
+++ b/test/lisp/textmodes/css-mode-tests.el
@@ -80,6 +80,27 @@
(equal (seq-sort #'string-lessp (css--value-class-lookup 'position))
'("bottom" "calc()" "center" "left" "right" "top"))))
+(ert-deftest css-test-current-defun-name ()
+ (with-temp-buffer
+ (insert "body { top: 0; }")
+ (goto-char 7)
+ (should (equal (css-current-defun-name) "body"))
+ (goto-char 18)
+ (should (equal (css-current-defun-name) "body"))))
+
+(ert-deftest css-test-current-defun-name-nested ()
+ (with-temp-buffer
+ (insert "body > .main a { top: 0; }")
+ (goto-char 20)
+ (should (equal (css-current-defun-name) "body > .main a"))))
+
+(ert-deftest css-test-current-defun-name-complex ()
+ (with-temp-buffer
+ (insert "input[type=submit]:hover { color: red; }")
+ (goto-char 30)
+ (should (equal (css-current-defun-name)
+ "input[type=submit]:hover"))))
+
;;; Completion
(defun css-mode-tests--completions ()