--------------------------------------------------------------------------------
-- 0190-table-utils.lua: tests for small table utilities
-- This file is a part of lua-nucleo library
-- Copyright (c) lua-nucleo authors (see file `COPYRIGHT` for the license)
--------------------------------------------------------------------------------

local make_suite = assert(loadfile('test/test-lib/init/strict.lua'))(...)

local ensure,
      ensure_equals,
      ensure_tequals,
      ensure_tdeepequals,
      ensure_fails_with_substring,
      ensure_error
      = import 'lua-nucleo/ensure.lua'
      {
        'ensure',
        'ensure_equals',
        'ensure_tequals',
        'ensure_tdeepequals',
        'ensure_fails_with_substring',
        'ensure_error'
      }

local assert_is_table
      = import 'lua-nucleo/typeassert.lua'
      {
        'assert_is_table'
      }

local arguments
      = import 'lua-nucleo/args.lua'
      {
        'arguments'
      }

local empty_table,
      toverride_many,
      tappend_many,
      tijoin_many,
      tkeys,
      tvalues,
      tkeysvalues,
      tflip,
      tflip_inplace,
      tiflip,
      tset,
      tiset,
      tiinsert_args,
      timap_inplace,
      timap,
      timap_sliding,
      tiwalk,
      tiwalker,
      tequals,
      tiunique,
      tgenerate_n,
      tgenerate_1d_linear,
      tgenerate_2d_linear,
      taccumulate,
      tnormalize,
      tnormalize_inplace,
      tclone,
      tcount_elements,
      tremap_to_array,
      twalk_pairs,
      tmap_values,
      torderedset,
      torderedset_insert,
      torderedset_remove,
      twithdefaults,
      tifilter,
      tsetof,
      tset_many,
      tidentityset,
      timapofrecords,
      tivalues,
      treadonly,
      treadonly_ex,
      tmap_kv,
      tmapofrecordgroups,
      timapofrecordgroups,
      tilistofrecordfields,
      tipermute_inplace,
      tkvtorecordlist,
      tgetpath,
      tsetpath,
      tsetpathvalue,
      tslice,
      tarraylisttohashlist,
      tkvlist2kvpairs,
      tfilterkeylist,
      tisempty,
      tifindvalue_nonrecursive,
      tkvmap_unpack,
      tarraytohash,
      tkvlist_to_hash,
      table_utils_exports
      = import 'lua-nucleo/table-utils.lua'
      {
        'empty_table',
        'toverride_many',
        'tappend_many',
        'tijoin_many',
        'tkeys',
        'tvalues',
        'tkeysvalues',
        'tflip',
        'tflip_inplace',
        'tiflip',
        'tset',
        'tiset',
        'tiinsert_args',
        'timap_inplace',
        'timap',
        'timap_sliding',
        'tiwalk',
        'tiwalker',
        'tequals',
        'tiunique',
        'tgenerate_n',
        'tgenerate_1d_linear',
        'tgenerate_2d_linear',
        'taccumulate',
        'tnormalize',
        'tnormalize_inplace',
        'tclone',
        'tcount_elements',
        'tremap_to_array',
        'twalk_pairs',
        'tmap_values',
        'torderedset',
        'torderedset_insert',
        'torderedset_remove',
        'twithdefaults',
        'tifilter',
        'tsetof',
        'tset_many',
        'tidentityset',
        'timapofrecords',
        'tivalues',
        'treadonly',
        'treadonly_ex',
        'tmap_kv',
        'tmapofrecordgroups',
        'timapofrecordgroups',
        'tilistofrecordfields',
        'tkvtorecordlist',
        'tipermute_inplace',
        'tgetpath',
        'tsetpath',
        'tsetpathvalue',
        'tslice',
        'tarraylisttohashlist',
        'tkvlist2kvpairs',
        'tfilterkeylist',
        'tisempty',
        'tifindvalue_nonrecursive',
        'tkvmap_unpack',
        'tarraytohash',
        'tkvlist_to_hash'
      }

--------------------------------------------------------------------------------

local test = make_suite("table-utils", table_utils_exports)

--------------------------------------------------------------------------------

test:test_for "empty_table" (function()
  ensure_equals("is table", type(empty_table), "table")
  ensure_equals("is empty", next(empty_table), nil)
  ensure_equals(
      "metatable is protected",
      getmetatable(empty_table),
      "empty_table"
    )
  ensure_equals("allows read access", empty_table[42], nil)

  ensure_fails_with_substring(
      "disallows write access",
      function()
        empty_table[42] = true
      end,
      "attempted to change the empty table"
    )
  ensure_equals("still empty", next(empty_table), nil)
end)

--------------------------------------------------------------------------------

test:group "toverride_many"

--------------------------------------------------------------------------------

test "toverride_many-noargs-empty" (function()
  ensure_tequals("noargs-empty", toverride_many({ }), { })
end)

test "toverride_many-noargs" (function()
  ensure_tequals("noargs", toverride_many({ 42 }), { 42 })
end)

test "toverride_many-single" (function()
  ensure_tequals("single", toverride_many({ 3.14 }, { 42 }), { 42 })
end)

test "toverride_many-empty-append" (function()
  ensure_tequals("single", toverride_many({ }, { 42 }), { 42 })
end)

test "toverride_many-single-append" (function()
  ensure_tequals(
      "single append",
      toverride_many({ 2.71 }, { [2] = 42 }),
      { 2.71, 42 }
    )
end)

test "toverride_many-returns-first-argument" (function()
  local t = { 2.71 }
  local r = toverride_many(t, { [2] = 42 })
  ensure_tequals(
      "single append",
      r,
      { 2.71, 42 }
    )
  ensure_equals("returned first argument", r, t)
end)

test "toverride_many-double-append" (function()
  ensure_tequals(
      "double append",
      toverride_many({ 2.71 }, { [2] = 42 }, { ["a"] = true }),
      { 2.71, 42, ["a"] = true }
    )
end)

test "toverride_many-hole" (function()
  ensure_tequals(
      "hole stops",
      toverride_many({ 2.71 }, { [2] = 42 }, nil, { ["a"] = true }),
      { 2.71, 42 }
    )
end)

test "toverride_many-on-self" (function()
  local v = { }
  local t = { v }
  ensure_tequals(
      "self-override is no-op",
      toverride_many(t, t, t, t, t),
      t
    )
  ensure_equals("exactly the same", t[1], v)
  t[1] = nil
  ensure_equals("no extra data", next(t), nil)
end)

test "toverride_many-recursion" (function()
  local t = { }
  t[t] = t
  ensure_tequals(
      "recursion",
      toverride_many(t, t, { t }),
      t
    )

  ensure_equals("old value is there", t[t], t)
  ensure_equals("and new one appeared", t[1] , t)

  t[t], t[1] = nil, nil
  ensure_equals("no extra data", next(t), nil)
end)

test "toverride_many-many" (function()
  local k = { }
  local t = { [1] = 42, ["a"] = k, [k] = false }
  local r = toverride_many(
      t,
      { },
      { 1 },
      t,
      { false, ["z"] = 2.71 },
      { [k] = k, [1] = 2.71 },
      t,
      nil,
      { 0 }
    )

  ensure_equals("returns first argument", r, t)
  ensure_tequals(
      "many",
      r,
      { [1] = 2.71, ["a"] = k, [k] = k, ["z"] = 2.71 }
    )
end)

--------------------------------------------------------------------------------

test:group "tappend_many"

--------------------------------------------------------------------------------

test "tappend_many-noargs-empty" (function()
  ensure_tequals("noargs-empty", tappend_many({ }), { })
end)

