steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Import a few extra JSON tests from Jansson 

Fixes #1189
db4
Benjamin Pollack 2016-03-05 09:56:18 -05:00 committed by John Benediktsson
parent e707374085
commit efd22a668f
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/json/reader/reader-tests.factor
View File

@ -6,6 +6,7 @@ IN: json.reader.tests
{ t } [ "true" json> ] unit-test { t } [ "true" json> ] unit-test
{ json-null } [ "null" json> ] unit-test { json-null } [ "null" json> ] unit-test
{ 0 } [ "0" json> ] unit-test { 0 } [ "0" json> ] unit-test
{ 0 } [ "-0" json> ] unit-test
{ 102 } [ "102" json> ] unit-test { 102 } [ "102" json> ] unit-test
{ -102 } [ "-102" json> ] unit-test { -102 } [ "-102" json> ] unit-test
{ 102 } [ "+102" json> ] unit-test { 102 } [ "+102" json> ] unit-test
@ -16,11 +17,13 @@ IN: json.reader.tests
{ 102.5 } [ "102.50" json> ] unit-test { 102.5 } [ "102.50" json> ] unit-test
{ -10250.0 } [ "-102.5e2" json> ] unit-test { -10250.0 } [ "-102.5e2" json> ] unit-test
{ -10250.0 } [ "-102.5E+2" json> ] unit-test { -10250.0 } [ "-102.5E+2" json> ] unit-test
{ -1.025 } [ "-102.5E-2" json> ] unit-test
{ 10.25 } [ "1025e-2" json> ] unit-test { 10.25 } [ "1025e-2" json> ] unit-test
{ 0.125 } [ "0.125" json> ] unit-test { 0.125 } [ "0.125" json> ] unit-test
{ -0.125 } [ "-0.125" json> ] unit-test { -0.125 } [ "-0.125" json> ] unit-test
{ -0.00125 } [ "-0.125e-2" json> ] unit-test { -0.00125 } [ "-0.125e-2" json> ] unit-test
{ -012.5 } [ "-0.125e+2" json> ] unit-test { -012.5 } [ "-0.125e+2" json> ] unit-test
{ 0.0 } [ "123e-10000000" json> ] unit-test
! not widely supported by javascript, but allowed in the grammar, and a nice ! not widely supported by javascript, but allowed in the grammar, and a nice
! feature to get ! feature to get
@ -65,6 +68,8 @@ ${ { 0xabcd } >string } [ " \"\\uaBCd\" " json> ] unit-test
! empty objects are allowed as values in objects ! empty objects are allowed as values in objects
{ H{ { "foo" H{ } } } } [ "{ \"foo\" : {}}" json> ] unit-test { H{ { "foo" H{ } } } } [ "{ \"foo\" : {}}" json> ] unit-test
! And arrays
{ { H{ } } } [ "[{}]" json> ] unit-test
{ {
"\0\x01\x02\x03\x04\x05\x06\a\b\t\n\v\f\r\x0e\x0f\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\e\x1c\x1d\x1e\x1f" "\0\x01\x02\x03\x04\x05\x06\a\b\t\n\v\f\r\x0e\x0f\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\e\x1c\x1d\x1e\x1f"