test-ob-exp.el (ob-exp/mixed-blocks-with-exports-both): Fix test

* test-ob-exp.el (ob-exp/mixed-blocks-with-exports-both): Fix test.

Thanks to Nick Dokos for reporting this.
This commit is contained in:
Bastien Guerry 2012-12-20 01:33:04 +01:00
parent 15426c6fd0
commit fcd269baa8
1 changed files with 4 additions and 9 deletions

View File

@ -169,23 +169,19 @@ elements in the final html."
"</tbody>""</table>"))))))
(ert-deftest ob-exp/mixed-blocks-with-exports-both ()
(org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3"
(org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3"
(org-narrow-to-subtree)
(let ((exported-html
(org-export-as-html nil nil nil 'string 'body-only))
(org-export-as-html nil nil nil 'string 'body-only))
(test-point 0))
(org-test-with-temp-text-in-file
exported-html
;; check following ouput exists and in order
(mapcar (lambda (x)
(should (< test-point
(re-search-forward
x
nil t)))
(should (< test-point (re-search-forward x nil t)))
(setq test-point (point)))
'("mixed blocks with exports both"
"<ul>"
"<ul class=\"org-ul\">"
"<li>""a""</li>"
"<li>""b""</li>"
"<li>""c""</li>"
@ -289,4 +285,3 @@ elements in the final html."
(provide 'test-ob-exp)
;;; test-ob-exp.el ends here