diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-09-10 20:40:34 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-09-10 20:40:34 +0200 |
| commit | 4ba71eee8d8991c95028df40cb784cb9cb2e964d (patch) | |
| tree | 9826418e930e28560e53e726fc4ab1b4bfc791b0 /test/lisp/textmodes/css-mode-tests.el | |
| parent | 498773447ad0640b500572915a15958ac7320f2d (diff) | |
| download | emacs-4ba71eee8d8991c95028df40cb784cb9cb2e964d.tar.gz | |
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.el | 14 |
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 @@ (require 'ert) (require 'seq) +(defvar css-mode-tests-data-dir + (file-truename + (expand-file-name "css-mode-resources/" + (file-name-directory (or load-file-name + buffer-file-name))))) + (ert-deftest css-test-property-values () ;; The `float' property has a flat value list. (should @@ -411,5 +417,13 @@ (point)) "black"))))) +(ert-deftest css-mode-test-indent () + (with-current-buffer + (find-file-noselect (expand-file-name "test-indent.css" + css-mode-tests-data-dir)) + (let ((orig (buffer-string))) + (indent-region (point-min) (point-max)) + (should (equal (buffer-string) orig))))) + (provide 'css-mode-tests) ;;; css-mode-tests.el ends here |