tests/lunit-encoding.lua

   1 local json = require("json")
   2 local lunit = require("lunit")
   3
   4 module("lunit-encoding", lunit.testcase, package.seeall)
   5
   6 function test_cloned_array_sibling()
   7         local obj = {}
   8         assert_pass(function()
   9                 json.encode({obj, obj})
  10         end)
  11 end
  12
  13 function test_cloned_object_sibling()
  14         local obj = {}
  15         assert_pass(function()
  16                 json.encode({x = obj, y = obj})
  17         end)
  18 end
  19
  20 function test_cloned_array_deep_sibling()
  21         local obj = {}
  22         assert_pass(function()
  23                 json.encode({
  24                         {obj}, {obj}
  25                 })
  26         end)
  27 end
  28
  29 function test_cloned_array_multilevel_sibling()
  30         local obj = {}
  31         assert_pass(function()
  32                 json.encode({
  33                         {obj, {obj}}
  34                 })
  35         end)
  36 end
  37
  38 function test_recursive_object()
  39         local obj = {}
  40         obj.x = obj
  41         assert_error(function()
  42                 json.encode(obj)
  43         end)
  44 end
  45
  46 function test_recursive_array()
  47         local obj = {}
  48         obj[1] = obj
  49         assert_error(function()
  50                 json.encode(obj)
  51         end)
  52 end
  53
  54 function test_custom_encode()
  55         local obj = { x = "y" }
  56         local sawX
  57         local function preProcessor(value, isObjectKey)
  58                 if value == "x" then
  59                         sawX = true
  60                         assert_true(isObjectKey)
  61                 else
  62                         assert_false(isObjectKey)
  63                 end
  64                 return value
  65         end
  66         local encoder = json.encode.getEncoder({
  67                 preProcess = preProcessor
  68         })
  69         assert_nil(sawX)
  70         encoder(obj)
  71         assert_true(sawX)
  72 end