Add basic JSON tests and benchmark

1 files changed, 132 insertions, 0 deletions

diff --git a/tests/test.lua b/tests/test.lua
new file mode 100755
index 0000000..9424e8f
--- /dev/null
+++ b/tests/test.lua
@@ -0,0 +1,132 @@
+#!/usr/bin/env lua
+
+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
+    print(arg[i] .. " enc->dec..")
+    local obj1 = json.decode(file_load(arg[i]))
+    local obj2 = json.decode(json.encode(obj1))
+    -- obj_compare(obj_json1, obj_json2)
+    print(".. unimplemented")
+end
+
+-- vi:ai et sw=4 ts=4: