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" "initial" "relative"
115 "static" "unset"))))))
117 (ert-deftest css-test-complete-pseudo-class ()
121 (let ((completions (css-mode-tests--completions)))
122 (should (member "active" completions))
123 (should-not (member "disabled" completions))
124 ;; Don't include pseudo-elements
125 (should-not (member "after" completions)))))
127 (ert-deftest css-test-complete-pseudo-element ()
131 (let ((completions (css-mode-tests--completions)))
132 (should (member "after" completions))
133 (should-not (member "disabled" completions))
134 ;; Don't include pseudo-classes
135 (should-not (member "active" completions)))))
137 (ert-deftest css-test-complete-at-rule ()
141 (let ((completions (css-mode-tests--completions)))
142 (should (member "media" completions))
143 (should-not (member "keyframes" completions))
144 ;; Don't include SCSS at-rules
145 (should-not (member "mixin" completions)))))
147 (ert-deftest scss-test-complete-at-rule ()
151 (let ((completions (css-mode-tests--completions)))
152 (should (member "media" completions))
153 (should-not (member "keyframes" completions))
154 (should (member "mixin" completions)))))
156 (ert-deftest css-test-complete-property ()
160 (let ((completions (css-mode-tests--completions)))
161 (should (member "filter" completions))
162 (should-not (member "position" completions)))))
164 (ert-deftest css-test-complete-selector ()
168 (let ((completions (css-mode-tests--completions)))
169 (should (member "body" completions))
170 (should-not (member "article" completions)))))
172 (ert-deftest css-test-complete-nested-selector ()
176 (let ((completions (css-mode-tests--completions)))
177 (should-not (member "body" completions)))))
179 (ert-deftest scss-test-complete-nested-selector ()
183 (let ((completions (css-mode-tests--completions)))
184 (should (member "body" completions))
185 (should-not (member "article" completions)))))
187 (provide 'css-mode-tests)
188 ;;; css-mode-tests.el ends here