diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/records.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/records.scm b/tests/records.scm index 9e524b670c..470644451c 100644 --- a/tests/records.scm +++ b/tests/records.scm @@ -131,6 +131,23 @@ (parameterize ((mark (cons 'a 'b))) (eq? (foo-baz y) (mark)))))))) +(test-equal "recutils->alist" + '((("Name" . "foo") + ("Version" . "0.1") + ("Synopsis" . "foo bar") + ("Something_else" . "chbouib")) + (("Name" . "bar") + ("Version" . "1.5"))) + (let ((p (open-input-string "Name: foo +Version: 0.1 +Synopsis: foo bar +Something_else: chbouib + +Name: bar +Version: 1.5"))) + (list (recutils->alist p) + (recutils->alist p)))) + (test-end) |