augeas/augeas-0.10.0-01-055382d8.patch

57 lines
1.9 KiB
Diff
Raw Normal View History

From 075f8d35497fb36d9193e5364c055049c66fa5eb Mon Sep 17 00:00:00 2001
From: Lubomir Rintel <lubo.rintel@gooddata.com>
Date: Mon, 9 Jan 2012 18:52:11 +0100
Subject: [PATCH 1/2] Allow JSON number literals to be followed by whitespace
Add a test case.
Fixes https://fedorahosted.org/augeas/ticket/247
---
AUTHORS | 1 +
lenses/json.aug | 2 +-
lenses/tests/test_json.aug | 3 +++
3 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/AUTHORS b/AUTHORS
index df63f95..e7870f2 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -44,6 +44,7 @@ Contributions by:
Bill Pemberton <wfp5p@virginia.edu>
Alan Pevec <apevec@redhat.com>
Robin Lee Powell <rlpowell@digitalkingdom.org>
+ Lubomir Rintel <lubo.rintel@gooddata.com>
Roman Rakus <rrakus@redhat.com>
Satoru SATOH <satoru.satoh@gmail.com>
Nicolas Valcárcel Scerpella <nvalcarcel@ubuntu.com>
diff --git a/lenses/json.aug b/lenses/json.aug
index c22ad90..6ceab09 100644
--- a/lenses/json.aug
+++ b/lenses/json.aug
@@ -29,7 +29,7 @@ let str_store =
let q = del "\"" "\"" in
q . store /[^"]*/ . q . ws (* " Emacs, relax *)
-let number = [ label "number" . store /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/ ]
+let number = [ label "number" . store /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/ . ws ]
let str = [ label "string" . str_store ]
let const (r:regexp) = [ label "const" . store r . ws ]
diff --git a/lenses/tests/test_json.aug b/lenses/tests/test_json.aug
index 0bcd25d..d8b7fa8 100644
--- a/lenses/tests/test_json.aug
+++ b/lenses/tests/test_json.aug
@@ -8,6 +8,9 @@ test lns get "true" = { "const" = "true" }
test lns get "3.141" = { "number" = "3.141" }
+test lns get "{ \"key\" : 666 }" =
+ { "dict" { "entry" = "key" { "number" = "666" } } }
+
test lns get "[true, 0, \"yo\"]" =
{ "array" { "const" = "true" } { "number" = "0" } { "string" = "yo" } }
--
1.7.7.5