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:
Eric Bavier 2015-02-20 16:02:43 -06:00
parent 431b28d9dc
commit cc9b70d3ea
1 changed files with 3 additions and 11 deletions

View File

@ -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))