guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: import: cpan: Update tests for dependency handling.


From: Eric Bavier
Subject: 01/01: import: cpan: Update tests for dependency handling.
Date: Fri, 20 Feb 2015 22:07:59 +0000

bavier pushed a commit to branch master
in repository guix.

commit cc9b70d3ea708e4364b0a090d8a6efebabd8c0e9
Author: Eric Bavier <address@hidden>
Date:   Fri Feb 20 16:02:43 2015 -0600

    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 files changed, 3 insertions(+), 11 deletions(-)

diff --git a/tests/cpan.scm b/tests/cpan.scm
index af7b36e..2f95135 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]