1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/env lua
-- CJSON tests
--
-- Mark Pulford <mark@kyne.com.au>
require "common"
local json = require "cjson"
local simple_value_tests = {
{ json.decode, { '"test string"' }, true, { "test string" } },
{ json.decode, { '-5e3' }, true, { -5000 } },
{ json.decode, { 'null' }, true, { json.null } },
{ json.decode, { 'true' }, true, { true } },
{ json.decode, { 'false' }, true, { false } },
{ json.decode, { '{ "1": "one", "3": "three" }' },
true, { { ["1"] = "one", ["3"] = "three" } } },
{ json.decode, { '[ "one", null, "three" ]' },
true, { { "one", json.null, "three" } } }
}
local Inf = math.huge;
local NaN = math.huge * 0;
local numeric_tests = {
{ json.decode, { '[ 0.0, -1, 0.3e-3, 1023.2 ]' },
true, { { 0.0, -1, 0.0003, 1023.2 } } },
{ json.decode, { '00123' }, true, { 123 } },
{ json.decode, { '05.2' }, true, { 5.2 } },
{ json.decode, { '0e10' }, true, { 0 } },
{ json.decode, { '0x6' }, true, { 6 } },
{ json.decode, { '[ +Inf, Inf, -Inf ]' }, true, { { Inf, Inf, -Inf } } },
{ json.decode, { '[ +Infinity, Infinity, -Infinity ]' },
true, { { Inf, Inf, -Inf } } },
{ json.decode, { '[ +NaN, NaN, -NaN ]' }, true, { { NaN, NaN, NaN } } },
{ json.decode, { 'Infrared' },
false, { "Expected the end but found invalid token at character 4" } },
{ json.decode, { 'Noodle' },
false, { "Expected value but found invalid token at character 1" } },
}
local nested5 = {{{{{ "nested" }}}}}
local encode_table_tests = {
function()
cjson.encode_sparse_array(true, 2, 3)
cjson.encode_max_depth(5)
return "Setting sparse array / max depth"
end,
{ json.encode, { { [3] = "sparse test" } },
true, { '[ null, null, "sparse test" ]' } },
{ json.encode, { { [1] = "one", [4] = "sparse test" } },
true, { '[ "one", null, null, "sparse test" ]' } },
{ json.encode, { { [1] = "one", [5] = "sparse test" } },
true, { '{ "1": "one", "5": "sparse test" }' } },
{ json.encode, { nested5 }, true, { '[ [ [ [ [ "nested" ] ] ] ] ]' } },
{ json.encode, { { nested5 } },
false, { "Cannot serialise, excessive nesting (6)" } }
}
local decode_error_tests = {
{ json.decode, { '{ "unexpected eof": ' },
false, { "Expected value but found T_END at character 21" } },
{ json.decode, { '{ "extra data": true }, false' },
false, { "Expected the end but found T_COMMA at character 23" } },
{ json.decode, { ' { "bad escape \\q code" } ' },
false, { "Expected object key string but found invalid escape code at character 16" } },
{ json.decode, { ' { "bad unicode \\u0f6 escape" } ' },
false, { "Expected object key string but found invalid unicode escape code at character 17" } },
{ json.decode, { ' [ "bad barewood", test ] ' },
false, { "Expected value but found invalid token at character 20" } },
{ json.decode, { '[ -+12 ]' },
false, { "Expected value but found invalid number at character 3" } },
{ json.decode, { '-v' },
false, { "Expected value but found invalid number at character 1" } },
{ json.decode, { '[ 0.4eg10 ]' },
false, { "Expected comma or array end but found invalid token at character 6" } },
}
local encode_simple_tests = {
{ json.encode, { json.null }, true, { 'null' } },
{ json.encode, { true }, true, { 'true' } },
{ json.encode, { false }, true, { 'false' } },
{ json.encode, { { } }, true, { '{ }' } },
{ json.encode, { 10 }, true, { '10' } },
{ json.encode, { "hello" }, true, { '"hello"' } },
}
local function gen_ascii()
local chars = {}
for i = 0, 255 do chars[i + 1] = string.char(i) end
return table.concat(chars)
end
local octets_raw = gen_ascii()
local octets_escaped = file_load("bytestring.dat")
local escape_tests = {
{ json.encode, { octets_raw }, true, { octets_escaped } },
{ json.decode, { octets_escaped }, true, { octets_raw } }
}
run_test_group("decode simple value", simple_value_tests)
run_test_group("decode numeric", numeric_tests)
-- INCLUDE:
-- - Sparse array exception..
-- - ..
-- cjson.encode_sparse_array(true, 2, 3)
-- run_test_group("encode error", encode_error_tests)
run_test_group("encode table", encode_table_tests)
run_test_group("decode error", decode_error_tests)
run_test_group("encode simple value", encode_simple_tests)
run_test_group("escape", escape_tests)
cjson.encode_max_depth(20)
for i = 1, #arg do
run_test("decode cycle " .. arg[i], test_decode_cycle, { arg[i] },
true, { true })
end
cjson.refuse_invalid_numbers(true)
-- vi:ai et sw=4 ts=4:
|
