diff options
Diffstat (limited to 'tests/openpgp/quick-key-manipulation.scm')
| -rwxr-xr-x | tests/openpgp/quick-key-manipulation.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/openpgp/quick-key-manipulation.scm b/tests/openpgp/quick-key-manipulation.scm index 6cdf19a34..71d222a22 100755 --- a/tests/openpgp/quick-key-manipulation.scm +++ b/tests/openpgp/quick-key-manipulation.scm @@ -33,6 +33,7 @@ (define alpha "Alpha <[email protected]>") (define bravo "Bravo <[email protected]>") +(define bravohash "F75B1420CC5881F4005333379355CFF5873094DE") (define charlie "Charlie <[email protected]>") (define delta "Delta <[email protected]>") (define deltahash "359DC5EFF98B14A58AAA615C638E8BD0CEDA537B") @@ -77,7 +78,8 @@ (info "Checking that we can mark an user ID as primary.") (call-check `(,@gpg --quick-set-primary-uid ,(exact alpha) ,alpha)) -(call-check `(,@gpg --quick-set-primary-uid ,(exact alpha) ,bravo)) +(info "Checking that we can mark a user ID as primary by its hash...") +(call-check `(,@gpg --quick-set-primary-uid ,(exact alpha) ,bravohash)) ;; XXX I don't know how to verify this. The keylisting does not seem ;; to indicate the primary UID. |