diff options
| author | Stefan Kangas | 2020-09-10 20:40:34 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-09-10 20:40:34 +0200 |
| commit | 4ba71eee8d8991c95028df40cb784cb9cb2e964d (patch) | |
| tree | 9826418e930e28560e53e726fc4ab1b4bfc791b0 | |
| parent | 498773447ad0640b500572915a15958ac7320f2d (diff) | |
| download | emacs-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.
| -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.el | 14 |
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 |