From 197c07a84767ac885ae2cf1300e0933efe424431 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 23 May 2020 15:45:22 +0200 Subject: 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'. --- tests/packages.scm | 7 ++++--- 1 file 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))) -- cgit v1.2.3