blob: f1d2e18f43f0455a1c7841a659e5a84a40d954a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env gpgscm
(load (with-path "defs.scm"))
(for-each-p
"Checking encryption using DSA"
(lambda (source)
(tr:do
(tr:open source)
(tr:gpg "" `(--yes --encrypt --recipient ,dsa-usrname2))
(tr:gpg "" '(--yes))
(tr:assert-identity source)))
(append plain-files data-files))
(for-each-p
"Checking encryption using DSA and a specific cipher algorithm"
(lambda (cipher)
(for-each-p
""
(lambda (source)
(tr:do
(tr:open source)
(tr:gpg "" `(--yes --encrypt --recipient ,dsa-usrname2
--cipher-algo ,cipher))
(tr:gpg "" '(--yes))
(tr:assert-identity source)))
(append plain-files data-files)))
all-cipher-algos)
|
