[elpa] externals/org fffb87174e 2/2: testing/lisp/test-ox-md.el (ox-md/headline-style): New test

[ELPA Syncer]

branch: externals/org
commit fffb87174edb9b5bc8160ecba01fe49cd55fa8ee
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    testing/lisp/test-ox-md.el (ox-md/headline-style): New test
---
 testing/lisp/test-ox-md.el | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/testing/lisp/test-ox-md.el b/testing/lisp/test-ox-md.el
index 550265fdf8..dd2128a095 100644
--- a/testing/lisp/test-ox-md.el
+++ b/testing/lisp/test-ox-md.el
@@ -39,6 +39,49 @@
         (goto-char (point-min))
         (should (search-forward "#### Footnotes"))))))
 
+(ert-deftest ox-md/headline-style ()
+  "Test `org-md-headline-style' being honored."
+  (dolist (org-md-headline-style '(atx setext mixed))
+    (let ((export-buffer "*Test MD Export*")
+          (org-export-show-temporary-export-buffer nil))
+      (org-test-with-temp-text "#+options: toc:nil h:10
+* level 1
+** level 2
+*** level 3
+**** level 4
+***** level 5
+****** level 6
+******* level 7
+"
+        (org-export-to-buffer 'md export-buffer)
+        (with-current-buffer export-buffer
+          (goto-char (point-min))
+          (pcase org-md-headline-style
+            (`atx
+             (should (search-forward "# level 1"))
+             (should (search-forward "## level 2"))
+             (should (search-forward "### level 3"))
+             (should (search-forward "#### level 4"))
+             (should (search-forward "##### level 5"))
+             (should (search-forward "###### level 6"))
+             (should (search-forward "1.  level 7")))
+            (`setext
+             (should (search-forward "level 1\n======="))
+             (should (search-forward "level 2\n------"))
+             (should (search-forward "1.  level 3"))
+             (should (search-forward "1.  level 4"))
+             (should (search-forward "1.  level 5"))
+             (should (search-forward "1.  level 6"))
+             (should (search-forward "1.  level 7")))
+            (`mixed
+             (should (search-forward "level 1\n======="))
+             (should (search-forward "level 2\n------"))
+             (should (search-forward "### level 3"))
+             (should (search-forward "#### level 4"))
+             (should (search-forward "##### level 5"))
+             (should (search-forward "###### level 6"))
+             (should (search-forward "1.  level 7")))))))))
+
 (ert-deftest ox-md/item ()
   "Test `org-md-item'."
   ;; Align items at column 4.