summaryrefslogtreecommitdiff
path: root/tests/openpgp.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-26 16:03:46 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-04 09:56:12 +0200
commit7b2b3a13cc2d9b043f37b2e7ba0f147c08de8fad (patch)
treed8d1d51c1b71b81089ae3233738c3ab35592e44e /tests/openpgp.scm
parent4459c7859c286ab54fa3a9901c8a17591b04c516 (diff)
openpgp: Store the issuer key id and fingerprint in <openpgp-signature>.
* guix/openpgp.scm (<openpgp-signature>)[issuer, issuer-fingerprint]: New fields. (openpgp-signature-issuer, openpgp-signature-issuer-fingerprint): Remove. (verify-openpgp-signature): Use 'openpgp-signature-issuer-key-id'. (get-signature): Initialize 'issuer' and 'issuer-fingerprint'. * tests/openpgp.scm ("get-openpgp-detached-signature/ascii"): Adjust accordingly.
Diffstat (limited to 'tests/openpgp.scm')
-rw-r--r--tests/openpgp.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/openpgp.scm b/tests/openpgp.scm
index 20d65171fd..1709167859 100644
--- a/tests/openpgp.scm
+++ b/tests/openpgp.scm
@@ -179,7 +179,7 @@ Pz7oopeN72xgggYUNT37ezqN3MeCqw0=
(map (lambda (str)
(let ((signature (get-openpgp-detached-signature/ascii
(open-input-string str))))
- (list (openpgp-signature-issuer signature)
+ (list (openpgp-signature-issuer-key-id signature)
(openpgp-signature-issuer-fingerprint signature)
(openpgp-signature-public-key-algorithm signature)
(openpgp-signature-hash-algorithm signature))))