augeas/augeas-0.10.0-02-075f8d35.patch

50 lines
1.7 KiB
Diff
Raw Normal View History

From 100a7b38222a63c6435a72b4974b55f39a28989e Mon Sep 17 00:00:00 2001
From: Lubomir Rintel <lubo.rintel@gooddata.com>
Date: Mon, 9 Jan 2012 19:24:41 +0100
Subject: [PATCH 2/2] Correctly parse empty object and arrays in JSON
Add a test case.
Fix from David Lutterkort <lutter@redhat.com>.
https://fedorahosted.org/augeas/ticket/248
---
lenses/json.aug | 4 ++--
lenses/tests/test_json.aug | 5 +++++
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/lenses/json.aug b/lenses/json.aug
index 6ceab09..2645806 100644
--- a/lenses/json.aug
+++ b/lenses/json.aug
@@ -37,9 +37,9 @@ let const (r:regexp) = [ label "const" . store r . ws ]
let value0 = str | number | const /true|false|null/
let fix_value (value:lens) =
- let array = [ label "array" . lbrack . Build.opt_list value comma . rbrack ] in
+ let array = [ label "array" . lbrack . (Build.opt_list value comma)? . rbrack ] in
let pair = [ label "entry" . str_store . colon . value ] in
- let obj = [ label "dict" . lbrace . Build.opt_list pair comma . rbrace ] in
+ let obj = [ label "dict" . lbrace . (Build.opt_list pair comma)? . rbrace ] in
(str | number | obj | array | const /true|false|null/)
(* Typecheck finitely deep nesting *)
diff --git a/lenses/tests/test_json.aug b/lenses/tests/test_json.aug
index d8b7fa8..aec7d4c 100644
--- a/lenses/tests/test_json.aug
+++ b/lenses/tests/test_json.aug
@@ -30,6 +30,11 @@ test lns get "{ \"0\": true, \"1\":false }" =
test lns get "{\"menu\": \"entry one\"}" =
{ "dict" { "entry" = "menu" { "string" = "entry one" } } }
+test lns get "[ ]" =
+ { "array" }
+
+test lns get "{}" =
+ { "dict" }
let s = "{\"menu\": {
\"id\": \"file\",
--
1.7.7.5