runtime: Add autoload/msgpack.vim helper file

1 files changed, 684 insertions, 0 deletions

diff --git a/test/functional/plugin/msgpack_spec.lua b/test/functional/plugin/msgpack_spec.lua
new file mode 100644
index 0000000000..7fd280e703
--- /dev/null
+++ b/test/functional/plugin/msgpack_spec.lua
@@ -0,0 +1,684 @@
+local helpers = require('test.functional.helpers')
+local eq, nvim_eval, nvim_command, exc_exec =
+  helpers.eq, helpers.eval, helpers.command, helpers.exc_exec
+
+local plugin_helpers = require('test.functional.plugin.helpers')
+local reset = plugin_helpers.reset
+
+describe('In autoload/msgpack.vim', function()
+  before_each(reset)
+
+  local sp = function(typ, val)
+    return ('{"_TYPE": v:msgpack_types.%s, "_VAL": %s}'):format(typ, val)
+  end
+  local mapsp = function(...)
+    local val = ''
+    for i=1,(select('#', ...)/2) do
+      val = ('%s[%s,%s],'):format(val, select(i * 2 - 1, ...),
+                                  select(i * 2, ...))
+    end
+    return sp('map', '[' .. val .. ']')
+  end
+
+  describe('function msgpack#equal', function()
+    local msgpack_eq = function(expected, a, b)
+      eq(expected, nvim_eval(('msgpack#equal(%s, %s)'):format(a, b)))
+      if a ~= b then
+        eq(expected, nvim_eval(('msgpack#equal(%s, %s)'):format(b, a)))
+      end
+    end
+    it('compares raw integers correctly', function()
+      msgpack_eq(1, '1', '1')
+      msgpack_eq(0, '1', '0')
+    end)
+    it('compares integer specials correctly', function()
+      msgpack_eq(1, sp('integer', '[-1, 1, 0, 0]'),
+                    sp('integer', '[-1, 1, 0, 0]'))
+      msgpack_eq(0, sp('integer', '[-1, 1, 0, 0]'),
+                    sp('integer', '[ 1, 1, 0, 0]'))
+    end)
+    it('compares integer specials with raw integer correctly', function()
+      msgpack_eq(1, sp('integer', '[-1, 0, 0, 1]'), '-1')
+      msgpack_eq(0, sp('integer', '[-1, 0, 0, 1]'), '1')
+      msgpack_eq(0, sp('integer', '[ 1, 0, 0, 1]'), '-1')
+      msgpack_eq(1, sp('integer', '[ 1, 0, 0, 1]'), '1')
+    end)
+    it('compares integer with float correctly', function()
+      msgpack_eq(0, '0', '0.0')
+    end)
+    it('compares raw binaries correctly', function()
+      msgpack_eq(1, '"abc\\ndef"', '"abc\\ndef"')
+      msgpack_eq(0, '"abc\\ndef"', '"abc\\nghi"')
+    end)
+    it('compares binary specials correctly', function()
+      msgpack_eq(1, sp('binary', '["abc\\n", "def"]'),
+                    sp('binary', '["abc\\n", "def"]'))
+      msgpack_eq(0, sp('binary', '["abc", "def"]'),
+                    sp('binary', '["abc\\n", "def"]'))
+    end)
+    it('compares binary specials with raw binaries correctly', function()
+      msgpack_eq(1, sp('binary', '["abc", "def"]'), '"abc\\ndef"')
+      msgpack_eq(0, sp('binary', '["abc", "def"]'), '"abcdef"')
+    end)
+    it('compares string specials correctly', function()
+      msgpack_eq(1, sp('string', '["abc\\n", "def"]'),
+                    sp('string', '["abc\\n", "def"]'))
+      msgpack_eq(0, sp('string', '["abc", "def"]'),
+                    sp('string', '["abc\\n", "def"]'))
+    end)
+    it('compares string specials with binary correctly', function()
+      msgpack_eq(0, sp('string', '["abc\\n", "def"]'),
+                    sp('binary', '["abc\\n", "def"]'))
+      msgpack_eq(0, sp('string', '["abc", "def"]'), '"abc\\ndef"')
+      msgpack_eq(0, sp('binary', '["abc\\n", "def"]'),
+                    sp('string', '["abc\\n", "def"]'))
+      msgpack_eq(0, '"abc\\ndef"', sp('string', '["abc", "def"]'))
+    end)
+    it('compares ext specials correctly', function()
+      msgpack_eq(1, sp('ext', '[1, ["", "ac"]]'), sp('ext', '[1, ["", "ac"]]'))
+      msgpack_eq(0, sp('ext', '[2, ["", "ac"]]'), sp('ext', '[1, ["", "ac"]]'))
+      msgpack_eq(0, sp('ext', '[1, ["", "ac"]]'), sp('ext', '[1, ["", "abc"]]'))
+    end)
+    it('compares raw maps correctly', function()
+      msgpack_eq(1, '{"a": 1, "b": 2}', '{"b": 2, "a": 1}')
+      msgpack_eq(1, '{}', '{}')
+      msgpack_eq(0, '{}', '{"a": 1}')
+      msgpack_eq(0, '{"a": 2}', '{"a": 1}')
+      msgpack_eq(0, '{"a": 1}', '{"b": 1}')
+      msgpack_eq(0, '{"a": 1}', '{"a": 1, "b": 1}')
+      msgpack_eq(0, '{"a": 1, "b": 1}', '{"b": 1}')
+    end)
+    it('compares map specials correctly', function()
+      msgpack_eq(1, mapsp(), mapsp())
+      msgpack_eq(1, mapsp(sp('binary', '[""]'), '""'),
+                    mapsp(sp('binary', '[""]'), '""'))
+      msgpack_eq(1, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('1', '1'), mapsp('1', '1')))
+      msgpack_eq(0, mapsp(), mapsp('1', '1'))
+      msgpack_eq(0, mapsp(sp('binary', '["a"]'), '""'),
+                    mapsp(sp('binary', '[""]'), '""'))
+      msgpack_eq(0, mapsp(sp('binary', '[""]'), '"a"'),
+                    mapsp(sp('binary', '[""]'), '""'))
+      msgpack_eq(0, mapsp(sp('binary', '["a"]'), '"a"'),
+                    mapsp(sp('binary', '[""]'), '""'))
+      msgpack_eq(0, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(sp('binary', '[""]'), mapsp('1', '1')))
+      msgpack_eq(0, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('2', '1'), mapsp('1', '1')))
+      msgpack_eq(0, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('1', '2'), mapsp('1', '1')))
+      msgpack_eq(0, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('1', '1'), mapsp('2', '1')))
+      msgpack_eq(0, mapsp(mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('1', '1'), mapsp('1', '2')))
+      msgpack_eq(1, mapsp(mapsp('2', '1'), mapsp('1', '1'),
+                          mapsp('1', '1'), mapsp('1', '1')),
+                    mapsp(mapsp('1', '1'), mapsp('1', '1'),
+                          mapsp('2', '1'), mapsp('1', '1')))
+    end)
+    it('compares map specials with raw maps correctly', function()
+      msgpack_eq(1, mapsp(), '{}')
+      msgpack_eq(1, mapsp(sp('string', '["1"]'), '1'), '{"1": 1}')
+      msgpack_eq(1, mapsp(sp('string', '["1"]'), sp('integer', '[1, 0, 0, 1]')),
+                    '{"1": 1}')
+      msgpack_eq(0, mapsp(sp('integer', '[1, 0, 0, 1]'), sp('string', '["1"]')),
+                    '{1: "1"}')
+      msgpack_eq(0, mapsp('"1"', sp('integer', '[1, 0, 0, 1]')),
+                    '{"1": 1}')
+      msgpack_eq(0,
+                 mapsp(sp('string', '["1"]'), '1', sp('string', '["2"]'), '2'),
+                 '{"1": 1}')
+      msgpack_eq(0, mapsp(sp('string', '["1"]'), '1'), '{"1": 1, "2": 2}')
+    end)
+    it('compares raw arrays correctly', function()
+      msgpack_eq(1, '[]', '[]')
+      msgpack_eq(0, '[]', '[1]')
+      msgpack_eq(1, '[1]', '[1]')
+      msgpack_eq(1, '[[[1]]]', '[[[1]]]')
+      msgpack_eq(0, '[[[2]]]', '[[[1]]]')
+    end)
+    it('compares array specials correctly', function()
+      msgpack_eq(1, sp('array', '[]'), sp('array', '[]'))
+      msgpack_eq(0, sp('array', '[]'), sp('array', '[1]'))
+      msgpack_eq(1, sp('array', '[1]'), sp('array', '[1]'))
+      msgpack_eq(1, sp('array', '[[[1]]]'), sp('array', '[[[1]]]'))
+      msgpack_eq(0, sp('array', '[[[1]]]'), sp('array', '[[[2]]]'))
+    end)
+    it('compares array specials with raw arrays correctly', function()
+      msgpack_eq(1, sp('array', '[]'), '[]')
+      msgpack_eq(0, sp('array', '[]'), '[1]')
+      msgpack_eq(1, sp('array', '[1]'), '[1]')
+      msgpack_eq(1, sp('array', '[[[1]]]'), '[[[1]]]')
+      msgpack_eq(0, sp('array', '[[[1]]]'), '[[[2]]]')
+    end)
+    it('compares raw floats correctly', function()
+      msgpack_eq(1, '0.0', '0.0')
+      msgpack_eq(1, '(1.0/0.0-1.0/0.0)', '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, '(1.0/0.0-1.0/0.0)', '-(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, '-(1.0/0.0-1.0/0.0)', '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(1, '-(1.0/0.0-1.0/0.0)', '-(1.0/0.0-1.0/0.0)')
+      msgpack_eq(1, '1.0/0.0', '1.0/0.0')
+      msgpack_eq(1, '-(1.0/0.0)', '-(1.0/0.0)')
+      msgpack_eq(1, '0.0', '0.0')
+      msgpack_eq(0, '0.0', '1.0')
+      msgpack_eq(0, '0.0', '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, '0.0', '1.0/0.0')
+      msgpack_eq(0, '0.0', '-(1.0/0.0)')
+      msgpack_eq(0, '1.0/0.0', '-(1.0/0.0)')
+      msgpack_eq(0, '(1.0/0.0-1.0/0.0)', '-(1.0/0.0)')
+      msgpack_eq(0, '(1.0/0.0-1.0/0.0)', '1.0/0.0')
+    end)
+    it('compares float specials with raw floats correctly', function()
+      msgpack_eq(1, sp('float', '0.0'), '0.0')
+      msgpack_eq(1, sp('float', '(1.0/0.0-1.0/0.0)'), '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'), '-(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, sp('float', '-(1.0/0.0-1.0/0.0)'), '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(1, sp('float', '-(1.0/0.0-1.0/0.0)'), '-(1.0/0.0-1.0/0.0)')
+      msgpack_eq(1, sp('float', '1.0/0.0'), '1.0/0.0')
+      msgpack_eq(1, sp('float', '-(1.0/0.0)'), '-(1.0/0.0)')
+      msgpack_eq(1, sp('float', '0.0'), '0.0')
+      msgpack_eq(0, sp('float', '0.0'), '1.0')
+      msgpack_eq(0, sp('float', '0.0'), '(1.0/0.0-1.0/0.0)')
+      msgpack_eq(0, sp('float', '0.0'), '1.0/0.0')
+      msgpack_eq(0, sp('float', '0.0'), '-(1.0/0.0)')
+      msgpack_eq(0, sp('float', '1.0/0.0'), '-(1.0/0.0)')
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'), '-(1.0/0.0)')
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'), '1.0/0.0')
+    end)
+    it('compares float specials correctly', function()
+      msgpack_eq(1, sp('float', '0.0'), sp('float', '0.0'))
+      msgpack_eq(1, sp('float', '(1.0/0.0-1.0/0.0)'),
+                    sp('float', '(1.0/0.0-1.0/0.0)'))
+      msgpack_eq(1, sp('float', '1.0/0.0'), sp('float', '1.0/0.0'))
+      msgpack_eq(1, sp('float', '-(1.0/0.0)'), sp('float', '-(1.0/0.0)'))
+      msgpack_eq(1, sp('float', '0.0'), sp('float', '0.0'))
+      msgpack_eq(0, sp('float', '0.0'), sp('float', '1.0'))
+      msgpack_eq(0, sp('float', '0.0'), sp('float', '(1.0/0.0-1.0/0.0)'))
+      msgpack_eq(0, sp('float', '0.0'), sp('float', '1.0/0.0'))
+      msgpack_eq(0, sp('float', '0.0'), sp('float', '-(1.0/0.0)'))
+      msgpack_eq(0, sp('float', '1.0/0.0'), sp('float', '-(1.0/0.0)'))
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'), sp('float', '-(1.0/0.0)'))
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'),
+                    sp('float', '-(1.0/0.0-1.0/0.0)'))
+      msgpack_eq(1, sp('float', '-(1.0/0.0-1.0/0.0)'),
+                    sp('float', '-(1.0/0.0-1.0/0.0)'))
+      msgpack_eq(0, sp('float', '(1.0/0.0-1.0/0.0)'), sp('float', '1.0/0.0'))
+    end)
+    it('compares boolean specials correctly', function()
+      msgpack_eq(1, sp('boolean', '1'), sp('boolean', '1'))
+      msgpack_eq(0, sp('boolean', '1'), sp('boolean', '0'))
+    end)
+    it('compares nil specials correctly', function()
+      msgpack_eq(1, sp('nil', '1'), sp('nil', '0'))
+    end)
+    it('compares nil, boolean and integer values with each other correctly',
+    function()
+      msgpack_eq(0, sp('boolean', '1'), '1')
+      msgpack_eq(0, sp('boolean', '1'), sp('nil', '0'))
+      msgpack_eq(0, sp('boolean', '1'), sp('nil', '1'))
+      msgpack_eq(0, sp('boolean', '0'), sp('nil', '0'))
+      msgpack_eq(0, sp('boolean', '0'), '0')
+      msgpack_eq(0, sp('boolean', '0'), sp('integer', '[1, 0, 0, 0]'))
+      msgpack_eq(0, sp('boolean', '0'), sp('integer', '[1, 0, 0, 1]'))
+      msgpack_eq(0, sp('boolean', '1'), sp('integer', '[1, 0, 0, 1]'))
+      msgpack_eq(0, sp('nil', '0'), sp('integer', '[1, 0, 0, 0]'))
+      msgpack_eq(0, sp('nil', '0'), '0')
+    end)
+  end)
+
+  describe('function msgpack#is_int', function()
+    it('works', function()
+      eq(1, nvim_eval('msgpack#is_int(1)'))
+      eq(1, nvim_eval('msgpack#is_int(-1)'))
+      eq(1, nvim_eval(('msgpack#is_int(%s)'):format(
+          sp('integer', '[1, 0, 0, 1]'))))
+      eq(1, nvim_eval(('msgpack#is_int(%s)'):format(
+          sp('integer', '[-1, 0, 0, 1]'))))
+      eq(0, nvim_eval(('msgpack#is_int(%s)'):format(
+          sp('float', '0.0'))))
+      eq(0, nvim_eval(('msgpack#is_int(%s)'):format(
+          sp('boolean', '0'))))
+      eq(0, nvim_eval(('msgpack#is_int(%s)'):format(
+          sp('nil', '0'))))
+      eq(0, nvim_eval('msgpack#is_int("")'))
+    end)
+  end)
+
+  describe('function msgpack#is_uint', function()
+    it('works', function()
+      eq(1, nvim_eval('msgpack#is_uint(1)'))
+      eq(0, nvim_eval('msgpack#is_uint(-1)'))
+      eq(1, nvim_eval(('msgpack#is_uint(%s)'):format(
+          sp('integer', '[1, 0, 0, 1]'))))
+      eq(0, nvim_eval(('msgpack#is_uint(%s)'):format(
+          sp('integer', '[-1, 0, 0, 1]'))))
+      eq(0, nvim_eval(('msgpack#is_uint(%s)'):format(
+          sp('float', '0.0'))))
+      eq(0, nvim_eval(('msgpack#is_uint(%s)'):format(
+          sp('boolean', '0'))))
+      eq(0, nvim_eval(('msgpack#is_uint(%s)'):format(
+          sp('nil', '0'))))
+      eq(0, nvim_eval('msgpack#is_uint("")'))
+    end)
+  end)
+
+  describe('function msgpack#strftime', function()
+    it('works', function()
+      local epoch = os.date('%Y-%m-%dT%H:%M:%S', 0)
+      eq(epoch, nvim_eval('msgpack#strftime("%Y-%m-%dT%H:%M:%S", 0)'))
+      eq(epoch, nvim_eval(
+          ('msgpack#strftime("%%Y-%%m-%%dT%%H:%%M:%%S", %s)'):format(sp(
+              'integer', '[1, 0, 0, 0]'))))
+    end)
+  end)
+
+  describe('function msgpack#strptime', function()
+    it('works', function()
+      for _, v in ipairs({0, 10, 100000, 204, 1000000000}) do
+        local time = os.date('%Y-%m-%dT%H:%M:%S', v)
+        eq(v, nvim_eval('msgpack#strptime("%Y-%m-%dT%H:%M:%S", '
+                                      .. '"' .. time .. '")'))
+      end
+    end)
+  end)
+
+  describe('function msgpack#type', function()
+    local type_eq = function(expected, val)
+      eq(expected, nvim_eval(('msgpack#type(%s)'):format(val)))
+    end
+
+    it('works for special dictionaries', function()
+      type_eq('string', sp('string', '[""]'))
+      type_eq('binary', sp('binary', '[""]'))
+      type_eq('ext', sp('ext', '[1, [""]]'))
+      type_eq('array', sp('array', '[]'))
+      type_eq('map', sp('map', '[]'))
+      type_eq('integer', sp('integer', '[1, 0, 0, 0]'))
+      type_eq('float', sp('float', '0.0'))
+      type_eq('boolean', sp('boolean', '0'))
+      type_eq('nil', sp('nil', '0'))
+    end)
+
+    it('works for regular values', function()
+      type_eq('binary', '""')
+      type_eq('array', '[]')
+      type_eq('map', '{}')
+      type_eq('integer', '1')
+      type_eq('float', '0.0')
+      type_eq('float', '(1.0/0.0)')
+      type_eq('float', '-(1.0/0.0)')
+      type_eq('float', '(1.0/0.0-1.0/0.0)')
+    end)
+  end)
+
+  describe('function msgpack#special_type', function()
+    local sp_type_eq = function(expected, val)
+      eq(expected, nvim_eval(('msgpack#special_type(%s)'):format(val)))
+    end
+
+    it('works for special dictionaries', function()
+      sp_type_eq('string', sp('string', '[""]'))
+      sp_type_eq('binary', sp('binary', '[""]'))
+      sp_type_eq('ext', sp('ext', '[1, [""]]'))
+      sp_type_eq('array', sp('array', '[]'))
+      sp_type_eq('map', sp('map', '[]'))
+      sp_type_eq('integer', sp('integer', '[1, 0, 0, 0]'))
+      sp_type_eq('float', sp('float', '0.0'))
+      sp_type_eq('boolean', sp('boolean', '0'))
+      sp_type_eq('nil', sp('nil', '0'))
+    end)
+
+    it('works for regular values', function()
+      sp_type_eq(0, '""')
+      sp_type_eq(0, '[]')
+      sp_type_eq(0, '{}')
+      sp_type_eq(0, '1')
+      sp_type_eq(0, '0.0')
+      sp_type_eq(0, '(1.0/0.0)')
+      sp_type_eq(0, '-(1.0/0.0)')
+      sp_type_eq(0, '(1.0/0.0-1.0/0.0)')
+    end)
+  end)
+
+  describe('function msgpack#string', function()
+    local string_eq = function(expected, val)
+      eq(expected, nvim_eval(('msgpack#string(%s)'):format(val)))
+    end
+
+    it('works for special dictionaries', function()
+      string_eq('=""', sp('string', '[""]'))
+      string_eq('="\\n"', sp('string', '["", ""]'))
+      string_eq('="ab\\0c\\nde"', sp('string', '["ab\\nc", "de"]'))
+      string_eq('""', sp('binary', '[""]'))
+      string_eq('"\\n"', sp('binary', '["", ""]'))
+      string_eq('"ab\\0c\\nde"', sp('binary', '["ab\\nc", "de"]'))
+      string_eq('+(2)""', sp('ext', '[2, [""]]'))
+      string_eq('+(2)"\\n"', sp('ext', '[2, ["", ""]]'))
+      string_eq('+(2)"ab\\0c\\nde"', sp('ext', '[2, ["ab\\nc", "de"]]'))
+      string_eq('[]', sp('array', '[]'))
+      string_eq('[[[[{}]]]]', sp('array', '[[[[{}]]]]'))
+      string_eq('{}', sp('map', '[]'))
+      string_eq('{2: 10}', sp('map', '[[2, 10]]'))
+      string_eq('{{1: 1}: {1: 1}, {2: 1}: {1: 1}}',
+                mapsp(mapsp('2', '1'), mapsp('1', '1'),
+                      mapsp('1', '1'), mapsp('1', '1')))
+      string_eq('{{1: 1}: {1: 1}, {2: 1}: {1: 1}}',
+                mapsp(mapsp('1', '1'), mapsp('1', '1'),
+                      mapsp('2', '1'), mapsp('1', '1')))
+      string_eq('{[1, 2, {{1: 2}: 1}]: [1, 2, {{1: 2}: 1}]}',
+                mapsp(('[1, 2, %s]'):format(mapsp(mapsp('1', '2'), '1')),
+                      ('[1, 2, %s]'):format(mapsp(mapsp('1', '2'), '1'))))
+      string_eq('0x0000000000000000', sp('integer', '[1, 0, 0, 0]'))
+      string_eq('-0x0000000100000000', sp('integer', '[-1, 0, 2, 0]'))
+      string_eq('0x123456789abcdef0',
+                sp('integer', '[ 1, 0,  610839793, 448585456]'))
+      string_eq('-0x123456789abcdef0',
+                sp('integer', '[-1, 0,  610839793, 448585456]'))
+      string_eq('0xf23456789abcdef0',
+                sp('integer', '[ 1, 3, 1684581617, 448585456]'))
+      string_eq('-0x723456789abcdef0',
+                sp('integer', '[-1, 1, 1684581617, 448585456]'))
+      string_eq('0.0', sp('float', '0.0'))
+      string_eq('inf', sp('float', '(1.0/0.0)'))
+      string_eq('-inf', sp('float', '-(1.0/0.0)'))
+      string_eq('-nan', sp('float', '(1.0/0.0-1.0/0.0)'))
+      string_eq('nan', sp('float', '-(1.0/0.0-1.0/0.0)'))
+      string_eq('FALSE', sp('boolean', '0'))
+      string_eq('TRUE', sp('boolean', '1'))
+      string_eq('NIL', sp('nil', '0'))
+    end)
+
+    it('works for regular values', function()
+      string_eq('""', '""')
+      string_eq('"\\n"', '"\\n"')
+      string_eq('[]', '[]')
+      string_eq('[[[{}]]]', '[[[{}]]]')
+      string_eq('{}', '{}')
+      string_eq('{="2": 10}', '{2: 10}')
+      string_eq('{="2": [{}]}', '{2: [{}]}')
+      string_eq('1', '1')
+      string_eq('0.0', '0.0')
+      string_eq('inf', '(1.0/0.0)')
+      string_eq('-inf', '-(1.0/0.0)')
+      string_eq('-nan', '(1.0/0.0-1.0/0.0)')
+      string_eq('nan', '-(1.0/0.0-1.0/0.0)')
+    end)
+  end)
+
+  describe('function msgpack#deepcopy', function()
+    it('works for special dictionaries', function()
+      nvim_command('let sparr = ' .. sp('array', '[[[]]]'))
+      nvim_command('let spmap = ' .. mapsp('"abc"', '[[]]'))
+      nvim_command('let spint = ' .. sp('integer', '[1, 0, 0, 0]'))
+      nvim_command('let spflt = ' .. sp('float', '1.0'))
+      nvim_command('let spext = ' .. sp('ext', '[2, ["abc", "def"]]'))
+      nvim_command('let spstr = ' .. sp('string', '["abc", "def"]'))
+      nvim_command('let spbin = ' .. sp('binary', '["abc", "def"]'))
+      nvim_command('let spbln = ' .. sp('boolean', '0'))
+      nvim_command('let spnil = ' .. sp('nil', '0'))
+
+      nvim_command('let sparr2 = msgpack#deepcopy(sparr)')
+      nvim_command('let spmap2 = msgpack#deepcopy(spmap)')
+      nvim_command('let spint2 = msgpack#deepcopy(spint)')
+      nvim_command('let spflt2 = msgpack#deepcopy(spflt)')
+      nvim_command('let spext2 = msgpack#deepcopy(spext)')
+      nvim_command('let spstr2 = msgpack#deepcopy(spstr)')
+      nvim_command('let spbin2 = msgpack#deepcopy(spbin)')
+      nvim_command('let spbln2 = msgpack#deepcopy(spbln)')
+      nvim_command('let spnil2 = msgpack#deepcopy(spnil)')
+
+      eq('array', nvim_eval('msgpack#type(sparr2)'))
+      eq('map', nvim_eval('msgpack#type(spmap2)'))
+      eq('integer', nvim_eval('msgpack#type(spint2)'))
+      eq('float', nvim_eval('msgpack#type(spflt2)'))
+      eq('ext', nvim_eval('msgpack#type(spext2)'))
+      eq('string', nvim_eval('msgpack#type(spstr2)'))
+      eq('binary', nvim_eval('msgpack#type(spbin2)'))
+      eq('boolean', nvim_eval('msgpack#type(spbln2)'))
+      eq('nil', nvim_eval('msgpack#type(spnil2)'))
+
+      nvim_command('call add(sparr._VAL, 0)')
+      nvim_command('call add(sparr._VAL[0], 0)')
+      nvim_command('call add(sparr._VAL[0][0], 0)')
+      nvim_command('call add(spmap._VAL, [0, 0])')
+      nvim_command('call add(spmap._VAL[0][1], 0)')
+      nvim_command('call add(spmap._VAL[0][1][0], 0)')
+      nvim_command('let spint._VAL[1] = 1')
+      nvim_command('let spflt._VAL = 0.0')
+      nvim_command('let spext._VAL[0] = 3')
+      nvim_command('let spext._VAL[1][0] = "gh"')
+      nvim_command('let spstr._VAL[0] = "gh"')
+      nvim_command('let spbin._VAL[0] = "gh"')
+      nvim_command('let spbln._VAL = 1')
+      nvim_command('let spnil._VAL = 1')
+
+      eq({_TYPE={}, _VAL={{{}}}}, nvim_eval('sparr2'))
+      eq({_TYPE={}, _VAL={{'abc', {{}}}}}, nvim_eval('spmap2'))
+      eq({_TYPE={}, _VAL={1, 0, 0, 0}}, nvim_eval('spint2'))
+      eq({_TYPE={}, _VAL=1.0}, nvim_eval('spflt2'))
+      eq({_TYPE={}, _VAL={2, {'abc', 'def'}}}, nvim_eval('spext2'))
+      eq({_TYPE={}, _VAL={'abc', 'def'}}, nvim_eval('spstr2'))
+      eq({_TYPE={}, _VAL={'abc', 'def'}}, nvim_eval('spbin2'))
+      eq({_TYPE={}, _VAL=0}, nvim_eval('spbln2'))
+      eq({_TYPE={}, _VAL=0}, nvim_eval('spnil2'))
+
+      nvim_command('let sparr._TYPE = []')
+      nvim_command('let spmap._TYPE = []')
+      nvim_command('let spint._TYPE = []')
+      nvim_command('let spflt._TYPE = []')
+      nvim_command('let spext._TYPE = []')
+      nvim_command('let spstr._TYPE = []')
+      nvim_command('let spbin._TYPE = []')
+      nvim_command('let spbln._TYPE = []')
+      nvim_command('let spnil._TYPE = []')
+
+      eq('array', nvim_eval('msgpack#special_type(sparr2)'))
+      eq('map', nvim_eval('msgpack#special_type(spmap2)'))
+      eq('integer', nvim_eval('msgpack#special_type(spint2)'))
+      eq('float', nvim_eval('msgpack#special_type(spflt2)'))
+      eq('ext', nvim_eval('msgpack#special_type(spext2)'))
+      eq('string', nvim_eval('msgpack#special_type(spstr2)'))
+      eq('binary', nvim_eval('msgpack#special_type(spbin2)'))
+      eq('boolean', nvim_eval('msgpack#special_type(spbln2)'))
+      eq('nil', nvim_eval('msgpack#special_type(spnil2)'))
+    end)
+
+    it('works for regular values', function()
+      nvim_command('let arr = [[[]]]')
+      nvim_command('let map = {1: {}}')
+      nvim_command('let int = 1')
+      nvim_command('let flt = 2.0')
+      nvim_command('let bin = "abc"')
+
+      nvim_command('let arr2 = msgpack#deepcopy(arr)')
+      nvim_command('let map2 = msgpack#deepcopy(map)')
+      nvim_command('let int2 = msgpack#deepcopy(int)')
+      nvim_command('let flt2 = msgpack#deepcopy(flt)')
+      nvim_command('let bin2 = msgpack#deepcopy(bin)')
+
+      eq('array', nvim_eval('msgpack#type(arr2)'))
+      eq('map', nvim_eval('msgpack#type(map2)'))
+      eq('integer', nvim_eval('msgpack#type(int2)'))
+      eq('float', nvim_eval('msgpack#type(flt2)'))
+      eq('binary', nvim_eval('msgpack#type(bin2)'))
+
+      nvim_command('call add(arr, 0)')
+      nvim_command('call add(arr[0], 0)')
+      nvim_command('call add(arr[0][0], 0)')
+      nvim_command('let map.a = 1')
+      nvim_command('let map.1.a = 1')
+      nvim_command('let int = 2')
+      nvim_command('let flt = 3.0')
+      nvim_command('let bin = ""')
+
+      eq({{{}}}, nvim_eval('arr2'))
+      eq({['1']={}}, nvim_eval('map2'))
+      eq(1, nvim_eval('int2'))
+      eq(2.0, nvim_eval('flt2'))
+      eq('abc', nvim_eval('bin2'))
+    end)
+  end)
+
+  describe('function msgpack#eval', function()
+    local eval_eq = function(expected_type, expected_val, str, ...)
+      nvim_command(('let g:__val = msgpack#eval(\'%s\', %s)'):format(str:gsub(
+          '\'', '\'\''), select(1, ...) or '{}'))
+      eq(expected_type, nvim_eval('msgpack#type(g:__val)'))
+      local expected_val_full = expected_val
+      if (not (({float=true, integer=true})[expected_type]
+              and type(expected_val) ~= 'table')
+          and expected_type ~= 'array') then
+        expected_val_full = {_TYPE={}, _VAL=expected_val_full}
+      end
+      if expected_val_full == expected_val_full then
+        eq(expected_val_full, nvim_eval('g:__val'))
+      else
+        eq(tostring(expected_val_full), tostring(nvim_eval('g:__val')))
+      end
+      nvim_command('unlet g:__val')
+    end
+
+    it('correctly loads binary strings', function()
+      eval_eq('binary', {'abcdef'}, '"abcdef"')
+      eval_eq('binary', {'abc', 'def'}, '"abc\\ndef"')
+      eval_eq('binary', {'abc\ndef'}, '"abc\\0def"')
+      eval_eq('binary', {'\nabc\ndef\n'}, '"\\0abc\\0def\\0"')
+      eval_eq('binary', {'abc\n\n\ndef'}, '"abc\\0\\0\\0def"')
+      eval_eq('binary', {'abc\n', '\ndef'}, '"abc\\0\\n\\0def"')
+      eval_eq('binary', {'abc', '', '', 'def'}, '"abc\\n\\n\\ndef"')
+      eval_eq('binary', {'abc', '', '', 'def', ''}, '"abc\\n\\n\\ndef\\n"')
+      eval_eq('binary', {'', 'abc', '', '', 'def'}, '"\\nabc\\n\\n\\ndef"')
+      eval_eq('binary', {''}, '""')
+      eval_eq('binary', {'"'}, '"\\""')
+    end)
+
+    it('correctly loads strings', function()
+      eval_eq('string', {'abcdef'}, '="abcdef"')
+      eval_eq('string', {'abc', 'def'}, '="abc\\ndef"')
+      eval_eq('string', {'abc\ndef'}, '="abc\\0def"')
+      eval_eq('string', {'\nabc\ndef\n'}, '="\\0abc\\0def\\0"')
+      eval_eq('string', {'abc\n\n\ndef'}, '="abc\\0\\0\\0def"')
+      eval_eq('string', {'abc\n', '\ndef'}, '="abc\\0\\n\\0def"')
+      eval_eq('string', {'abc', '', '', 'def'}, '="abc\\n\\n\\ndef"')
+      eval_eq('string', {'abc', '', '', 'def', ''}, '="abc\\n\\n\\ndef\\n"')
+      eval_eq('string', {'', 'abc', '', '', 'def'}, '="\\nabc\\n\\n\\ndef"')
+      eval_eq('string', {''}, '=""')
+      eval_eq('string', {'"'}, '="\\""')
+    end)
+
+    it('correctly loads ext values', function()
+      eval_eq('ext', {0, {'abcdef'}}, '+(0)"abcdef"')
+      eval_eq('ext', {0, {'abc', 'def'}}, '+(0)"abc\\ndef"')
+      eval_eq('ext', {0, {'abc\ndef'}}, '+(0)"abc\\0def"')
+      eval_eq('ext', {0, {'\nabc\ndef\n'}}, '+(0)"\\0abc\\0def\\0"')
+      eval_eq('ext', {0, {'abc\n\n\ndef'}}, '+(0)"abc\\0\\0\\0def"')
+      eval_eq('ext', {0, {'abc\n', '\ndef'}}, '+(0)"abc\\0\\n\\0def"')
+      eval_eq('ext', {0, {'abc', '', '', 'def'}}, '+(0)"abc\\n\\n\\ndef"')
+      eval_eq('ext', {0, {'abc', '', '', 'def', ''}},
+              '+(0)"abc\\n\\n\\ndef\\n"')
+      eval_eq('ext', {0, {'', 'abc', '', '', 'def'}},
+              '+(0)"\\nabc\\n\\n\\ndef"')
+      eval_eq('ext', {0, {''}}, '+(0)""')
+      eval_eq('ext', {0, {'"'}}, '+(0)"\\""')
+
+      eval_eq('ext', {-1, {'abcdef'}}, '+(-1)"abcdef"')
+      eval_eq('ext', {-1, {'abc', 'def'}}, '+(-1)"abc\\ndef"')
+      eval_eq('ext', {-1, {'abc\ndef'}}, '+(-1)"abc\\0def"')
+      eval_eq('ext', {-1, {'\nabc\ndef\n'}}, '+(-1)"\\0abc\\0def\\0"')
+      eval_eq('ext', {-1, {'abc\n\n\ndef'}}, '+(-1)"abc\\0\\0\\0def"')
+      eval_eq('ext', {-1, {'abc\n', '\ndef'}}, '+(-1)"abc\\0\\n\\0def"')
+      eval_eq('ext', {-1, {'abc', '', '', 'def'}}, '+(-1)"abc\\n\\n\\ndef"')
+      eval_eq('ext', {-1, {'abc', '', '', 'def', ''}},
+              '+(-1)"abc\\n\\n\\ndef\\n"')
+      eval_eq('ext', {-1, {'', 'abc', '', '', 'def'}},
+              '+(-1)"\\nabc\\n\\n\\ndef"')
+      eval_eq('ext', {-1, {''}}, '+(-1)""')
+      eval_eq('ext', {-1, {'"'}}, '+(-1)"\\""')
+    end)
+
+    it('correctly loads floats', function()
+      eval_eq('float', 1.0/0.0, 'inf')
+      eval_eq('float', -1.0/0.0, '-inf')
+      eval_eq('float', -(1.0/0.0-1.0/0.0), 'nan')
+      eval_eq('float', (1.0/0.0-1.0/0.0), '-nan')
+      eval_eq('float', 1.0e10, '1.0e10')
+      eval_eq('float', 1.0e10, '1.0e+10')
+      eval_eq('float', -1.0e10, '-1.0e+10')
+      eval_eq('float', 1.0, '1.0')
+      eval_eq('float', -1.0, '-1.0')
+      eval_eq('float', 1.0e-10, '1.0e-10')
+      eval_eq('float', -1.0e-10, '-1.0e-10')
+    end)
+
+    it('correctly loads integers', function()
+      eval_eq('integer', 10, '10')
+      eval_eq('integer', -10, '-10')
+      eval_eq('integer', { 1, 0,  610839793, 448585456}, ' 0x123456789ABCDEF0')
+      eval_eq('integer', {-1, 0,  610839793, 448585456}, '-0x123456789ABCDEF0')
+      eval_eq('integer', { 1, 3, 1684581617, 448585456}, ' 0xF23456789ABCDEF0')
+      eval_eq('integer', {-1, 1, 1684581617, 448585456}, '-0x723456789ABCDEF0')
+      eval_eq('integer', { 1, 0, 0, 0x100}, '0x100')
+      eval_eq('integer', {-1, 0, 0, 0x100}, '-0x100')
+
+      eval_eq('integer', ('a'):byte(), '\'a\'')
+      eval_eq('integer', 0xAB, '\'«\'')
+    end)
+
+    it('correctly loads constants', function()
+      eval_eq('boolean', 1, 'TRUE')
+      eval_eq('boolean', 0, 'FALSE')
+      eval_eq('nil', 0, 'NIL')
+      eval_eq('nil', 0, 'NIL', '{"NIL": 1, "nan": 2, "T": 3}')
+      eval_eq('float', -(1.0/0.0-1.0/0.0), 'nan',
+              '{"NIL": "1", "nan": "2", "T": "3"}')
+      eval_eq('integer', 3, 'T', '{"NIL": "1", "nan": "2", "T": "3"}')
+      eval_eq('integer', {1, 0, 0, 0}, 'T',
+              ('{"NIL": "1", "nan": "2", "T": \'%s\'}'):format(
+                  sp('integer', '[1, 0, 0, 0]')))
+    end)
+
+    it('correctly loads maps', function()
+      eval_eq('map', {}, '{}')
+      eval_eq('map', {{{_TYPE={}, _VAL={{1, 2}}}, {_TYPE={}, _VAL={{3, 4}}}}},
+              '{{1: 2}: {3: 4}}')
+      eval_eq('map', {{{_TYPE={}, _VAL={{1, 2}}}, {_TYPE={}, _VAL={{3, 4}}}},
+                      {1, 2}},
+              '{{1: 2}: {3: 4}, 1: 2}')
+    end)
+
+    it('correctly loads arrays', function()
+      eval_eq('array', {}, '[]')
+      eval_eq('array', {1}, '[1]')
+      eval_eq('array', {{_TYPE={}, _VAL=1}}, '[TRUE]')
+      eval_eq('array', {{{_TYPE={}, _VAL={{1, 2}}}}, {_TYPE={}, _VAL={{3, 4}}}},
+              '[[{1: 2}], {3: 4}]')
+    end)
+
+    it('errors out when needed', function()
+      eq('empty:Parsed string is empty',
+         exc_exec('call msgpack#eval("", {})'))
+      eq('unknown:Invalid non-space character: ^',
+         exc_exec('call msgpack#eval("^", {})'))
+      eq('char-invalid:Invalid integer character literal format: \'\'',
+         exc_exec('call msgpack#eval("\'\'", {})'))
+      eq('char-invalid:Invalid integer character literal format: \'ab\'',
+         exc_exec('call msgpack#eval("\'ab\'", {})'))
+      eq('char-invalid:Invalid integer character literal format: \'',
+         exc_exec('call msgpack#eval("\'", {})'))
+      eq('"-invalid:Invalid string: "',
+         exc_exec('call msgpack#eval("\\"", {})'))
+      eq('"-invalid:Invalid string: ="',
+         exc_exec('call msgpack#eval("=\\"", {})'))
+      eq('"-invalid:Invalid string: +(0)"',
+         exc_exec('call msgpack#eval("+(0)\\"", {})'))
+      eq('0.-nodigits:Decimal dot must be followed by digit(s): .e1',
+         exc_exec('call msgpack#eval("0.e1", {})'))
+      eq('0x-long:Must have at most 16 hex digits: FEDCBA98765432100',
+         exc_exec('call msgpack#eval("0xFEDCBA98765432100", {})'))
+      eq('0x-empty:Must have number after 0x: ',
+         exc_exec('call msgpack#eval("0x", {})'))
+      eq('name-unknown:Unknown name FOO: FOO',
+         exc_exec('call msgpack#eval("FOO", {})'))
+    end)
+  end)
+end)