From 0c1916657a54593c5b265d8f42195d36033843d4 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 4 Mar 2019 22:34:31 +0100 Subject: [PATCH] ob: Fix and add tests for mkdirp header argument * testing/lisp/test-ob.el (test-ob-core/dir-mkdirp): Add tests. --- testing/lisp/test-ob.el | 30 +++++++++++++++++++++++++----- 1 file changed, 25 insertions(+), 5 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 33d6ae8f7..facc0a4ba 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -1608,12 +1608,32 @@ echo \"$data\" )) (ert-deftest test-ob-core/dir-mkdirp () - (org-test-with-temp-text - "#+begin_src sh :mkdirp yes :dir \"data/code\" -pwd + "Test :mkdirp with :dir header combination." + (should-not + (org-test-with-temp-text-in-file + "#+begin_src emacs-lisp :dir \"data/code\" +t #+end_src" - (org-babel-execute-src-block)) - (should (file-directory-p "data/code"))) + (org-babel-execute-src-block) + (message default-directory) + (file-directory-p "data/code"))) + (should-not + (org-test-with-temp-text-in-file + "#+begin_src emacs-lisp :mkdirp no :dir \"data/code\" +t +#+end_src" + (org-babel-execute-src-block) + (message default-directory) + (file-directory-p "data/code"))) + (should + (org-test-with-temp-text-in-file + "#+begin_src emacs-lisp :mkdirp yes :dir \"data/code\" +t +#+end_src" + (org-babel-execute-src-block) + (message default-directory) + (prog1 (file-directory-p "data/code") + (delete-directory "data" t))))) (ert-deftest test-ob/script-escape () ;; Delimited lists of numbers