1
0
Fork 0
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:
Justus Winter 2017-03-21 15:52:47 +01:00
parent 74c1f30ad6
commit d17840c3f4
No known key found for this signature in database
GPG key ID: DD1A52F9DA8C9020
2 changed files with 20 additions and 1 deletions

View file

@ -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"))