M guix/build/toml.scm => guix/build/toml.scm +1 -0
@@ 414,6 414,7 @@ the list KEY. For instance a KEY (a b) would retrieve alist[a][b]."
local-time)
tails)))
('array (list))
+ ('inline-table '())
(('inline-table tails ...)
(eval (keyword-flatten '(keyval) tails) '() '()))))
M tests/toml.scm => tests/toml.scm +8 -0
@@ 396,6 396,14 @@ fruit.apple.taste.sweet = true"))
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]