tests/openpgp/decrypt.scm


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env gpgscm

(load (with-path "defs.scm"))

(for-each-p
 "Checking decryption of supplied files"
 (lambda (name)
   (tr:do
    (tr:open (in-srcdir (string-append name ".asc")))
    (tr:gpg "" '(--yes))
    (tr:assert-identity name)))
 plain-files)