1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
-- Test suite for testing interactions with API bindings
local t = require('test.testutil')
local n = require('test.functional.testnvim')()
local describe, it, before_each = t.describe, t.it, t.before_each
local clear = n.clear
local eq = t.eq
local exec_lua = n.exec_lua
describe('lua vim.mpack', function()
before_each(clear)
it('encodes vim.NIL', function()
eq(
{ true, true, true, true },
exec_lua(function()
local var = vim.mpack.decode(vim.mpack.encode({ 33, vim.NIL, 77 }))
return { var[1] == 33, var[2] == vim.NIL, var[3] == 77, var[4] == nil }
end)
)
end)
it('encodes vim.empty_dict()', function()
eq(
{ { {}, 'foo', {} }, true, false },
exec_lua(function()
local var = vim.mpack.decode(vim.mpack.encode({ {}, 'foo', vim.empty_dict() }))
return { var, vim.islist(var[1]), vim.islist(var[3]) }
end)
)
end)
it('encodes negative integers at type boundaries correctly #37202', function()
-- Test boundary values between int8/int16/int32
-- int8 range: -128 to -33 (fixint handles -32 to -1)
-- int16 range: -32768 to -129
-- int32 range: -2147483648 to -32769
local result = exec_lua(function()
local tests = {
{ -128, -128 }, -- int8 boundary (minimum int8)
{ -129, -129 }, -- int16 boundary (one past int8)
{ -32768, -32768 }, -- int16 boundary (minimum int16)
{ -32769, -32769 }, -- int32 boundary (one past int16)
}
local results = {}
for _, test in ipairs(tests) do
local input, expected = test[1], test[2]
local decoded = vim.mpack.decode(vim.mpack.encode(input))
table.insert(results, { input = input, decoded = decoded, ok = decoded == expected })
end
return results
end)
for _, r in ipairs(result) do
eq(true, r.ok, string.format('encode/decode %d returned %d', r.input, r.decoded))
end
end)
it('encodes negative integers below -2^32 correctly', function()
eq(
{},
exec_lua(function()
local failures = {}
for _, v in ipairs({ -(2 ^ 32 + 5), -(3 * 2 ^ 32 + 70000), -(2 ^ 53 - 1) }) do
local decoded = vim.mpack.decode(vim.mpack.encode(v))
if decoded ~= v then
table.insert(failures, ('%.17g -> %.17g'):format(v, decoded))
end
end
return failures
end)
)
end)
it('encodes numbers beyond 2^53 #32216', function()
eq(
{},
exec_lua(function()
local failures = {}
local tests = {
2 ^ 53,
-2 ^ 53,
2 ^ 64 - 2048, -- largest uint64 double
-2 ^ 63, -- smallest int64
-2 ^ 63 - 2048, -- below int64, encoded as float
-1.5 * 2 ^ 63,
2 ^ 64, -- above uint64, encoded as float
1e300,
math.huge,
-math.huge,
}
for _, v in ipairs(tests) do
local decoded = vim.mpack.decode(vim.mpack.encode(v))
if decoded ~= v then
table.insert(failures, ('%.17g -> %.17g'):format(v, decoded))
end
end
local nan = vim.mpack.decode(vim.mpack.encode(0 / 0))
if nan == nan then
table.insert(failures, ('nan -> %.17g'):format(nan))
end
return failures
end)
)
end)
it('encodes dict keys of length 20-31 as fixstr #32784', function()
-- MessagePack fixstr format: 0xa0 | length (for lengths 0-31)
-- Before #36737, strings 20-31 bytes were incorrectly encoded as str8 (0xd9, len)
for len = 20, 31 do
local expected_header = string.char(0xa0 + len) -- fixstr header
local result = exec_lua(function(keylen)
local key = string.rep('x', keylen)
return vim.mpack.encode({ [key] = 1 })
end, len)
-- Byte 1 is fixmap header (0x81), byte 2 should be fixstr header for the key
eq(expected_header, result:sub(2, 2), 'dict key length ' .. len .. ' should use fixstr')
end
end)
end)
|
