diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-23 21:52:32 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:41 +0200 |
| commit | fba9b37dc9943a9e2b5b650be031c0c0243e621c (patch) | |
| tree | c9ef8bd5768a35772bc0bf53f0f7a537a74297ff /tests | |
| parent | c7c9e918763cd0e4c3fb85fe610c3971a0040d87 (diff) | |
| download | cuirass-fba9b37dc9943a9e2b5b650be031c0c0243e621c.tar cuirass-fba9b37dc9943a9e2b5b650be031c0c0243e621c.tar.gz | |
gnu-system: license->alist: Allow list in license field.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gnu-system.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/gnu-system.scm b/tests/gnu-system.scm index b8b66db..8e29fec 100644 --- a/tests/gnu-system.scm +++ b/tests/gnu-system.scm @@ -47,9 +47,12 @@ (define (license->alist lcs) "Return LCS <license> object as an alist." - `((name . ,(license-name lcs)) - (uri . ,(license-uri lcs)) - (comment . ,(license-comment lcs)))) + ;; Sometimes 'license' field is a list of licenses. + (if (list? lcs) + (map license->alist lcs) + `((name . ,(license-name lcs)) + (uri . ,(license-uri lcs)) + (comment . ,(license-comment lcs))))) (define (package-metadata package) "Convert PACKAGE to an alist suitable for Hydra." |