mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-01-18 13:36:36 +01:00
guix: toml: Fix evaluation of empty inline tables.
* guix/build/toml.scm (eval-toml-file): Add pattern for empty inline table. * tests/toml.scm ("parse-toml: Empty inline table"): New testcase. Change-Id: I69663af2a861716acfb801fad4474e029e102a1b
This commit is contained in:
parent
ccea7539d8
commit
55d4c898dd
2 changed files with 9 additions and 0 deletions
|
@ -414,6 +414,7 @@ (define (eval-value value)
|
|||
local-time)
|
||||
tails)))
|
||||
('array (list))
|
||||
('inline-table '())
|
||||
(('inline-table tails ...)
|
||||
(eval (keyword-flatten '(keyval) tails) '() '()))))
|
||||
|
||||
|
|
|
@ -396,6 +396,14 @@ (define-module (test-toml)
|
|||
point = { x = 1, y = 2 }
|
||||
animal = { type.name = \"pug\" }"))
|
||||
|
||||
(test-equal "parse-toml: Empty inline table"
|
||||
'(("name")
|
||||
("point")
|
||||
("animal"))
|
||||
(parse-toml "name = {}
|
||||
point = { }
|
||||
animal = { }"))
|
||||
|
||||
(test-error "parse-toml: Invalid assignment to inline table"
|
||||
#t
|
||||
(parse-toml "[product]
|
||||
|
|
Loading…
Reference in a new issue