From 11e296ef3092de1e5b659822d4dad4465abad34f Mon Sep 17 00:00:00 2001
From: David Craven <david@craven.ch>
Date: Thu, 22 Sep 2016 11:35:13 +0200
Subject: import: utils: Refactor license->symbol.

* guix/import/utils.scm (license->symbol): Work for all licenses.
* tests/import-utils.scm (license->symbol): Add test.
---
 tests/import-utils.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/import-utils.scm')

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")
-- 
cgit v1.2.3