493 lines
18 KiB
EmacsLisp
493 lines
18 KiB
EmacsLisp
;;; css-mode-tests.el --- Test suite for CSS mode -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2016-2024 Free Software Foundation, Inc.
|
|
|
|
;; Author: Simen Heggestøyl <simenheg@gmail.com>
|
|
;; Keywords: internal
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'css-mode)
|
|
(require 'ert)
|
|
(require 'ert-x)
|
|
(require 'seq)
|
|
|
|
(ert-deftest css-test-property-values ()
|
|
;; The `float' property has a flat value list.
|
|
(should
|
|
(equal (seq-sort #'string-lessp (css--property-values "float"))
|
|
'("left" "none" "right")))
|
|
|
|
;; The `list-style' property refers to several other properties.
|
|
(should
|
|
(equal (seq-sort #'string-lessp (css--property-values "list-style"))
|
|
(seq-sort
|
|
#'string-lessp
|
|
(seq-uniq
|
|
(append (css--property-values "list-style-type")
|
|
(css--property-values "list-style-position")
|
|
(css--property-values "list-style-image"))))))
|
|
|
|
;; The `position' property is tricky because it's also the name of a
|
|
;; value class.
|
|
(should
|
|
(equal (seq-sort #'string-lessp (css--property-values "position"))
|
|
'("absolute" "fixed" "relative" "static")))
|
|
|
|
;; The `background-position' property should refer to the `position'
|
|
;; value class, not the property of the same name.
|
|
(should
|
|
(equal (css--property-values "background-position")
|
|
(css--value-class-lookup 'position)))
|
|
|
|
;; Check that the `color' property doesn't cause infinite recursion
|
|
;; because it refers to the value class of the same name.
|
|
(should (= (length (css--property-values "color")) 154)))
|
|
|
|
(ert-deftest css-test-property-value-cache ()
|
|
"Test that `css--property-value-cache' is in use."
|
|
(should-not (gethash "word-wrap" css--property-value-cache))
|
|
(let ((word-wrap-values (css--property-values "word-wrap")))
|
|
(should (equal (gethash "word-wrap" css--property-value-cache)
|
|
word-wrap-values))))
|
|
|
|
(ert-deftest css-test-property-values-no-duplicates ()
|
|
"Test that `css--property-values' returns no duplicates."
|
|
;; The `flex' property is prone to duplicate values; if they aren't
|
|
;; removed, it'll contain at least two instances of `auto'.
|
|
(should
|
|
(equal (seq-sort #'string-lessp (css--property-values "flex"))
|
|
'("auto" "calc()" "content" "none"))))
|
|
|
|
(ert-deftest css-test-value-class-lookup ()
|
|
(should
|
|
(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 15)
|
|
(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 ()
|
|
(let ((data (css-completion-at-point)))
|
|
(all-completions (buffer-substring (nth 0 data) (nth 1 data))
|
|
(nth 2 data))))
|
|
|
|
(ert-deftest css-test-complete-bang-rule ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body { left: 0 !")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "important" completions))
|
|
;; Don't include SCSS bang-rules
|
|
(should-not (member "default" completions)))))
|
|
|
|
(ert-deftest scss-test-complete-bang-rule ()
|
|
(with-temp-buffer
|
|
(scss-mode)
|
|
(insert "body { left: 0 !")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "important" completions))
|
|
(should (member "default" completions)))))
|
|
|
|
(ert-deftest css-test-complete-property-value ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body { position: ")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should
|
|
(equal (seq-sort #'string-lessp completions)
|
|
'("absolute" "fixed" "inherit" "initial" "relative"
|
|
"static" "unset"))))))
|
|
|
|
(ert-deftest css-test-complete-pseudo-class ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body:a")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member ":active" completions))
|
|
(should-not (member ":disabled" completions))
|
|
;; Don't include pseudo-elements
|
|
(should-not (member "::after" completions)))))
|
|
|
|
(ert-deftest css-test-complete-pseudo-element ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body::a")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "::after" completions))
|
|
(should-not (member "::disabled" completions))
|
|
;; Don't include pseudo-classes
|
|
(should-not (member ":active" completions)))))
|
|
|
|
(ert-deftest css-test-complete-at-rule ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "@m")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "media" completions))
|
|
(should-not (member "keyframes" completions))
|
|
;; Don't include SCSS at-rules
|
|
(should-not (member "mixin" completions)))))
|
|
|
|
(ert-deftest scss-test-complete-at-rule ()
|
|
(with-temp-buffer
|
|
(scss-mode)
|
|
(insert "@m")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "media" completions))
|
|
(should-not (member "keyframes" completions))
|
|
(should (member "mixin" completions)))))
|
|
|
|
(ert-deftest css-test-complete-property ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body { f")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "filter" completions))
|
|
(should-not (member "position" completions))))
|
|
;; Bug#27392
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "html { grid")
|
|
(should (> (length (css-mode-tests--completions)) 0))))
|
|
|
|
(ert-deftest css-test-foreign-completions ()
|
|
(let ((other-buffer-1 (generate-new-buffer "1"))
|
|
(other-buffer-2 (generate-new-buffer "2")))
|
|
(with-current-buffer other-buffer-1
|
|
(setq-local css-class-list-function (lambda () '("foo" "bar"))))
|
|
(with-current-buffer other-buffer-2
|
|
(setq-local css-class-list-function (lambda () '("bar" "baz"))))
|
|
(let ((completions
|
|
(css--foreign-completions 'css-class-list-function)))
|
|
;; Completions from `other-buffer-1' and `other-buffer-2' should
|
|
;; be merged.
|
|
(should (equal (seq-sort #'string-lessp completions)
|
|
'("bar" "baz" "foo"))))
|
|
(kill-buffer other-buffer-1)
|
|
(kill-buffer other-buffer-2)))
|
|
|
|
(ert-deftest css-test-complete-selector-tag ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "b")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "body" completions))
|
|
(should-not (member "article" completions)))))
|
|
|
|
(ert-deftest css-test-complete-selector-class ()
|
|
(with-temp-buffer
|
|
(setq-local css-class-list-function (lambda () '("foo" "bar")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert ".f")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (equal completions '("foo")))))))
|
|
|
|
(ert-deftest css-test-complete-selector-id ()
|
|
(with-temp-buffer
|
|
(setq-local css-id-list-function (lambda () '("foo" "bar")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "#b")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (equal completions '("bar")))))))
|
|
|
|
(ert-deftest css-test-complete-nested-selector ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "body {")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should-not (member "body" completions)))))
|
|
|
|
(ert-deftest scss-test-complete-nested-selector ()
|
|
(with-temp-buffer
|
|
(scss-mode)
|
|
(insert "body { b")
|
|
(let ((completions (css-mode-tests--completions)))
|
|
(should (member "body" completions))
|
|
(should-not (member "article" completions)))))
|
|
|
|
(ert-deftest css-test-color-to-4-dpc ()
|
|
(should (equal (css--color-to-4-dpc "#ffffff")
|
|
(css--color-to-4-dpc "#fff")))
|
|
(should (equal (css--color-to-4-dpc "#aabbcc")
|
|
(css--color-to-4-dpc "#abc")))
|
|
(should (equal (css--color-to-4-dpc "#fab")
|
|
"#ffffaaaabbbb"))
|
|
(should (equal (css--color-to-4-dpc "#fafbfc")
|
|
"#fafafbfbfcfc")))
|
|
|
|
(ert-deftest css-test-format-hex ()
|
|
(should (equal (css--format-hex "#fff") "#fff"))
|
|
(should (equal (css--format-hex "#ffffff") "#fff"))
|
|
(should (equal (css--format-hex "#aabbcc") "#abc"))
|
|
(should (equal (css--format-hex "#12ff34") "#12ff34"))
|
|
(should (equal (css--format-hex "#aabbccdd") "#abcd"))
|
|
(should (equal (css--format-hex "#aabbccde") "#aabbccde"))
|
|
(should (equal (css--format-hex "#abcdef") "#abcdef")))
|
|
|
|
(ert-deftest css-test-named-color-to-hex ()
|
|
(dolist (item '(("black" "#000")
|
|
("white" "#fff")
|
|
("salmon" "#fa8072")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert (nth 0 item))
|
|
(css--named-color-to-hex)
|
|
(should (equal (buffer-string) (nth 1 item))))))
|
|
|
|
(ert-deftest css-test-format-rgba-alpha ()
|
|
(should (equal (css--format-rgba-alpha 0) "0"))
|
|
(should (equal (css--format-rgba-alpha 0.0) "0"))
|
|
(should (equal (css--format-rgba-alpha 0.00001) "0"))
|
|
(should (equal (css--format-rgba-alpha 1) "1"))
|
|
(should (equal (css--format-rgba-alpha 1.0) "1"))
|
|
(should (equal (css--format-rgba-alpha 1.00001) "1"))
|
|
(should (equal (css--format-rgba-alpha 0.10000) "0.1"))
|
|
(should (equal (css--format-rgba-alpha 0.100001) "0.1"))
|
|
(should (equal (css--format-rgba-alpha 0.2524334) "0.25")))
|
|
|
|
(ert-deftest css-test-hex-to-rgb ()
|
|
(dolist (item '(("#000" "rgb(0, 0, 0)")
|
|
("#000000" "rgb(0, 0, 0)")
|
|
("#fff" "rgb(255, 255, 255)")
|
|
("#ffffff" "rgb(255, 255, 255)")
|
|
("#ffffff80" "rgba(255, 255, 255, 0.5)")
|
|
("#fff0" "rgba(255, 255, 255, 0)")
|
|
("#fff8" "rgba(255, 255, 255, 0.53)")
|
|
("#ffff" "rgba(255, 255, 255, 1)")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert (nth 0 item))
|
|
(css--hex-to-rgb)
|
|
(should (equal (buffer-string) (nth 1 item))))))
|
|
|
|
(ert-deftest css-test-rgb-to-named-color-or-hex ()
|
|
(dolist (item '(("rgb(0, 0, 0)" "black")
|
|
("rgb(255, 255, 255)" "white")
|
|
("rgb(255, 255, 240)" "ivory")
|
|
("rgb(18, 52, 86)" "#123456")
|
|
("rgba(18, 52, 86, 0.5)" "#12345680")
|
|
("rgba(18, 52, 86, 50%)" "#12345680")
|
|
("rgba(50%, 50%, 50%, 50%)" "#80808080")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert (nth 0 item))
|
|
(css--rgb-to-named-color-or-hex)
|
|
(should (equal (buffer-string) (nth 1 item))))))
|
|
|
|
(ert-deftest css-test-cycle-color-format ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert "black")
|
|
(css-cycle-color-format)
|
|
(should (equal (buffer-string) "#000"))
|
|
(css-cycle-color-format)
|
|
(should (equal (buffer-string) "rgb(0, 0, 0)"))
|
|
(css-cycle-color-format)
|
|
(should (equal (buffer-string) "black"))))
|
|
|
|
(ert-deftest css-test-join-nested-selectors ()
|
|
(should (equal (css--join-nested-selectors '("div" "&:hover"))
|
|
"div:hover"))
|
|
(should
|
|
(equal (css--join-nested-selectors '("a" "&::before, &::after"))
|
|
"a::before, a::after"))
|
|
(should
|
|
(equal (css--join-nested-selectors
|
|
'("article" "& > .front-page" "& h1, & h2"))
|
|
"article > .front-page h1, article > .front-page h2"))
|
|
(should (equal (css--join-nested-selectors '(".link" "& + &"))
|
|
".link + .link")))
|
|
|
|
(ert-deftest css-mdn-symbol-guessing ()
|
|
(dolist (item '(("@med" "ia" "@media")
|
|
("@keyframes " "{" "@keyframes")
|
|
("p::after" "" "::after")
|
|
("p:before" "" ":before")
|
|
("a:v" "isited" ":visited")
|
|
("border-" "color: red" "border-color")
|
|
("border-color: red" ";" "border-color")
|
|
("border-color: red; color: green" ";" "color")
|
|
(" border-collapse " ": collapse;" "border-collapse")))
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert (nth 0 item))
|
|
(save-excursion (insert (nth 1 item)))
|
|
(should (equal (nth 2 item) (css--mdn-find-symbol))))))
|
|
|
|
(ert-deftest css-test-rgb-parser ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(dolist (input '("255, 0, 128"
|
|
"255, /* comment */ 0, 128"
|
|
"255 0 128"
|
|
"255, 0, 128, 0.75"
|
|
"255 0 128 / 0.75"
|
|
"100%, 0%, 50%"
|
|
"100%, 0%, 50%, 0.115"
|
|
"100% 0% 50%"
|
|
"100% 0% 50% / 0.115"))
|
|
(erase-buffer)
|
|
(save-excursion
|
|
(insert input ")"))
|
|
(should (equal (css--rgb-color) "#ff0080")))))
|
|
|
|
(ert-deftest css-test-hsl-parser ()
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(dolist (input '("0, 100%, 50%"
|
|
"0 100% 50%"
|
|
"0 /* two */ /* comments */100% 50%"
|
|
"0, 100%, 50%, 0.75"
|
|
"0 100% 50% / 0.75"
|
|
"0deg 100% 50%"
|
|
"360deg 100% 50%"
|
|
"0rad, 100%, 50%, 0.115"
|
|
"0grad, 100%, 50%, 0.115"
|
|
"1turn 100% 50% / 0.115"))
|
|
(erase-buffer)
|
|
(save-excursion
|
|
(insert input ")"))
|
|
(should (equal (css--hsl-color) "#ff0000")))))
|
|
|
|
(ert-deftest css-test-hex-color ()
|
|
(should (equal (css--hex-color "#abc") "#abc"))
|
|
(should (equal (css--hex-color "#abcd") "#abc"))
|
|
(should (equal (css--hex-color "#aabbcc") "#aabbcc"))
|
|
(should (equal (css--hex-color "#aabbccdd") "#aabbcc")))
|
|
|
|
(ert-deftest css-test-hex-alpha ()
|
|
(should (equal (css--hex-alpha "#abcd") "d"))
|
|
(should-not (css--hex-alpha "#abc"))
|
|
(should (equal (css--hex-alpha "#aabbccdd") "dd"))
|
|
(should-not (css--hex-alpha "#aabbcc")))
|
|
|
|
(ert-deftest css-test-named-color ()
|
|
(dolist (text '("@mixin black" "@include black"))
|
|
(with-temp-buffer
|
|
(insert text)
|
|
(should-not (css--named-color (save-excursion
|
|
(backward-word)
|
|
(point))
|
|
"black")))))
|
|
|
|
(ert-deftest css-mode-test-indent ()
|
|
(with-current-buffer
|
|
(find-file-noselect (ert-resource-file "test-indent.css"))
|
|
(let ((orig (buffer-string)))
|
|
(indent-region (point-min) (point-max))
|
|
(should (equal (buffer-string) orig)))))
|
|
|
|
(ert-deftest css-mode-test-selectors ()
|
|
(let ((selectors
|
|
(with-temp-buffer
|
|
(insert-file-contents (ert-resource-file "css-selectors.txt"))
|
|
(string-lines (buffer-string)))))
|
|
(with-suppressed-warnings ((interactive-only font-lock-debug-fontify))
|
|
(dolist (selector selectors)
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert selector " {\n}\n")
|
|
(font-lock-debug-fontify)
|
|
(goto-char (point-min))
|
|
(unless (eq (get-text-property (point) 'face)
|
|
'css-selector)
|
|
(should-not (format "Didn't recognize %s as a selector"
|
|
(buffer-substring-no-properties
|
|
(point) (pos-eol)))))))
|
|
;; Test many selectors.
|
|
(dolist (selector selectors)
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert selector " ")
|
|
(dotimes (_ (random 5))
|
|
(insert (seq-random-elt '(" , " " > " " + "))
|
|
(seq-random-elt selectors)))
|
|
(insert "{\n}\n")
|
|
(font-lock-debug-fontify)
|
|
(goto-char (point-min))
|
|
(unless (eq (get-text-property (point) 'face)
|
|
'css-selector)
|
|
(should-not (format "Didn't recognize %s as a selector"
|
|
(buffer-substring-no-properties
|
|
(point) (pos-eol)))))))
|
|
;; Test wrong separators.
|
|
(dolist (selector selectors)
|
|
(with-temp-buffer
|
|
(css-mode)
|
|
(insert selector " ")
|
|
(dotimes (_ (1+ (random 5)))
|
|
(insert (seq-random-elt '("=" " @ "))
|
|
(seq-random-elt selectors)))
|
|
(insert "{\n}\n")
|
|
(font-lock-debug-fontify)
|
|
(goto-char (point-min))
|
|
(when (eq (get-text-property (point) 'face)
|
|
'css-selector)
|
|
(should-not (format "Recognized %s as a selector"
|
|
(buffer-substring-no-properties
|
|
(point) (pos-eol))))))))))
|
|
|
|
(ert-deftest scss-mode-test-selectors ()
|
|
(let ((selectors
|
|
(with-temp-buffer
|
|
(insert-file-contents (ert-resource-file "scss-selectors.txt"))
|
|
(string-lines (buffer-string)))))
|
|
(with-suppressed-warnings ((interactive-only font-lock-debug-fontify))
|
|
(dolist (selector selectors)
|
|
(with-temp-buffer
|
|
(scss-mode)
|
|
(insert selector " {\n}\n")
|
|
(font-lock-debug-fontify)
|
|
(goto-char (point-min))
|
|
(unless (eq (get-text-property (point) 'face)
|
|
'css-selector)
|
|
(should-not (format "Didn't recognize %s as a selector"
|
|
(buffer-substring-no-properties
|
|
(point) (pos-eol))))))))))
|
|
|
|
|
|
(provide 'css-mode-tests)
|
|
;;; css-mode-tests.el ends here
|