diff options
| -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." |