17 files changed, 889 insertions, 0 deletions

diff --git a/tests/README b/tests/README
new file mode 100644
index 0000000..39e8bd4
--- /dev/null
+++ b/tests/README
@@ -0,0 +1,4 @@
+These JSON examples were taken from the JSON website
+(http://json.org/example.html) and RFC 4627.
+
+Used with permission.
diff --git a/tests/bench.lua b/tests/bench.lua
new file mode 100755
index 0000000..2b5177b
--- /dev/null
+++ b/tests/bench.lua
@@ -0,0 +1,83 @@
+#!/usr/bin/env lua
+
+-- Simple JSON benchmark.
+--
+-- Your Mileage May Vary.
+--
+-- Mark Pulford <mark@kyne.com.au>
+
+require "socket"
+local json = require "cjson"
+local misc = require "cjson-misc"
+
+function benchmark(tests, seconds, rep)
+    local function bench(func, iter)
+        -- collectgarbage("stop")
+        collectgarbage("collect")
+        local t = socket.gettime()
+        for i = 1, iter do
+            func(i)
+        end
+        t = socket.gettime() - t
+        -- collectgarbage("restart")
+        return (iter / t)
+    end
+
+    -- Roughly calculate the number of interations required
+    -- to obtain a particular time period.
+    local function calc_iter(func, seconds)
+        local base_iter = 10
+        local rate = (bench(func, base_iter) + bench(func, base_iter)) / 2
+        return math.ceil(seconds * rate)
+    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 iter = calc_iter(func, seconds)
+        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
+
+function bench_file(filename)
+    local data_json = misc.file_load(filename)
+    local data_obj = json.decode(data_json)
+
+    local function test_encode ()
+        json.encode(data_obj)
+    end
+    local function test_decode ()
+        json.decode(data_json)
+    end
+
+    local tests = {
+        encode = test_encode,
+        decode = test_decode
+    }
+
+    return benchmark(tests, 0.1, 5)
+end
+
+json.encode_keep_buffer(true)
+
+for i = 1, #arg do
+    local results = bench_file(arg[i])
+    for k, v in pairs(results) do
+        print(string.format("%s: %s: %d", arg[i], k, v))
+    end
+end
+
+-- vi:ai et sw=4 ts=4:
diff --git a/tests/cjson-misc.lua b/tests/cjson-misc.lua
new file mode 100644
index 0000000..d8bfe5e
--- /dev/null
+++ b/tests/cjson-misc.lua
@@ -0,0 +1,253 @@
+local json = require "cjson"
+
+-- Misc routines to assist with CJSON testing
+--
+-- Mark Pulford <mark@kyne.com.au>
+
+-- Determine with a Lua table can be treated as an array.
+-- Explicitly returns "not an array" for very sparse arrays.
+-- Returns:
+-- -1   Not an array
+-- 0    Empty table
+-- >0   Highest index in the array
+local function is_array(table)
+    local max = 0
+    local count = 0
+    for k, v in pairs(table) do
+        if type(k) == "number" then
+            if k > max then max = k end
+            count = count + 1
+        else
+            return -1
+        end
+    end
+    if max > count * 2 then
+        return -1
+    end
+
+    return max
+end
+
+local serialise_value
+
+local function serialise_table(value, indent, depth)
+    local spacing, spacing2, indent2
+    if indent then
+        spacing = "\n" .. indent
+        spacing2 = spacing .. "  "
+        indent2 = indent .. "  "
+    else
+        spacing, spacing2, indent2 = " ", " ", false
+    end
+    depth = depth + 1
+    if depth > 50 then
+        return "Cannot serialise any further: too many nested tables"
+    end
+
+    local max = is_array(value)
+
+    local comma = false
+    local fragment = { "{" .. spacing2 }
+    if max > 0 then
+        -- Serialise array
+        for i = 1, max do
+            if comma then
+                table.insert(fragment, "," .. spacing2)
+            end
+            table.insert(fragment, serialise_value(value[i], indent2, depth))
+            comma = true
+        end
+    elseif max < 0 then
+        -- Serialise table
+        for k, v in pairs(value) do
+            if comma then
+                table.insert(fragment, "," .. spacing2)
+            end
+            table.insert(fragment, string.format(
+                "[%s] = %s", serialise_value(k, indent2, depth),
+                             serialise_value(v, indent2, depth))
+            )
+            comma = true
+        end
+    end
+    table.insert(fragment, spacing .. "}")
+
+    return table.concat(fragment)
+end
+
+function serialise_value(value, indent, depth)
+    if indent == nil then indent = "" end
+    if depth == nil then depth = 0 end
+
+    if value == json.null then
+        return "json.null"
+    elseif type(value) == "string" then
+        return string.format("%q", value)
+    elseif type(value) == "nil" or type(value) == "number" or
+           type(value) == "boolean" then
+        return tostring(value)
+    elseif type(value) == "table" then
+        return serialise_table(value, indent, depth)
+    else
+        return "\"<" .. type(value) .. ">\""
+    end
+end
+
+local function file_load(filename)
+    local file
+    if filename == nil then
+        file = io.stdin
+    else
+        local err
+        file, err = io.open(filename)
+        if file == nil then
+            error(string.format("Unable to read '%s': %s", filename, err))
+        end
+    end
+    local data = file:read("*a")
+
+    if filename ~= nil then
+        file:close()
+    end
+
+    if data == nil then
+        error("Failed to read " .. filename)
+    end
+
+    return data
+end
+
+local function file_save(filename, data)
+    local file
+    if filename == nil then
+        file = io.stdout
+    else
+        local err
+        file, err = io.open(filename, "w")
+        if file == nil then
+            error(string.format("Unable to write '%s': %s", filename, err))
+        end
+    end
+    file:write(data)
+    if filename ~= nil then
+        file:close()
+    end
+end
+
+local function compare_values(val1, val2)
+    local type1 = type(val1)
+    local type2 = type(val2)
+    if type1 ~= type2 then
+        return false
+    end
+
+    -- Check for NaN
+    if type1 == "number" and val1 ~= val1 and val2 ~= val2 then
+        return true
+    end
+
+    if type1 ~= "table" then
+        return val1 == val2
+    end
+
+    -- check_keys stores all the keys that must be checked in val2
+    local check_keys = {}
+    for k, _ in pairs(val1) do
+        check_keys[k] = true
+    end
+
+    for k, v in pairs(val2) do
+        if not check_keys[k] then
+            return false
+        end
+
+        if not compare_values(val1[k], val2[k]) then
+            return false
+        end
+
+        check_keys[k] = nil
+    end
+    for k, _ in pairs(check_keys) do
+        -- Not the same if any keys from val1 were not found in val2
+        return false
+    end
+    return true
+end
+
+local test_count_pass = 0
+local test_count_total = 0
+
+local function run_test_summary()
+    return test_count_pass, test_count_total
+end
+
+local function run_test(testname, func, input, should_work, output)
+    local function status_line(name, status, value)
+        local statusmap = { [true] = ":success", [false] = ":error" }
+        if status ~= nil then
+            name = name .. statusmap[status]
+        end
+        print(string.format("[%s] %s", name, serialise_value(value, false)))
+    end
+
+    local result = { pcall(func, unpack(input)) }
+    local success = table.remove(result, 1)
+
+    local correct = false
+    if success == should_work and compare_values(result, output) then
+        correct = true
+        test_count_pass = test_count_pass + 1
+    end
+    test_count_total = test_count_total + 1
+
+    local teststatus = { [true] = "PASS", [false] = "FAIL" }
+    print(string.format("==> Test[%d] / %s: %s",
+        test_count_total, testname, teststatus[correct]))
+
+    status_line("Input", nil, input)
+    if not correct then
+        status_line("Expected", should_work, output)
+    end
+    status_line("Received", success, result)
+    print()
+
+    return correct, result
+end
+
+local function run_test_group(testgroup, tests)
+    local function run_config(configname, func)
+        local success, msg = pcall(func)
+        if msg then
+            print(string.format("==> Config %s: %s", configname, msg))
+        end
+        print()
+    end
+
+    local function test_id(group, id)
+        return string.format("%s[%d]", group, id)
+    end
+
+    for k, v in ipairs(tests) do
+        if type(v) == "function" then
+            -- Useful for changing configuration during a batch
+            run_config(test_id(testgroup, k), v)
+        elseif type(v) == "table" then
+            run_test(test_id(testgroup, k), unpack(v))
+        else
+            error("Testgroup can only contain functions and tables")
+        end
+    end
+end
+
+-- Export functions
+return {
+    serialise_value = serialise_value,
+    file_load = file_load,
+    file_save = file_save,
+    compare_values = compare_values,
+    run_test_summary = run_test_summary,
+    run_test = run_test,
+    run_test_group = run_test_group
+}
+
+-- vi:ai et sw=4 ts=4:
diff --git a/tests/example1.json b/tests/example1.json
new file mode 100644
index 0000000..42486ce
--- /dev/null
+++ b/tests/example1.json
@@ -0,0 +1,22 @@
+{
+    "glossary": {
+        "title": "example glossary",
+                "GlossDiv": {
+            "title": "S",
+                        "GlossList": {
+                "GlossEntry": {
+                    "ID": "SGML",
+                                        "SortAs": "SGML",
+                                        "GlossTerm": "Standard Generalized Mark up Language",
+                                        "Acronym": "SGML",
+                                        "Abbrev": "ISO 8879:1986",
+                                        "GlossDef": {
+                        "para": "A meta-markup language, used to create markup languages such as DocBook.",
+                                                "GlossSeeAlso": ["GML", "XML"]
+                    },
+                                        "GlossSee": "markup"
+                }
+            }
+        }
+    }
+}
diff --git a/tests/example2.json b/tests/example2.json
new file mode 100644
index 0000000..5600991
--- /dev/null
+++ b/tests/example2.json
@@ -0,0 +1,11 @@
+{"menu": {
+  "id": "file",
+  "value": "File",
+  "popup": {
+    "menuitem": [
+      {"value": "New", "onclick": "CreateNewDoc()"},
+      {"value": "Open", "onclick": "OpenDoc()"},
+      {"value": "Close", "onclick": "CloseDoc()"}
+    ]
+  }
+}}
diff --git a/tests/example3.json b/tests/example3.json
new file mode 100644
index 0000000..d7237a5
--- /dev/null
+++ b/tests/example3.json
@@ -0,0 +1,26 @@
+{"widget": {
+    "debug": "on",
+    "window": {
+        "title": "Sample Konfabulator Widget",
+        "name": "main_window",
+        "width": 500,
+        "height": 500
+    },
+    "image": {
+        "src": "Images/Sun.png",
+        "name": "sun1",
+        "hOffset": 250,
+        "vOffset": 250,
+        "alignment": "center"
+    },
+    "text": {
+        "data": "Click Here",
+        "size": 36,
+        "style": "bold",
+        "name": "text1",
+        "hOffset": 250,
+        "vOffset": 100,
+        "alignment": "center",
+        "onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;"
+    }
+}}
diff --git a/tests/example4.json b/tests/example4.json
new file mode 100644
index 0000000..d31a395
--- /dev/null
+++ b/tests/example4.json
@@ -0,0 +1,88 @@
+{"web-app": {
+  "servlet": [
+    {
+      "servlet-name": "cofaxCDS",
+      "servlet-class": "org.cofax.cds.CDSServlet",
+      "init-param": {
+        "configGlossary:installationAt": "Philadelphia, PA",
+        "configGlossary:adminEmail": "ksm@pobox.com",
+        "configGlossary:poweredBy": "Cofax",
+        "configGlossary:poweredByIcon": "/images/cofax.gif",
+        "configGlossary:staticPath": "/content/static",
+        "templateProcessorClass": "org.cofax.WysiwygTemplate",
+        "templateLoaderClass": "org.cofax.FilesTemplateLoader",
+        "templatePath": "templates",
+        "templateOverridePath": "",
+        "defaultListTemplate": "listTemplate.htm",
+        "defaultFileTemplate": "articleTemplate.htm",
+        "useJSP": false,
+        "jspListTemplate": "listTemplate.jsp",
+        "jspFileTemplate": "articleTemplate.jsp",
+        "cachePackageTagsTrack": 200,
+        "cachePackageTagsStore": 200,
+        "cachePackageTagsRefresh": 60,
+        "cacheTemplatesTrack": 100,
+        "cacheTemplatesStore": 50,
+        "cacheTemplatesRefresh": 15,
+        "cachePagesTrack": 200,
+        "cachePagesStore": 100,
+        "cachePagesRefresh": 10,
+        "cachePagesDirtyRead": 10,
+        "searchEngineListTemplate": "forSearchEnginesList.htm",
+        "searchEngineFileTemplate": "forSearchEngines.htm",
+        "searchEngineRobotsDb": "WEB-INF/robots.db",
+        "useDataStore": true,
+        "dataStoreClass": "org.cofax.SqlDataStore",
+        "redirectionClass": "org.cofax.SqlRedirection",
+        "dataStoreName": "cofax",
+        "dataStoreDriver": "com.microsoft.jdbc.sqlserver.SQLServerDriver",
+        "dataStoreUrl": "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon",
+        "dataStoreUser": "sa",
+        "dataStorePassword": "dataStoreTestQuery",
+        "dataStoreTestQuery": "SET NOCOUNT ON;select test='test';",
+        "dataStoreLogFile": "/usr/local/tomcat/logs/datastore.log",
+        "dataStoreInitConns": 10,
+        "dataStoreMaxConns": 100,
+        "dataStoreConnUsageLimit": 100,
+        "dataStoreLogLevel": "debug",
+        "maxUrlLength": 500}},
+    {
+      "servlet-name": "cofaxEmail",
+      "servlet-class": "org.cofax.cds.EmailServlet",
+      "init-param": {
+      "mailHost": "mail1",
+      "mailHostOverride": "mail2"}},
+    {
+      "servlet-name": "cofaxAdmin",
+      "servlet-class": "org.cofax.cds.AdminServlet"},
+
+    {
+      "servlet-name": "fileServlet",
+      "servlet-class": "org.cofax.cds.FileServlet"},
+    {
+      "servlet-name": "cofaxTools",
+      "servlet-class": "org.cofax.cms.CofaxToolsServlet",
+      "init-param": {
+        "templatePath": "toolstemplates/",
+        "log": 1,
+        "logLocation": "/usr/local/tomcat/logs/CofaxTools.log",
+        "logMaxSize": "",
+        "dataLog": 1,
+        "dataLogLocation": "/usr/local/tomcat/logs/dataLog.log",
+        "dataLogMaxSize": "",
+        "removePageCache": "/content/admin/remove?cache=pages&id=",
+        "removeTemplateCache": "/content/admin/remove?cache=templates&id=",
+        "fileTransferFolder": "/usr/local/tomcat/webapps/content/fileTransferFolder",
+        "lookInContext": 1,
+        "adminGroupID": 4,
+        "betaServer": true}}],
+  "servlet-mapping": {
+    "cofaxCDS": "/",
+    "cofaxEmail": "/cofaxutil/aemail/*",
+    "cofaxAdmin": "/admin/*",
+    "fileServlet": "/static/*",
+    "cofaxTools": "/tools/*"},
+
+  "taglib": {
+    "taglib-uri": "cofax.tld",
+    "taglib-location": "/WEB-INF/tlds/cofax.tld"}}}
diff --git a/tests/example5.json b/tests/example5.json
new file mode 100644
index 0000000..49980ca
--- /dev/null
+++ b/tests/example5.json
@@ -0,0 +1,27 @@
+{"menu": {
+    "header": "SVG Viewer",
+    "items": [
+        {"id": "Open"},
+        {"id": "OpenNew", "label": "Open New"},
+        null,
+        {"id": "ZoomIn", "label": "Zoom In"},
+        {"id": "ZoomOut", "label": "Zoom Out"},
+        {"id": "OriginalView", "label": "Original View"},
+        null,
+        {"id": "Quality"},
+        {"id": "Pause"},
+        {"id": "Mute"},
+        null,
+        {"id": "Find", "label": "Find..."},
+        {"id": "FindAgain", "label": "Find Again"},
+        {"id": "Copy"},
+        {"id": "CopyAgain", "label": "Copy Again"},
+        {"id": "CopySVG", "label": "Copy SVG"},
+        {"id": "ViewSVG", "label": "View SVG"},
+        {"id": "ViewSource", "label": "View Source"},
+        {"id": "SaveAs", "label": "Save As"},
+        null,
+        {"id": "Help"},
+        {"id": "About", "label": "About Adobe CVG Viewer..."}
+    ]
+}}
diff --git a/tests/genutf8.pl b/tests/genutf8.pl
new file mode 100755
index 0000000..db661a1
--- /dev/null
+++ b/tests/genutf8.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+# Create test comparison data using a different UTF-8 implementation.
+
+# The generated utf8.dat file must have the following MD5 sum:
+#       cff03b039d850f370a7362f3313e5268
+
+use strict;
+
+# 0xD800 - 0xDFFF are used to encode supplementary codepoints
+# 0x10000 - 0x10FFFF are supplementary codepoints
+my (@codepoints) = (0 .. 0xD7FF, 0xE000 .. 0x10FFFF);
+
+my $utf8 = pack("U*", @codepoints);
+defined($utf8) or die "Unable create UTF-8 string\n";
+
+open(FH, ">:utf8", "utf8.dat")
+    or die "Unable to open utf8.dat: $!\n";
+print FH $utf8
+    or die "Unable to write utf8.dat\n";
+close(FH);
+
+# vi:ai et sw=4 ts=4:
diff --git a/tests/json2lua.lua b/tests/json2lua.lua
new file mode 100755
index 0000000..050b89d
--- /dev/null
+++ b/tests/json2lua.lua
@@ -0,0 +1,14 @@
+#!/usr/bin/env lua
+
+-- usage: json2lua.lua [json_file]
+--
+-- Eg:
+-- echo '[ "testing" ]' | ./json2lua.lua
+-- ./json2lua.lua test.json
+
+local json = require "cjson"
+local misc = require "cjson-misc"
+
+local json_text = misc.file_load(arg[1])
+local t = json.decode(json_text)
+print(misc.serialise_value(t))
diff --git a/tests/lua2json.lua b/tests/lua2json.lua
new file mode 100755
index 0000000..ebe7380
--- /dev/null
+++ b/tests/lua2json.lua
@@ -0,0 +1,42 @@
+#!/usr/bin/env lua
+
+-- usage: lua2json.lua [lua_file]
+--
+-- Eg:
+-- echo '{ "testing" }' | ./lua2json.lua
+-- ./lua2json.lua test.lua
+
+local json = require "cjson"
+local misc = require "cjson-misc"
+
+function get_lua_table(s)
+    local env = {}
+    local func
+
+    env.json = {}
+    env.json.null = json.null
+    env.null = json.null
+    s = "data = " .. s
+
+    -- Use setfenv() if it exists, otherwise assume Lua 5.2 load() exists
+    if _G.setfenv then
+        func = loadstring(s)
+        if func then
+            setfenv(func, env)
+        end
+    else
+        func = load(s, nil, nil, env)
+    end
+
+        if func == nil then
+                error("Invalid syntax. Failed to parse Lua table.")
+        end
+        func()
+
+    return env.data
+end
+
+local t = get_lua_table(misc.file_load(arg[1]))
+print(json.encode(t))
+
+-- vi:ai et sw=4 ts=4:
diff --git a/tests/numbers.json b/tests/numbers.json
new file mode 100644
index 0000000..ef11a26
--- /dev/null
+++ b/tests/numbers.json
@@ -0,0 +1,7 @@
+[ 0.110001000000000000000001,
+  0.12345678910111213141516,
+  0.412454033640,
+  2.6651441426902251886502972498731,
+  2.718281828459045235360287471352,
+  3.141592653589793238462643383279,
+  2.14069263277926 ]
diff --git a/tests/octets-escaped.dat b/tests/octets-escaped.dat
new file mode 100644
index 0000000..ee99a6b
--- /dev/null
+++ b/tests/octets-escaped.dat
@@ -0,0 +1 @@
+"\u0000\u0001\u0002\u0003\u0004\u0005\u0006\u0007\b\t\n\u000b\f\r\u000e\u000f\u0010\u0011\u0012\u0013\u0014\u0015\u0016\u0017\u0018\u0019\u001a\u001b\u001c\u001d\u001e\u001f !\"#$%&'()*+,-.\/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\u007f€�‚ƒ„…†‡ˆ‰Š‹Œ�Ž��‘’“”•–—˜™š›œ�žŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ"
\ No newline at end of file
diff --git a/tests/rfc-example1.json b/tests/rfc-example1.json
new file mode 100644
index 0000000..73532fa
--- /dev/null
+++ b/tests/rfc-example1.json
@@ -0,0 +1,13 @@
+{
+   "Image": {
+       "Width":  800,
+       "Height": 600,
+       "Title":  "View from 15th Floor",
+       "Thumbnail": {
+           "Url":    "http://www.example.com/image/481989943",
+           "Height": 125,
+           "Width":  "100"
+       },
+       "IDs": [116, 943, 234, 38793]
+     }
+}
diff --git a/tests/rfc-example2.json b/tests/rfc-example2.json
new file mode 100644
index 0000000..2a0cb68
--- /dev/null
+++ b/tests/rfc-example2.json
@@ -0,0 +1,22 @@
+[
+   {
+      "precision": "zip",
+      "Latitude":  37.7668,
+      "Longitude": -122.3959,
+      "Address":   "",
+      "City":      "SAN FRANCISCO",
+      "State":     "CA",
+      "Zip":       "94107",
+      "Country":   "US"
+   },
+   {
+      "precision": "zip",
+      "Latitude":  37.371991,
+      "Longitude": -122.026020,
+      "Address":   "",
+      "City":      "SUNNYVALE",
+      "State":     "CA",
+      "Zip":       "94085",
+      "Country":   "US"
+   }
+]
diff --git a/tests/test.lua b/tests/test.lua
new file mode 100755
index 0000000..c860878
--- /dev/null
+++ b/tests/test.lua
@@ -0,0 +1,252 @@
+#!/usr/bin/env lua
+
+-- CJSON tests
+--
+-- Mark Pulford <mark@kyne.com.au>
+--
+-- Note: The output of this script is easier to read with "less -S"
+
+local json = require "cjson"
+local misc = require "cjson-misc"
+
+local function gen_ascii()
+    local chars = {}
+    for i = 0, 255 do chars[i + 1] = string.char(i) end
+    return table.concat(chars)
+end
+
+-- Generate every UTF-16 codepoint, including supplementary codes
+local function gen_utf16_escaped()
+    -- Create raw table escapes
+    local utf16_escaped = {}
+    local count = 0
+
+    local function append_escape(code)
+        local esc = string.format('\\u%04X', code)
+        table.insert(utf16_escaped, esc)
+    end
+
+    table.insert(utf16_escaped, '"')
+    for i = 0, 0xD7FF do
+        append_escape(i)
+    end
+    -- Skip 0xD800 - 0xDFFF since they are used to encode supplementary
+    -- codepoints
+    for i = 0xE000, 0xFFFF do
+        append_escape(i)
+    end
+    -- Append surrogate pair for each supplementary codepoint
+    for high = 0xD800, 0xDBFF do
+        for low = 0xDC00, 0xDFFF do
+            append_escape(high)
+            append_escape(low)
+        end
+    end
+    table.insert(utf16_escaped, '"')
+
+    return table.concat(utf16_escaped)
+end
+
+function test_decode_cycle(filename)
+    local obj1 = json.decode(file_load(filename))
+    local obj2 = json.decode(json.encode(obj1))
+    return misc.compare_values(obj1, obj2)
+end
+
+local Inf = math.huge;
+local NaN = math.huge * 0;
+local octets_raw = gen_ascii()
+local octets_escaped = misc.file_load("octets-escaped.dat")
+local utf8_loaded, utf8_raw = pcall(misc.file_load, "utf8.dat")
+if not utf8_loaded then
+    utf8_raw = "Failed to load utf8.dat"
+end
+local utf16_escaped = gen_utf16_escaped()
+local nested5 = {{{{{ "nested" }}}}}
+local table_cycle = {}
+local table_cycle2 = { table_cycle }
+table_cycle[1] = table_cycle2
+
+local decode_simple_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 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, { NaN },
+      false, { "Cannot serialise number: must not be NaN or Inf" } },
+    { json.encode, { Inf },
+      false, { "Cannot serialise number: must not be NaN or Inf" } },
+    { json.encode, { "hello" }, true, { '"hello"' } },
+}
+
+local decode_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 encode_table_tests = {
+    function()
+        json.encode_sparse_array(true, 2, 3)
+        json.encode_max_depth(5)
+        return "Setting sparse array (true, 2, 3) / max depth (5)"
+    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, { { ["2"] = "numeric string key test" } },
+      true, { '{"2":"numeric string key test"}' } },
+
+    { json.encode, { nested5 }, true, { '[[[[["nested"]]]]]' } },
+    { json.encode, { { nested5 } },
+      false, { "Cannot serialise, excessive nesting (6)" } },
+    { json.encode, { table_cycle },
+      false, { "Cannot serialise, excessive nesting (6)" } }
+}
+
+local encode_error_tests = {
+    { json.encode, { { [false] = "wrong" } },
+      false, { "Cannot serialise boolean: table key must be a number or string" } },
+    { json.encode, { function () end },
+      false, { "Cannot serialise function: type not supported" } },
+    function ()
+        json.refuse_invalid_numbers("encode")
+        return 'Setting refuse_invalid_numbers("encode")'
+    end,
+    { json.encode, { NaN },
+      false, { "Cannot serialise number: must not be NaN or Inf" } },
+    { json.encode, { Inf },
+      false, { "Cannot serialise number: must not be NaN or Inf" } },
+    function ()
+        json.refuse_invalid_numbers(false)
+        return 'Setting refuse_invalid_numbers(false).'
+    end,
+    { json.encode, { NaN }, true, { "nan" } },
+    { json.encode, { Inf }, true, { "inf" } },
+    function ()
+        json.refuse_invalid_numbers("encode")
+        return 'Setting refuse_invalid_numbers("encode")'
+    end,
+}
+
+local json_nested = string.rep("[", 100000) .. string.rep("]", 100000)
+
+local decode_error_tests = {
+    { json.decode, { '\0"\0"' },
+      false, { "JSON parser does not support UTF-16 or UTF-32" } },
+    { json.decode, { '"\0"\0' },
+      false, { "JSON parser does not support UTF-16 or UTF-32" } },
+    { 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" } },
+    { json.decode, { json_nested },
+      false, { "Too many nested data structures" } }
+}
+
+local escape_tests = {
+    -- Test 8bit clean
+    { json.encode, { octets_raw }, true, { octets_escaped } },
+    { json.decode, { octets_escaped }, true, { octets_raw } },
+    -- Ensure high bits are removed from surrogate codes
+    { json.decode, { '"\\uF800"' }, true, { "\239\160\128" } },
+    -- Test inverted surrogate pairs
+    { json.decode, { '"\\uDB00\\uD800"' },
+      false, { "Expected value but found invalid unicode escape code at character 2" } },
+    -- Test 2x high surrogate code units
+    { json.decode, { '"\\uDB00\\uDB00"' },
+      false, { "Expected value but found invalid unicode escape code at character 2" } },
+    -- Test invalid 2nd escape
+    { json.decode, { '"\\uDB00\\"' },
+      false, { "Expected value but found invalid unicode escape code at character 2" } },
+    { json.decode, { '"\\uDB00\\uD"' },
+      false, { "Expected value but found invalid unicode escape code at character 2" } },
+    -- Test decoding of all UTF-16 escapes
+    { json.decode, { utf16_escaped }, true, { utf8_raw } }
+}
+
+-- The standard Lua interpreter is ANSI C online doesn't support locales
+-- by default. Force a known problematic locale to test strtod()/sprintf().
+local locale_tests = {
+    function ()
+        os.setlocale("cs_CZ")
+        json.new()
+        return "Setting locale to cs_CZ (comma separator)"
+    end,
+    { json.encode, { 1.5 }, true, { '1.5' } },
+    { json.decode, { "[ 10, \"test\" ]" }, true, { { 10, "test" } } },
+    function ()
+        os.setlocale("C")
+        json.new()
+        return "Reverting locale to POSIX"
+    end
+}
+
+print(string.format("Testing Lua CJSON version %s\n", json.version))
+
+misc.run_test_group("decode simple value", decode_simple_tests)
+misc.run_test_group("encode simple value", encode_simple_tests)
+misc.run_test_group("decode numeric", decode_numeric_tests)
+misc.run_test_group("encode table", encode_table_tests)
+misc.run_test_group("decode error", decode_error_tests)
+misc.run_test_group("encode error", encode_error_tests)
+misc.run_test_group("escape", escape_tests)
+misc.run_test_group("locale", locale_tests)
+
+json.refuse_invalid_numbers(false)
+json.encode_max_depth(20)
+for i = 1, #arg do
+    misc.run_test("decode cycle " .. arg[i], test_decode_cycle, { arg[i] },
+                  true, { true })
+end
+
+local pass, total = misc.run_test_summary()
+
+if pass == total then
+    print("==> Summary: all tests succeeded")
+else
+    print(string.format("==> Summary: %d/%d tests failed", total - pass, total))
+    os.exit(1)
+end
+
+-- vi:ai et sw=4 ts=4:
diff --git a/tests/types.json b/tests/types.json
new file mode 100644
index 0000000..c01e7d2
--- /dev/null
+++ b/tests/types.json
@@ -0,0 +1 @@
+{ "array": [ 10, true, null ] }