1 ;;; css-mode-tests.el --- Test suite for CSS mode -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2016 Free Software Foundation, Inc.
5 ;; Author: Simen Heggestøyl <simenheg@gmail.com>
8 ;; This file is part of GNU Emacs.
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
31 (ert-deftest css-test-property-values ()
32 ;; The `float' property has a flat value list.
34 (equal (seq-sort #'string-lessp (css--property-values "float"))
35 '("left" "none" "right")))
37 ;; The `list-style' property refers to several other properties.
39 (equal (seq-sort #'string-lessp (css--property-values "list-style"))
43 (append (css--property-values "list-style-type")
44 (css--property-values "list-style-position")
45 (css--property-values "list-style-image"))))))
47 ;; The `position' property is tricky because it's also the name of a
50 (equal (seq-sort #'string-lessp (css--property-values "position"))
51 '("absolute" "fixed" "relative" "static")))
53 ;; The `background-position' property should refer to the `position'
54 ;; value class, not the property of the same name.
56 (equal (css--property-values "background-position")
57 (css--value-class-lookup 'position)))
59 ;; Check that the `color' property doesn't cause infinite recursion
60 ;; because it refers to the value class of the same name.
61 (should (= (length (css--property-values "color")) 147)))
63 (ert-deftest css-test-property-value-cache ()
64 "Test that `css--property-value-cache' is in use."
65 (should-not (gethash "word-wrap" css--property-value-cache))
66 (let ((word-wrap-values (css--property-values "word-wrap")))
67 (should (equal (gethash "word-wrap" css--property-value-cache)
70 (ert-deftest css-test-property-values-no-duplicates ()
71 "Test that `css--property-values' returns no duplicates."
72 ;; The `flex' property is prone to duplicate values; if they aren't
73 ;; removed, it'll contain at least two instances of `auto'.
75 (equal (seq-sort #'string-lessp (css--property-values "flex"))
76 '("auto" "calc()" "content" "none"))))
78 (ert-deftest css-test-value-class-lookup ()
80 (equal (seq-sort #'string-lessp (css--value-class-lookup 'position))
81 '("bottom" "calc()" "center" "left" "right" "top"))))
85 (defun css-mode-tests--completions ()
86 (let ((data (css-completion-at-point)))
87 (all-completions (buffer-substring (nth 0 data) (nth 1 data))
90 (ert-deftest css-test-complete-bang-rule ()
93 (insert "body { left: 0 !")
94 (let ((completions (css-mode-tests--completions)))
95 (should (member "important" completions))
96 ;; Don't include SCSS bang-rules
97 (should-not (member "default" completions)))))
99 (ert-deftest scss-test-complete-bang-rule ()
102 (insert "body { left: 0 !")
103 (let ((completions (css-mode-tests--completions)))
104 (should (member "important" completions))
105 (should (member "default" completions)))))
107 (ert-deftest css-test-complete-property-value ()
110 (insert "body { position: ")
111 (let ((completions (css-mode-tests--completions)))
113 (equal (seq-sort #'string-lessp completions)
114 '("absolute" "fixed" "inherit" "relative" "static"))))))
116 (ert-deftest css-test-complete-pseudo-class ()
120 (let ((completions (css-mode-tests--completions)))
121 (should (member "active" completions))
122 (should-not (member "disabled" completions))
123 ;; Don't include pseudo-elements
124 (should-not (member "after" completions)))))
126 (ert-deftest css-test-complete-pseudo-element ()
130 (let ((completions (css-mode-tests--completions)))
131 (should (member "after" completions))
132 (should-not (member "disabled" completions))
133 ;; Don't include pseudo-classes
134 (should-not (member "active" completions)))))
136 (ert-deftest css-test-complete-at-rule ()
140 (let ((completions (css-mode-tests--completions)))
141 (should (member "media" completions))
142 (should-not (member "keyframes" completions))
143 ;; Don't include SCSS at-rules
144 (should-not (member "mixin" completions)))))
146 (ert-deftest scss-test-complete-at-rule ()
150 (let ((completions (css-mode-tests--completions)))
151 (should (member "media" completions))
152 (should-not (member "keyframes" completions))
153 (should (member "mixin" completions)))))
155 (ert-deftest css-test-complete-property ()
159 (let ((completions (css-mode-tests--completions)))
160 (should (member "filter" completions))
161 (should-not (member "position" completions)))))
163 (ert-deftest css-test-complete-selector ()
167 (let ((completions (css-mode-tests--completions)))
168 (should (member "body" completions))
169 (should-not (member "article" completions)))))
171 (ert-deftest css-test-complete-nested-selector ()
175 (let ((completions (css-mode-tests--completions)))
176 (should-not (member "body" completions)))))
178 (ert-deftest scss-test-complete-nested-selector ()
182 (let ((completions (css-mode-tests--completions)))
183 (should (member "body" completions))
184 (should-not (member "article" completions)))))
186 (provide 'css-mode-tests)
187 ;;; css-mode-tests.el ends here