diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-26 16:03:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-05-04 09:56:12 +0200 |
| commit | 7b2b3a13cc2d9b043f37b2e7ba0f147c08de8fad (patch) | |
| tree | d8d1d51c1b71b81089ae3233738c3ab35592e44e /tests/openpgp.scm | |
| parent | 4459c7859c286ab54fa3a9901c8a17591b04c516 (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.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/openpgp.scm b/tests/openpgp.scm index 20d65171fd8..1709167859d 100644 --- a/tests/openpgp.scm +++ b/tests/openpgp.scm | |||
| @@ -179,7 +179,7 @@ Pz7oopeN72xgggYUNT37ezqN3MeCqw0= | |||
| 179 | (map (lambda (str) | 179 | (map (lambda (str) |
| 180 | (let ((signature (get-openpgp-detached-signature/ascii | 180 | (let ((signature (get-openpgp-detached-signature/ascii |
| 181 | (open-input-string str)))) | 181 | (open-input-string str)))) |
| 182 | (list (openpgp-signature-issuer signature) | 182 | (list (openpgp-signature-issuer-key-id signature) |
| 183 | (openpgp-signature-issuer-fingerprint signature) | 183 | (openpgp-signature-issuer-fingerprint signature) |
| 184 | (openpgp-signature-public-key-algorithm signature) | 184 | (openpgp-signature-public-key-algorithm signature) |
| 185 | (openpgp-signature-hash-algorithm signature)))) | 185 | (openpgp-signature-hash-algorithm signature)))) |