From cc9b70d3ea708e4364b0a090d8a6efebabd8c0e9 Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
Date: Fri, 20 Feb 2015 16:02:43 -0600
Subject: 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.
---
 tests/cpan.scm | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

(limited to 'tests')

diff --git a/tests/cpan.scm b/tests/cpan.scm
index af7b36e684..2f9513519e 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -28,15 +28,8 @@ (define test-json
   "{
   \"metadata\" : {
     \"prereqs\" : {
-      \"configure\" : {
-        \"requires\" : {
-          \"ExtUtils::MakeMaker\" : \"0\",
-          \"Module::Build\" : \"0.28\"
-        }
-      },
       \"runtime\" : {
         \"requires\" : {
-          \"Getopt::Std\" : \"0\",
           \"Test::Script\" : \"1.05\",
         }
       }
@@ -70,6 +63,8 @@ (define test-source
                 (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 @@ (define test-source
                      ('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))
-- 
cgit v1.2.3