summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-05-23 15:45:22 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-23 16:29:29 +0200
commit197c07a84767ac885ae2cf1300e0933efe424431 (patch)
tree1abf96e092a85c5b4b9aeba656dd3fbe28c6bb11
parent0459649e3ed9a5698bc33858aea3bb11cc749d5a (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.scm7
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)))