summaryrefslogtreecommitdiff
path: root/uvim/src/testdir/test_lua.mnv
diff options
context:
space:
mode:
authorMehmet Samet Duman <yongdohyun@projecttick.org>2026-04-04 12:41:27 +0300
committerMehmet Samet Duman <yongdohyun@projecttick.org>2026-04-04 12:41:27 +0300
commit4f2d36194b4f299aa7509d815c07121039ea833b (patch)
treef3ded014bad3a4c76ff6a22b8726ebaab68c3d13 /uvim/src/testdir/test_lua.mnv
parent5b578e70c314723a3cde5c9bfc2be0bf1dadc93b (diff)
downloadProject-Tick-4f2d36194b4f299aa7509d815c07121039ea833b.tar.gz
Project-Tick-4f2d36194b4f299aa7509d815c07121039ea833b.zip
NOISSUE change uvim folder name to mnv
Signed-off-by: Mehmet Samet Duman <yongdohyun@projecttick.org>
Diffstat (limited to 'uvim/src/testdir/test_lua.mnv')
-rw-r--r--uvim/src/testdir/test_lua.mnv1281
1 files changed, 0 insertions, 1281 deletions
diff --git a/uvim/src/testdir/test_lua.mnv b/uvim/src/testdir/test_lua.mnv
deleted file mode 100644
index fd299a7570..0000000000
--- a/uvim/src/testdir/test_lua.mnv
+++ /dev/null
@@ -1,1281 +0,0 @@
-" Tests for Lua.
-
-" This test also works without the lua feature.
-func Test_skip_lua()
- if 0
- lua print("Not executed")
- endif
-endfunc
-
-CheckFeature lua
-
-" Depending on the lua version, the error messages are different.
-let [s:major, s:minor, s:patch] = luaeval('mnv.lua_version')->split('\.')->map({-> str2nr(v:val)})
-let s:lua_53_or_later = 0
-let s:lua_543 = 0
-if (s:major == 5 && s:minor >= 3) || s:major > 5
- let s:lua_53_or_later = 1
- if s:major == 5 && s:minor == 4 && s:patch == 3
- let s:lua_543 = 1
- endif
-endif
-
-func TearDown()
- " Run garbage collection after each test to exercise luaV_setref().
- call test_garbagecollect_now()
-endfunc
-
-" Check that switching to another buffer does not trigger ml_get error.
-func Test_lua_luado_change_buffer()
- new
-
- let wincount = winnr('$')
- call setline(1, ['one', 'two', 'three'])
- luado mnv.command("new")
- call assert_equal(wincount + 1, winnr('$'))
-
- %bwipe!
-endfunc
-
-" Check that :luado deleting lines does not trigger ml_get error.
-func Test_lua_luado_delete_lines()
- new
-
- call setline(1, ['one', 'two', 'three'])
- luado mnv.command("%d_")
- call assert_equal([''], getline(1, '$'))
-
- call setline(1, ['one', 'two', 'three'])
- luado mnv.command("1,2d_")
- call assert_equal(['three'], getline(1, '$'))
-
- call setline(1, ['one', 'two', 'three'])
- luado mnv.command("2,3d_"); return "REPLACED"
- call assert_equal(['REPLACED'], getline(1, '$'))
-
- call setline(1, ['one', 'two', 'three'])
- 2,3luado mnv.command("1,2d_"); return "REPLACED"
- call assert_equal(['three'], getline(1, '$'))
-
- bwipe!
-endfunc
-
-func Test_lua_luado()
- new
- call setline(1, ['one', 'two'])
- luado return(linenr)
- call assert_equal(['1', '2'], getline(1, '$'))
- close!
-
- " Error cases
- call assert_fails('luado string.format()',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'format' (string expected, got no value)")
- if s:lua_543
- let msg = "[string \"mnv chunk\"]:1: global 'func' is not callable (a nil value)"
- elseif s:lua_53_or_later
- let msg = "[string \"mnv chunk\"]:1: attempt to call a nil value (global 'func')"
- else
- let msg = "[string \"mnv chunk\"]:1: attempt to call global 'func' (a nil value)"
- endif
- call assert_fails('luado func()', msg)
- call assert_fails('luado error("failed")', "[string \"mnv chunk\"]:1: failed")
-endfunc
-
-" Test mnv.eval()
-func Test_lua_eval()
- " lua.eval with a number
- lua v = mnv.eval('123')
- call assert_equal('number', luaeval('mnv.type(v)'))
- call assert_equal(123, luaeval('v'))
-
- " lua.eval with a string
- lua v = mnv.eval('"abc"')
- call assert_equal('string', 'mnv.type(v)'->luaeval())
- call assert_equal('abc', luaeval('v'))
-
- " lua.eval with a list
- lua v = mnv.eval("['a']")
- call assert_equal('list', luaeval('mnv.type(v)'))
- call assert_equal(['a'], luaeval('v'))
-
- " lua.eval with a dict
- lua v = mnv.eval("{'a':'b'}")
- call assert_equal('dict', luaeval('mnv.type(v)'))
- call assert_equal({'a':'b'}, luaeval('v'))
-
- " lua.eval with a blob
- lua v = mnv.eval("0z00112233.deadbeef")
- call assert_equal('blob', luaeval('mnv.type(v)'))
- call assert_equal(0z00112233.deadbeef, luaeval('v'))
-
- " lua.eval with a float
- lua v = mnv.eval('3.14')
- call assert_equal('number', luaeval('mnv.type(v)'))
- call assert_equal(3.14, luaeval('v'))
-
- " lua.eval with a bool
- lua v = mnv.eval('v:true')
- call assert_equal('boolean', luaeval('mnv.type(v)'))
- call assert_equal(v:true, luaeval('v'))
- lua v = mnv.eval('v:false')
- call assert_equal('boolean', luaeval('mnv.type(v)'))
- call assert_equal(v:false, luaeval('v'))
-
- " lua.eval with a null
- lua v = mnv.eval('v:null')
- call assert_equal('nil', luaeval('mnv.type(v)'))
- call assert_equal(v:null, luaeval('v'))
-
- call assert_fails('lua v = mnv.eval(nil)',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'eval' (string expected, got nil)")
- call assert_fails('lua v = mnv.eval(true)',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'eval' (string expected, got boolean)")
- call assert_fails('lua v = mnv.eval({})',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'eval' (string expected, got table)")
- call assert_fails('lua v = mnv.eval(print)',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'eval' (string expected, got function)")
- call assert_fails('lua v = mnv.eval(mnv.buffer())',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'eval' (string expected, got userdata)")
-
- lua v = nil
-endfunc
-
-" Test luaeval() with lambda
-func Test_luaeval_with_lambda()
- lua function hello_luaeval_lambda(a, cb) return a .. cb() end
- call assert_equal('helloworld',
- \ luaeval('hello_luaeval_lambda(_A[1], _A[2])',
- \ ['hello', {->'world'}]))
- lua hello_luaeval_lambda = nil
-endfunc
-
-" Test mnv.window()
-func Test_lua_window()
- e Xfoo2
- new Xfoo1
-
- " Window 1 (top window) contains Xfoo1
- " Window 2 (bottom window) contains Xfoo2
- call assert_equal('Xfoo1', luaeval('mnv.window(1):buffer().name'))
- call assert_equal('Xfoo2', luaeval('mnv.window(2):buffer().name'))
-
- " Window 3 does not exist so mnv.window(3) should return nil
- call assert_equal('nil', luaeval('tostring(mnv.window(3))'))
-
- if s:lua_543
- let msg = "[string \"luaeval\"]:1: field 'xyz' is not callable (a nil value)"
- elseif s:lua_53_or_later
- let msg = "[string \"luaeval\"]:1: attempt to call a nil value (field 'xyz')"
- else
- let msg = "[string \"luaeval\"]:1: attempt to call field 'xyz' (a nil value)"
- endif
- call assert_fails("let n = luaeval('mnv.window().xyz()')", msg)
- call assert_fails('lua mnv.window().xyz = 1',
- \ "[string \"mnv chunk\"]:1: invalid window property: `xyz'")
-
- %bwipe!
-endfunc
-
-" Test mnv.window().height
-func Test_lua_window_height()
- new
- lua mnv.window().height = 2
- call assert_equal(2, winheight(0))
- lua mnv.window().height = mnv.window().height + 1
- call assert_equal(3, winheight(0))
- bwipe!
-endfunc
-
-" Test mnv.window().width
-func Test_lua_window_width()
- vert new
- lua mnv.window().width = 2
- call assert_equal(2, winwidth(0))
- lua mnv.window().width = mnv.window().width + 1
- call assert_equal(3, winwidth(0))
- bwipe!
-endfunc
-
-" Test mnv.window().line and mnv.window.col
-func Test_lua_window_line_col()
- new
- call setline(1, ['line1', 'line2', 'line3'])
- lua mnv.window().line = 2
- lua mnv.window().col = 4
- call assert_equal([0, 2, 4, 0], getpos('.'))
- lua mnv.window().line = mnv.window().line + 1
- lua mnv.window().col = mnv.window().col - 1
- call assert_equal([0, 3, 3, 0], getpos('.'))
-
- call assert_fails('lua mnv.window().line = 10',
- \ '[string "mnv chunk"]:1: line out of range')
- bwipe!
-endfunc
-
-" Test mnv.call
-func Test_lua_call()
- call assert_equal(has('lua'), luaeval('mnv.call("has", "lua")'))
- call assert_equal(printf("Hello %s", "mnv"), luaeval('mnv.call("printf", "Hello %s", "mnv")'))
-
- " Error cases
- call assert_fails("call luaeval('mnv.call(\"min\", 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21)')",
- \ s:lua_53_or_later
- \ ? '[string "luaeval"]:1: Function called with too many arguments'
- \ : 'Function called with too many arguments')
- lua co = coroutine.create(function () print("hi") end)
- call assert_fails("call luaeval('mnv.call(\"type\", co)')",
- \ s:lua_53_or_later
- \ ? '[string "luaeval"]:1: lua: cannot convert value'
- \ : 'lua: cannot convert value')
- lua co = nil
- call assert_fails("call luaeval('mnv.call(\"abc\")')",
- \ ['E117:', s:lua_53_or_later ? '\[string "luaeval"]:1: lua: call_mnv_function failed'
- \ : 'lua: call_mnv_function failed'])
-endfunc
-
-" Test mnv.fn.*
-func Test_lua_fn()
- call assert_equal(has('lua'), luaeval('mnv.fn.has("lua")'))
- call assert_equal(printf("Hello %s", "mnv"), luaeval('mnv.fn.printf("Hello %s", "mnv")'))
-endfunc
-
-" Test setting the current window
-func Test_lua_window_set_current()
- new Xfoo1
- lua w1 = mnv.window()
- new Xfoo2
- lua w2 = mnv.window()
-
- call assert_equal('Xfoo2', bufname('%'))
- lua w1()
- call assert_equal('Xfoo1', bufname('%'))
- lua w2()
- call assert_equal('Xfoo2', bufname('%'))
-
- lua w1, w2 = nil
- %bwipe!
-endfunc
-
-" Test mnv.window().buffer
-func Test_lua_window_buffer()
- new Xfoo1
- lua w1 = mnv.window()
- lua b1 = w1.buffer()
- new Xfoo2
- lua w2 = mnv.window()
- lua b2 = w2.buffer()
-
- lua b1()
- call assert_equal('Xfoo1', bufname('%'))
- lua b2()
- call assert_equal('Xfoo2', bufname('%'))
-
- lua b1, b2, w1, w2 = nil
- %bwipe!
-endfunc
-
-" Test mnv.window():previous() and mnv.window():next()
-func Test_lua_window_next_previous()
- new Xfoo1
- new Xfoo2
- new Xfoo3
- wincmd j
-
- call assert_equal('Xfoo2', luaeval('mnv.window().buffer().name'))
- call assert_equal('Xfoo1', luaeval('mnv.window():next():buffer().name'))
- call assert_equal('Xfoo3', luaeval('mnv.window():previous():buffer().name'))
-
- %bwipe!
-endfunc
-
-" Test mnv.window():isvalid()
-func Test_lua_window_isvalid()
- new Xfoo
- lua w = mnv.window()
- call assert_true(luaeval('w:isvalid()'))
-
- " FIXME: how to test the case when isvalid() returns v:false?
- " isvalid() gives errors when the window is deleted. Is it a bug?
-
- lua w = nil
- bwipe!
-endfunc
-
-" Test mnv.buffer() with and without argument
-func Test_lua_buffer()
- new Xfoo1
- let bn1 = bufnr('%')
- new Xfoo2
- let bn2 = bufnr('%')
-
- " Test mnv.buffer() without argument.
- call assert_equal('Xfoo2', luaeval("mnv.buffer().name"))
-
- " Test mnv.buffer() with string argument.
- call assert_equal('Xfoo1', luaeval("mnv.buffer('Xfoo1').name"))
- call assert_equal('Xfoo2', luaeval("mnv.buffer('Xfoo2').name"))
-
- " Test mnv.buffer() with integer argument.
- call assert_equal('Xfoo1', luaeval("mnv.buffer(" . bn1 . ").name"))
- call assert_equal('Xfoo2', luaeval("mnv.buffer(" . bn2 . ").name"))
-
- lua bn1, bn2 = nil
- %bwipe!
-endfunc
-
-" Test mnv.buffer().name and mnv.buffer().fname
-func Test_lua_buffer_name()
- new
- call assert_equal('', luaeval('mnv.buffer().name'))
- call assert_equal('', luaeval('mnv.buffer().fname'))
- bwipe!
-
- new Xfoo
- call assert_equal('Xfoo', luaeval('mnv.buffer().name'))
- call assert_equal(expand('%:p'), luaeval('mnv.buffer().fname'))
- bwipe!
-endfunc
-
-" Test mnv.buffer().number
-func Test_lua_buffer_number()
- " All numbers in Lua are floating points number (no integers).
- call assert_equal(bufnr('%'), float2nr(luaeval('mnv.buffer().number')))
-endfunc
-
-" Test inserting lines in buffer.
-func Test_lua_buffer_insert()
- new
- lua mnv.buffer()[1] = '3'
- lua mnv.buffer():insert('1', 0)
- lua mnv.buffer():insert('2', 1)
- lua mnv.buffer():insert('4', 10)
-
- call assert_equal(['1', '2', '3', '4'], getline(1, '$'))
- call assert_equal('4', luaeval('mnv.buffer()[4]'))
- call assert_equal(v:null, luaeval('mnv.buffer()[5]'))
- call assert_equal(v:null, luaeval('mnv.buffer()[{}]'))
- if s:lua_543
- let msg = "[string \"mnv chunk\"]:1: method 'xyz' is not callable (a nil value)"
- elseif s:lua_53_or_later
- let msg = "[string \"mnv chunk\"]:1: attempt to call a nil value (method 'xyz')"
- else
- let msg = "[string \"mnv chunk\"]:1: attempt to call method 'xyz' (a nil value)"
- endif
- call assert_fails('lua mnv.buffer():xyz()', msg)
- call assert_fails('lua mnv.buffer()[1] = {}',
- \ '[string "mnv chunk"]:1: wrong argument to change')
- bwipe!
-endfunc
-
-" Test deleting line in buffer
-func Test_lua_buffer_delete()
- new
- call setline(1, ['1', '2', '3'])
- call cursor(3, 1)
- lua mnv.buffer()[2] = nil
- call assert_equal(['1', '3'], getline(1, '$'))
-
- call assert_fails('lua mnv.buffer()[3] = nil',
- \ '[string "mnv chunk"]:1: invalid line number')
- bwipe!
-endfunc
-
-" Test #mnv.buffer() i.e. number of lines in buffer
-func Test_lua_buffer_number_lines()
- new
- call setline(1, ['a', 'b', 'c'])
- call assert_equal(3, luaeval('#mnv.buffer()'))
- bwipe!
-endfunc
-
-" Test mnv.buffer():next() and mnv.buffer():previous()
-" Note that these functions get the next or previous buffers
-" but do not switch buffer.
-func Test_lua_buffer_next_previous()
- new Xfoo1
- new Xfoo2
- new Xfoo3
- b Xfoo2
-
- lua bn = mnv.buffer():next()
- lua bp = mnv.buffer():previous()
-
- call assert_equal('Xfoo2', luaeval('mnv.buffer().name'))
- call assert_equal('Xfoo1', luaeval('bp.name'))
- call assert_equal('Xfoo3', luaeval('bn.name'))
-
- call assert_equal('Xfoo2', bufname('%'))
-
- lua bn()
- call assert_equal('Xfoo3', luaeval('mnv.buffer().name'))
- call assert_equal('Xfoo3', bufname('%'))
-
- lua bp()
- call assert_equal('Xfoo1', luaeval('mnv.buffer().name'))
- call assert_equal('Xfoo1', bufname('%'))
-
- lua bn, bp = nil
- %bwipe!
-endfunc
-
-" Test mnv.buffer():isvalid()
-func Test_lua_buffer_isvalid()
- new Xfoo
- lua b = mnv.buffer()
- call assert_true(luaeval('b:isvalid()'))
-
- " FIXME: how to test the case when isvalid() returns v:false?
- " isvalid() gives errors when the buffer is wiped. Is it a bug?
-
- lua b = nil
- bwipe!
-endfunc
-
-func Test_lua_list()
- call assert_equal([], luaeval('mnv.list()'))
-
- let l = []
- lua l = mnv.eval('l')
- lua l:add(123)
- lua l:add('abc')
- lua l:add(true)
- lua l:add(false)
- lua l:add(nil)
- lua l:add(mnv.eval("[1, 2, 3]"))
- lua l:add(mnv.eval("{'a':1, 'b':2, 'c':3}"))
- call assert_equal([123, 'abc', v:true, v:false, v:null, [1, 2, 3], {'a': 1, 'b': 2, 'c': 3}], l)
- call assert_equal(7, luaeval('#l'))
- call assert_match('^list: \%(0x\)\?\x\+$', luaeval('tostring(l)'))
-
- lua l[1] = 124
- lua l[6] = nil
- lua l:insert('first')
- lua l:insert('xx', 3)
- call assert_fails('lua l:insert("xx", -20)',
- \ '[string "mnv chunk"]:1: invalid position')
- call assert_equal(['first', 124, 'abc', 'xx', v:true, v:false, v:null, {'a': 1, 'b': 2, 'c': 3}], l)
-
- lockvar 1 l
- call assert_fails('lua l:add("x")', '[string "mnv chunk"]:1: list is locked')
- call assert_fails('lua l:insert(2)', '[string "mnv chunk"]:1: list is locked')
- call assert_fails('lua l[9] = 1', '[string "mnv chunk"]:1: list is locked')
-
- unlockvar l
- let l = [1, 2]
- lua ll = mnv.eval('l')
- let x = luaeval("ll[3]")
- call assert_equal(v:null, x)
- if s:lua_543
- let msg = "[string \"luaeval\"]:1: method 'xyz' is not callable (a nil value)"
- elseif s:lua_53_or_later
- let msg = "[string \"luaeval\"]:1: attempt to call a nil value (method 'xyz')"
- else
- let msg = "[string \"luaeval\"]:1: attempt to call method 'xyz' (a nil value)"
- endif
- call assert_fails('let x = luaeval("ll:xyz(3)")', msg)
- let y = luaeval("ll[{}]")
- call assert_equal(v:null, y)
-
- lua l = nil
-endfunc
-
-func Test_lua_list_table()
- " See :help lua-mnv
- " Non-numeric keys should not be used to initialize the list
- " so say = 'hi' should be ignored.
- lua t = {3.14, 'hello', false, true, say = 'hi'}
- call assert_equal([3.14, 'hello', v:false, v:true], luaeval('mnv.list(t)'))
- lua t = nil
-
- call assert_fails('lua mnv.list(1)', '[string "mnv chunk"]:1: table expected, got number')
- call assert_fails('lua mnv.list("x")', '[string "mnv chunk"]:1: table expected, got string')
- call assert_fails('lua mnv.list(print)', '[string "mnv chunk"]:1: table expected, got function')
- call assert_fails('lua mnv.list(true)', '[string "mnv chunk"]:1: table expected, got boolean')
-endfunc
-
-func Test_lua_list_table_insert_remove()
- if !s:lua_53_or_later
- throw 'Skipped: Lua version < 5.3'
- endif
-
- let l = [1, 2]
- lua t = mnv.eval('l')
- lua table.insert(t, 10)
- lua t[#t + 1] = 20
- lua table.insert(t, 2, 30)
- call assert_equal(l, [1, 30, 2, 10, 20])
- lua table.remove(t, 2)
- call assert_equal(l, [1, 2, 10, 20])
- lua t[3] = nil
- call assert_equal(l, [1, 2, 20])
- lua removed_value = table.remove(t, 3)
- call assert_equal(luaeval('removed_value'), 20)
- lua t = nil
- lua removed_value = nil
- unlet l
-endfunc
-
-" Test l() i.e. iterator on list
-func Test_lua_list_iter()
- lua l = mnv.list():add('foo'):add('bar')
- lua str = ''
- lua for v in l() do str = str .. v end
- call assert_equal('foobar', luaeval('str'))
-
- lua str, l = nil
-endfunc
-
-func Test_lua_recursive_list()
- lua l = mnv.list():add(1):add(2)
- lua l = l:add(l)
-
- call assert_equal(1, luaeval('l[1]'))
- call assert_equal(2, luaeval('l[2]'))
-
- call assert_equal(1, luaeval('l[3][1]'))
- call assert_equal(2, luaeval('l[3][2]'))
-
- call assert_equal(1, luaeval('l[3][3][1]'))
- call assert_equal(2, luaeval('l[3][3][2]'))
-
- call assert_equal('[1, 2, [...]]', string(luaeval('l')))
-
- call assert_match('^list: \%(0x\)\?\x\+$', luaeval('tostring(l)'))
- call assert_equal(luaeval('tostring(l)'), luaeval('tostring(l[3])'))
-
- call assert_equal(luaeval('l'), luaeval('l[3]'))
- call assert_equal(luaeval('l'), luaeval('l[3][3]'))
-
- lua l = nil
-endfunc
-
-func Test_lua_dict()
- call assert_equal({}, luaeval('mnv.dict()'))
-
- let d = {}
- lua d = mnv.eval('d')
- lua d[0] = 123
- lua d[1] = "abc"
- lua d[2] = true
- lua d[3] = false
- lua d[4] = mnv.eval("[1, 2, 3]")
- lua d[5] = mnv.eval("{'a':1, 'b':2, 'c':3}")
- call assert_equal({'0':123, '1':'abc', '2':v:true, '3':v:false, '4': [1, 2, 3], '5': {'a':1, 'b':2, 'c':3}}, d)
- call assert_equal(6, luaeval('#d'))
- call assert_match('^dict: \%(0x\)\?\x\+$', luaeval('tostring(d)'))
-
- call assert_equal('abc', luaeval('d[1]'))
- call assert_equal(v:null, luaeval('d[22]'))
-
- lua d[0] = 124
- lua d[4] = nil
- call assert_equal({'0':124, '1':'abc', '2':v:true, '3':v:false, '5': {'a':1, 'b':2, 'c':3}}, d)
-
- lockvar 1 d
- call assert_fails('lua d[6] = 1', '[string "mnv chunk"]:1: dict is locked')
- unlockvar d
-
- " Error case
- lua d = {}
- lua d[''] = 10
- call assert_fails("let t = luaeval('mnv.dict(d)')",
- \ s:lua_53_or_later
- \ ? '[string "luaeval"]:1: table has empty key'
- \ : 'table has empty key')
- let d = {}
- lua x = mnv.eval('d')
- call assert_fails("lua x[''] = 10", '[string "mnv chunk"]:1: empty key')
- lua x['a'] = nil
- call assert_equal({}, d)
-
- " cannot assign funcrefs in the global scope
- lua x = mnv.eval('g:')
- call assert_fails("lua x['min'] = mnv.funcref('max')",
- \ '[string "mnv chunk"]:1: cannot assign funcref to builtin scope')
-
- lua d = nil
-endfunc
-
-func Test_lua_dict_table()
- lua t = {key1 = 'x', key2 = 3.14, key3 = true, key4 = false}
- call assert_equal({'key1': 'x', 'key2': 3.14, 'key3': v:true, 'key4': v:false},
- \ luaeval('mnv.dict(t)'))
-
- " Same example as in :help lua-mnv.
- lua t = {math.pi, false, say = 'hi'}
- " FIXME: commented out as it currently does not work as documented:
- " Expected {'say': 'hi'}
- " but got {'1': 3.141593, '2': v:false, 'say': 'hi'}
- " Is the documentation or the code wrong?
- "call assert_equal({'say' : 'hi'}, luaeval('mnv.dict(t)'))
- lua t = nil
-
- call assert_fails('lua mnv.dict(1)', '[string "mnv chunk"]:1: table expected, got number')
- call assert_fails('lua mnv.dict("x")', '[string "mnv chunk"]:1: table expected, got string')
- call assert_fails('lua mnv.dict(print)', '[string "mnv chunk"]:1: table expected, got function')
- call assert_fails('lua mnv.dict(true)', '[string "mnv chunk"]:1: table expected, got boolean')
-endfunc
-
-" Test d() i.e. iterator on dictionary
-func Test_lua_dict_iter()
- let d = {'a': 1, 'b':2}
- lua d = mnv.eval('d')
- lua str = ''
- lua for k,v in d() do str = str .. k ..':' .. v .. ',' end
- call assert_equal('a:1,b:2,', luaeval('str'))
-
- lua str, d = nil
-endfunc
-
-func Test_lua_blob()
- call assert_equal(0z, luaeval('mnv.blob("")'))
- call assert_equal(0z31326162, luaeval('mnv.blob("12ab")'))
- call assert_equal(0z00010203, luaeval('mnv.blob("\000\001\002\003")'))
- call assert_equal(0z8081FEFF, luaeval('mnv.blob("\128\129\254\255")'))
-
- lua b = mnv.blob("\000\000\000\000")
- call assert_equal(0z00000000, luaeval('b'))
- call assert_equal(4, luaeval('#b'))
- lua b[0], b[1], b[2], b[3] = 1, 32, 256, 0xff
- call assert_equal(0z012000ff, luaeval('b'))
- lua b[4] = string.byte("z", 1)
- call assert_equal(0z012000ff.7a, luaeval('b'))
- call assert_equal(5, luaeval('#b'))
- call assert_fails('lua b[#b+1] = 0x80', '[string "mnv chunk"]:1: index out of range')
- lua b:add("12ab")
- call assert_equal(0z012000ff.7a313261.62, luaeval('b'))
- call assert_equal(9, luaeval('#b'))
- call assert_fails('lua b:add(nil)', '[string "mnv chunk"]:1: string expected, got nil')
- call assert_fails('lua b:add(true)', '[string "mnv chunk"]:1: string expected, got boolean')
- call assert_fails('lua b:add({})', '[string "mnv chunk"]:1: string expected, got table')
- lua b = nil
-
- let b = 0z0102
- lua lb = mnv.eval('b')
- let n = luaeval('lb[1]')
- call assert_equal(2, n)
- let n = luaeval('lb[6]')
- call assert_equal(v:null, n)
- if s:lua_543
- let msg = "[string \"luaeval\"]:1: method 'xyz' is not callable (a nil value)"
- elseif s:lua_53_or_later
- let msg = "[string \"luaeval\"]:1: attempt to call a nil value (method 'xyz')"
- else
- let msg = "[string \"luaeval\"]:1: attempt to call method 'xyz' (a nil value)"
- endif
- call assert_fails('let x = luaeval("lb:xyz(3)")', msg)
- let y = luaeval("lb[{}]")
- call assert_equal(v:null, y)
-
- lockvar b
- call assert_fails('lua lb[1] = 2', '[string "mnv chunk"]:1: blob is locked')
- call assert_fails('lua lb:add("12")', '[string "mnv chunk"]:1: blob is locked')
-
- " Error cases
- lua t = {}
- call assert_fails('lua b = mnv.blob(t)',
- \ '[string "mnv chunk"]:1: string expected, got table')
-endfunc
-
-def MNV9Test(Callback: func())
- Callback()
-enddef
-
-func Test_call_lua_func_from_mnv9_func()
- " this only tests that MNV doesn't crash
- lua << EOF
-mnv.fn.MNV9Test(function () print('Hello') end)
-EOF
-endfunc
-
-func Test_lua_funcref()
- function I(x)
- return a:x
- endfunction
- let R = function('I')
- lua i1 = mnv.funcref"I"
- lua i2 = mnv.eval"R"
- lua msg = "funcref|test|" .. (#i2(i1) == #i1(i2) and "OK" or "FAIL")
- lua msg = mnv.funcref"tr"(msg, "|", " ")
- call assert_equal("funcref test OK", luaeval('msg'))
-
- " Error cases
- call assert_fails('lua f1 = mnv.funcref("")',
- \ '[string "mnv chunk"]:1: invalid function name: ')
- call assert_fails('lua f1 = mnv.funcref("10")',
- \ '[string "mnv chunk"]:1: invalid function name: 10')
- let fname = test_null_string()
- call assert_fails('lua f1 = mnv.funcref(fname)',
- \ "[string \"mnv chunk\"]:1: bad argument #1 to 'funcref' (string expected, got nil)")
- call assert_fails('lua mnv.funcref("abc")()',
- \ ['E117:', '\[string "mnv chunk"]:1: cannot call funcref'])
-
- " dict funcref
- function Mylen() dict
- return len(self.data)
- endfunction
- let l = [0, 1, 2, 3]
- let mydict = {'data': l}
- lua d = mnv.eval"mydict"
- lua d.len = mnv.funcref"Mylen" -- assign d as 'self'
- lua res = (d.len() == mnv.funcref"len"(mnv.eval"l")) and "OK" or "FAIL"
- call assert_equal("OK", luaeval('res'))
- call assert_equal(function('Mylen', {'data': l, 'len': function('Mylen')}), mydict.len)
-
- lua i1, i2, msg, d, res = nil
-endfunc
-
-" Test mnv.type()
-func Test_lua_type()
- " The following values are identical to Lua's type function.
- call assert_equal('string', luaeval('mnv.type("foo")'))
- call assert_equal('number', luaeval('mnv.type(1)'))
- call assert_equal('number', luaeval('mnv.type(1.2)'))
- call assert_equal('function', luaeval('mnv.type(print)'))
- call assert_equal('table', luaeval('mnv.type({})'))
- call assert_equal('boolean', luaeval('mnv.type(true)'))
- call assert_equal('boolean', luaeval('mnv.type(false)'))
- call assert_equal('nil', luaeval('mnv.type(nil)'))
-
- " The following values are specific to MNV.
- call assert_equal('window', luaeval('mnv.type(mnv.window())'))
- call assert_equal('buffer', luaeval('mnv.type(mnv.buffer())'))
- call assert_equal('list', luaeval('mnv.type(mnv.list())'))
- call assert_equal('dict', luaeval('mnv.type(mnv.dict())'))
- call assert_equal('funcref', luaeval('mnv.type(mnv.funcref("Test_type"))'))
-endfunc
-
-" Test mnv.open()
-func Test_lua_open()
- call assert_notmatch('XOpen', execute('ls'))
-
- " Open a buffer XOpen1, but do not jump to it.
- lua b = mnv.open('XOpen1')
- call assert_equal('XOpen1', luaeval('b.name'))
- call assert_equal('', bufname('%'))
-
- call assert_match('XOpen1', execute('ls'))
- call assert_notequal('XOpen2', bufname('%'))
-
- " Open a buffer XOpen2 and jump to it.
- lua b = mnv.open('XOpen2')()
- call assert_equal('XOpen2', luaeval('b.name'))
- call assert_equal('XOpen2', bufname('%'))
-
- lua b = nil
- %bwipe!
-endfunc
-
-func Test_update_package_paths()
- set runtimepath+=./testluaplugin
- call assert_equal("hello from lua", luaeval("require('testluaplugin').hello()"))
-endfunc
-
-func MNV_func_call_lua_callback(Concat, Cb)
- let l:message = a:Concat("hello", "mnv")
- call a:Cb(l:message)
-endfunc
-
-func Test_pass_lua_callback_to_mnv_from_lua()
- lua pass_lua_callback_to_mnv_from_lua_result = ""
- call assert_equal("", luaeval("pass_lua_callback_to_mnv_from_lua_result"))
- lua <<EOF
- mnv.funcref('MNV_func_call_lua_callback')(
- function(greeting, message)
- return greeting .. " " .. message
- end,
- function(message)
- pass_lua_callback_to_mnv_from_lua_result = message
- end)
-EOF
- call assert_equal("hello mnv", luaeval("pass_lua_callback_to_mnv_from_lua_result"))
-endfunc
-
-func MNV_func_call_metatable_lua_callback(Greet)
- return a:Greet("world")
-endfunc
-
-func Test_pass_lua_metatable_callback_to_mnv_from_lua()
- let result = luaeval("mnv.funcref('MNV_func_call_metatable_lua_callback')(setmetatable({ space = ' '}, { __call = function(tbl, msg) return 'hello' .. tbl.space .. msg end }) )")
- call assert_equal("hello world", result)
-endfunc
-
-" Test mnv.line()
-func Test_lua_line()
- new
- call setline(1, ['first line', 'second line'])
- 1
- call assert_equal('first line', luaeval('mnv.line()'))
- 2
- call assert_equal('second line', luaeval('mnv.line()'))
- bwipe!
-endfunc
-
-" Test mnv.beep()
-func Test_lua_beep()
- call assert_beeps('lua mnv.beep()')
-endfunc
-
-" Test errors in luaeval()
-func Test_luaeval_error()
- " Compile error
- call assert_fails("call luaeval('-nil')",
- \ '[string "luaeval"]:1: attempt to perform arithmetic on a nil value')
- call assert_fails("call luaeval(']')",
- \ "[string \"luaeval\"]:1: unexpected symbol near ']'")
- lua co = coroutine.create(function () print("hi") end)
- call assert_fails('let i = luaeval("co")', 'luaeval: cannot convert value')
- lua co = nil
- call assert_fails('let m = luaeval("{}")', 'luaeval: cannot convert value')
-endfunc
-
-" Test :luafile foo.lua
-func Test_luafile()
- call writefile(["str = 'hello'", "num = 123" ], 'Xlua_file', 'D')
- call setfperm('Xlua_file', 'r-xr-xr-x')
-
- luafile Xlua_file
- call assert_equal('hello', luaeval('str'))
- call assert_equal(123, luaeval('num'))
-
- lua str, num = nil
-endfunc
-
-" Test :luafile %
-func Test_luafile_percent()
- new Xlua_file
- append
- str, num = 'foo', 321.0
- print(string.format('str=%s, num=%d', str, num))
-.
- w!
- luafile %
- let msg = split(execute('message'), "\n")[-1]
- call assert_equal('str=foo, num=321', msg)
-
- lua str, num = nil
- call delete('Xlua_file')
- bwipe!
-endfunc
-
-" Test :luafile with syntax error
-func Test_luafile_error()
- new Xlua_file
- call writefile(['nil = 0' ], 'Xlua_file', 'D')
- call setfperm('Xlua_file', 'r-xr-xr-x')
-
- call assert_fails('luafile Xlua_file', "Xlua_file:1: unexpected symbol near 'nil'")
-
- bwipe!
-endfunc
-
-" Test :luafile printing a long string
-func Test_luafile_print()
- new Xlua_file
- let lines =<< trim END
- local data = ''
- for i = 1, 130 do
- data = data .. 'xxxxx asd as as dad sad sad xz cxz czxcxzczxc ad ad asd asd asd asd asd'
- end
- print(data)
- END
- call setline(1, lines)
- w
- luafile %
-
- call delete('Xlua_file')
- bwipe!
-endfunc
-
-" Test for dealing with strings containing newlines and null character
-func Test_lua_string_with_newline()
- let x = execute('lua print("Hello\nWorld", 2)')
- call assert_equal("\nHello\nWorld 2", x)
- new
- lua k = mnv.buffer(mnv.eval('bufnr()'))
- lua k:insert("Hello\0World", 0)
- call assert_equal(["Hello\nWorld", ''], getline(1, '$'))
- close!
-endfunc
-
-func Test_lua_set_cursor()
- " Check that setting the cursor position works.
- new
- call setline(1, ['first line', 'second line'])
- normal gg
- lua << trim EOF
- w = mnv.window()
- w.line = 1
- w.col = 5
- EOF
- call assert_equal([1, 5], [line('.'), col('.')])
-
- " Check that movement after setting cursor position keeps current column.
- normal j
- call assert_equal([2, 5], [line('.'), col('.')])
-endfunc
-
-" Test for various heredoc syntax
-func Test_lua_heredoc()
- lua << END
-mnv.command('let s = "A"')
-END
- lua <<
-mnv.command('let s ..= "B"')
-.
- lua << trim END
- mnv.command('let s ..= "C"')
- END
- lua << trim
- mnv.command('let s ..= "D"')
- .
- lua << trim eof
- mnv.command('let s ..= "E"')
- eof
- lua << trimm
-mnv.command('let s ..= "F"')
-trimm
- call assert_equal('ABCDEF', s)
-endfunc
-
-" Test for adding, accessing and removing global variables using the mnv.g
-" Lua table
-func Test_lua_global_var_table()
- " Access global variables with different types of values
- let g:Var1 = 10
- let g:Var2 = 'Hello'
- let g:Var3 = ['a', 'b']
- let g:Var4 = #{x: 'edit', y: 'run'}
- let g:Var5 = function('min')
- call assert_equal(10, luaeval('mnv.g.Var1'))
- call assert_equal('Hello', luaeval('mnv.g.Var2'))
- call assert_equal(['a', 'b'], luaeval('mnv.g.Var3'))
- call assert_equal(#{x: 'edit', y: 'run'}, luaeval('mnv.g.Var4'))
- call assert_equal(2, luaeval('mnv.g.Var5')([5, 9, 2]))
-
- " Access list of dictionaries and dictionary of lists
- let g:Var1 = [#{a: 10}, #{b: 20}]
- let g:Var2 = #{p: [5, 6], q: [1.1, 2.2]}
- call assert_equal([#{a: 10}, #{b: 20}], luaeval('mnv.g.Var1'))
- call assert_equal(#{p: [5, 6], q: [1.1, 2.2]}, luaeval('mnv.g.Var2'))
-
- " Create new global variables with different types of values
- unlet g:Var1 g:Var2 g:Var3 g:Var4 g:Var5
- lua << trim END
- mnv.g.Var1 = 34
- mnv.g.Var2 = 'World'
- mnv.g.Var3 = mnv.list({'#', '$'})
- mnv.g.Var4 = mnv.dict({model='honda', year=2020})
- mnv.g.Var5 = mnv.funcref('max')
- END
- call assert_equal(34, g:Var1)
- call assert_equal('World', g:Var2)
- call assert_equal(['#', '$'], g:Var3)
- call assert_equal(#{model: 'honda', year: 2020}, g:Var4)
- call assert_equal(10, g:Var5([5, 10, 9]))
-
- " Create list of dictionaries and dictionary of lists
- unlet g:Var1 g:Var2
- lua << trim END
- mnv.g.Var1 = mnv.list({mnv.dict({a=10}), mnv.dict({b=20})})
- mnv.g.Var2 = mnv.dict({p=mnv.list({5, 6}), q=mnv.list({1.1, 2.2})})
- END
- call assert_equal([#{a: 10}, #{b: 20}], luaeval('mnv.g.Var1'))
- call assert_equal(#{p: [5, 6], q: [1.1, 2.2]}, luaeval('mnv.g.Var2'))
-
- " Modify a global variable with a list value or a dictionary value
- let g:Var1 = [10, 20]
- let g:Var2 = #{one: 'mercury', two: 'mars'}
- lua << trim END
- mnv.g.Var1[2] = nil
- mnv.g.Var1[3] = 15
- mnv.g.Var2['two'] = nil
- mnv.g.Var2['three'] = 'earth'
- END
- call assert_equal([10, 15], g:Var1)
- call assert_equal(#{one: 'mercury', three: 'earth'}, g:Var2)
-
- " Remove global variables with different types of values
- let g:Var1 = 10
- let g:Var2 = 'Hello'
- let g:Var3 = ['a', 'b']
- let g:Var4 = #{x: 'edit', y: 'run'}
- let g:Var5 = function('min')
- lua << trim END
- mnv.g.Var1 = nil
- mnv.g.Var2 = nil
- mnv.g.Var3 = nil
- mnv.g.Var4 = nil
- mnv.g.Var5 = nil
- END
- call assert_false(exists('g:Var1'))
- call assert_false(exists('g:Var2'))
- call assert_false(exists('g:Var3'))
- call assert_false(exists('g:Var4'))
- call assert_false(exists('g:Var5'))
-
- " Try to modify and remove a locked global variable
- let g:Var1 = 10
- lockvar g:Var1
- call assert_fails('lua mnv.g.Var1 = 20', 'variable is locked')
- call assert_fails('lua mnv.g.Var1 = nil', 'variable is locked')
- unlockvar g:Var1
- let g:Var2 = [7, 14]
- lockvar 0 g:Var2
- lua mnv.g.Var2[2] = nil
- lua mnv.g.Var2[3] = 21
- call assert_fails('lua mnv.g.Var2 = nil', 'variable is locked')
- call assert_equal([7, 21], g:Var2)
- lockvar 1 g:Var2
- call assert_fails('lua mnv.g.Var2[2] = nil', 'list is locked')
- call assert_fails('lua mnv.g.Var2[3] = 21', 'list is locked')
- unlockvar g:Var2
-
- let g:TestFunc = function('len')
- call assert_fails('lua mnv.g.func = mnv.g.TestFunc', ['E704:', 'Couldn''t add to dictionary'])
- unlet g:TestFunc
-
- " Attempt to access a non-existing global variable
- call assert_equal(v:null, luaeval('mnv.g.NonExistingVar'))
- lua mnv.g.NonExisting = nil
-
- unlet! g:Var1 g:Var2 g:Var3 g:Var4 g:Var5
-endfunc
-
-" Test for accessing and modifying predefined mnv variables using the mnv.v
-" Lua table
-func Test_lua_predefined_var_table()
- call assert_equal(v:progpath, luaeval('mnv.v.progpath'))
- let v:errmsg = 'SomeError'
- call assert_equal('SomeError', luaeval('mnv.v.errmsg'))
- lua mnv.v.errmsg = 'OtherError'
- call assert_equal('OtherError', v:errmsg)
- lua mnv.v.errmsg = 42
- call assert_equal('42', v:errmsg)
- call assert_fails('lua mnv.v.errmsg = nil', 'variable is fixed')
- let v:oldfiles = ['one', 'two']
- call assert_equal(['one', 'two'], luaeval('mnv.v.oldfiles'))
- lua mnv.v.oldfiles = mnv.list({})
- call assert_equal([], v:oldfiles)
- call assert_fails('lua mnv.v.oldfiles = "a"',
- \ 'Setting v:oldfiles to value with wrong type')
- call assert_equal([], v:oldfiles)
- call assert_equal(v:null, luaeval('mnv.v.null'))
- call assert_fails('lua mnv.v.argv[1] = nil', 'list is locked')
- call assert_fails('lua mnv.v.newvar = 1', 'Dictionary is locked')
-
- new
- call setline(1, ' foo foo foo')
- /foo
- call assert_equal([0, 1, 2, 0, 2], getcurpos())
- call assert_equal(1, v:searchforward)
- normal! n
- call assert_equal([0, 1, 6, 0, 6], getcurpos())
- lua mnv.v.searchforward = 0
- call assert_equal(0, v:searchforward)
- normal! n
- call assert_equal([0, 1, 2, 0, 2], getcurpos())
- lua mnv.v.searchforward = 1
- call assert_equal(1, v:searchforward)
- normal! n
- call assert_equal([0, 1, 6, 0, 6], getcurpos())
- bwipe!
-endfunc
-
-" Test for adding, accessing and modifying window-local variables using the
-" mnv.w Lua table
-func Test_lua_window_var_table()
- " Access window variables with different types of values
- new
- let w:wvar1 = 10
- let w:wvar2 = 'edit'
- let w:wvar3 = 3.14
- let w:wvar4 = 0zdeadbeef
- let w:wvar5 = ['a', 'b']
- let w:wvar6 = #{action: 'run'}
- call assert_equal(10, luaeval('mnv.w.wvar1'))
- call assert_equal('edit', luaeval('mnv.w.wvar2'))
- call assert_equal(3.14, luaeval('mnv.w.wvar3'))
- call assert_equal(0zdeadbeef, luaeval('mnv.w.wvar4'))
- call assert_equal(['a', 'b'], luaeval('mnv.w.wvar5'))
- call assert_equal(#{action: 'run'}, luaeval('mnv.w.wvar6'))
- call assert_equal(v:null, luaeval('mnv.w.NonExisting'))
-
- " modify a window variable
- lua mnv.w.wvar2 = 'paste'
- call assert_equal('paste', w:wvar2)
-
- " change the type stored in a variable
- let w:wvar2 = [1, 2]
- lua mnv.w.wvar2 = mnv.dict({a=10, b=20})
- call assert_equal(#{a: 10, b: 20}, w:wvar2)
-
- " create a new window variable
- lua mnv.w.wvar7 = mnv.dict({a=mnv.list({1, 2}), b=20})
- call assert_equal(#{a: [1, 2], b: 20}, w:wvar7)
-
- " delete a window variable
- lua mnv.w.wvar2 = nil
- call assert_false(exists('w:wvar2'))
-
- new
- call assert_equal(v:null, luaeval('mnv.w.wvar1'))
- call assert_equal(v:null, luaeval('mnv.w.wvar2'))
- %bw!
-endfunc
-
-" Test for adding, accessing and modifying buffer-local variables using the
-" mnv.b Lua table
-func Test_lua_buffer_var_table()
- " Access buffer variables with different types of values
- let b:bvar1 = 10
- let b:bvar2 = 'edit'
- let b:bvar3 = 3.14
- let b:bvar4 = 0zdeadbeef
- let b:bvar5 = ['a', 'b']
- let b:bvar6 = #{action: 'run'}
- call assert_equal(10, luaeval('mnv.b.bvar1'))
- call assert_equal('edit', luaeval('mnv.b.bvar2'))
- call assert_equal(3.14, luaeval('mnv.b.bvar3'))
- call assert_equal(0zdeadbeef, luaeval('mnv.b.bvar4'))
- call assert_equal(['a', 'b'], luaeval('mnv.b.bvar5'))
- call assert_equal(#{action: 'run'}, luaeval('mnv.b.bvar6'))
- call assert_equal(v:null, luaeval('mnv.b.NonExisting'))
-
- " modify a buffer variable
- lua mnv.b.bvar2 = 'paste'
- call assert_equal('paste', b:bvar2)
-
- " change the type stored in a variable
- let b:bvar2 = [1, 2]
- lua mnv.b.bvar2 = mnv.dict({a=10, b=20})
- call assert_equal(#{a: 10, b: 20}, b:bvar2)
-
- " create a new buffer variable
- lua mnv.b.bvar7 = mnv.dict({a=mnv.list({1, 2}), b=20})
- call assert_equal(#{a: [1, 2], b: 20}, b:bvar7)
-
- " delete a buffer variable
- lua mnv.b.bvar2 = nil
- call assert_false(exists('b:bvar2'))
-
- new
- call assert_equal(v:null, luaeval('mnv.b.bvar1'))
- call assert_equal(v:null, luaeval('mnv.b.bvar2'))
- %bw!
-endfunc
-
-" Test for adding, accessing and modifying tabpage-local variables using the
-" mnv.t Lua table
-func Test_lua_tabpage_var_table()
- " Access tabpage variables with different types of values
- let t:tvar1 = 10
- let t:tvar2 = 'edit'
- let t:tvar3 = 3.14
- let t:tvar4 = 0zdeadbeef
- let t:tvar5 = ['a', 'b']
- let t:tvar6 = #{action: 'run'}
- call assert_equal(10, luaeval('mnv.t.tvar1'))
- call assert_equal('edit', luaeval('mnv.t.tvar2'))
- call assert_equal(3.14, luaeval('mnv.t.tvar3'))
- call assert_equal(0zdeadbeef, luaeval('mnv.t.tvar4'))
- call assert_equal(['a', 'b'], luaeval('mnv.t.tvar5'))
- call assert_equal(#{action: 'run'}, luaeval('mnv.t.tvar6'))
- call assert_equal(v:null, luaeval('mnv.t.NonExisting'))
-
- " modify a tabpage variable
- lua mnv.t.tvar2 = 'paste'
- call assert_equal('paste', t:tvar2)
-
- " change the type stored in a variable
- let t:tvar2 = [1, 2]
- lua mnv.t.tvar2 = mnv.dict({a=10, b=20})
- call assert_equal(#{a: 10, b: 20}, t:tvar2)
-
- " create a new tabpage variable
- lua mnv.t.tvar7 = mnv.dict({a=mnv.list({1, 2}), b=20})
- call assert_equal(#{a: [1, 2], b: 20}, t:tvar7)
-
- " delete a tabpage variable
- lua mnv.t.tvar2 = nil
- call assert_false(exists('t:tvar2'))
-
- tabnew
- call assert_equal(v:null, luaeval('mnv.t.tvar1'))
- call assert_equal(v:null, luaeval('mnv.t.tvar2'))
- %bw!
-endfunc
-
-" Test for mnv.version()
-func Test_lua_mnv_version()
- lua << trim END
- mnvver = mnv.version()
- mnvver_n = mnvver.major * 100 + mnvver.minor
- END
- call assert_equal(v:version, luaeval('mnvver_n'))
-endfunc
-
-" Test for running multiple commands using mnv.command()
-func Test_lua_multiple_commands()
- lua << trim END
- mnv.command([[
- let Var1 = []
- for i in range(3)
- let Var1 += [#{name: 'x'}]
- endfor
- augroup Luagroup
- autocmd!
- autocmd User Luatest echo 'Hello'
- augroup END
- ]])
- END
- call assert_equal([{'name': 'x'}, {'name': 'x'}, {'name': 'x'}], Var1)
- call assert_true(exists('#Luagroup'))
- call assert_true(exists('#Luagroup#User#Luatest'))
- augroup Luagroup
- autocmd!
- augroup END
- augroup! Luagroup
-endfunc
-
-func Test_lua_debug()
- CheckRunMNVInTerminal
-
- let buf = RunMNVInTerminal('', {'rows': 10})
- call term_sendkeys(buf, ":lua debug.debug()\n")
- call WaitForAssert({-> assert_equal('lua_debug> ', term_getline(buf, 10))})
-
- call term_sendkeys(buf, "foo = 42\n")
- call WaitForAssert({-> assert_equal('lua_debug> foo = 42', term_getline(buf, 9))})
- call WaitForAssert({-> assert_equal('lua_debug> ', term_getline(buf, 10))})
-
- call term_sendkeys(buf, "print(foo)\n")
- call WaitForAssert({-> assert_equal('lua_debug> print(foo)', term_getline(buf, 8))})
- call WaitForAssert({-> assert_equal('42', term_getline(buf, 9))})
- call WaitForAssert({-> assert_equal('lua_debug> ', term_getline(buf, 10))})
-
- call term_sendkeys(buf, "-\n")
- call WaitForAssert({-> assert_equal("(debug command):1: unexpected symbol near '-'",
- \ term_getline(buf, 9))})
- call WaitForAssert({-> assert_equal('lua_debug> ', term_getline(buf, 10))})
-
- call term_sendkeys(buf, "cont\n")
- call WaitForAssert({-> assert_match(' All$', term_getline(buf, 10))})
-
- " Entering an empty line also exits the debugger.
- call term_sendkeys(buf, ":lua debug.debug()\n")
- call WaitForAssert({-> assert_equal('lua_debug> ', term_getline(buf, 10))})
- call term_sendkeys(buf, "\n")
- call WaitForAssert({-> assert_match(' All$', term_getline(buf, 10))})
-
- call StopMNVInTerminal(buf)
-endfunc
-
-" Test for a crash when a Lua funcref is invoked with parameters from MNV
-func Test_lua_funcref_with_params()
- let Lua_funcref = luaeval('function(d) local s = "in Lua callback" end')
- call Lua_funcref({'a' : 'b'})
- call assert_true(v:true)
-endfunc
-
-" mnv: shiftwidth=2 sts=2 expandtab