diff options
Diffstat (limited to 'tests/openpgp')
| -rwxr-xr-x | tests/openpgp/quick-key-manipulation.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/openpgp/quick-key-manipulation.scm b/tests/openpgp/quick-key-manipulation.scm index 2023f17bd..6cdf19a34 100755 --- a/tests/openpgp/quick-key-manipulation.scm +++ b/tests/openpgp/quick-key-manipulation.scm @@ -34,6 +34,8 @@ (define alpha "Alpha <[email protected]>") (define bravo "Bravo <[email protected]>") (define charlie "Charlie <[email protected]>") +(define delta "Delta <[email protected]>") +(define deltahash "359DC5EFF98B14A58AAA615C638E8BD0CEDA537B") (define (key-data key) (filter (lambda (x) (or (string=? (car x) "pub") @@ -87,6 +89,10 @@ (info "Checking that we can revoke a user ID...") (call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,alpha)) +(info "Checking that we can revoke a user ID by its hash...") +(call-check `(,@GPG --quick-add-uid ,(exact bravo) ,delta)) +(call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,deltahash)) + (info "Checking that we get an error revoking a non-existent user ID.") (catch '() (call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,charlie)) |