aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/textmodes/css-mode-resources/test-indent.css (renamed from test/manual/indent/css-mode.css)0
-rw-r--r--test/lisp/textmodes/css-mode-tests.el14
2 files changed, 14 insertions, 0 deletions
diff --git a/test/manual/indent/css-mode.css b/test/lisp/textmodes/css-mode-resources/test-indent.css
index 041aeec1b15..041aeec1b15 100644
--- a/test/manual/indent/css-mode.css
+++ b/test/lisp/textmodes/css-mode-resources/test-indent.css
diff --git a/test/lisp/textmodes/css-mode-tests.el b/test/lisp/textmodes/css-mode-tests.el
index 38cb73b3557..f627d1c02c9 100644
--- a/test/lisp/textmodes/css-mode-tests.el
+++ b/test/lisp/textmodes/css-mode-tests.el
@@ -30,6 +30,12 @@
30(require 'ert) 30(require 'ert)
31(require 'seq) 31(require 'seq)
32 32
33(defvar css-mode-tests-data-dir
34 (file-truename
35 (expand-file-name "css-mode-resources/"
36 (file-name-directory (or load-file-name
37 buffer-file-name)))))
38
33(ert-deftest css-test-property-values () 39(ert-deftest css-test-property-values ()
34 ;; The `float' property has a flat value list. 40 ;; The `float' property has a flat value list.
35 (should 41 (should
@@ -411,5 +417,13 @@
411 (point)) 417 (point))
412 "black"))))) 418 "black")))))
413 419
420(ert-deftest css-mode-test-indent ()
421 (with-current-buffer
422 (find-file-noselect (expand-file-name "test-indent.css"
423 css-mode-tests-data-dir))
424 (let ((orig (buffer-string)))
425 (indent-region (point-min) (point-max))
426 (should (equal (buffer-string) orig)))))
427
414(provide 'css-mode-tests) 428(provide 'css-mode-tests)
415;;; css-mode-tests.el ends here 429;;; css-mode-tests.el ends here