;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (test-cpan)
  #:use-module (guix import cpan)
  #:use-module (guix base32)
  #:use-module (gcrypt hash)
  #:use-module (guix tests http)
  #:use-module (guix grafts)
  #:use-module (srfi srfi-64)
  #:use-module (web client)
  #:use-module (ice-9 match))

;; Globally disable grafts because they can trigger early builds.
(%graft? #f)

(define test-json
  "{
  \"metadata\" : {
    \"name\" : \"Foo-Bar\",
    \"version\" : \"0.1\"
  }
  \"name\" : \"Foo-Bar-0.1\",
  \"distribution\" : \"Foo-Bar\",
  \"license\" : [
    \"perl_5\"
  ],
  \"dependency\": [
     { \"relationship\": \"requires\",
       \"phase\": \"runtime\",
       \"version\": \"1.05\",
       \"module\": \"Test::Script\"
     }
  ],
  \"abstract\" : \"Fizzle Fuzz\",
  \"download_url\" : \"http://example.com/Foo-Bar-0.1.tar.gz\",
  \"author\" : \"Guix\",
  \"version\" : \"0.1\"
}")

(define test-source
  "foobar")

;; Avoid collisions with other tests.
(%http-server-port 10400)

(test-begin "cpan")

(test-assert "cpan->guix-package"
  ;; Replace network resources with <pre>
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014-2022 Ludovic Courtès &lt;ludo@gnu.org&gt;
;;; Copyright © 2015 Andy Wingo &lt;wingo@igalia.com&gt;
;;; Copyright © 2015 Mark H Weaver &lt;mhw@netris.org&gt;
;;; Copyright © 2016 Sou Bunnbu &lt;iyzsong@gmail.com&gt;
;;; Copyright © 2017, 2020, 2022, 2023 Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
;;; Copyright © 2017 Nikita &lt;nikita@n0.is&gt;
;;; Copyright © 2017, 2019 Hartmut Goebel &lt;h.goebel@crazy-compilers.com&gt;
;;; Copyright © 2018, 2020, 2022 Efraim Flashner &lt;efraim@flashner.co.il&gt;
;;; Copyright © 2018, 2023 Ricardo Wurmus &lt;rekado@elephly.net&gt;
;;; Copyright © 2017, 2019 Christopher Baines &lt;mail@cbaines.net&gt;
;;; Copyright © 2019 Tim Gesthuizen &lt;tim.gesthuizen@yahoo.de&gt;
;;; Copyright © 2019 David Wilson &lt;david@daviwil.com&gt;
;;; Copyright © 2020, 2024 Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
;;; Copyright © 2020 Reza Alizadeh Majd &lt;r.majd@pantherx.org&gt;
;;; Copyright © 2021 Brice Waegeneire &lt;brice@waegenei.re&gt;
;;; Copyright © 2021, 2022 muradm &lt;mail@muradm.net&gt;
;;; Copyright © 2023 Bruno Victal &lt;mirai@makinata.eu&gt;
;;; Copyright © 2023 Zheng Junjie &lt;873216071@qq.com&gt;
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warra