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'.

diff --git a/tests/packages.scm b/tests/packages.scm
index 4935d45..d8f0d67 100644 (file)
--- 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)))