test "tappend_many-noargs" (function()
  ensure_tequals("noargs", tappend_many({ 42 }), { 42 })
end)

test "tappend_many-single" (function()
  ensure_fails_with_substring(
      "single override fails",
      function() tappend_many({ 3.14 }, { 42 }) end,
      "attempted to override table key `1'"
    )
end)

test "tappend_many-empty-append" (function()
  ensure_tequals("single", tappend_many({ }, { 42 }), { 42 })
end)

test "tappend_many-single-append" (function()
  ensure_tequals(
      "single append",
      tappend_many({ 2.71 }, { [2] = 42 }),
      { 2.71, 42 }
    )
end)

test "tappend_many-returns-first-argument" (function()
  local t = { 2.71 }
  local r = tappend_many(t, { [2] = 42 })
  ensure_tequals(
      "single append",
      r,
      { 2.71, 42 }
    )
  ensure_equals("returned first argument", r, t)
end)

test "tappend_many-double-append" (function()
  ensure_tequals(
      "double append",
      tappend_many({ 2.71 }, { [2] = 42 }, { ["a"] = true }),
      { 2.71, 42, ["a"] = true }
    )
end)

test "tappend_many-hole" (function()
  ensure_tequals(
      "hole stops",
      tappend_many({ 2.71 }, { [2] = 42 }, nil, { 0 }),
      { 2.71, 42 }
    )
end)

test "tappend_many-on-self" (function()
  local v = { }
  local t = { v }
  ensure_fails_with_substring(
      "self override fails",
      function() tappend_many(t, t) end,
      "attempted to override table key `1'"
    )
end)

test "tappend_many-recursion" (function()
  local t = { }
  t[t] = t
  ensure_tequals(
      "recursion",
      tappend_many(t, { t }),
      t
    )

  ensure_equals("old value is there", t[t], t)
  ensure_equals("and new one appeared", t[1] , t)

  t[t], t[1] = nil, nil
  ensure_equals("no extra data", next(t), nil)
end)

test "tappend_many-many" (function()
  local k = { }
  local t = { [1] = 42, ["a"] = k, [k] = false }
  local r = tappend_many(
      t,
      { },
      { [2] = 1, ["z"] = 2.71 },
      nil,
      t
    )

  ensure_equals("returns first argument", r, t)
  ensure_tequals(
      "many",
      r,
      { [1] = 42, [2] = 1, ["a"] = k, [k] = false, ["z"] = 2.71 }
    )
end)

--------------------------------------------------------------------------------

test:group "tijoin_many"

--------------------------------------------------------------------------------

test "tijoin_many-noargs-empty" (function()
  ensure_tequals("noargs-empty", tijoin_many({ }), { })
end)

test "tijoin_many-noargs" (function()
  ensure_tequals("noargs", tijoin_many({ 42 }), { 42 })
end)

test "tijoin_many-single" (function()
  ensure_tequals("single", tijoin_many({ 3.14 }, { 42 } ), { 3.14, 42 })
end)

test "tijoin_many-empty-append" (function()
  ensure_tequals("single", tijoin_many({ }, { 42 }), { 42 })
end)

test "tijoin_many-ignores-hash-part" (function()
  ensure_tequals(
      "single ignores hash part",
      tijoin_many({ 2.71 }, { a = 42 }),
      { 2.71 }
    )
end)

test "tijoin_many-returns-first-argument" (function()
  local t = { 2.71 }
  local r = tijoin_many(t, { 42 })
  ensure_tequals(
      "single append",
      r,
      { 2.71, 42 }
    )
  ensure_equals("returned first argument", r, t)
end)

test "tijoin_many-double-append" (function()
  ensure_tequals(
      "double append",
      tijoin_many({ 2.71 }, { 42 }, { true }),
      { 2.71, 42, true }
    )
end)

test "tijoin_many-hole" (function()
  ensure_tequals(
      "hole stops",
      tijoin_many({ 2.71 }, { 42 }, nil, { 0 }),
      { 2.71, 42 }
    )
end)

test "tijoin_many-on-self" (function()
  local t = { 3.14, 2.71 }
  ensure_tequals(
      "self-join duplicates",
      tijoin_many(t, t, t),
      { 3.14, 2.71, 3.14, 2.71, 3.14, 2.71, 3.14, 2.71 }
    )
end)

test "tijoin_many-recursion" (function()
  local t = { }
  t[1] = t
  ensure_tequals(
      "recursion",
      tijoin_many(t, { t }),
      t
    )

  ensure_equals("old value is there", t[1], t)
  ensure_equals("and new one appeared", t[2] , t)

  t[1], t[2] = nil, nil
  ensure_equals("no extra data", next(t), nil)
end)

--------------------------------------------------------------------------------

test:group "tkeys"

--------------------------------------------------------------------------------

test "tkeys-empty" (function()
  ensure_tequals("empty", tkeys({ }), { })
end)

test "tkeys-single" (function()
  ensure_tequals("simple", tkeys({ [1] = 42 }), { 1 })
end)

test "tkeys-hole" (function()
  ensure_tequals("hole", tkeys({ [42] = 1 }), { 42 })
end)

test "tkeys-hash" (function()
  ensure_tequals("hash", tkeys({ ["a"] = 42 }), { "a" })
end)

test "tkeys-table" (function()
  local k = { }
  ensure_tequals("table", tkeys({ [k] = 42 }), { k })
end)

test "tkeys-recursive" (function()
  local t = { }
  t[t] = t
  ensure_tequals("recursive", tkeys(t), { t })
end)

test "tkeys-many" (function()
  -- NOTE: Can't use tequals() directly
  --       due to undetermined table traversal order.

  local k = { }
  local t = { [1] = 42, a = k, [k] = false }
  local keys = tkeys(t)

  -- Check needed in case there would be duplicate entries in the result.
  ensure_equals("three keys", #keys, 3)

  ensure_tequals("check key sets", tiset(keys), tiset { 1, "a", k })
end)

--------------------------------------------------------------------------------

test:group "tvalues"

--------------------------------------------------------------------------------

test "tvalues-empty" (function()
  ensure_tequals("empty", tvalues({ }), { })
end)

test "tvalues-single" (function()
  ensure_tequals("simple", tvalues({ [1] = 42 }), { 42 })
end)

test "tvalues-hole" (function()
  ensure_tequals("hole", tvalues({ [42] = 1 }), { 1 })
end)

test "tvalues-hash" (function()
  ensure_tequals("hash", tvalues({ ["a"] = 42 }), { 42 })
end)

test "tvalues-table" (function()
  local k = { }
  ensure_tequals("table", tvalues({ [42] = k }), { k })
end)

test "tvalues-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tvalues(t), { t })
end)

