diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/010/json.tl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/010/json.tl b/tests/010/json.tl index d419295f..b7117d8a 100644 --- a/tests/010/json.tl +++ b/tests/010/json.tl @@ -192,3 +192,18 @@ (test (get-json "[1, 2, ; foo\n 3]") #(1.0 2.0 3.0)) + +(let ((*read-json-int* t)) + (mtest + (get-json "1") 1 + (get-json "-1") -1 + (get-json "0") 0 + (get-json "12345") 12345 + (get-json "12345678900000000000000000") 12345678900000000000000000)) + +(mtest + (get-json "1") 1.0 + (get-json "-1") -1.0 + (get-json "0") 0.0 + (get-json "12345") 12345.0 + (get-json "12345678900000000000000000") 1.23456789E25) |