emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]