test "tvalues-many" (function()
  -- NOTE: Can't use tequals() directly
  --       due to undetermined table traversal order.

  local k = { }
  local t = { [1] = 42, a = k, [k] = false }
  local values = tvalues(t)

  -- Check needed in case there would be duplicate entries in the result.
  ensure_equals("three values", #values, 3)

  ensure_tequals("check value sets", tiset(values), tiset { 42, k, false })
end)

--------------------------------------------------------------------------------

test:group "tkeysvalues"

--------------------------------------------------------------------------------

test "tkeysvalues-empty" (function()
  local keys, values = tkeysvalues({ })
  ensure_tequals("keys empty", keys, { })
  ensure_tequals("values empty", values, { })
end)

test "tkeysvalues-single" (function()
  local keys, values = tkeysvalues({ [1] = 42 })
  ensure_tequals("keys simple", keys, { 1 })
  ensure_tequals("values simple", values, { 42 })
end)

test "tkeysvalues-hole" (function()
  local keys, values = tkeysvalues({ [42] = 1 })
  ensure_tequals("keys hole", keys, { 42 })
  ensure_tequals("values hole", values, { 1 })
end)

test "tkeysvalues-hash" (function()
  local keys, values = tkeysvalues({ ["a"] = 42 })
  ensure_tequals("keys hash", keys, { "a" })
  ensure_tequals("values hash", values, { 42 })
end)

test "tkeysvalues-table" (function()
  local k = { }
  local keys, values = tkeysvalues({ [42] = k })
  ensure_tequals("keys table", keys, { 42 })
  ensure_tequals("values table", values, { k })
end)

test "tkeysvalues-recursive" (function()
  local t = { }
  t[1] = t
  local keys, values = tkeysvalues(t)
  ensure_tequals("keys recursive", keys, { 1 })
  ensure_tequals("values recursive", values, { t })
end)

test "tkeysvalues-many" (function()
  -- NOTE: Can't use tequals() directly
  --       due to undetermined table traversal order.

  local k = { }
  local t = { [1] = 42, a = k, [k] = false }

  local keys, values = tkeysvalues(t)

  -- Check needed in case there would be duplicate entries in the result.
  ensure_equals("three keys", #keys, 3)
  ensure_equals("three values", #values, 3)

  ensure_tequals("check key sets", tiset(keys), tiset { 1, "a", k })
  ensure_tequals("check value sets", tiset(values), tiset { 42, k, false })
end)

--------------------------------------------------------------------------------

test:group "tflip"

--------------------------------------------------------------------------------

test "tflip-empty" (function()
  ensure_tequals("empty", tflip({ }), { })
end)

test "tflip-single" (function()
  ensure_tequals("simple", tflip({ [1] = 42 }), { [42] = 1 })
end)

test "tflip-hole" (function()
  ensure_tequals("hole", tflip({ [42] = 1 }), { [1] = 42 })
end)

test "tflip-hash" (function()
  ensure_tequals("hash", tflip({ ["a"] = 42 }), { [42] = "a" })
end)

test "tflip-duplicate" (function()
  local t = tflip({ [1] = 42, [2] = 42 })
  ensure(
      "duplicate",
      tequals(t, { [42] = 1 }) or tequals(t, { [42] = 2 })
    )
end)

test "tflip-duplicate-hash" (function()
  local t = tflip({ [1] = 42, ["a"] = 42 })
  ensure(
      "duplicate hash",
      tequals(t, { [42] = 1 }) or tequals(t, { [42] = "a" })
    )
end)

test "tflip-table" (function()
  local k = { }
  ensure_tequals("table", tflip({ [k] = 42 }), { [42] = k })
end)

test "tflip-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tflip(t), { [t] = 1 })
end)

test "tflip-many" (function()
  local k = { }
  local t = { [1] = 42, a = k, [k] = false }

  ensure_tequals(
      "many",
      tflip(t),
      { [42] = 1, [k] = "a", [false] = k }
    )
end)

--------------------------------------------------------------------------------

test:group "tflip_inplace"

--------------------------------------------------------------------------------

test "tflip_inplace-empty" (function()
  ensure_tequals("empty", tflip_inplace({ }), { })
end)

test "tflip_inplace-single" (function()
  ensure_tequals("simple", tflip_inplace({ [1] = 42 }), { [1] = 42, [42] = 1 })
end)

test "tflip_inplace-hole" (function()
  ensure_tequals("hole", tflip_inplace({ [42] = 1 }), { [1] = 42 ,  [42] = 1 })
end)

test "tflip_inplace-hash" (function()
  ensure_tequals("hash", tflip_inplace({ ["a"] = 42 }), { [42] = "a",  ["a"] = 42 })
end)

test "tflip_inplace-duplicate" (function()
  local t = tflip_inplace({ [1] = 42, [2] = 42 })
  ensure(
      "duplicate",
      tequals(t, { [42] = 1, [1] = 42, [2] = 42 }) or tequals(t, { [42] = 2, [1] = 42, [2] = 42 })
    )
end)

test "tflip_inplace-duplicate-hash" (function()
  local t = tflip_inplace({ [1] = 42, ["a"] = 42 })
  ensure(
      "duplicate hash",
      tequals(t, { [42] = 1, [1] = 42, ["a"] = 42 }) or tequals(t, { [42] = "a", [1] = 42, ["a"] = 42 })
    )
end)

test "tflip_inplace-table" (function()
  local k = { }
  ensure_tequals("table", tflip_inplace({ [k] = 42 }), { [42] = k, [k] = 42 })
end)

test "tflip_inplace-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tflip_inplace(t), { [t] = 1, [1] = t })
end)

test "tflip_inplace-many" (function()
  local k = { }
  local t = { [1] = 42, a = k, [k] = false }
  local r = tflip_inplace(t)

  ensure(
      "many",
      tequals(r, { [1] = 42, [42] = 1, [k] = "a", a = k }) or tequals(r, { [1] = 42, [42] = 1, [false] = k, [k] = false, a = k })
    )
end)

--------------------------------------------------------------------------------

test:group "tiflip"

--------------------------------------------------------------------------------

test "tiflip-empty" (function()
  ensure_tequals("empty", tiflip({ }), { })
end)

test "tiflip-single" (function()
  ensure_tequals("simple", tiflip({ [1] = 42 }), { [42] = 1 })
end)

test "tiflip-hole" (function()
  ensure_tequals("hole ignored", tiflip({ [42] = 1 }), { })
end)

test "tiflip-hash" (function()
  ensure_tequals("hash ignored", tiflip({ ["a"] = 42 }), { })
end)

test "tiflip-duplicate" (function()
  ensure_tequals("duplicate", tiflip({ [1] = 42, [2] = 42 }), { [42] = 2 })
end)

test "tiflip-duplicate-hash" (function()
  ensure_tequals(
      "duplicate hash ignored",
      tiflip({ [1] = 42, ["a"] = 42 }),
      { [42] = 1 }
    )
end)

test "tiflip-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tiflip(t), { [t] = 1 })
end)

test "tiflip-many" (function()
  local k = { }
  local t = { [1] = 42, [2] = 42, a = k, [k] = 42 }

   ensure_tequals("many", tiflip(t), { [42] = 2 })
end)

--------------------------------------------------------------------------------

test:group "tset"

--------------------------------------------------------------------------------

test "tset-empty" (function()
  ensure_tequals("empty", tset({ }), { })
end)

test "tset-single" (function()
  ensure_tequals("simple", tset({ [1] = 42 }), { [42] = true })
end)

test "tset-hole" (function()
  ensure_tequals("hole", tset({ [42] = 1 }), { [1] = true })
end)

test "tset-hash" (function()
  ensure_tequals("hash", tset({ ["a"] = 42 }), { [42] = true })
end)

test "tset-duplicate" (function()
  ensure_tequals("duplicate", tset({ [1] = 42, [2] = 42 }), { [42] = true })
end)

test "tset-duplicate-hash" (function()
  ensure_tequals(
      "duplicate hash",
      tset({ [1] = 42, ["a"] = 42 }),
      { [42] = true }
    )
end)

test "tset-table" (function()
  local k = { }
  ensure_tequals("table", tset({ [k] = 42 }), { [42] = true })
end)

test "tset-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tset(t), { [t] = true })
end)

test "tset-many" (function()
  local k = { }
  local t = { [1] = 42, a = k, [k] = false }

  ensure_tequals(
      "many",
      tset(t),
      { [42] = true, [k] = true, [false] = true }
    )
end)

