testing export of inline src blocks

* testing/lisp/test-ob-exp.el (ob-exp/exports-inline): Testing export of
  inline src blocks.
This commit is contained in:
Eric Schulte 2012-09-15 09:23:37 -06:00
parent c092c8e29d
commit f68da4f5ab

View file

@ -221,6 +221,15 @@ elements in the final html."
(org-export-as-ascii nil nil nil 'string)
(should (equal '(5 4 3 2 1) *evaluation-collector*)))))
(ert-deftest ob-exp/exports-inline ()
(org-test-at-id "54cb8dc3-298c-4883-a933-029b3c9d4b18"
(org-narrow-to-subtree)
(let ((html (org-export-as-html nil nil nil 'string 'body-only)))
(dolist (rx '("middle <\\(code\\|tt\\)>1</\\(code\\|tt\\)> of"
"end of a line. <\\(code\\|tt\\)>2</\\(code\\|tt\\)>"
"<\\(code\\|tt\\)>3</\\(code\\|tt\\)> Here is one"))
(should (string-match rx html))))))
(ert-deftest ob-exp/export-call-line-information ()
(org-test-at-id "bec63a04-491e-4caa-97f5-108f3020365c"
(org-narrow-to-subtree)