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
|
#!/usr/bin/env lua
-- CJSON tests
--
-- Mark Pulford <mark@kyne.com.au>
require "common"
local json = require "cjson"
local cjson_test_non_default = true
function run_tests(tests, func)
for k, v in ipairs(tests) do
local success, msg = pcall(func, v)
if not success then
print("Error: " .. msg)
end
print()
end
end
local simple_value_tests = {
[[ "test string" ]],
[[ -5e3 ]],
[[ null ]],
[[ true ]],
[[ false ]],
[[ { "1": "one", "3": "three" } ]]
}
local numeric_tests = {
"[ 0.0, -1, 0.3e-3, 1023.2 ]",
"[ 00123 ]",
"[ 05.2 ]",
"[ 0e10 ]",
"[ 0x6 ]",
"[ +Inf ]",
"[ Inf ]",
"[ -Inf ]",
"[ +Infinity ]",
"[ Infinity ]",
"[ -Infinity ]",
"[ +NaN ]",
"[ NaN ]",
"[ -NaN ]",
"[ Infrared ]",
"[ Noodle ]"
}
local object_tests = {
{ [5] = "sparse test" },
{ [6] = "sparse test" },
{{{{{{{{{{{{{{{{{{{{{ "nested" }}}}}}}}}}}}}}}}}}}}}
}
local decode_error_tests = {
'{ "unexpected eof": ',
'{ "extra data": true }, false',
[[ { "bad escape \q code" } ]],
[[ { "bad unicode \u0f6 escape" } ]],
[[ [ "bad barewood", test ] ]],
"[ -+12 ]",
"-v",
"[ 0.4eg10 ]",
}
local simple_encode_tests = {
json.null, true, false, { }, 10, "hello"
}
local function gen_ascii(max)
local chars = {}
for i = 0, max do
chars[i] = string.char(i)
end
return table.concat(chars)
end
local function decode_encode(text)
print("==JSON=> " .. text)
local obj_data = json.decode(text)
dump_value(obj_data)
local obj_json = json.encode(obj_data)
print(obj_json)
end
local function encode_decode(obj)
print("==OBJ==> ")
dump_value(obj)
local obj_json = json.encode(obj)
print(obj_json)
local obj_data = json.decode(obj_json)
dump_value(obj_data)
end
run_tests(simple_value_tests, decode_encode)
run_tests(decode_error_tests, decode_encode)
run_tests(numeric_tests, decode_encode)
if cjson_test_non_default then
print("=== Disabling strict numbers ===")
json.strict_numbers(false)
run_tests(numeric_tests, decode_encode)
json.strict_numbers(true)
end
run_tests(object_tests, encode_decode)
print ("Encode tests..")
run_tests(simple_encode_tests, encode_decode)
if cjson_test_non_default then
print("=== Setting max_depth to 21, sparse_ratio to 5 ===")
json.max_depth(21)
json.sparse_ratio(5)
run_tests(object_tests, encode_decode)
end
local ascii1 = gen_ascii(255)
print("Unprintable escapes:")
print(json.encode(ascii1))
print("===")
local ascii2 = json.decode(json.encode(ascii))
print("8bit clean encode/decode: " .. tostring(ascii1 ~= ascii2))
for i = 1, #arg do
local obj1 = json.decode(file_load(arg[i]))
local obj2 = json.decode(json.encode(obj1))
if compare_values(obj, obj) then
print(arg[i] .. ": PASS")
else
print(arg[i] .. ": FAIL")
print("== obj1 ==")
dump_value(obj1)
print("== obj2 ==")
dump_value(obj2)
end
end
-- vi:ai et sw=4 ts=4:
|
