diff options
| author | Attila Lendvai <attila@lendvai.name> | 2021-12-22 11:28:57 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-12-23 17:31:51 +0100 |
| commit | 037c2b6d3acdf7f5b68ecb3024ef90bce85922df (patch) | |
| tree | 94dfc36a1072aa2d2679f32d5b4954b4f0ec75a2 | |
| parent | 07145c8a8cef3860a6c522d81e387bd0485c83ce (diff) | |
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>
| -rw-r--r-- | guix/tests/gnupg.scm | 8 |
1 files 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 @@ 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)) |