tests,w32: Avoid using 'glob'.

* tests/openpgp/setup.scm: Avoid 'glob' which is not available on
mingw.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-10-04 12:46:00 +02:00
parent fbc83c0cdd
commit 949e70115e
1 changed files with 1 additions and 2 deletions

View File

@ -127,8 +127,7 @@
(setenv "GNUPGHOME" (getcwd) #t)
(create-gpghome)
(kill-agent)
(call-check `(,(tool 'gpgtar) --create --output ,(cadr *args*)
,@(glob "*")))))
(call-check `(,(tool 'gpgtar) --create --output ,(cadr *args*) "."))))
((member "--unpack-tarball" *args*)
(call-check `(,(tool 'gpgtar) --extract --directory=. ,(cadr *args*)))
(start-agent))