Changeset View
Changeset View
Standalone View
Standalone View
tests/openpgp/decrypt-session-key.scm
Context not available. | |||||
(lambda (name) | (lambda (name) | ||||
(let* ((source (in-srcdir "tests" "openpgp" (string-append name ".asc"))) | (let* ((source (in-srcdir "tests" "openpgp" (string-append name ".asc"))) | ||||
(key (get-session-key source))) | (key (get-session-key source))) | ||||
(with-ephemeral-home-directory setup-environment | (with-ephemeral-home-directory setup-environment-no-atexit | ||||
(tr:do | (tr:do | ||||
(tr:open source) | (tr:open source) | ||||
(tr:gpg "" `(--yes --decrypt --override-session-key ,key)) | (tr:gpg "" `(--yes --decrypt --override-session-key ,key)) | ||||
Context not available. |