guix: toml: Fix parsing empty strings in arrays.

Change-Id: Id14d4008391a01820ade754fa9c2ca8e88b8c7f9
This commit is contained in:
Lars-Dominik Braun 2024-05-04 09:43:11 +02:00 committed by Sharlatan Hellseher
parent b59cdd59eb
commit 63cb43d56c
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
2 changed files with 36 additions and 6 deletions

View file

@ -305,6 +305,33 @@ integers3 = [
2, # this is ok
]"))
(test-equal "parse-toml: Arrays of empty strings"
'(("empty1" "")
("empty2" "" "")
("empty3" "" "" "")
("emptyraw1" "")
("emptyraw2" "" "")
("emptyraw3" "" "" "")
("emptyml1" "")
("emptyml2" "" "")
("emptyml3" "" "" "")
("emptyrawml1" "")
("emptyrawml2" "" "")
("emptyrawml3" "" "" ""))
(parse-toml "empty1 = [ \"\" ]
empty2 = [ \"\", \"\" ]
empty3 = [ \"\", \"\", \"\" ]
emptyraw1 = [ '' ]
emptyraw2 = [ '', '' ]
emptyraw3 = [ '', '', '' ]
emptyml1 = [ \"\"\"\"\"\" ]
emptyml2 = [ \"\"\"\"\"\", \"\"\"\"\"\" ]
emptyml3 = [ \"\"\"\"\"\", \"\"\"\"\"\", \"\"\"\"\"\" ]
emptyrawml1 = [ '''''' ]
emptyrawml2 = [ '''''', '''''' ]
emptyrawml3 = [ '''''', '''''', '''''' ]
"))
(test-equal "parse-toml: Tables"
'(("table-1" ("key1" . "some string")
("key2" . 123))