mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 22:38:07 -05:00
054e308f5d
If a package satisfying the dependency's semver requirement already exists,
use it. Prior to this change the highest version matching the semver
requirement was used (and imported in case it was not defined as package
already).
When resolving a dependency (now done in `sort-map-dependencies`), first
search for a package matching the semver requirement and only if this fails
reach out for a crate.
* guix/import/crate.scm (crate->guix-package)[find-package-version]: New
function. [dependency-name+version]: New function.
[sort-map-dependencies]: Use it instead of lambda function.
* tests/crate.scm (test-doctool-crate, test-doctool-dependencies): New
variables.
("self-test …", "cargo-recursive-import-hoors-existing-packages"): New
tests.
658 lines
22 KiB
Scheme
658 lines
22 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2014 David Thompson <davet@gnu.org>
|
||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
|
||
;;;
|
||
;;; 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-crate)
|
||
#:use-module (guix import crate)
|
||
#:use-module (guix base32)
|
||
#:use-module (guix build-system cargo)
|
||
#:use-module (gcrypt hash)
|
||
#:use-module (guix tests)
|
||
#:use-module (gnu packages)
|
||
#:use-module (ice-9 iconv)
|
||
#:use-module (ice-9 match)
|
||
#:use-module (srfi srfi-64))
|
||
|
||
|
||
;; crate versions and dependencies used here
|
||
;; foo-0.8.1
|
||
;; foo-1.0.0
|
||
;; foo-1.0.3
|
||
;; leaf-alice 0.7.5
|
||
;;
|
||
;; root-1.0.0
|
||
;; root-1.0.4
|
||
;; intermediate-a 1.0.42
|
||
;; intermeidate-b ^1.0.0
|
||
;; leaf-alice ^0.7
|
||
;; leaf-bob ^3
|
||
;;
|
||
;; intermediate-a-1.0.40
|
||
;; intermediate-a-1.0.42
|
||
;; intermediate-a-1.1.0-alpha.1
|
||
;; intermediate-a 1.2.3
|
||
;; leaf-alice 0.7.5
|
||
;; leaf-bob ^3
|
||
;;
|
||
;; intermediate-b-1.2.3
|
||
;; leaf-bob 3.0.1
|
||
;;
|
||
;; leaf-alice-0.7.3
|
||
;; leaf-alice-0.7.5
|
||
;;
|
||
;; leaf-bob-3.0.1
|
||
|
||
|
||
(define test-foo-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"1.0.3\",
|
||
\"name\": \"foo\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"],
|
||
\"actual_versions\": [
|
||
{ \"id\": 234210,
|
||
\"num\": \"0.8.1\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/foo/0.8.1/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234212,
|
||
\"num\": \"1.0.0\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/foo/1.0.0/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234214,
|
||
\"num\": \"1.0.3\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/foo/1.0.3/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-foo-dependencies
|
||
"{
|
||
\"dependencies\": [
|
||
{
|
||
\"crate_id\": \"leaf-alice\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"0.7.5\"
|
||
}
|
||
]
|
||
}")
|
||
|
||
(define test-root-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"1.0.4\",
|
||
\"name\": \"root\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"],
|
||
\"actual_versions\": [
|
||
{ \"id\": 234240,
|
||
\"num\": \"1.0.0\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/root/1.0.0/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234242,
|
||
\"num\": \"1.0.4\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/root/1.0.4/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-root-dependencies
|
||
"{
|
||
\"dependencies\": [
|
||
{
|
||
\"crate_id\": \"intermediate-a\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"1.0.42\"
|
||
},
|
||
{
|
||
\"crate_id\": \"intermediate-b\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"^1.0.0\"
|
||
}
|
||
{
|
||
\"crate_id\": \"leaf-alice\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"^0.7\"
|
||
},
|
||
{
|
||
\"crate_id\": \"leaf-bob\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"^3\"
|
||
}
|
||
]
|
||
}")
|
||
|
||
(define test-intermediate-a-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"1.1.0-alpha.1\",
|
||
\"name\": \"intermediate-a\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"],
|
||
\"actual_versions\": [
|
||
{ \"id\": 234251,
|
||
\"num\": \"1.0.40\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/intermediate-a/1.0.40/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234250,
|
||
\"num\": \"1.0.42\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/intermediate-a/1.0.42/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234252,
|
||
\"num\": \"1.1.0-alpha.1\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/intermediate-a/1.1.0-alpha.1/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-intermediate-a-dependencies
|
||
"{
|
||
\"dependencies\": [
|
||
{
|
||
\"crate_id\": \"intermediate-b\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"1.2.3\"
|
||
},
|
||
{
|
||
\"crate_id\": \"leaf-alice\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"0.7.5\"
|
||
},
|
||
{
|
||
\"crate_id\": \"leaf-bob\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"^3\"
|
||
}
|
||
]
|
||
}")
|
||
|
||
(define test-intermediate-b-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"1.2.3\",
|
||
\"name\": \"intermediate-b\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"],
|
||
\"actual_versions\": [
|
||
{ \"id\": 234260,
|
||
\"num\": \"1.2.3\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/intermediate-b/1.2.3/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-intermediate-b-dependencies
|
||
"{
|
||
\"dependencies\": [
|
||
{
|
||
\"crate_id\": \"leaf-bob\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"3.0.1\"
|
||
}
|
||
]
|
||
}")
|
||
|
||
(define test-leaf-alice-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"0.7.5\",
|
||
\"name\": \"leaf-alice\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"],
|
||
\"actual_versions\": [
|
||
{ \"id\": 234270,
|
||
\"num\": \"0.7.3\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/leaf-alice/0.7.3/dependencies\"
|
||
}
|
||
},
|
||
{ \"id\": 234272,
|
||
\"num\": \"0.7.5\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/leaf-alice/0.7.5/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-leaf-alice-dependencies
|
||
"{
|
||
\"dependencies\": []
|
||
}")
|
||
|
||
(define test-leaf-bob-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"3.0.1\",
|
||
\"name\": \"leaf-bob\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"]
|
||
\"actual_versions\": [
|
||
{ \"id\": 234280,
|
||
\"num\": \"3.0.1\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/leaf-bob/3.0.1/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
(define test-leaf-bob-dependencies
|
||
"{
|
||
\"dependencies\": []
|
||
}")
|
||
|
||
|
||
(define test-source-hash
|
||
"")
|
||
|
||
|
||
(test-begin "crate")
|
||
|
||
(test-equal "guix-package->crate-name"
|
||
"rustc-serialize"
|
||
(guix-package->crate-name
|
||
(dummy-package
|
||
"rust-rustc-serialize"
|
||
(source (dummy-origin
|
||
(uri (crate-uri "rustc-serialize" "1.0")))))))
|
||
|
||
(test-assert "crate->guix-package"
|
||
;; Replace network resources with sample data.
|
||
(mock ((guix http-client) http-fetch
|
||
(lambda (url . rest)
|
||
(match url
|
||
("https://crates.io/api/v1/crates/foo"
|
||
(open-input-string test-foo-crate))
|
||
("https://crates.io/api/v1/crates/foo/1.0.3/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/foo/1.0.3/dependencies"
|
||
(open-input-string test-foo-dependencies))
|
||
("https://crates.io/api/v1/crates/leaf-alice"
|
||
(open-input-string test-leaf-alice-crate))
|
||
("https://crates.io/api/v1/crates/leaf-alice/0.7.5/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/leaf-alice/0.7.5/dependencies"
|
||
(open-input-string test-leaf-alice-dependencies))
|
||
(_ (error "Unexpected URL: " url)))))
|
||
|
||
(match (crate->guix-package "foo")
|
||
((define-public 'rust-foo-1
|
||
(package (name "rust-foo")
|
||
(version "1.0.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "foo" 'version))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system 'cargo-build-system)
|
||
(arguments
|
||
('quasiquote
|
||
(#:skip-build? #t
|
||
#:cargo-inputs
|
||
(("rust-leaf-alice" ('unquote 'rust-leaf-alice-0.7))))))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0))))
|
||
|
||
(string=? test-source-hash hash))
|
||
(x
|
||
(pk 'fail x #f)))))
|
||
|
||
(test-assert "cargo-recursive-import"
|
||
;; Replace network resources with sample data.
|
||
(mock ((guix http-client) http-fetch
|
||
(lambda (url . rest)
|
||
(match url
|
||
("https://crates.io/api/v1/crates/root"
|
||
(open-input-string test-root-crate))
|
||
("https://crates.io/api/v1/crates/root/1.0.4/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/root/1.0.4/dependencies"
|
||
(open-input-string test-root-dependencies))
|
||
("https://crates.io/api/v1/crates/intermediate-a"
|
||
(open-input-string test-intermediate-a-crate))
|
||
("https://crates.io/api/v1/crates/intermediate-a/1.0.42/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/intermediate-a/1.0.42/dependencies"
|
||
(open-input-string test-intermediate-a-dependencies))
|
||
("https://crates.io/api/v1/crates/intermediate-b"
|
||
(open-input-string test-intermediate-b-crate))
|
||
("https://crates.io/api/v1/crates/intermediate-b/1.2.3/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/intermediate-b/1.2.3/dependencies"
|
||
(open-input-string test-intermediate-b-dependencies))
|
||
("https://crates.io/api/v1/crates/leaf-alice"
|
||
(open-input-string test-leaf-alice-crate))
|
||
("https://crates.io/api/v1/crates/leaf-alice/0.7.5/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/leaf-alice/0.7.5/dependencies"
|
||
(open-input-string test-leaf-alice-dependencies))
|
||
("https://crates.io/api/v1/crates/leaf-bob"
|
||
(open-input-string test-leaf-bob-crate))
|
||
("https://crates.io/api/v1/crates/leaf-bob/3.0.1/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/leaf-bob/3.0.1/dependencies"
|
||
(open-input-string test-leaf-bob-dependencies))
|
||
(_ (error "Unexpected URL: " url)))))
|
||
(match (crate-recursive-import "root")
|
||
;; rust-intermediate-b has no dependency on the rust-leaf-alice
|
||
;; package, so this is a valid ordering
|
||
(((define-public 'rust-leaf-alice-0.7
|
||
(package
|
||
(name "rust-leaf-alice")
|
||
(version "0.7.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "leaf-alice" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments ('quasiquote (#:skip-build? #t)))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0))))
|
||
(define-public 'rust-leaf-bob-3
|
||
(package
|
||
(name "rust-leaf-bob")
|
||
(version "3.0.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "leaf-bob" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments ('quasiquote (#:skip-build? #t)))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0))))
|
||
(define-public 'rust-intermediate-b-1
|
||
(package
|
||
(name "rust-intermediate-b")
|
||
(version "1.2.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "intermediate-b" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
('quasiquote (#:skip-build? #t
|
||
#:cargo-inputs
|
||
(("rust-leaf-bob"
|
||
('unquote rust-leaf-bob-3))))))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0))))
|
||
(define-public 'rust-intermediate-a-1
|
||
(package
|
||
(name "rust-intermediate-a")
|
||
(version "1.0.42")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "intermediate-a" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
('quasiquote (#:skip-build? #t
|
||
#:cargo-inputs
|
||
(("rust-intermediate-b"
|
||
('unquote rust-intermediate-b-1))
|
||
("rust-leaf-alice"
|
||
('unquote 'rust-leaf-alice-0.7))
|
||
("rust-leaf-bob"
|
||
('unquote rust-leaf-bob-3))))))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0))))
|
||
(define-public 'rust-root-1
|
||
(package
|
||
(name "rust-root")
|
||
(version "1.0.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "root" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
('quasiquote (#:cargo-inputs
|
||
(("rust-intermediate-a"
|
||
('unquote rust-intermediate-a-1))
|
||
("rust-intermediate-b"
|
||
('unquote rust-intermediate-b-1))
|
||
("rust-leaf-alice"
|
||
('unquote 'rust-leaf-alice-0.7))
|
||
("rust-leaf-bob"
|
||
('unquote rust-leaf-bob-3))))))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0)))))
|
||
#t)
|
||
(x
|
||
(pk 'fail x #f)))))
|
||
|
||
(test-equal "licenses: MIT OR Apache-2.0"
|
||
'(license:expat license:asl2.0)
|
||
(string->license "MIT OR Apache-2.0"))
|
||
|
||
(test-equal "licenses: Apache-2.0 / MIT"
|
||
'(license:asl2.0 license:expat)
|
||
(string->license "Apache-2.0 / MIT"))
|
||
|
||
(test-equal "licenses: Apache-2.0 WITH LLVM-exception"
|
||
'(license:asl2.0 unknown-license!)
|
||
(string->license "Apache-2.0 WITH LLVM-exception"))
|
||
|
||
(test-equal "licenses: MIT/Apache-2.0 AND BSD-2-Clause"
|
||
'(license:expat license:asl2.0 unknown-license!)
|
||
(string->license "MIT/Apache-2.0 AND BSD-2-Clause"))
|
||
|
||
(test-equal "licenses: MIT/Apache-2.0"
|
||
'(license:expat license:asl2.0)
|
||
(string->license "MIT/Apache-2.0"))
|
||
|
||
|
||
|
||
(define test-doctool-crate
|
||
"{
|
||
\"crate\": {
|
||
\"max_version\": \"2.2.2\",
|
||
\"name\": \"leaf-bob\",
|
||
\"description\": \"summary\",
|
||
\"homepage\": \"http://example.com\",
|
||
\"repository\": \"http://example.com\",
|
||
\"keywords\": [\"dummy\", \"test\"],
|
||
\"categories\": [\"test\"]
|
||
\"actual_versions\": [
|
||
{ \"id\": 234280,
|
||
\"num\": \"2.2.2\",
|
||
\"license\": \"MIT OR Apache-2.0\",
|
||
\"links\": {
|
||
\"dependencies\": \"/api/v1/crates/doctool/2.2.2/dependencies\"
|
||
}
|
||
}
|
||
]
|
||
}
|
||
}")
|
||
|
||
;; FIXME: This test depends on some existing packages
|
||
(define test-doctool-dependencies
|
||
"{
|
||
\"dependencies\": [
|
||
{
|
||
\"crate_id\": \"docopt\",
|
||
\"kind\": \"normal\",
|
||
\"req\": \"^0.8.1\"
|
||
}
|
||
]
|
||
}")
|
||
|
||
|
||
(test-assert "self-test: rust-docopt 0.8.x is gone, please adjust the test case"
|
||
(not (null? (find-packages-by-name "rust-docopt" "0.8"))))
|
||
|
||
(test-assert "cargo-recursive-import-hoors-existing-packages"
|
||
(mock ((guix http-client) http-fetch
|
||
(lambda (url . rest)
|
||
(match url
|
||
("https://crates.io/api/v1/crates/doctool"
|
||
(open-input-string test-doctool-crate))
|
||
("https://crates.io/api/v1/crates/doctool/2.2.2/download"
|
||
(set! test-source-hash
|
||
(bytevector->nix-base32-string
|
||
(sha256 (string->bytevector "empty file\n" "utf-8"))))
|
||
(open-input-string "empty file\n"))
|
||
("https://crates.io/api/v1/crates/doctool/2.2.2/dependencies"
|
||
(open-input-string test-doctool-dependencies))
|
||
(_ (error "Unexpected URL: " url)))))
|
||
(match (crate-recursive-import "doctool")
|
||
(((define-public 'rust-doctool-2
|
||
(package
|
||
(name "rust-doctool")
|
||
(version "2.2.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "doctool" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
(? string? hash)))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
('quasiquote (#:cargo-inputs
|
||
(("rust-docopt"
|
||
('unquote 'rust-docopt-0.8))))))
|
||
(home-page "http://example.com")
|
||
(synopsis "summary")
|
||
(description "summary")
|
||
(license (list license:expat license:asl2.0)))))
|
||
#t)
|
||
(x
|
||
(pk 'fail x #f)))))
|
||
|
||
(test-end "crate")
|