[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4ba71ee 2/2: Convert indent test for css-mode into automatic test
From: |
Stefan Kangas |
Subject: |
master 4ba71ee 2/2: Convert indent test for css-mode into automatic test |
Date: |
Thu, 10 Sep 2020 14:42:49 -0400 (EDT) |
branch: master
commit 4ba71eee8d8991c95028df40cb784cb9cb2e964d
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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(+)
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 38cb73b..f627d1c 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