~ruther/guix-local

cc9b70d3ea708e4364b0a090d8a6efebabd8c0e9 — Eric Bavier 11 years ago 431b28d
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.
1 files changed, 3 insertions(+), 11 deletions(-)

M tests/cpan.scm
M tests/cpan.scm => tests/cpan.scm +3 -11
@@ 28,15 28,8 @@
  "{
  \"metadata\" : {
    \"prereqs\" : {
      \"configure\" : {
        \"requires\" : {
          \"ExtUtils::MakeMaker\" : \"0\",
          \"Module::Build\" : \"0.28\"
        }
      },
      \"runtime\" : {
        \"requires\" : {
          \"Getopt::Std\" : \"0\",
          \"Test::Script\" : \"1.05\",
        }
      }


@@ 70,6 63,8 @@
                (match url
                  ("http://api.metacpan.org/release/Foo-Bar"
                   test-json)
                  ("http://api.metacpan.org/module/Test::Script"
                   "{ \"distribution\" : \"Test-Script\" }")
                  ("http://example.com/Foo-Bar-0.1.tar.gz"
                   test-source)
                  (_ (error "Unexpected URL: " url))))))))


@@ 85,16 80,13 @@
                     ('base32
                      (? string? hash)))))
         ('build-system 'perl-build-system)
         ('native-inputs
          ('quasiquote
           (("perl-module-build" ('unquote 'perl-module-build)))))
         ('inputs
          ('quasiquote
           (("perl-test-script" ('unquote 'perl-test-script)))))
         ('home-page "http://search.cpan.org/dist/Foo-Bar")
         ('synopsis "Fizzle Fuzz")
         ('description 'fill-in-yourself!)
         ('license 'gpl1+))
         ('license (package-license perl)))
       (string=? (bytevector->nix-base32-string
                  (call-with-input-string test-source port-sha256))
                 hash))