From cfc49428a427d1a140424c687cb45ba00117d443 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 21 Mar 2017 13:15:38 +0100 Subject: tests: Create temporary directories in '/tmp'. * tests/gpgscm/tests.scm (mkdtemp): Create temporary directories in '/tmp' on UNIX, or in '%Temp' on Windows. * tests/migrations/common.scm (run-test): Turn error into a warning. * tests/openpgp/defs.scm (start-agent): Likewise. -- This fixes the problem of GnuPG components being unable to communicate because of too long GnuPG home directories in important build environments like the Debian build servers despite the use of socket directories. This reverts d75d20909d9f60d33ffd210def92278c0f383aad. Signed-off-by: Justus Winter --- tests.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/tests.scm b/tests.scm index 0c02c34..329a31a 100644 --- a/tests.scm +++ b/tests.scm @@ -271,9 +271,11 @@ ;; generic name is used. Returns an absolute path. (define (mkdtemp . components) (canonical-path (_mkdtemp (if (null? components) - (string-append "gpgscm-" (get-isotime) "-" - (basename-suffix *scriptname* ".scm") - "-XXXXXX") + (path-join + (if *win32* (getenv "Temp") "/tmp") + (string-append "gpgscm-" (get-isotime) "-" + (basename-suffix *scriptname* ".scm") + "-XXXXXX")) (apply path-join components))))) (define-macro (with-temporary-working-directory . expressions) -- cgit v1.2.3