ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ob: Fix and add tests for mkdirp header argument 

* testing/lisp/test-ob.el (test-ob-core/dir-mkdirp): Add tests.
This commit is contained in:
Nicolas Goaziou 2019-03-04 22:34:31 +01:00
parent 8b5941330b
commit 0c1916657a
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
testing/lisp/test-ob.el
View File

@ -1608,12 +1608,32 @@ echo \"$data\"
)) ))
(ert-deftest test-ob-core/dir-mkdirp () (ert-deftest test-ob-core/dir-mkdirp ()
(org-test-with-temp-text "Test :mkdirp with :dir header combination."
"#+begin_src sh :mkdirp yes :dir \"data/code\" (should-not
pwd (org-test-with-temp-text-in-file
"#+begin_src emacs-lisp :dir \"data/code\"
t
#+end_src" #+end_src"
(org-babel-execute-src-block)) (org-babel-execute-src-block)
(should (file-directory-p "data/code"))) (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 () (ert-deftest test-ob/script-escape ()
;; Delimited lists of numbers ;; Delimited lists of numbers