ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Use a #:prefix for (gcrypt hash).

Browse source 
* 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'.
This commit is contained in:
Ludovic Courtès 2020-05-23 15:45:22 +02:00
parent 0459649e3e
commit 197c07a847
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/packages.scm
View file

@ -29,7 +29,7 @@ (define-module (test-packages)
#:renamer (lambda (name) #:renamer (lambda (name)
(cond ((eq? name 'location) 'make-location) (cond ((eq? name 'location) 'make-location)
(else name)))) (else name))))
#:use-module ((gcrypt hash) #:hide (sha256)) #:use-module ((gcrypt hash) #:prefix gcrypt:)
#:use-module (guix derivations) #:use-module (guix derivations)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix grafts) #:use-module (guix grafts)
@ -515,8 +515,9 @@ (define read-at
(uri "unused://") (uri "unused://")
(file-name "origin-sha512") (file-name "origin-sha512")
(hash (content-hash (hash (content-hash
(bytevector-hash (string->utf8 "hello") (gcrypt:bytevector-hash (string->utf8 "hello")
(hash-algorithm sha512)) (gcrypt:lookup-hash-algorithm
'sha512))
sha512)))) sha512))))
(drv (package-source-derivation %store source)) (drv (package-source-derivation %store source))
(output (derivation->output-path drv))) (output (derivation->output-path drv)))