--------------------------------------------------------------------------------

test:group "tiset"

--------------------------------------------------------------------------------

test "tiset-empty" (function()
  ensure_tequals("empty", tiset({ }), { })
end)

test "tiset-single" (function()
  ensure_tequals("simple", tiset({ [1] = 42 }), { [42] = true })
end)

test "tiset-hole" (function()
  ensure_tequals("hole ignored", tiset({ [42] = 1 }), { })
end)

test "tiset-hash" (function()
  ensure_tequals("hash ignored", tiset({ ["a"] = 42 }), { })
end)

test "tiset-duplicate" (function()
  ensure_tequals("duplicate", tiset({ [1] = 42, [2] = 42 }), { [42] = true })
end)

test "tiset-duplicate-hash" (function()
  ensure_tequals(
      "duplicate hash",
      tiset({ [1] = 42, ["a"] = 42 }),
      { [42] = true }
    )
end)

test "tiset-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tiset(t), { [t] = true })
end)

test "tiset-many" (function()
  local k = { }
  local t = { [1] = 42, [2] = 42, a = k, [k] = 42 }

   ensure_tequals("many", tiset(t), { [42] = true })
end)

--------------------------------------------------------------------------------

test:group "tiinsert_args"

--------------------------------------------------------------------------------

test "tiinsert_args-empty-noargs" (function()
  local t = { }
  local r = tiinsert_args(t)

  ensure_tequals("empty", r, { })
  ensure_equals("returns first argument", r, t)
end)

test "tiinsert_args-empty-append" (function()
  local t = { }
  local r = tiinsert_args(t, 1, 2)

  ensure_tequals("append", r, { 1, 2 })
  ensure_equals("returns first argument", r, t)
end)

test "tiinsert_args-non-empty-append" (function()
  local t = { 1 }
  local r = tiinsert_args(t, 2, 3)

  ensure_tequals("append", r, { 1, 2, 3 })
  ensure_equals("returns first argument", r, t)
end)

test "tiinsert_args-nil-stops" (function()
  local t = { 1 }
  local r = tiinsert_args(t, 2, nil, 3)

  ensure_tequals("append", r, { 1, 2 })
  ensure_equals("returns first argument", r, t)
end)

test "tiinsert_args-complex" (function()
  local t = { }
  t[1] = t
  t[t] = t
  local r = tiinsert_args(t, 1, t, t, nil, t)

  ensure_tequals("complex", r, { t, 1, t, t, [t] = t })
  ensure_equals("returns first argument", r, t)
end)

--------------------------------------------------------------------------------

test:group "timap_inplace"

--------------------------------------------------------------------------------

test "timap_inplace-empty-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = timap_inplace(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned table", r, t)
end)

test "timap_inplace-empty-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = timap_inplace(fn, t, 42)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned table", r, t)
end)

test "timap_inplace-counter-noargs" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_inplace(fn, t)
  ensure_equals("function called", c, 3)
  ensure_equals("returned table", r, t)
  ensure_tequals("table changed", r, { 11, 22, 33, ["a"] = 42 })
end)

test "timap_inplace-counter-args" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, k)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_inplace(fn, t, k)
  ensure_equals("function called", c, 3)
  ensure_equals("returned table", r, t)
  ensure_tequals("table changed", r, { 11, 22, 33, ["a"] = 42 })
end)

--------------------------------------------------------------------------------

test:group "timap"

--------------------------------------------------------------------------------

test "timap-empty-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local old_t = tclone(t)
  local r = timap(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_tequals("original table not changed", t, old_t)
  ensure("returned other table", r ~= t)
end)

test "timap-empty-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local old_t = tclone(t)
  local r = timap(fn, t, 42)
  ensure_equals("function not called", c, 0)
  ensure_tequals("original table not changed", t, old_t)
  ensure("returned other table", r ~= t)
end)

test "timap-counter-noargs" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local old_t = tclone(t)
  local r = timap(fn, t)
  ensure_equals("function called", c, 3)
  ensure_tequals("original table not changed", t, old_t)
  ensure("returned other table", r ~= t)
  ensure_tequals("table changed", r, { 11, 22, 33 })
end)

test "timap-counter-args" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, k)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local old_t = tclone(t)
  local r = timap(fn, t, k)
  ensure_equals("function called", c, 3)
  ensure_tequals("original table not changed", t, old_t)
  ensure("returned other table", r ~= t)
  ensure_tequals("table changed", r, { 11, 22, 33 })
end)

--------------------------------------------------------------------------------

test:group "timap_sliding"

--------------------------------------------------------------------------------

test "timap_sliding-empty-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = timap_sliding(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_tequals("result is empty", r, { })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-empty-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = timap_sliding(fn, t, 42)
  ensure_equals("function not called", c, 0)
  ensure_tequals("result is empty", r, { })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-hash-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { ["a"] = 1 }
  local r = timap_sliding(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_tequals("result is empty", r, { })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-hash-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { ["a"] = 1 }
  local r = timap_sliding(fn, t, 42)
  ensure_equals("function not called", c, 0)
  ensure_tequals("result is empty", r, { })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-counter-noargs" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_sliding(fn, t)
  ensure_equals("function called", c, 3)
  ensure_tequals("table changed", r, { 11, 22, 33 })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-counter-args" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, k)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_sliding(fn, t, k)
  ensure_equals("function called", c, 3)
  ensure_tequals("table changed", r, { 11, 22, 33 })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-counter-noargs-many" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c, a + c + 1
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_sliding(fn, t)
  ensure_equals("function called", c, 3)
  ensure_tequals("table changed", r, { 11, 12, 22, 23, 33, 34 })
  ensure("returned new table", r ~= t)
end)

test "timap_sliding-counter-args-many" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, k)
    return a + c, a + c + 1
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = timap_sliding(fn, t, k)
  ensure_equals("function called", c, 3)
  ensure_tequals("table changed", r, { 11, 12, 22, 23, 33, 34 })
  ensure("returned new table", r ~= t)
end)

--------------------------------------------------------------------------------

test:group "tequals"

--------------------------------------------------------------------------------

test "tequals-empty-eq" (function()
  ensure_equals("empty-eq", tequals({ }, { }), true)
end)

test "tequals-empty-neq" (function()
  ensure_equals("empty-neq-1", tequals({ }, { 1 }), false)
  ensure_equals("empty-neq-2", tequals({ 1 }, { }), false)
end)

test "tequals-empty-self" (function()
  local t = { }
  ensure_equals("empty-self", tequals(t, t), true)
end)

test "tequals-non-empty-eq" (function()
  ensure_equals("empty-eq", tequals({ 1 }, { 1 }), true)
end)

test "tequals-non-empty-neq" (function()
  ensure_equals("empty-neq-1", tequals({ 1 }, { 1, 2 }), false)
  ensure_equals("empty-neq-2", tequals({ 1, 2 }, { 1 }), false)
  ensure_equals("empty-neq-3", tequals({ 1, 2 }, { 3, 4 }), false)
end)

test "tequals-non-empty-self" (function()
  local t = { 1 }
  ensure_equals("non-empty-self", tequals(t, t), true)
end)

test "tequals-table-eq" (function()
  local t = { }
  ensure_equals("table-eq", tequals({ [t] = t }, { [t] = t }), true)
end)

test "tequals-table-neq" (function()
  local t1, t2 = { }, { }
  ensure_equals("table-neq", tequals({ [t1] = t1 }, { [t2] = t2 }), false)
end)

