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

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 037c2b6d3acdf7f5b68ecb3024ef90bce85922df
Author: Attila Lendvai <attila@lendvai.name>
AuthorDate: Wed Dec 22 11:28:57 2021 +0100

    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 <othacehe@gnu.org>
---
 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 943fd66..09f02a2 100644
--- a/guix/tests/gnupg.scm
+++ b/guix/tests/gnupg.scm
@@ -35,6 +35,7 @@
 
             read-openpgp-packet
             key-fingerprint
+            key-fingerprint-vector
             key-id))
 
 (define gpg-command
@@ -82,7 +83,10 @@ process is terminated afterwards."
    (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))