aboutsummaryrefslogtreecommitdiff
path: root/tests/records.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-10 18:04:08 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-10 21:52:51 +0200
commitc8772a7a21f954b5e75746529e70edc3a1017249 (patch)
tree03792f0a3dd41d5af5d4bf833bf6bfcebb992ae8 /tests/records.scm
parentb7b88288011aa41791b6634ae229f426bacc55ce (diff)
downloadguix-c8772a7a21f954b5e75746529e70edc3a1017249.tar
guix-c8772a7a21f954b5e75746529e70edc3a1017249.tar.gz
records: `alist->record' supports multiple-field occurrences.
* guix/records.scm (alist->record): Add `multiple-value-keys' parameter. Update docstring, and honor it. * tests/records.scm ("alist->record"): New record.
Diffstat (limited to 'tests/records.scm')
-rw-r--r--tests/records.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/records.scm b/tests/records.scm
index d0635ebb1f..712eb83a09 100644
--- a/tests/records.scm
+++ b/tests/records.scm
@@ -158,6 +158,12 @@ Version: 1.5
(list (recutils->alist p)
(recutils->alist p))))
+(test-equal "alist->record" '((1 2) b c)
+ (alist->record '(("a" . 1) ("b" . b) ("c" . c) ("a" . 2))
+ list
+ '("a" "b" "c")
+ '("a")))
+
(test-end)