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

import: cpan: Updater provides input list.

Browse source 
* guix/import/cpan.scm (latest-release): Add 'inputs' field.
* tests/cpan.scm ("package-latest-release"): New test.
This commit is contained in:
Ludovic Courtès 2023-05-17 22:30:45 +02:00
parent c4fe4e7eb8
commit a738c1a0c7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 29 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/import/cpan.scm
View file

@ -354,7 +354,8 @@ (define* (latest-release package #:key (version #f))
(upstream-source
(package (package-name package))
(version version)
(urls (list url)))))))
(urls (list url))
(inputs (cpan-module-inputs release)))))))
(define %cpan-updater
(upstream-updater

27
tests/cpan.scm
View file

@ -21,7 +21,10 @@
(define-module (test-cpan)
#:use-module (guix import cpan)
#:use-module (guix base32)
#:use-module (guix upstream)
#:use-module ((guix download) #:select (url-fetch))
#:use-module (gcrypt hash)
#:use-module (guix tests)
#:use-module (guix tests http)
#:use-module ((guix store) #:select (%graft?))
#:use-module (srfi srfi-64)
@ -92,6 +95,30 @@ (define test-source
(x
(pk 'fail x #f))))))
(test-equal "package-latest-release"
(list '("http://example.com/Foo-Bar-0.1.tar.gz")
#f
(list (upstream-input
(name "Test-Script")
(downstream-name "perl-test-script")
(type 'propagated))))
(with-http-server `((200 ,test-json)
(200 ,test-source)
(200 "{ \"distribution\" : \"Test-Script\" }"))
(define source
(parameterize ((%metacpan-base-url (%local-url)))
(package-latest-release
(dummy-package "perl-test-script"
(version "0.0.0")
(source (dummy-origin
(method url-fetch)
(uri "mirror://cpan/Foo-Bar-0.0.0.tgz"))))
(list %cpan-updater))))
(list (upstream-source-urls source)
(upstream-source-signature-urls source)
(upstream-source-inputs source))))
(test-equal "metacpan-url->mirror-url, http"
"mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz"
(metacpan-url->mirror-url