mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-03 22:56:33 +02:00
tests,w32: Use GetTempPath to get the path for temporary files.
* tests/gpgscm/ffi.c (do_get_temp_path): New function.
(ffi_init): Make function available.
* tests/gpgscm/tests.scm (mkdtemp): Use the new function.
Fixes-commit: 06f1f163e9
Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
74c1f30ad6
commit
d17840c3f4
2 changed files with 20 additions and 1 deletions
|
@ -272,7 +272,7 @@
|
|||
(define (mkdtemp . components)
|
||||
(canonical-path (_mkdtemp (if (null? components)
|
||||
(path-join
|
||||
(if *win32* (getenv "Temp") "/tmp")
|
||||
(get-temp-path)
|
||||
(string-append "gpgscm-" (get-isotime) "-"
|
||||
(basename-suffix *scriptname* ".scm")
|
||||
"-XXXXXX"))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue