;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2019, 2020, 2022 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 "") (define have-guile-semver? (false-if-exception (resolve-interface '(semver)))) (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"))))))) (unless have-guile-semver? (test-skip 1)) (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))))) (unless have-guile-semver? (test-skip 1)) (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 license:bsd-2) (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")))) (unless have-guile-semver? (test-skip 1)) (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")