diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-12-13 12:41:55 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-12-13 12:41:55 -0700 |
commit | 8efcd4338d192cc926b59199dace96101bb14575 (patch) | |
tree | 997886b23a50f6449ee63ef89480a6c1bfdfa2ea | |
parent | 4760c3b9482cfeda02d24590e2fb7c70a9c1d0cd (diff) | |
download | org-mode-8efcd4338d192cc926b59199dace96101bb14575.tar.gz |
adding test of error when exporting marked subtree with code blocks
-rw-r--r-- | testing/examples/babel.org | 15 | ||||
-rw-r--r-- | testing/lisp/test-ob-exp.el | 5 |
2 files changed, 20 insertions, 0 deletions
diff --git a/testing/examples/babel.org b/testing/examples/babel.org index 6ca7c2f..506d88b 100644 --- a/testing/examples/babel.org +++ b/testing/examples/babel.org @@ -159,3 +159,18 @@ #+begin_src example-lang :session :results output :var num=9 the body #+end_src +* conflicting blocks on export + :PROPERTIES: + :ID: 5daa4d03-e3ea-46b7-b093-62c1b7632df3 + :END: +#+results: a-list +- a +- b +- c + +#+begin_src emacs-lisp :results wrap :exports both + "code block results" +#+end_src +#+begin_src emacs-lisp :var lst=a-list :results list + (reverse lst) +#+end_src diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 1c2214c..6c7c514 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -95,6 +95,11 @@ elements in the final html." (should (string-match "<pre.*>[^\000]*</pre>" html)) (should (string-match "<table.*>[^\000]*</table>" html))))) +(ert-deftest ob-exp/export-subtree () + (org-test-at-id "5daa4d03-e3ea-46b7-b093-62c1b7632df3" + (org-mark-subtree) + (org-export-as-latex nil))) + (provide 'test-ob-exp) ;;; test-ob-exp.el ends here |