[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 31de027c12 3/4: test-ob-java: Use `temporary-file-d
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 31de027c12 3/4: test-ob-java: Use `temporary-file-directory' |
Date: |
Sun, 9 Oct 2022 00:57:54 -0400 (EDT) |
branch: externals/org
commit 31de027c128a232f22df766866cbfd16c9713a6e
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
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>
---
testing/lisp/test-ob-java.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/testing/lisp/test-ob-java.el b/testing/lisp/test-ob-java.el
index 931fdeda5d..215f1cb515 100644
--- a/testing/lisp/test-ob-java.el
+++ b/testing/lisp/test-ob-java.el
@@ -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)