From 836d10f154275e56c7185c1fcd6daee2027b41de Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 10 Jul 2013 18:26:46 +0200 Subject: records: `recutils->alist' recognizes lines starting with a `+'. * guix/records.scm (%recutils-plus-rx): New variable. (recutils->alist): Use it to read + lines. * tests/records.scm ("recutils->alist with + lines"): New test. --- tests/records.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests/records.scm') diff --git a/tests/records.scm b/tests/records.scm index 712eb83a09..851ff7bdef 100644 --- a/tests/records.scm +++ b/tests/records.scm @@ -158,6 +158,16 @@ Version: 1.5 (list (recutils->alist p) (recutils->alist p)))) +(test-equal "recutils->alist with + lines" + '(("Name" . "foo") + ("Description" . "1st line,\n2nd line,\n 3rd line with extra space,\n4th line without space.")) + (recutils->alist (open-input-string " +Name: foo +Description: 1st line, ++ 2nd line, ++ 3rd line with extra space, ++4th line without space."))) + (test-equal "alist->record" '((1 2) b c) (alist->record '(("a" . 1) ("b" . b) ("c" . c) ("a" . 2)) list -- cgit v1.2.3