mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-ob-java: Use `temporary-file-directory' 

* testing/lisp/test-ob-java.el (ob-java/simple-dir):
(ob-java/simple-dir-with-package): Prefer `temporary-file-directory'
over `org-babel-temporary-directory'.  The latter is nil in
noninteractive Emacs during tests.

Reported-by: Christian Köstlin <christian.koestlin@gmail.com>
This commit is contained in:
Ihor Radchenko 2022-10-09 12:27:55 +08:00
parent f4149681ee
commit 31de027c12
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
testing/lisp/test-ob-java.el
View File

@ -574,14 +574,14 @@ public class Tangle {
(org-test-with-temp-text
(format "#+begin_src java :dir %s :results output silent
System.out.print(42);
#+end_src" org-babel-temporary-directory)
#+end_src" temporary-file-directory)
(should (string=
"42"
(unwind-protect
(org-babel-execute-src-block)
(delete-file (concat (file-name-as-directory org-babel-temporary-directory)
(delete-file (concat (file-name-as-directory temporary-file-directory)
"Main.java"))
(delete-file (concat (file-name-as-directory org-babel-temporary-directory)
(delete-file (concat (file-name-as-directory temporary-file-directory)
"Main.class")))))))
(ert-deftest ob-java/simple-dir-with-package ()
@ -595,16 +595,16 @@ public class Main {
System.out.print(42);
}
}
#+end_src" org-babel-temporary-directory)
#+end_src" temporary-file-directory)
(should (string=
"42"
(unwind-protect
(org-babel-execute-src-block)
(delete-file (concat (file-name-as-directory org-babel-temporary-directory)
(delete-file (concat (file-name-as-directory temporary-file-directory)
"pkg/Main.java"))
(delete-file (concat (file-name-as-directory org-babel-temporary-directory)
(delete-file (concat (file-name-as-directory temporary-file-directory)
"pkg/Main.class"))
(delete-directory (concat (file-name-as-directory org-babel-temporary-directory)
(delete-directory (concat (file-name-as-directory temporary-file-directory)
"pkg")))))))
(provide 'test-ob-java)