blob: f7706cbea7b3c2a3e5f514262d68c16cf0da0732 (
plain)
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 DSA encrypted file"
(lambda (name)
(tr:do
(tr:open (in-srcdir (string-append name "-pgp.asc")))
(tr:gpg "" '(--yes))
(tr:assert-identity name)))
(list (car plain-files)))
|
