Make number rule match spec.

pegex-parser · Jul 9, 2012 · de2439b · de2439b
1 parent 3e0973b
commit de2439b
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 4 deletions.
diff --git a/lib/Pegex/JSON/Grammar.pm b/lib/Pegex/JSON/Grammar.pm
@@ -71,7 +71,7 @@ sub tree {
       '.rgx' => qr/(?-xism:\Gnull)/
     },
     'number' => {
-      '.rgx' => qr/(?-xism:\G(\-?[0-9]+(?:\.[0-9]*)?|\.[0-9]+))/
+      '.rgx' => qr/(?-xism:\G(\-?(?:0|[1-9][0-9]*)(?:\.[0-9]*)?(?:[eE][\-\+]?[0-9]+)?))/
     },
     'pair' => {
       '.all' => [

diff --git a/t/test.t b/t/test.t
@@ -103,9 +103,27 @@ xyz:
 
 === Numbers
 --- json
-[0, -1, .1, 1.]
+[
+    0, -0,
+    1, -1,
+    22, -22,
+    3.3, -3.3,
+    44.4, -44.4,
+    5.55, -5.55,
+    66.66, -66.66
+]
 --- yaml
 - 0
-- -1
-- 0.1
+- 0
 - 1
+- -1
+- 22
+- -22
+- 3.3
+- -3.3
+- 44.4
+- -44.4
+- 5.55
+- -5.55
+- 66.66
+- -66.66