diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-05-23 15:45:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-05-23 16:29:29 +0200 |
| commit | 197c07a84767ac885ae2cf1300e0933efe424431 (patch) | |
| tree | 1abf96e092a85c5b4b9aeba656dd3fbe28c6bb11 | |
| parent | 0459649e3ed9a5698bc33858aea3bb11cc749d5a (diff) | |
tests: Use a #:prefix for (gcrypt hash).
* tests/packages.scm: Use #:prefix instead of #:hide for (gcrypt hash).
This accomodates for 'sha512' syntax literal matches with Guile-Gcrypt 0.3.0,
which exports 'sha512' in addition to 'sha256'.
| -rw-r--r-- | tests/packages.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 4935d4503e..d8f0d677a3 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -29,7 +29,7 @@ #:renamer (lambda (name) (cond ((eq? name 'location) 'make-location) (else name)))) - #:use-module ((gcrypt hash) #:hide (sha256)) + #:use-module ((gcrypt hash) #:prefix gcrypt:) #:use-module (guix derivations) #:use-module (guix packages) #:use-module (guix grafts) @@ -515,8 +515,9 @@ (uri "unused://") (file-name "origin-sha512") (hash (content-hash - (bytevector-hash (string->utf8 "hello") - (hash-algorithm sha512)) + (gcrypt:bytevector-hash (string->utf8 "hello") + (gcrypt:lookup-hash-algorithm + 'sha512)) sha512)))) (drv (package-source-derivation %store source)) (output (derivation->output-path drv))) |