mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-03 22:56:33 +02:00
gpg: Look up user ID to revoke by UID hash
* g10/keyedit.c (find_userid_by_namehash, find_userid): New. (keyedit_quick_revuid): Use find_userid() instead of iterating over the nodes of the keyblock. * tests/openpgp/quick-key-manipulation.scm: Add test for revoking a user ID specified by its hash. -- This makes it possible to specify the user ID to revoke as UID hash when calling --quick-revoke-uid. GnuPG-bug-id: 5936
This commit is contained in:
parent
f27a70ecc2
commit
35b1755070
2 changed files with 94 additions and 32 deletions
|
@ -34,6 +34,8 @@
|
|||
(define alpha "Alpha <alpha@invalid.example.net>")
|
||||
(define bravo "Bravo <bravo@invalid.example.net>")
|
||||
(define charlie "Charlie <charlie@invalid.example.net>")
|
||||
(define delta "Delta <delta@invalid.example.net>")
|
||||
(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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue