branch: elpa/d-mode
commit daf5e055115902b3ef79919fba22134689b83bde
Author: Vladimir Panteleev <[email protected]>
Commit: Vladimir Panteleev <[email protected]>
Add basic fontification test
---
d-mode-test.el | 20 ++++++++++++++++++++
tests/fonts.d | 6 ++++++
tests/fonts.d.html | 6 ++++++
3 files changed, 32 insertions(+)
diff --git a/d-mode-test.el b/d-mode-test.el
index c7da07b..58ee5f4 100644
--- a/d-mode-test.el
+++ b/d-mode-test.el
@@ -54,6 +54,8 @@
(require 'd-mode nil t)
+(require 'htmlfontify)
+
(defconst d-test-teststyle
'((c-tab-always-indent . t)
(c-basic-offset . 2)
@@ -256,6 +258,23 @@ If the resulting indentation ends up being different,
raise an error."
"Got:
\n--------------------\n%s\n--------------------\n")
orig (buffer-string))))))
+(defun d-test-fontification ()
+ "Test fontification the current file.
+
+Compares fontification against a test file (same file name, with
+a '.html' suffix). If the result ends up being different from
+the reference file, raise an error."
+ (let* ((hfy-optimizations '(body-text-only merge-adjacent-tags))
+ (actual (with-current-buffer (htmlfontify-buffer nil "test.d")
(buffer-string)))
+ (expected (with-temp-buffer
+ (insert-file-contents (concat filename ".html"))
+ (buffer-string))))
+ (unless (equal actual expected)
+ (error (concat "Test case has been fontified differently.\n"
+
"Expected:\n--------------------\n%s\n--------------------\n"
+ "Got:
\n--------------------\n%s\n--------------------\n")
+ expected actual))))
+
(defmacro d-test-deftest (name filename expected-result)
"Define a d-mode test using the given FILENAME.
@@ -267,6 +286,7 @@ is expected to succeed, and nil otherwise."
;; Run the tests
(d-test-deftest imenu "tests/imenu.d" t)
+(d-test-deftest fonts "tests/fonts.d" t)
(d-test-deftest i0021 "tests/I0021.d" t)
(d-test-deftest i0026 "tests/I0026.d" t)
(d-test-deftest i0035 "tests/I0035.d" (version< "24.4" emacs-version))
diff --git a/tests/fonts.d b/tests/fonts.d
new file mode 100644
index 0000000..3c4ce87
--- /dev/null
+++ b/tests/fonts.d
@@ -0,0 +1,6 @@
+// #run: (d-test-fontification)
+
+void main()
+{
+ assert(true);
+}
diff --git a/tests/fonts.d.html b/tests/fonts.d.html
new file mode 100644
index 0000000..8096111
--- /dev/null
+++ b/tests/fonts.d.html
@@ -0,0 +1,6 @@
+<span class="comment-delimiter">// </span><span class="comment">#run:
(d-test-fontification)
+</span>
+<span class="type">void</span> <span class="function-name">main</span>()
+{
+ <span class="keyword">assert</span>(<span class="constant">true</span>);
+}
