diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/records.scm | 6 |
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) |