From 8d43aa2aa98a804ea131e3e5f85f8d2297cd1279 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 31 Mar 2012 14:56:21 -0400 Subject: [PATCH] test the new file-desc header argument * testing/lisp/test-ob.el (test-ob/file-desc-header-argument): Test the new file-desc header argument. --- testing/lisp/test-ob.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index a2e6abfd7..4dac69651 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -776,6 +776,22 @@ trying to find the :END: marker." (org-babel-execute-src-block) (org-babel-execute-src-block))) +(ert-deftest test-ob/file-desc-header-argument () + "Test that the :file-desc header argument is used." + (org-test-with-temp-text "#+begin_src emacs-lisp :results file :file-desc bar + \"foo\" +#+end_src + +#+begin_src emacs-lisp :results file :file-desc + \"foo\" +#+end_src" + (org-babel-execute-src-block) + (org-babel-next-src-block 1) + (org-babel-execute-src-block) + (goto-char (point-min)) + (should (search-forward "[[file:foo][bar]]" nil t)) + (should (search-forward "[[file:foo][foo]]" nil t)))) + (ert-deftest test-ob/org-babel-remove-result--results-wrap () "Test `org-babel-remove-result' with :results wrap." (test-ob-verify-result-and-removed-result -- 2.11.4.GIT