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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
#!/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"' } },
}
function test_ascii_sweep(min, max)
local function gen_ascii()
local chars = {}
for i = min, max do
chars[i + 1] = string.char(i)
end
return table.concat(chars)
end
local ascii_raw = gen_ascii()
local ascii_raw2 = json.decode(json.encode(ascii_raw))
if ascii_raw == ascii_raw2 then
return "clean"
else
return "failed ascii sweep test"
end
end
local escape_tests = {
{ test_ascii_sweep, { 0, 255 }, true, { 'clean' } },
}
function test_decode_cycle(filename)
local obj1 = json.decode(file_load(filename))
local obj2 = json.decode(json.encode(obj1))
return compare_values(obj1, obj2)
end
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:
|
