diff options
Diffstat (limited to 'tests/migrations')
| -rw-r--r-- | tests/migrations/common.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/migrations/common.scm b/tests/migrations/common.scm index fa8f1295a..cba659024 100644 --- a/tests/migrations/common.scm +++ b/tests/migrations/common.scm @@ -39,10 +39,11 @@ (define GPGTAR (path-join (getenv "objdir") "tools" (qualify "gpgtar"))) (define (untar-armored source-name) - (pipe:do - (pipe:open source-name (logior O_RDONLY O_BINARY)) - (pipe:spawn `(,@GPG --dearmor)) - (pipe:spawn `(,GPGTAR --extract --directory=. -)))) + (with-ephemeral-home-directory (lambda ()) + (pipe:do + (pipe:open source-name (logior O_RDONLY O_BINARY)) + (pipe:spawn `(,@GPG --dearmor)) + (pipe:spawn `(,GPGTAR --extract --directory=. -))))) (define (run-test message src-tarball test) (catch (skip "gpgtar not built") |