blob: 50887a1ce806f96cbb530054e45dbf5644443503 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/env gpgscm
(load (with-path "defs.scm"))
(for-each-p
"Checking encryption, signing, and producing armored output"
(lambda (source)
(tr:do
(tr:open source)
(tr:gpg usrpass1 '(--yes -seat -r two@example.com --passphrase-fd "0"))
(tr:gpg "" '(--yes))
(tr:assert-weak-identity source)))
plain-files)
|