test "tequals-hole-eq" (function()
  ensure_equals("hole-eq", tequals({ [42] = 1 }, { [42] = 1 }), true)
end)

test "tequals-hole-neq" (function()
  ensure_equals("hole-neq", tequals({ [42] = 1 }, { [42] = 2 }), false)
end)

test "tequals-recursion-eq" (function()
  local lhs = { }
  lhs[lhs] = lhs

  local rhs = { }
  rhs[lhs] = lhs

  ensure_equals("recursion-eq", tequals(lhs, rhs), true)
end)

test "tequals-recursion-neq" (function()
  local lhs = { }
  lhs[lhs] = lhs

  local rhs = { }
  rhs[rhs] = rhs

  ensure_equals("reqursion-neq", tequals(lhs, rhs), false)
end)

test "tequals-recursion-self" (function()
  local t = { }
  t[t] = t

  ensure_equals("recursion-self", tequals(t, t), true)
end)

--------------------------------------------------------------------------------

test:group "tiwalk"

--------------------------------------------------------------------------------

test "tiwalk-empty-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = tiwalk(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalk-empty-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = tiwalk(fn, t, 42)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalk-counter-noargs" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = tiwalk(fn, t)
  ensure_equals("function called", c, 3)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalk-counter-args" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, k)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = tiwalk(fn, t, k)
  ensure_equals("function called", c, 3)
  ensure_equals("returned nil", r, nil)
end)

--------------------------------------------------------------------------------

test:group "tiwalker"

--------------------------------------------------------------------------------

test "tiwalker-empty-noargs" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = tiwalker(fn)(t)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalker-empty-args" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = tiwalker(fn)(t, 42)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalker-counter-noargs" (function()
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil)
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = tiwalker(fn)(t)
  ensure_equals("function called", c, 3)
  ensure_equals("returned nil", r, nil)
end)

test "tiwalker-counter-args" (function()
  local k = { }
  local c = 0
  local fn = function(a, b)
    c = c + 1
    ensure_equals("check a", a, c * 10)
    ensure_equals("check b", b, nil) -- Arguments not passed through
    return a + c
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local r = tiwalker(fn)(t, k)
  ensure_equals("function called", c, 3)
  ensure_equals("returned nil", r, nil)
end)

--------------------------------------------------------------------------------

test:group "tiunique"

--------------------------------------------------------------------------------

test "tiunique-empty" (function()
  ensure_tequals("empty", tiunique({ }), { })
end)

test "tiunique-single" (function()
  ensure_tequals("simple", tiunique({ [1] = 42 }), { [1] = 42 })
end)

test "tiunique-hole" (function()
  ensure_tequals("hole ignored", tiunique({ [42] = 1 }), { })
end)

test "tiunique-hash" (function()
  ensure_tequals("hash ignored", tiunique({ ["a"] = 42 }), { })
end)

test "tiunique-duplicate" (function()
  ensure_tequals("duplicate", tiunique({ [1] = 42, [2] = 42 }), { [1] = 42 })
end)

test "tiunique-duplicate-hash" (function()
  ensure_tequals(
      "duplicate hash ignored",
      tiunique({ [1] = 42, ["a"] = 42 }),
      { [1] = 42 }
    )
end)

test "tiunique-recursive" (function()
  local t = { }
  t[1] = t
  ensure_tequals("recursive", tiunique(t), t)
end)

test "tiunique-many" (function()
  local k = { }
  local t = { [1] = 42, [2] = 42, a = k, [k] = 42 }

   ensure_tequals("many", tiunique(t), { [1] = 42 })
end)

--------------------------------------------------------------------------------

test:group "tgenerate_n"

--------------------------------------------------------------------------------

test "tgenerate_n_0" (function()
  ensure_tequals("zero", tgenerate_n(0, function() return 42 end), { })
end)

test "tgenerate_n_1" (function()
  ensure_tequals("one", tgenerate_n(1, function() return 42 end), { 42 })
end)

test "tgenerate_n_multret" (function()
  ensure_tequals("one", tgenerate_n(1, function() return 42, 1 end), { 42 })
end)

test "tgenerate_n_args" (function()
  ensure_tequals("args", tgenerate_n(1, function(a) return a end, 42), { 42 })
end)

test "tgenerate_n_5" (function()
  ensure_tequals(
      "five",
      tgenerate_n(5, function() return 42 end),
      { 42, 42, 42, 42, 42 }
    )
end)

test "tgenerate_n_nil" (function()
  ensure_tequals(
      "nil",
      tgenerate_n(5, function() return nil end),
      { nil, nil, nil, nil, nil }
    )
end)

--------------------------------------------------------------------------------

test:group "taccumulate"

--------------------------------------------------------------------------------

test "taccumulate-empty" (function()
  ensure_equals("empty default", taccumulate({ }), 0)
  ensure_equals("empty 0", taccumulate({ }, 0), 0)
  ensure_equals("empty 1", taccumulate({ }, 1), 1)
end)

test "taccumulate-array" (function()
  ensure_equals("array", taccumulate({ 1, 2, 3 }), 6)
end)

test "taccumulate-array-hole" (function()
  ensure_equals("array", taccumulate({ 1, 2, nil, nil, nil, 3 }), 6)
end)

test "taccumulate-hash" (function()
  ensure_equals("hash", taccumulate({ a = 1, b = 2, c = 3 }), 6)
end)

test "taccumulate-mixed" (function()
  ensure_equals("mixed", taccumulate({ 3, -1, a = -1, b = 2, c = 3 }), 6)
end)

--------------------------------------------------------------------------------

test:group "tnormalize"

--------------------------------------------------------------------------------

