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

gpgscm: Library improvements.

Browse source 
* tests/gpgscm/repl.scm (prompt-yes-no?): New function.
* tests/gpgscm/tests.scm (pathsep-split): Likewise.
(pathsep-join): Likewise.
(with-path): Use the new function.

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

12
tests/gpgscm/repl.scm
View file

@ -55,3 +55,15 @@
(define (interactive-repl . environment)
(repl (lambda (p) (prompt-append-prefix "gpgscm " p))
(if (null? environment) (interaction-environment) (car environment))))
;; Ask a yes/no question.
(define (prompt-yes-no? question default)
(let ((answer (prompt (string-append question "? ["
(if default "Y/n" "y/N") "] "))))
(cond
((= 0 (string-length answer))
default)
((or (equal? "y" answer) (equal? "Y" answer))
#t)
(else
#f))))