tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Achim Gratz 2013-03-18 08:07:26 +01:00
parent a461b0a444
commit 63c5bc4425
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
testing/lisp/test-org-list.el
View File

@ -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."