aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/textmodes/css-mode-tests.el
diff options
context:
space:
mode:
authorStefan Kangas2020-09-10 20:40:34 +0200
committerStefan Kangas2020-09-10 20:40:34 +0200
commit4ba71eee8d8991c95028df40cb784cb9cb2e964d (patch)
tree9826418e930e28560e53e726fc4ab1b4bfc791b0 /test/lisp/textmodes/css-mode-tests.el
parent498773447ad0640b500572915a15958ac7320f2d (diff)
downloademacs-4ba71eee8d8991c95028df40cb784cb9cb2e964d.tar.gz
emacs-4ba71eee8d8991c95028df40cb784cb9cb2e964d.zip
Convert indent test for css-mode into automatic test
* test/lisp/textmodes/css-mode-tests.el (css-mode-test-indent): New test. (css-mode-tests-data-dir): New variable. * test/manual/indent/css-mode.css: Move from here... * test/lisp/textmodes/css-mode-resources/test-indent.css: ...to here.
Diffstat (limited to 'test/lisp/textmodes/css-mode-tests.el')
-rw-r--r--test/lisp/textmodes/css-mode-tests.el14
1 files changed, 14 insertions, 0 deletions
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