summary refs log tree commit diff
path: root/tests/crate.scm
diff options
context:
space:
mode:
authorBrice Waegeneire <brice@waegenei.re>2019-11-26 21:17:21 +0100
committerLudovic Courtès <ludo@gnu.org>2019-12-11 12:13:03 +0100
commit263a267b75e472cb84428571580dabd99d5dff0c (patch)
tree884dc1ac258fbd136eebe2855fd9141f2e048056 /tests/crate.scm
parent4982de4c3299f367ab582e0865c39186a12ab3a1 (diff)
downloadguix-263a267b75e472cb84428571580dabd99d5dff0c.tar.gz
import: crate: Better handle license expressions.
* guix/import/crate.scm (%dual-license-rx): Removed function.
(crate->guix-package): Handle most of the multi-licensing cases.
* tests/crate.scm (licenses): Add tests for some licenses.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/crate.scm')
-rw-r--r--tests/crate.scm23
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/crate.scm b/tests/crate.scm
index fc6a8ac24d..61933a8de8 100644
--- a/tests/crate.scm
+++ b/tests/crate.scm
@@ -233,6 +233,9 @@
 (define test-source-hash
   "")
 
+(define string->license
+  (@@ (guix import crate) string->license))
+
 (test-begin "crate")
 
 (test-equal "guix-package->crate-name"
@@ -437,4 +440,24 @@
           (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"))
+
 (test-end "crate")