tests: configuration: Add a test to cover 'unset regression.

[jackhill/guix/guix.git] / tests / crate.scm

diff --git a/tests/crate.scm b/tests/crate.scm
index a24f734..720fcb2 100644 (file)
--- a/tests/crate.scm
+++ b/tests/crate.scm
@@ -1,7 +1,7 @@
 ;;; 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 © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -148,7 +148,7 @@
        \"crate_id\": \"intermediate-b\",
        \"kind\": \"normal\",
        \"req\": \"^1.0.0\"
-     }
+     },
      {
        \"crate_id\": \"leaf-alice\",
        \"kind\": \"normal\",
@@ -317,6 +317,9 @@
 (define test-source-hash
   "")
 
+(define have-guile-semver?
+  (false-if-exception (resolve-interface '(semver))))
+
 \f
 (test-begin "crate")
 
@@ -326,8 +329,9 @@
    (dummy-package
     "rust-rustc-serialize"
     (source (dummy-origin
-     (uri (crate-uri "rustc-serialize" "1.0")))))))
+             (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
@@ -380,6 +384,7 @@
           (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
@@ -567,7 +572,7 @@
   (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!)
+  '(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"
@@ -614,6 +619,7 @@
 (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)