aboutsummaryrefslogtreecommitdiff
path: root/tests/records.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/records.scm')
-rw-r--r--tests/records.scm17
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)