test "tnormalize-empty" (function()
  local data = { }
  local expected_default, expected_sum = { }, { }
  local result_default = tnormalize(data)
  local result_sum = tnormalize(data, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("not inplace default", data ~= result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("not inplace sum", data ~= result_sum)
end)

test "tnormalize-simple" (function()
  local data = { 3 }
  local expected_default, expected_sum = { 3 / 3 }, { 3 / 30 }
  local result_default = tnormalize(data)
  local result_sum = tnormalize(data, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("not inplace default", data ~= result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("not inplace sum", data ~= result_sum)
end)

test "tnormalize-mixed" (function()
  local data = { a = 2, 3 }
  local expected_default, expected_sum = { a = 2 / 5, 3 / 5 }, { a = 2 / 30, 3 / 30 }
  local result_default = tnormalize(data)
  local result_sum = tnormalize(data, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("not inplace default", data ~= result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("not inplace sum", data ~= result_sum)
end)

--------------------------------------------------------------------------------

test:group "tnormalize_inplace"

--------------------------------------------------------------------------------

test "tnormalize_inplace-empty" (function()
  local data_default, data_sum = { }, { }
  local expected_default, expected_sum = { }, { }
  local result_default = tnormalize_inplace(data_default)
  local result_sum = tnormalize_inplace(data_sum, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("inplace default", data_default == result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("inplace sum", data_sum == result_sum)
end)

test "tnormalize_inplace-simple" (function()
  local data_default, data_sum = { 3 }, { 3 }
  local expected_default, expected_sum = { 3 / 3 }, { 3 / 30 }
  local result_default = tnormalize_inplace(data_default)
  local result_sum = tnormalize_inplace(data_sum, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("inplace default", data_default == result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("inplace sum", data_sum == result_sum)
end)

test "tnormalize_inplace-mixed" (function()
  local data_default, data_sum = { a = 2, 3 }, { a = 2, 3 }
  local expected_default, expected_sum = { a = 2 / 5, 3 / 5 }, { a = 2 / 30, 3 / 30 }
  local result_default = tnormalize_inplace(data_default)
  local result_sum = tnormalize_inplace(data_sum, 30)

  ensure_tequals("empty default", result_default, expected_default)
  ensure("inplace default", data_default == result_default)

  ensure_tequals("empty sum", result_sum, expected_sum)
  ensure("inplace sum", data_sum == result_sum)
end)

--------------------------------------------------------------------------------

test:group "tclone"

--------------------------------------------------------------------------------

test "tclone-nontable" (function()
  ensure_equals("noarg", tclone(), nil) -- Arbitrary limitation. This allowed to fail if is implemented in C.
  ensure_equals("nil", tclone(nil), nil)
  ensure_equals("boolean-false", tclone(false), false)
  ensure_equals("boolean-true", tclone(true), true)
  ensure_equals("number", tclone(42), 42)
  ensure_equals("string", tclone("a"), "a")

  local f = function() end
  ensure_equals("function", tclone(f), f)

  local c = coroutine.create(function() end)
  ensure_equals("function", tclone(c), c)

  local u = newproxy()
  ensure_equals("function", tclone(u), u)
end)

do
  local check_tclone = function(name, value, expected)
    expected = expected or value

    arguments(
        "string", name,
        "table", value,
        "table", expected
      )

    local actual = tclone(value)

    ensure("actual is a copy", actual ~= value)
    ensure_tdeepequals("actual contents match original", actual, expected)

    return actual
  end

  test "tclone-simple" (function()
    check_tclone("empty table", {})
    check_tclone("simple table", { 42, a = 1 })
    check_tclone("subtables", { [{ 1 }] = { 2 } })
  end)

  test "tclone-links-broken" (function()
    local t = { }

    local actual = check_tclone("subtables", { t, t }, { { }, { } })

    ensure("subtable copied", actual[1] ~= t and actual[2] ~= t)
    ensure("subtable links broken", actual[1] ~= actual[2]) -- Equality is checked above
  end)
end

test "tclone-nesting-fails" (function()
  local t = { }
  t[t] = t
  t[1] = t

  ensure_fails_with_substring(
      "recursion fails",
      function() tclone(t) end,
      "recursion detected"
    )
end)

--------------------------------------------------------------------------------

test:group "tcount_elements"

--------------------------------------------------------------------------------

test "tcount_elements-empty" (function()
  ensure_equals("empty", tcount_elements({}), 0)
end)

test "tcount_elements-array-single" (function()
  ensure_equals("array-single", tcount_elements({ 42 }), 1)
end)

test "tcount_elements-array-hole" (function()
  ensure_equals("array-hole", tcount_elements({ 1, 2, nil, nil, 3, nil }), 3)
end)

test "tcount_elements-hash" (function()
  ensure_equals(
      "hash",
      tcount_elements({ 42, a = 2, b = nil }),
      2
    )
end)

--------------------------------------------------------------------------------

test:group "tremap_to_array"

--------------------------------------------------------------------------------

test "tremap_to_array-empty" (function()
  local fn = function(k, v)
    return { k, v }
  end

  ensure_tequals("empty", tremap_to_array(fn, { }), { })
end)

test "tremap_to_array-mixed" (function()
  local fn = function(k, v)
    return { k, v }
  end

  -- NOTE: Have to use tset here due to undefined hash-part traversal order.
  ensure_tdeepequals(
      "mixed",
      tset(tremap_to_array(fn, { 3, -1, a = -1, b = 2, c = 3 })),
      tset
      {
        { 1, 3 };
        { 2, -1 };
        { "a", -1 };
        { "b", 2 };
        { "c", 3 };
      }
    )
end)

--------------------------------------------------------------------------------

test:group "twalk_pairs"

--------------------------------------------------------------------------------

test "twalk_pairs-empty" (function()
  local c = 0
  local fn = function() c = c + 1 end
  local t = { }
  local r = twalk_pairs(fn, t)
  ensure_equals("function not called", c, 0)
  ensure_equals("returned nil", r, nil)
end)

test "twalk_pairs-counter" (function()
  local results = { }
  local fn = function(k, v, extra)
    ensure_equals("extra is nil", extra, nil)
    results[k] = v
  end
  local t = { 10, 20, 30, ["a"] = 42 }
  local t_orig = tclone(t)
  local r = twalk_pairs(fn, t, 42)
  ensure_equals("returned nil", r, nil)
  ensure_tequals("argument unchanged", t, t_orig)
  ensure_tequals("check results", results, t_orig)
end)

--------------------------------------------------------------------------------

test:group "tslice"

--------------------------------------------------------------------------------

test "tslice_regular" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "regular tslice",
      tslice(t, 2, 4),
      { 2, 3, 4}
    )
end)

test "tslice_out_of_right_range" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "right index is out of range",
      tslice(t, 2, 6),
      { 2, 3, 4, 5 }
    )
end)

test "tslice_out_of_left_range" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "left index is out of range",
      tslice(t, -1, 3),
      { 1, 2, 3 }
    )
end)

test "tslice_both_out_of_range" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "both indices are out of range",
      tslice(t, -1, 6),
      t
    )
end)

test "tslice_left_index_exceeds_right" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "left index exceeds the right one",
      tslice(t, 4, 2),
      { }
    )
end)

test "tslice_left_index_equals_to_right" (function()
  local t = { 1, 2, 3, 4, 5 }
  ensure_tequals(
      "left index equals to the right one",
      tslice(t, 3, 3),
      { 3 }
    )
end)

test "tslice_empty_table" (function()
  local t = { }
  ensure_tequals(
      "input table is empty",
      tslice(t, 1, 5),
      { }
    )
end)

test "tslice_table_contains_nil" (function()
  local t = { 1, nil, 3, nil, nil, 6 }

  ensure_tequals(
      "input table contains nil",
      tslice(t, 1, 6),
      { 1, nil, 3, nil, nil, 6 }
    )
end)

--------------------------------------------------------------------------------

test:group "tarraylisttohashlist"

--------------------------------------------------------------------------------

test "tarraylisttohashlist_regular" (function()
  local t = { { 10, 20 }, { 30, 40 } }

  ensure_tdeepequals(
      "regular tarraylisttohashlist",
      tarraylisttohashlist(t, "a", "b"),
      { { a = 10, b = 20 }, { a = 30, b = 40 } }
    )
end)

test "tarraylisttohashlist_empty_table" (function()
  local t = { }

  ensure_tdeepequals(
      "tarraylisttohashlist input table is empty",
      tarraylisttohashlist(t, "a", "b"),
      { }
    )
end)

test "tarraylisttohashlist_empty_table_2" (function()
  local t = { {}, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist input table contains empty table",
      tarraylisttohashlist(t, "a", "b"),
      { { }, { a = 30, b = 40 } }
    )
end)

test "tarraylisttohashlist_empty_argument_list" (function()
  local t = { { 10, 20 }, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist argument list is empty",
      tarraylisttohashlist(t),
      { { }, { } }
    )
end)

test "tarraylisttohashlist_empty_params" (function()
  local t = { }

  ensure_tdeepequals(
      "tarraylisttohashlist both params are empty",
      tarraylisttohashlist(t),
      { }
    )
end)

test "tarraylisttohashlist_nil_in_table" (function()
  local t = { { nil, 20 }, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist input table contains nil",
      tarraylisttohashlist(t, "a", "b"),
      { { a = nil, b = 20 }, { a = 30, b = 40 } }
    )
end)

