add one_of testing to avoid hash table ordering causing test to fail

1 files changed, 27 insertions, 2 deletions

diff --git a/lua/cjson/util.lua b/lua/cjson/util.lua
index 2405257..7cf66be 100644
--- a/lua/cjson/util.lua
+++ b/lua/cjson/util.lua
@@ -12,6 +12,17 @@ local maxn = table.maxn or function(t)
     return max
 end
 
+local _one_of_mt = {}
+
+local function one_of(t)
+    setmetatable(t, _one_of_mt)
+    return t
+end
+
+local function is_one_of(t)
+    return type(t) == "table" and getmetatable(t) == _one_of_mt
+end
+
 -- Various common routines used by the Lua CJSON package
 --
 -- Mark Pulford <mark@kyne.com.au>
@@ -59,7 +70,11 @@ local function serialise_table(value, indent, depth)
     local max = is_array(value)
 
     local comma = false
-    local fragment = { "{" .. spacing2 }
+    local prefix = "{"
+    if is_one_of(value) then
+        prefix = "ONE_OF{"
+    end
+    local fragment = { prefix .. spacing2 }
     if max > 0 then
         -- Serialise array
         for i = 1, max do
@@ -146,6 +161,15 @@ local function file_save(filename, data)
 end
 
 local function compare_values(val1, val2)
+    if is_one_of(val2) then
+        for _, option in ipairs(val2) do
+            if compare_values(val1, option) then
+                return true
+            end
+        end
+        return false
+    end
+
     local type1 = type(val1)
     local type2 = type(val2)
     if type1 ~= type2 then
@@ -281,7 +305,8 @@ return {
     run_test_summary = run_test_summary,
     run_test = run_test,
     run_test_group = run_test_group,
-    run_script = run_script
+    run_script = run_script,
+    one_of = one_of
 }
 
 -- vi:ai et sw=4 ts=4: