security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

tests: Improve 'shell.scm' script.

Browse source 
* tests/openpgp/defs.scm (create-file): Unlink file first.
* tests/openpgp/shell.scm: Ask whether to import legacy test keys or
not, and whether to drop 'batch' from the configuration.  Add paths to
all the programs to 'PATH'.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-07-14 12:59:00 +02:00
parent b4d25082fd
commit 58eafd11ed
No known key found for this signature in database
GPG key ID: DD1A52F9DA8C9020
2 changed files with 25 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tests/openpgp/defs.scm
View file

@ -316,6 +316,7 @@
(display (make-random-string size) port))))
(define (create-file name . lines)
(catch #f (unlink name))
(letfd ((fd (open name (logior O_WRONLY O_CREAT O_BINARY) #o600)))
(let ((port (fdopen fd "wb")))
(for-each (lambda (line) (display line port) (newline port))