blob: a41c442ece7b076ed8ae3d0867ec10afb942e182 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/env gpgscm
(load (with-path "defs.scm"))
(for-each-p
"Checking armored encryption and decryption using pipes"
(lambda (source)
(tr:do
(tr:open source)
(tr:pipe-do
(pipe:gpg `(--yes -ea --recipient ,usrname2))
(pipe:gpg '(--yes)))
(tr:assert-identity source)))
(append plain-files data-files))
|