test "tarraylisttohashlist_nil_in_arguments" (function()
  local t = { { 10, 20 }, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist argument list contains nil",
      tarraylisttohashlist(t, nil, "b"),
      { { b = 20 }, { b = 40 } }
    )
end)

test "tarraylisttohashlist_length_not_matches" (function()
  local t = { { 10, 20 }, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist too many values",
      tarraylisttohashlist(t, "a"),
      { { a = 10 }, { a = 30 } }
    )
end)

test "tarraylisttohashlist_length_not_matches_2" (function()
  local t = { { 10 }, { 30, 40 } }

  ensure_tdeepequals(
      "tarraylisttohashlist too many arguments",
      tarraylisttohashlist(t, "a", "b"),
      { { a = 10 }, { a = 30, b = 40 } }
    )
end)

--------------------------------------------------------------------------------

test:group "tarraytohash"

--------------------------------------------------------------------------------

test "tarraytohash_regular" (function()
  local t = { 10, 20 }

  ensure_tdeepequals(
      "regular tarraytohash",
      tarraytohash(t, "a", "b"),
      { a = 10, b = 20 }
    )
end)

test "tarraytohash_empty_table" (function()
  local t = { }

  ensure_tdeepequals(
      "tarraytohash input table is empty",
      tarraytohash(t, "a", "b"),
      { }
    )
end)

test "tarraytohash_empty_argument_list" (function()
  local t = { 10, 20 }

  ensure_tdeepequals(
      "tarraytohash argument list is empty",
      tarraytohash(t),
      { }
    )
end)

test "tarraytohash_empty_params" (function()
  local t = { }

  ensure_tdeepequals(
      "tarraytohash both params are empty",
      tarraytohash(t),
      { }
    )
end)

test "tarraytohash_nil_in_table" (function()
  local t = { nil, 20 }

  ensure_tdeepequals(
      "tarraytohash input table contains nil",
      tarraytohash(t, "a", "b"),
      { a = nil, b = 20 }
    )
end)

test "tarraytohash_nil_in_arguments" (function()
  local t = { 10, 20 }

  ensure_tdeepequals(
      "tarraytohash argument list contains nil",
      tarraytohash(t, nil, "b"),
      { b = 20 }
    )
end)

test "tarraytohash_length_not_matches" (function()
  local t = { 10, 20 }

  ensure_tdeepequals(
      "tarraytohash too many values",
      tarraytohash(t, "a"),
      { a = 10 }
    )
end)

--------------------------------------------------------------------------------

test:group "tsetpathvalue"

--------------------------------------------------------------------------------

test "tsetpathvalue_basic" (function()
  local value = 42
  local dest = { }
  local d = 'some key'
  local path = { "a", "b", "c", d }

  tsetpathvalue(value, dest, unpack(path))
  ensure_tdeepequals(
      'basic tsetpathvalue',
      dest,
      { ["a"] = { ["b"] = { ["c"] = { [d] = value } } } }
    )
end)

test "tsetpathvalue_destination_is_filled_ok" (function()
  local value = 42
  local d = 'some key'
  local dest = { ["a"] = { ["b"] = { ["c"] = { [d] = 'not 42' } } } }
  local path = { "a", "b", "c", d }

  tsetpathvalue(value, dest, unpack(path))
  ensure_tdeepequals(
      'tsetpathvalue destination table already contanis keys form the path',
      dest,
      { ["a"] = { ["b"] = { ["c"] = { [d] = value } } } }
    )
end)

test "tsetpathvalue_destination_is_filled_not_ok" (function()
  local value = 42
  local d = 'some key'
  local dest = { ["a"] = { ["b"] = { ["c"] = '42' } } }
  local path = { "a", "b", "c", d }

  ensure_fails_with_substring(
      'value of existing key in the destination table is not a table',
      function() tsetpathvalue(value, dest, unpack(path)) end,
      "already exists and its value is not a table"
    )
end)

test "tsetpathvalue_path_of_single_key" (function()
  local value = 42
  local dest = { }
  local d = 'some key'
  local path = { d }

  tsetpathvalue(value, dest, unpack(path))
  ensure_tdeepequals(
      'tsetpathvalue path contains single key',
      dest,
      { [d] = value}
    )
end)

test "tsetpathvalue_empty_path" (function()
  local value = 42
  local dest = { }
  -- no path - no value assignment, destination table will not be changed
  local path = { }

  tsetpathvalue(value, dest, unpack(path))
  ensure_tdeepequals(
      'tsetpathvalue empty path, empty dest',
      dest,
      { }
    )

  dest = { ["1"] = 1, ["2"] = 2, ["3"] = { 3 } }

  tsetpathvalue(value, dest, unpack(path))
  ensure_tdeepequals(
      'tsetpathvalue empty path, filled dest',
      dest,
      { ["1"] = 1, ["2"] = 2, ["3"] = { 3 } }
    )
end)

test "tsetpathvalue_nil_in_the middle" (function()
  local value = 42
  local dest = { }
  local d = 'some key'
  local path = { "a", nil, "c", d }

  ensure_fails_with_substring(
      'tsetpathvalue path contains nil in the middle',
      function() tsetpathvalue(value, dest, unpack(path)) end,
      "tsetpathvalue: nil can't be a table key"
    )
end)

test "tsetpathvalue_nil_in_the_end" (function()
  local value = 42
  local dest = { }

  ensure_fails_with_substring(
      'tsetpathvalue end key is nil',
      function() tsetpathvalue(value, dest, nil) end,
      "tsetpathvalue: nil can't be a table key"
    )
end)

--------------------------------------------------------------------------------

test:group "tsetpath"

--------------------------------------------------------------------------------

test "tsetpath_basic" (function()
  local dest = { }
  local d = 'some key'
  local path = { "a", "b", "c", d }

  tsetpath(dest, unpack(path))
  ensure_tdeepequals(
      'basic tsetpath',
      dest,
      { ["a"] = { ["b"] = { ["c"] = { [d] = { } } } } }
    )
end)

test "tsetpath_destination_is_filled_ok" (function()
  local d = 'some key'
  local dest = { ["a"] = { ["b"] = { ["c"] = { } } } }
  local path = { "a", "b", "c", d }

  tsetpath(dest, unpack(path))
  ensure_tdeepequals(
      'tsetpath destination table already contanis keys form the path',
      dest,
      { ["a"] = { ["b"] = { ["c"] = { [d] = { } } } } }
    )
end)

test "tsetpath_destination_is_filled_not_ok" (function()
  local d = 'some key'
  local dest = { ["a"] = { ["b"] = { ["c"] = '42' } } }
  local path = { "a", "b", "c", d }

  ensure_fails_with_substring(
      'value of existing key in the destination table is not a table',
      function() tsetpath(dest, unpack(path)) end,
      "already exists and its value is not a table"
    )
end)

test "tsetpath_path_of_single_key" (function()
  local dest = { }
  local d = 'some key'
  local path = { d }

  tsetpath(dest, unpack(path))
  ensure_tdeepequals(
      'tsetpath path contains single key',
      dest,
      { [d] = { } }
    )
end)

test "tsetpath_empty_path" (function()
  local dest = { }
  -- no path - no value assignment, destination table will not be changed
  local path = { }

  tsetpath(dest, unpack(path))
  ensure_tdeepequals(
      'tsetpath empty path, empty dest',
      dest,
      { }
    )

  dest = { ["a"] = { ["b"] = { ["c"] = { } } } }

  tsetpath(dest, unpack(path))
  ensure_tdeepequals(
      'tsetpath empty path, filled dest',
      dest,
      { ["a"] = { ["b"] = { ["c"] = { } } } }
    )
end)

