import: cpan: Update tests for dependency handling.
* tests/cpan.scm (test-json): Remove core module dependencies. [cpan->guix-package]: Add mock url handling for module api. Adjust expected native-inputs and license.
This commit is contained in:
parent
431b28d9dc
commit
cc9b70d3ea
|
@ -28,15 +28,8 @@
|
||||||
"{
|
"{
|
||||||
\"metadata\" : {
|
\"metadata\" : {
|
||||||
\"prereqs\" : {
|
\"prereqs\" : {
|
||||||
\"configure\" : {
|
|
||||||
\"requires\" : {
|
|
||||||
\"ExtUtils::MakeMaker\" : \"0\",
|
|
||||||
\"Module::Build\" : \"0.28\"
|
|
||||||
}
|
|
||||||
},
|
|
||||||
\"runtime\" : {
|
\"runtime\" : {
|
||||||
\"requires\" : {
|
\"requires\" : {
|
||||||
\"Getopt::Std\" : \"0\",
|
|
||||||
\"Test::Script\" : \"1.05\",
|
\"Test::Script\" : \"1.05\",
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -70,6 +63,8 @@
|
||||||
(match url
|
(match url
|
||||||
("http://api.metacpan.org/release/Foo-Bar"
|
("http://api.metacpan.org/release/Foo-Bar"
|
||||||
test-json)
|
test-json)
|
||||||
|
("http://api.metacpan.org/module/Test::Script"
|
||||||
|
"{ \"distribution\" : \"Test-Script\" }")
|
||||||
("http://example.com/Foo-Bar-0.1.tar.gz"
|
("http://example.com/Foo-Bar-0.1.tar.gz"
|
||||||
test-source)
|
test-source)
|
||||||
(_ (error "Unexpected URL: " url))))))))
|
(_ (error "Unexpected URL: " url))))))))
|
||||||
|
@ -85,16 +80,13 @@
|
||||||
('base32
|
('base32
|
||||||
(? string? hash)))))
|
(? string? hash)))))
|
||||||
('build-system 'perl-build-system)
|
('build-system 'perl-build-system)
|
||||||
('native-inputs
|
|
||||||
('quasiquote
|
|
||||||
(("perl-module-build" ('unquote 'perl-module-build)))))
|
|
||||||
('inputs
|
('inputs
|
||||||
('quasiquote
|
('quasiquote
|
||||||
(("perl-test-script" ('unquote 'perl-test-script)))))
|
(("perl-test-script" ('unquote 'perl-test-script)))))
|
||||||
('home-page "http://search.cpan.org/dist/Foo-Bar")
|
('home-page "http://search.cpan.org/dist/Foo-Bar")
|
||||||
('synopsis "Fizzle Fuzz")
|
('synopsis "Fizzle Fuzz")
|
||||||
('description 'fill-in-yourself!)
|
('description 'fill-in-yourself!)
|
||||||
('license 'gpl1+))
|
('license (package-license perl)))
|
||||||
(string=? (bytevector->nix-base32-string
|
(string=? (bytevector->nix-base32-string
|
||||||
(call-with-input-string test-source port-sha256))
|
(call-with-input-string test-source port-sha256))
|
||||||
hash))
|
hash))
|
||||||
|
|
Loading…
Reference in New Issue