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:
parent
15426c6fd0
commit
fcd269baa8
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue