forked from mirrors/org-mode
fix test fail introduced by change of default in e8742b78e0
* testing/lisp/test-org-list.el (test-org-list/to-html): Bind `org-html-indent´ to nil for testing.
This commit is contained in:
parent
a461b0a444
commit
63c5bc4425
|
@ -757,24 +757,25 @@
|
|||
"Test `org-list-to-html' specifications."
|
||||
(should
|
||||
(equal "<ul class=\"org-ul\">\n<li>a\n</li>\n</ul>"
|
||||
(with-temp-buffer
|
||||
(insert "<!-- BEGIN RECEIVE ORGLST name -->
|
||||
(let (org-html-indent)
|
||||
(with-temp-buffer
|
||||
(insert "<!-- BEGIN RECEIVE ORGLST name -->
|
||||
<!-- END RECEIVE ORGLST name -->
|
||||
<!--
|
||||
#+ORGLST: SEND name org-list-to-html
|
||||
- a
|
||||
-->")
|
||||
(goto-char (point-min))
|
||||
(re-search-forward "^- a" nil t)
|
||||
(beginning-of-line)
|
||||
(org-list-send-list)
|
||||
(goto-line 2)
|
||||
(buffer-substring-no-properties
|
||||
(point)
|
||||
(progn (re-search-forward "^<!-- END" nil t)
|
||||
(beginning-of-line)
|
||||
(skip-chars-backward " \r\t\n")
|
||||
(point)))))))
|
||||
(goto-char (point-min))
|
||||
(re-search-forward "^- a" nil t)
|
||||
(beginning-of-line)
|
||||
(org-list-send-list)
|
||||
(goto-line 2)
|
||||
(buffer-substring-no-properties
|
||||
(point)
|
||||
(progn (re-search-forward "^<!-- END" nil t)
|
||||
(beginning-of-line)
|
||||
(skip-chars-backward " \r\t\n")
|
||||
(point))))))))
|
||||
|
||||
(ert-deftest test-org-list/to-latex ()
|
||||
"Test `org-list-to-latex' specifications."
|
||||
|
|
Loading…
Reference in New Issue