diff options
Diffstat (limited to 'test/lisp/textmodes/css-mode-tests.el')
| -rw-r--r-- | test/lisp/textmodes/css-mode-tests.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/test/lisp/textmodes/css-mode-tests.el b/test/lisp/textmodes/css-mode-tests.el index 4883123843d..a8ce9944169 100644 --- a/test/lisp/textmodes/css-mode-tests.el +++ b/test/lisp/textmodes/css-mode-tests.el @@ -254,9 +254,18 @@ (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" "#000000") - ("white" "#ffffff") + (dolist (item '(("black" "#000") + ("white" "#fff") ("salmon" "#fa8072"))) (with-temp-buffer (css-mode) @@ -309,7 +318,7 @@ (css-mode) (insert "black") (css-cycle-color-format) - (should (equal (buffer-string) "#000000")) + (should (equal (buffer-string) "#000")) (css-cycle-color-format) (should (equal (buffer-string) "rgb(0, 0, 0)")) (css-cycle-color-format) |