From 037c2b6d3acdf7f5b68ecb3024ef90bce85922df Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Wed, 22 Dec 2021 11:28:57 +0100 Subject: tests: gnupg: Factor out and export KEY-FINGERPRINT-VECTOR. * guix/tests/gnupg.scm (key-fingerprint-vector): New procedure. Export it. (key-fingerprint): Use it. Signed-off-by: Mathieu Othacehe --- guix/tests/gnupg.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/guix/tests/gnupg.scm b/guix/tests/gnupg.scm index 943fd66077..09f02a2b67 100644 --- a/guix/tests/gnupg.scm +++ b/guix/tests/gnupg.scm @@ -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)) -- cgit v1.2.3