From 4ba71eee8d8991c95028df40cb784cb9cb2e964d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 10 Sep 2020 20:40:34 +0200 Subject: [PATCH] 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. --- .../textmodes/css-mode-resources/test-indent.css} | 0 test/lisp/textmodes/css-mode-tests.el | 14 ++++++++++++++ 2 files changed, 14 insertions(+) rename test/{manual/indent/css-mode.css => lisp/textmodes/css-mode-resources/test-indent.css} (100%) diff --git a/test/manual/indent/css-mode.css b/test/lisp/textmodes/css-mode-resources/test-indent.css similarity index 100% rename from test/manual/indent/css-mode.css rename to 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 @@ (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 -- 2.39.5