test "tsetpath_nil_in_the middle" (function()
  local dest = { }
  local d = 'some key'
  local path = { "a", nil, "c", d }

  ensure_fails_with_substring(
      'tsetpath path contains nil in the middle',
      function() tsetpath(dest, unpack(path)) end,
      "tsetpath: nil can't be a table key"
    )
end)

test "tsetpath_nil_in_the_end" (function()
  local dest = { }

  ensure_fails_with_substring(
      'tsetpath end key is nil',
      function() tsetpath(dest, nil) end,
      "tsetpath: nil can't be a table key"
    )
end)

--------------------------------------------------------------------------------

test:group "tkvlist2kvpairs"

--------------------------------------------------------------------------------

test "tkvlist2kvpairs_regular" (function()
  local t = { "field_1", "value_1", "field_2", "value_2" }

  ensure_tdeepequals(
      "regular tkvlist2kvpairs",
      tkvlist2kvpairs(t),
      { ["field_1"] = "value_1", ["field_2"] = "value_2" }
    )
end)

test "tkvlist2kvpairs_empty_table" (function()
  local t = { }

  ensure_tdeepequals(
      "tkvlist2kvpairs input table is empty",
      tkvlist2kvpairs(t),
      { }
    )
end)

test "tkvlist2kvpairs_nil_in_table_keys" (function()
  local t = { nil, "value_1", "field_2", "value_2" }

  ensure_tdeepequals(
      "tkvlist2kvpairs input table contains nil",
      tkvlist2kvpairs(t),
      { ["field_2"] = "value_2" }
    )
end)

test "tkvlist2kvpairs_nil_in_table_values" (function()
  local t = { "field_1", nil, "field_2", "value_2" }

  ensure_tdeepequals(
      "tkvlist2kvpairs input table contains nil",
      tkvlist2kvpairs(t),
      { ["field_1"] = nil, ["field_2"] = "value_2" }
    )
end)

test "tkvlist2kvpairs_odd_number_elements_in_table" (function()
  local t = { "field_1", "value_1", "field_2" }

  ensure_tdeepequals(
      "tkvlist2kvpairs odd number of elements in the table",
      tkvlist2kvpairs(t),
      { ["field_1"] = "value_1", ["field_2"] = nil }
    )
end)

--------------------------------------------------------------------------------

test:group "tfilterkeylist"

--------------------------------------------------------------------------------

test "tfilterkeylist_regular_nonstrict" (function()
  local t =
  {
    ["a"] = 1;
    ["b"] = 2;
    ["c"] = 3;
  }
  local f = { "a", "b" }

  ensure_tdeepequals(
      "regular tfilterkeylist /nonstrict/",
      tfilterkeylist(t, f),
      { ["a"] = 1, ["b"] = 2 }
    )
end)

test "tfilterkeylist_regular_strict" (function()
  local t =
  {
    ["a"] = 1;
    ["b"] = 2;
    ["c"] = 3;
  }
  local f = { "a", "b" }

  ensure_tdeepequals(
      "regular tfilterkeylist /nonstrict/",
      tfilterkeylist(t, f),
      { ["a"] = 1, ["b"] = 2 }
    )
end)

test "tfilterkeylist_empty_table_strict" (function()
  local t = { }
  local f = { "a", "b" }

  ensure_error(
      "tfilterkeylist with empty /strict/",
      "Field a is absent",
      tfilterkeylist(t, f, true)
    )
end)

test "tfilterkeylist_empty_table_nonstrict" (function()
  local t = { }
  local f = { "a", "b" }

  ensure_tdeepequals(
      "tfilterkeylist with empty /nonstrict/",
      tfilterkeylist(t, f, false),
      { }
    )
end)

test "tfilterkeylist_empty_fields_list_strict" (function()
  local t =
  {
    ["a"] = 1;
    ["b"] = 2;
    ["c"] = 3;
  }
  local f = { }

  ensure_tdeepequals(
      "tfilterkeylist with empty fields list/strict/",
      tfilterkeylist(t, f, false),
      { }
    )
end)

--------------------------------------------------------------------------------

test:group "tkvmap_unpack"

--------------------------------------------------------------------------------

local find = function(t, value)
  for i = 1, #t do
    if t[i] == value then
      return i
    end
  end
  return false
end

test "tkvmap_unpack_simple" (function()
  local t =
  {
    ["a"] = 1;
    ["b"] = 2;
  }
  local r = { tkvmap_unpack(tostring, t) }
  ensure_equals( "size", #r, 4)
  local index = find(r, "a")
  ensure( "'a' found", index )
  ensure_equals( "value after key", r[index + 1], "1" )
  index = find(r, "b")
  ensure( "'b' found", index )
  ensure_equals( "value after key", r[index + 1], "2" )
end)

test "tkvmap_unpack_array" (function()
  local t =
  {
    "a";
    "b";
  }
  local r = { tkvmap_unpack(tostring, t) }
  ensure_equals( "size", #r, 4)
  local index = find(r, "1")
  ensure( "'1' found", index )
  ensure_equals( "value after key", r[index + 1], "a" )
  index = find(r, "2")
  ensure( "'2' found", index )
  ensure_equals( "value after key", r[index + 1], "b" )
end)

--------------------------------------------------------------------------------

test:group "tkvlist_to_hash"

--------------------------------------------------------------------------------

test "tkvlist_to_hash_simple" (function()
  ensure_tdeepequals(
      "tkvlist_to_hash simple",
      tkvlist_to_hash(
          {
            "key1",
            "value1",
            "key2",
            "value2"
          }
        ),
      { key1 = "value1", key2 = "value2" }
    )
end)

test "tkvlist_to_hash_not_array" (function()
  local t =
  {
    key1 = 1,
    key2 = 2,
  }
  ensure_tdeepequals(
      "tkvlist_to_hash_not_array",
      tkvlist_to_hash(
          { key1 = 1, key2 = 2 }
        ),
      { }
    )
end)

test "tkvlist_to_hash_odd_array" (function()
  local t =
  ensure_tdeepequals(
      "tkvlist_to_hash_odd_array",
      tkvlist_to_hash(
          {
            "key",
            "value",
            "garbage"
          }
        ),
      { key = "value" }
    )
end)

test "tkvlist_to_hash_empty_table" (function()
  local t =
  ensure_tdeepequals(
      "tkvlist_to_hash_empty_table",
      tkvlist_to_hash({ }),
      { }
    )
end)

--------------------------------------------------------------------------------

test:UNTESTED 'tmap_values'
test:UNTESTED 'torderedset'
test:UNTESTED 'torderedset_insert'
test:UNTESTED 'torderedset_remove'
test:UNTESTED 'twithdefaults'
test:UNTESTED 'tifilter'
test:UNTESTED 'tsetof'
test:UNTESTED 'tset_many'
test:UNTESTED 'tidentityset'
test:UNTESTED 'timapofrecords'
test:UNTESTED 'tivalues'
test:UNTESTED 'treadonly'
test:UNTESTED 'treadonly_ex'
test:UNTESTED 'tmap_kv'
test:UNTESTED 'tmapofrecordgroups'
test:UNTESTED 'timapofrecordgroups'
test:UNTESTED 'tilistofrecordfields'
test:UNTESTED 'tipermute_inplace'
test:UNTESTED 'tkvtorecordlist'
test:UNTESTED 'tgetpath'
test:UNTESTED 'tisempty'
test:UNTESTED 'tifindvalue_nonrecursive'
test:UNTESTED 'tgenerate_1d_linear'
test:UNTESTED 'tgenerate_2d_linear'