mirror of
https://github.com/neovim/neovim.git
synced 2024-12-25 13:45:15 -07:00
704 lines
22 KiB
Lua
704 lines
22 KiB
Lua
local t = require('test.unit.testutil')
|
|
local itp = t.gen_itp(it)
|
|
local t_viml = require('test.unit.viml.testutil')
|
|
|
|
local child_call_once = t.child_call_once
|
|
local conv_enum = t.conv_enum
|
|
local cimport = t.cimport
|
|
local ffi = t.ffi
|
|
local eq = t.eq
|
|
local shallowcopy = t.shallowcopy
|
|
local intchar2lua = t.intchar2lua
|
|
|
|
local conv_ccs = t_viml.conv_ccs
|
|
local new_pstate = t_viml.new_pstate
|
|
local conv_cmp_type = t_viml.conv_cmp_type
|
|
local pstate_set_str = t_viml.pstate_set_str
|
|
local conv_expr_asgn_type = t_viml.conv_expr_asgn_type
|
|
|
|
local lib = cimport('./src/nvim/viml/parser/expressions.h')
|
|
|
|
local eltkn_type_tab, eltkn_mul_type_tab, eltkn_opt_scope_tab
|
|
child_call_once(function()
|
|
eltkn_type_tab = {
|
|
[tonumber(lib.kExprLexInvalid)] = 'Invalid',
|
|
[tonumber(lib.kExprLexMissing)] = 'Missing',
|
|
[tonumber(lib.kExprLexSpacing)] = 'Spacing',
|
|
[tonumber(lib.kExprLexEOC)] = 'EOC',
|
|
|
|
[tonumber(lib.kExprLexQuestion)] = 'Question',
|
|
[tonumber(lib.kExprLexColon)] = 'Colon',
|
|
[tonumber(lib.kExprLexOr)] = 'Or',
|
|
[tonumber(lib.kExprLexAnd)] = 'And',
|
|
[tonumber(lib.kExprLexComparison)] = 'Comparison',
|
|
[tonumber(lib.kExprLexPlus)] = 'Plus',
|
|
[tonumber(lib.kExprLexMinus)] = 'Minus',
|
|
[tonumber(lib.kExprLexDot)] = 'Dot',
|
|
[tonumber(lib.kExprLexMultiplication)] = 'Multiplication',
|
|
|
|
[tonumber(lib.kExprLexNot)] = 'Not',
|
|
|
|
[tonumber(lib.kExprLexNumber)] = 'Number',
|
|
[tonumber(lib.kExprLexSingleQuotedString)] = 'SingleQuotedString',
|
|
[tonumber(lib.kExprLexDoubleQuotedString)] = 'DoubleQuotedString',
|
|
[tonumber(lib.kExprLexOption)] = 'Option',
|
|
[tonumber(lib.kExprLexRegister)] = 'Register',
|
|
[tonumber(lib.kExprLexEnv)] = 'Env',
|
|
[tonumber(lib.kExprLexPlainIdentifier)] = 'PlainIdentifier',
|
|
|
|
[tonumber(lib.kExprLexBracket)] = 'Bracket',
|
|
[tonumber(lib.kExprLexFigureBrace)] = 'FigureBrace',
|
|
[tonumber(lib.kExprLexParenthesis)] = 'Parenthesis',
|
|
[tonumber(lib.kExprLexComma)] = 'Comma',
|
|
[tonumber(lib.kExprLexArrow)] = 'Arrow',
|
|
|
|
[tonumber(lib.kExprLexAssignment)] = 'Assignment',
|
|
}
|
|
|
|
eltkn_mul_type_tab = {
|
|
[tonumber(lib.kExprLexMulMul)] = 'Mul',
|
|
[tonumber(lib.kExprLexMulDiv)] = 'Div',
|
|
[tonumber(lib.kExprLexMulMod)] = 'Mod',
|
|
}
|
|
|
|
eltkn_opt_scope_tab = {
|
|
[tonumber(lib.kExprOptScopeUnspecified)] = 'Unspecified',
|
|
[tonumber(lib.kExprOptScopeGlobal)] = 'Global',
|
|
[tonumber(lib.kExprOptScopeLocal)] = 'Local',
|
|
}
|
|
end)
|
|
|
|
local function conv_eltkn_type(typ)
|
|
return conv_enum(eltkn_type_tab, typ)
|
|
end
|
|
|
|
local bracket_types = {
|
|
Bracket = true,
|
|
FigureBrace = true,
|
|
Parenthesis = true,
|
|
}
|
|
|
|
local function eltkn2lua(pstate, tkn)
|
|
local ret = {
|
|
type = conv_eltkn_type(tkn.type),
|
|
}
|
|
pstate_set_str(pstate, tkn.start, tkn.len, ret)
|
|
if not ret.error and (#ret.str ~= ret.len) then
|
|
ret.error = '#str /= len'
|
|
end
|
|
if ret.type == 'Comparison' then
|
|
ret.data = {
|
|
type = conv_cmp_type(tkn.data.cmp.type),
|
|
ccs = conv_ccs(tkn.data.cmp.ccs),
|
|
inv = not not tkn.data.cmp.inv,
|
|
}
|
|
elseif ret.type == 'Multiplication' then
|
|
ret.data = { type = conv_enum(eltkn_mul_type_tab, tkn.data.mul.type) }
|
|
elseif bracket_types[ret.type] then
|
|
ret.data = { closing = not not tkn.data.brc.closing }
|
|
elseif ret.type == 'Register' then
|
|
ret.data = { name = intchar2lua(tkn.data.reg.name) }
|
|
elseif ret.type == 'SingleQuotedString' or ret.type == 'DoubleQuotedString' then
|
|
ret.data = { closed = not not tkn.data.str.closed }
|
|
elseif ret.type == 'Option' then
|
|
ret.data = {
|
|
scope = conv_enum(eltkn_opt_scope_tab, tkn.data.opt.scope),
|
|
name = ffi.string(tkn.data.opt.name, tkn.data.opt.len),
|
|
}
|
|
elseif ret.type == 'PlainIdentifier' then
|
|
ret.data = {
|
|
scope = intchar2lua(tkn.data.var.scope),
|
|
autoload = not not tkn.data.var.autoload,
|
|
}
|
|
elseif ret.type == 'Number' then
|
|
ret.data = {
|
|
is_float = not not tkn.data.num.is_float,
|
|
base = tonumber(tkn.data.num.base),
|
|
}
|
|
ret.data.val =
|
|
tonumber(tkn.data.num.is_float and tkn.data.num.val.floating or tkn.data.num.val.integer)
|
|
elseif ret.type == 'Assignment' then
|
|
ret.data = { type = conv_expr_asgn_type(tkn.data.ass.type) }
|
|
elseif ret.type == 'Invalid' then
|
|
ret.data = { error = ffi.string(tkn.data.err.msg) }
|
|
end
|
|
return ret, tkn
|
|
end
|
|
|
|
local function next_eltkn(pstate, flags)
|
|
return eltkn2lua(pstate, lib.viml_pexpr_next_token(pstate, flags))
|
|
end
|
|
|
|
describe('Expressions lexer', function()
|
|
local flags = 0
|
|
local should_advance = true
|
|
local function check_advance(pstate, bytes_to_advance, initial_col)
|
|
local tgt = initial_col + bytes_to_advance
|
|
if should_advance then
|
|
if pstate.reader.lines.items[0].size == tgt then
|
|
eq(1, pstate.pos.line)
|
|
eq(0, pstate.pos.col)
|
|
else
|
|
eq(0, pstate.pos.line)
|
|
eq(tgt, pstate.pos.col)
|
|
end
|
|
else
|
|
eq(0, pstate.pos.line)
|
|
eq(initial_col, pstate.pos.col)
|
|
end
|
|
end
|
|
local function singl_eltkn_test(typ, str, data)
|
|
local pstate = new_pstate({ str })
|
|
eq(
|
|
{ data = data, len = #str, start = { col = 0, line = 0 }, str = str, type = typ },
|
|
next_eltkn(pstate, flags)
|
|
)
|
|
check_advance(pstate, #str, 0)
|
|
if
|
|
not (
|
|
typ == 'Spacing'
|
|
or (typ == 'Register' and str == '@')
|
|
or ((typ == 'SingleQuotedString' or typ == 'DoubleQuotedString') and not data.closed)
|
|
)
|
|
then
|
|
pstate = new_pstate({ str .. ' ' })
|
|
eq(
|
|
{ data = data, len = #str, start = { col = 0, line = 0 }, str = str, type = typ },
|
|
next_eltkn(pstate, flags)
|
|
)
|
|
check_advance(pstate, #str, 0)
|
|
end
|
|
pstate = new_pstate({ 'x' .. str })
|
|
pstate.pos.col = 1
|
|
eq(
|
|
{ data = data, len = #str, start = { col = 1, line = 0 }, str = str, type = typ },
|
|
next_eltkn(pstate, flags)
|
|
)
|
|
check_advance(pstate, #str, 1)
|
|
end
|
|
local function scope_test(scope)
|
|
singl_eltkn_test('PlainIdentifier', scope .. ':test#var', { autoload = true, scope = scope })
|
|
singl_eltkn_test('PlainIdentifier', scope .. ':', { autoload = false, scope = scope })
|
|
end
|
|
local function comparison_test(op, inv_op, cmp_type)
|
|
singl_eltkn_test('Comparison', op, { type = cmp_type, inv = false, ccs = 'UseOption' })
|
|
singl_eltkn_test('Comparison', inv_op, { type = cmp_type, inv = true, ccs = 'UseOption' })
|
|
singl_eltkn_test('Comparison', op .. '#', { type = cmp_type, inv = false, ccs = 'MatchCase' })
|
|
singl_eltkn_test(
|
|
'Comparison',
|
|
inv_op .. '#',
|
|
{ type = cmp_type, inv = true, ccs = 'MatchCase' }
|
|
)
|
|
singl_eltkn_test('Comparison', op .. '?', { type = cmp_type, inv = false, ccs = 'IgnoreCase' })
|
|
singl_eltkn_test(
|
|
'Comparison',
|
|
inv_op .. '?',
|
|
{ type = cmp_type, inv = true, ccs = 'IgnoreCase' }
|
|
)
|
|
end
|
|
local function simple_test(pstate_arg, exp_type, exp_len, exp)
|
|
local pstate = new_pstate(pstate_arg)
|
|
exp = shallowcopy(exp)
|
|
exp.type = exp_type
|
|
exp.len = exp_len or #pstate_arg[0]
|
|
exp.start = { col = 0, line = 0 }
|
|
eq(exp, next_eltkn(pstate, flags))
|
|
end
|
|
local function stable_tests()
|
|
singl_eltkn_test('Parenthesis', '(', { closing = false })
|
|
singl_eltkn_test('Parenthesis', ')', { closing = true })
|
|
singl_eltkn_test('Bracket', '[', { closing = false })
|
|
singl_eltkn_test('Bracket', ']', { closing = true })
|
|
singl_eltkn_test('FigureBrace', '{', { closing = false })
|
|
singl_eltkn_test('FigureBrace', '}', { closing = true })
|
|
singl_eltkn_test('Question', '?')
|
|
singl_eltkn_test('Colon', ':')
|
|
singl_eltkn_test('Dot', '.')
|
|
singl_eltkn_test('Assignment', '.=', { type = 'Concat' })
|
|
singl_eltkn_test('Plus', '+')
|
|
singl_eltkn_test('Assignment', '+=', { type = 'Add' })
|
|
singl_eltkn_test('Comma', ',')
|
|
singl_eltkn_test('Multiplication', '*', { type = 'Mul' })
|
|
singl_eltkn_test('Multiplication', '/', { type = 'Div' })
|
|
singl_eltkn_test('Multiplication', '%', { type = 'Mod' })
|
|
singl_eltkn_test('Spacing', ' \t\t \t\t')
|
|
singl_eltkn_test('Spacing', ' ')
|
|
singl_eltkn_test('Spacing', '\t')
|
|
singl_eltkn_test(
|
|
'Invalid',
|
|
'\x01\x02\x03',
|
|
{ error = 'E15: Invalid control character present in input: %.*s' }
|
|
)
|
|
singl_eltkn_test('Number', '0123', { is_float = false, base = 8, val = 83 })
|
|
singl_eltkn_test('Number', '01234567', { is_float = false, base = 8, val = 342391 })
|
|
singl_eltkn_test('Number', '012345678', { is_float = false, base = 10, val = 12345678 })
|
|
singl_eltkn_test('Number', '0x123', { is_float = false, base = 16, val = 291 })
|
|
singl_eltkn_test('Number', '0x56FF', { is_float = false, base = 16, val = 22271 })
|
|
singl_eltkn_test('Number', '0xabcdef', { is_float = false, base = 16, val = 11259375 })
|
|
singl_eltkn_test('Number', '0xABCDEF', { is_float = false, base = 16, val = 11259375 })
|
|
singl_eltkn_test('Number', '0x0', { is_float = false, base = 16, val = 0 })
|
|
singl_eltkn_test('Number', '00', { is_float = false, base = 8, val = 0 })
|
|
singl_eltkn_test('Number', '0b0', { is_float = false, base = 2, val = 0 })
|
|
singl_eltkn_test('Number', '0b010111', { is_float = false, base = 2, val = 23 })
|
|
singl_eltkn_test('Number', '0b100111', { is_float = false, base = 2, val = 39 })
|
|
singl_eltkn_test('Number', '0', { is_float = false, base = 10, val = 0 })
|
|
singl_eltkn_test('Number', '9', { is_float = false, base = 10, val = 9 })
|
|
singl_eltkn_test('Env', '$abc')
|
|
singl_eltkn_test('Env', '$')
|
|
singl_eltkn_test('PlainIdentifier', 'test', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', '_test', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', '_test_foo', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 't', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 'test5', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 't0', { autoload = false, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 'test#var', { autoload = true, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 'test#var#val###', { autoload = true, scope = 0 })
|
|
singl_eltkn_test('PlainIdentifier', 't#####', { autoload = true, scope = 0 })
|
|
singl_eltkn_test('And', '&&')
|
|
singl_eltkn_test('Or', '||')
|
|
singl_eltkn_test('Invalid', '&', { error = 'E112: Option name missing: %.*s' })
|
|
singl_eltkn_test('Option', '&opt', { scope = 'Unspecified', name = 'opt' })
|
|
singl_eltkn_test('Option', '&t_xx', { scope = 'Unspecified', name = 't_xx' })
|
|
singl_eltkn_test('Option', '&t_\r\r', { scope = 'Unspecified', name = 't_\r\r' })
|
|
singl_eltkn_test('Option', '&t_\t\t', { scope = 'Unspecified', name = 't_\t\t' })
|
|
singl_eltkn_test('Option', '&t_ ', { scope = 'Unspecified', name = 't_ ' })
|
|
singl_eltkn_test('Option', '&g:opt', { scope = 'Global', name = 'opt' })
|
|
singl_eltkn_test('Option', '&l:opt', { scope = 'Local', name = 'opt' })
|
|
singl_eltkn_test('Invalid', '&l:', { error = 'E112: Option name missing: %.*s' })
|
|
singl_eltkn_test('Invalid', '&g:', { error = 'E112: Option name missing: %.*s' })
|
|
singl_eltkn_test('Register', '@', { name = -1 })
|
|
singl_eltkn_test('Register', '@a', { name = 'a' })
|
|
singl_eltkn_test('Register', '@\r', { name = 13 })
|
|
singl_eltkn_test('Register', '@ ', { name = ' ' })
|
|
singl_eltkn_test('Register', '@\t', { name = 9 })
|
|
singl_eltkn_test('SingleQuotedString', "'test", { closed = false })
|
|
singl_eltkn_test('SingleQuotedString', "'test'", { closed = true })
|
|
singl_eltkn_test('SingleQuotedString', "''''", { closed = true })
|
|
singl_eltkn_test('SingleQuotedString', "'x'''", { closed = true })
|
|
singl_eltkn_test('SingleQuotedString', "'''x'", { closed = true })
|
|
singl_eltkn_test('SingleQuotedString', "'''", { closed = false })
|
|
singl_eltkn_test('SingleQuotedString', "'x''", { closed = false })
|
|
singl_eltkn_test('SingleQuotedString', "'''x", { closed = false })
|
|
singl_eltkn_test('DoubleQuotedString', '"test', { closed = false })
|
|
singl_eltkn_test('DoubleQuotedString', '"test"', { closed = true })
|
|
singl_eltkn_test('DoubleQuotedString', '"\\""', { closed = true })
|
|
singl_eltkn_test('DoubleQuotedString', '"x\\""', { closed = true })
|
|
singl_eltkn_test('DoubleQuotedString', '"\\"x"', { closed = true })
|
|
singl_eltkn_test('DoubleQuotedString', '"\\"', { closed = false })
|
|
singl_eltkn_test('DoubleQuotedString', '"x\\"', { closed = false })
|
|
singl_eltkn_test('DoubleQuotedString', '"\\"x', { closed = false })
|
|
singl_eltkn_test('Not', '!')
|
|
singl_eltkn_test('Assignment', '=', { type = 'Plain' })
|
|
comparison_test('==', '!=', 'Equal')
|
|
comparison_test('=~', '!~', 'Matches')
|
|
comparison_test('>', '<=', 'Greater')
|
|
comparison_test('>=', '<', 'GreaterOrEqual')
|
|
singl_eltkn_test('Minus', '-')
|
|
singl_eltkn_test('Assignment', '-=', { type = 'Subtract' })
|
|
singl_eltkn_test('Arrow', '->')
|
|
singl_eltkn_test('Invalid', '~', { error = 'E15: Unidentified character: %.*s' })
|
|
simple_test({ { data = nil, size = 0 } }, 'EOC', 0, { error = 'start.col >= #pstr' })
|
|
simple_test({ '' }, 'EOC', 0, { error = 'start.col >= #pstr' })
|
|
simple_test(
|
|
{ '2.' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2e5' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.x' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.2.' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0x' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e+' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e-' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e+x' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e-x' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e+1a' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e-1a' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '0b102' },
|
|
'Number',
|
|
4,
|
|
{ data = { is_float = false, base = 2, val = 2 }, str = '0b10' }
|
|
)
|
|
simple_test(
|
|
{ '10F' },
|
|
'Number',
|
|
2,
|
|
{ data = { is_float = false, base = 10, val = 10 }, str = '10' }
|
|
)
|
|
simple_test({ '0x0123456789ABCDEFG' }, 'Number', 18, {
|
|
data = { is_float = false, base = 16, val = 81985529216486895 },
|
|
str = '0x0123456789ABCDEF',
|
|
})
|
|
simple_test(
|
|
{ { data = '00', size = 2 } },
|
|
'Number',
|
|
2,
|
|
{ data = { is_float = false, base = 8, val = 0 }, str = '00' }
|
|
)
|
|
simple_test(
|
|
{ { data = '009', size = 2 } },
|
|
'Number',
|
|
2,
|
|
{ data = { is_float = false, base = 8, val = 0 }, str = '00' }
|
|
)
|
|
simple_test(
|
|
{ { data = '01', size = 1 } },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 0 }, str = '0' }
|
|
)
|
|
end
|
|
|
|
local function regular_scope_tests()
|
|
scope_test('s')
|
|
scope_test('g')
|
|
scope_test('v')
|
|
scope_test('b')
|
|
scope_test('w')
|
|
scope_test('t')
|
|
scope_test('l')
|
|
scope_test('a')
|
|
|
|
simple_test(
|
|
{ 'g:' },
|
|
'PlainIdentifier',
|
|
2,
|
|
{ data = { scope = 'g', autoload = false }, str = 'g:' }
|
|
)
|
|
simple_test(
|
|
{ 'g:is#foo' },
|
|
'PlainIdentifier',
|
|
8,
|
|
{ data = { scope = 'g', autoload = true }, str = 'g:is#foo' }
|
|
)
|
|
simple_test(
|
|
{ 'g:isnot#foo' },
|
|
'PlainIdentifier',
|
|
11,
|
|
{ data = { scope = 'g', autoload = true }, str = 'g:isnot#foo' }
|
|
)
|
|
end
|
|
|
|
local function regular_is_tests()
|
|
comparison_test('is', 'isnot', 'Identical')
|
|
|
|
simple_test(
|
|
{ 'is' },
|
|
'Comparison',
|
|
2,
|
|
{ data = { type = 'Identical', inv = false, ccs = 'UseOption' }, str = 'is' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot' },
|
|
'Comparison',
|
|
5,
|
|
{ data = { type = 'Identical', inv = true, ccs = 'UseOption' }, str = 'isnot' }
|
|
)
|
|
simple_test(
|
|
{ 'is?' },
|
|
'Comparison',
|
|
3,
|
|
{ data = { type = 'Identical', inv = false, ccs = 'IgnoreCase' }, str = 'is?' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot?' },
|
|
'Comparison',
|
|
6,
|
|
{ data = { type = 'Identical', inv = true, ccs = 'IgnoreCase' }, str = 'isnot?' }
|
|
)
|
|
simple_test(
|
|
{ 'is#' },
|
|
'Comparison',
|
|
3,
|
|
{ data = { type = 'Identical', inv = false, ccs = 'MatchCase' }, str = 'is#' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot#' },
|
|
'Comparison',
|
|
6,
|
|
{ data = { type = 'Identical', inv = true, ccs = 'MatchCase' }, str = 'isnot#' }
|
|
)
|
|
simple_test(
|
|
{ 'is#foo' },
|
|
'Comparison',
|
|
3,
|
|
{ data = { type = 'Identical', inv = false, ccs = 'MatchCase' }, str = 'is#' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot#foo' },
|
|
'Comparison',
|
|
6,
|
|
{ data = { type = 'Identical', inv = true, ccs = 'MatchCase' }, str = 'isnot#' }
|
|
)
|
|
end
|
|
|
|
local function regular_number_tests()
|
|
simple_test(
|
|
{ '2.0' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e5' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e+5' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e-5' },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
end
|
|
|
|
local function regular_eoc_tests()
|
|
singl_eltkn_test('EOC', '|')
|
|
singl_eltkn_test('EOC', '\0')
|
|
singl_eltkn_test('EOC', '\n')
|
|
end
|
|
|
|
itp('works (single tokens, zero flags)', function()
|
|
stable_tests()
|
|
|
|
regular_eoc_tests()
|
|
regular_scope_tests()
|
|
regular_is_tests()
|
|
regular_number_tests()
|
|
end)
|
|
itp('peeks', function()
|
|
flags = tonumber(lib.kELFlagPeek)
|
|
should_advance = false
|
|
stable_tests()
|
|
|
|
regular_eoc_tests()
|
|
regular_scope_tests()
|
|
regular_is_tests()
|
|
regular_number_tests()
|
|
end)
|
|
itp('forbids scope', function()
|
|
flags = tonumber(lib.kELFlagForbidScope)
|
|
stable_tests()
|
|
|
|
regular_eoc_tests()
|
|
regular_is_tests()
|
|
regular_number_tests()
|
|
|
|
simple_test(
|
|
{ 'g:' },
|
|
'PlainIdentifier',
|
|
1,
|
|
{ data = { scope = 0, autoload = false }, str = 'g' }
|
|
)
|
|
end)
|
|
itp('allows floats', function()
|
|
flags = tonumber(lib.kELFlagAllowFloat)
|
|
stable_tests()
|
|
|
|
regular_eoc_tests()
|
|
regular_scope_tests()
|
|
regular_is_tests()
|
|
|
|
simple_test(
|
|
{ '2.2' },
|
|
'Number',
|
|
3,
|
|
{ data = { is_float = true, base = 10, val = 2.2 }, str = '2.2' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e5' },
|
|
'Number',
|
|
5,
|
|
{ data = { is_float = true, base = 10, val = 2e5 }, str = '2.0e5' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e+5' },
|
|
'Number',
|
|
6,
|
|
{ data = { is_float = true, base = 10, val = 2e5 }, str = '2.0e+5' }
|
|
)
|
|
simple_test(
|
|
{ '2.0e-5' },
|
|
'Number',
|
|
6,
|
|
{ data = { is_float = true, base = 10, val = 2e-5 }, str = '2.0e-5' }
|
|
)
|
|
simple_test(
|
|
{ '2.500000e-5' },
|
|
'Number',
|
|
11,
|
|
{ data = { is_float = true, base = 10, val = 2.5e-5 }, str = '2.500000e-5' }
|
|
)
|
|
simple_test(
|
|
{ '2.5555e2' },
|
|
'Number',
|
|
8,
|
|
{ data = { is_float = true, base = 10, val = 2.5555e2 }, str = '2.5555e2' }
|
|
)
|
|
simple_test(
|
|
{ '2.5555e+2' },
|
|
'Number',
|
|
9,
|
|
{ data = { is_float = true, base = 10, val = 2.5555e2 }, str = '2.5555e+2' }
|
|
)
|
|
simple_test(
|
|
{ '2.5555e-2' },
|
|
'Number',
|
|
9,
|
|
{ data = { is_float = true, base = 10, val = 2.5555e-2 }, str = '2.5555e-2' }
|
|
)
|
|
simple_test(
|
|
{ { data = '2.5e-5', size = 3 } },
|
|
'Number',
|
|
3,
|
|
{ data = { is_float = true, base = 10, val = 2.5 }, str = '2.5' }
|
|
)
|
|
simple_test(
|
|
{ { data = '2.5e5', size = 4 } },
|
|
'Number',
|
|
1,
|
|
{ data = { is_float = false, base = 10, val = 2 }, str = '2' }
|
|
)
|
|
simple_test(
|
|
{ { data = '2.5e-50', size = 6 } },
|
|
'Number',
|
|
6,
|
|
{ data = { is_float = true, base = 10, val = 2.5e-5 }, str = '2.5e-5' }
|
|
)
|
|
end)
|
|
itp('treats `is` as an identifier', function()
|
|
flags = tonumber(lib.kELFlagIsNotCmp)
|
|
stable_tests()
|
|
|
|
regular_eoc_tests()
|
|
regular_scope_tests()
|
|
regular_number_tests()
|
|
|
|
simple_test(
|
|
{ 'is' },
|
|
'PlainIdentifier',
|
|
2,
|
|
{ data = { scope = 0, autoload = false }, str = 'is' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot' },
|
|
'PlainIdentifier',
|
|
5,
|
|
{ data = { scope = 0, autoload = false }, str = 'isnot' }
|
|
)
|
|
simple_test(
|
|
{ 'is?' },
|
|
'PlainIdentifier',
|
|
2,
|
|
{ data = { scope = 0, autoload = false }, str = 'is' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot?' },
|
|
'PlainIdentifier',
|
|
5,
|
|
{ data = { scope = 0, autoload = false }, str = 'isnot' }
|
|
)
|
|
simple_test(
|
|
{ 'is#' },
|
|
'PlainIdentifier',
|
|
3,
|
|
{ data = { scope = 0, autoload = true }, str = 'is#' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot#' },
|
|
'PlainIdentifier',
|
|
6,
|
|
{ data = { scope = 0, autoload = true }, str = 'isnot#' }
|
|
)
|
|
simple_test(
|
|
{ 'is#foo' },
|
|
'PlainIdentifier',
|
|
6,
|
|
{ data = { scope = 0, autoload = true }, str = 'is#foo' }
|
|
)
|
|
simple_test(
|
|
{ 'isnot#foo' },
|
|
'PlainIdentifier',
|
|
9,
|
|
{ data = { scope = 0, autoload = true }, str = 'isnot#foo' }
|
|
)
|
|
end)
|
|
itp('forbids EOC', function()
|
|
flags = tonumber(lib.kELFlagForbidEOC)
|
|
stable_tests()
|
|
|
|
regular_scope_tests()
|
|
regular_is_tests()
|
|
regular_number_tests()
|
|
|
|
singl_eltkn_test('Invalid', '|', { error = 'E15: Unexpected EOC character: %.*s' })
|
|
singl_eltkn_test('Invalid', '\0', { error = 'E15: Unexpected EOC character: %.*s' })
|
|
singl_eltkn_test('Invalid', '\n', { error = 'E15: Unexpected EOC character: %.*s' })
|
|
end)
|
|
end)
|