ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: gnupg: Factor out and export KEY-FINGERPRINT-VECTOR.

Browse source 
* guix/tests/gnupg.scm (key-fingerprint-vector): New procedure.  Export it.
(key-fingerprint): Use it.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Attila Lendvai 2021-12-22 11:28:57 +01:00 committed by Mathieu Othacehe
parent 07145c8a8c
commit 037c2b6d3a
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/tests/gnupg.scm
View file

@ -35,6 +35,7 @@ (define-module (guix tests gnupg)
read-openpgp-packet
key-fingerprint
key-fingerprint-vector
key-id))
(define gpg-command
@ -82,7 +83,10 @@ (define (read-openpgp-packet file)
(open-bytevector-input-port
(call-with-input-file file read-radix-64))))
(define key-fingerprint-vector
(compose openpgp-public-key-fingerprint
read-openpgp-packet))
(define key-fingerprint
(compose openpgp-format-fingerprint
openpgp-public-key-fingerprint
read-openpgp-packet))
key-fingerprint-vector))