Add basic JSON tests and benchmark

1 files changed, 79 insertions, 0 deletions

diff --git a/tests/common.lua b/tests/common.lua
new file mode 100644
index 0000000..e935032
--- /dev/null
+++ b/tests/common.lua
@@ -0,0 +1,79 @@
+require "cjson"
+require "posix"
+
+function dump_value(value, indent)
+    if indent == nil then
+        indent = ""
+    end
+
+    if value == cjson.null then
+        value = "<cjson.null>"
+    end
+
+    if type(value) == "string" or type(value) == "number" or
+       type(value) == "boolean" then
+        print(indent .. tostring(value))
+    elseif type(value) == "table" then
+        local count = 0
+        for k, v in pairs(value) do
+            dump_value(v, indent .. k .. ":  ")
+            count = count + 1
+        end
+        if count == 0 then
+            print(indent .. ": <empty>")
+        end
+    else
+        print(indent .. "<" .. type(value) .. ">")
+    end
+
+end
+
+function file_load(filename)
+    local file, err = io.open(filename)
+    if file == nil then
+        error("Unable to read " .. filename)
+    end
+    local data = file:read("*a")
+    file:close()
+
+    return data
+end
+
+function gettimeofday()
+    local tv_sec, tv_usec = posix.gettimeofday()
+
+    return tv_sec + tv_usec / 1000000
+end
+
+function benchmark(tests, iter, rep)
+    local function bench(func, iter)
+        collectgarbage("collect")
+        local t = gettimeofday()
+        for i = 1, iter do
+            func(i)
+        end
+        t = gettimeofday() - t
+        return (iter / t)
+    end
+
+    local test_results = {}
+    for name, func in pairs(tests) do
+        -- k(number), v(string)
+        -- k(string), v(function)
+        -- k(number), v(function)
+        if type(func) == "string" then
+            name = func
+            func = _G[name]
+        end
+        local result = {}
+        for i = 1, rep do
+            result[i] = bench(func, iter)
+        end
+        table.sort(result)
+        test_results[name] = result[rep]
+    end
+
+    return test_results
+end
+
+-- vi:ai et sw=4 ts=4: