summaryrefslogtreecommitdiff
path: root/tests/import-utils.scm
diff options
context:
space:
mode:
authorDavid Craven <david@craven.ch>2016-09-22 11:35:13 +0200
committerDavid Craven <david@craven.ch>2016-09-28 13:17:15 +0200
commit11e296ef3092de1e5b659822d4dad4465abad34f (patch)
tree83e212847a966a3c31de2332ae88513cf3d9b60d /tests/import-utils.scm
parent59b2034787909cf7efa4e8d672a815b466d7d09d (diff)
downloadpatches-11e296ef3092de1e5b659822d4dad4465abad34f.tar
patches-11e296ef3092de1e5b659822d4dad4465abad34f.tar.gz
import: utils: Refactor license->symbol.
* guix/import/utils.scm (license->symbol): Work for all licenses. * tests/import-utils.scm (license->symbol): Add test.
Diffstat (limited to 'tests/import-utils.scm')
-rw-r--r--tests/import-utils.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/import-utils.scm b/tests/import-utils.scm
index 3b11875c4a..8d44b9e0e2 100644
--- a/tests/import-utils.scm
+++ b/tests/import-utils.scm
@@ -20,6 +20,7 @@
(define-module (test-import-utils)
#:use-module (guix tests)
#:use-module (guix import utils)
+ #:use-module ((guix licenses) #:prefix license:)
#:use-module (srfi srfi-64))
(test-begin "import-utils")
@@ -33,4 +34,8 @@
"This package provides a function to establish world peace"
(beautify-description "A function to establish world peace"))
+(test-equal "license->symbol"
+ 'license:lgpl2.0
+ (license->symbol license:lgpl2.0))
+
(test-end "import-utils")