mirror of
https://github.com/neovim/neovim.git
synced 2025-02-25 18:55:25 -06:00
tests: Modernize migrated legacy test 62.
- use eval() and eq() in many places instead of writing to the buffer
- remove has('autocmd') checks and use corresponding code unconditionally as
neovim always has the autocmd feature
- split the test into several it() blocks
Helped-By: Scott Prager <splinterofchaos@gmail.com>
Helped-By: Michael Reed <m.reed@mykolab.com>
This commit is contained in:
Lucas Hoffmann
parent
98c022c329
commit
c51d0e49a9
@ -1,28 +1,21 @@
|
||||
-- Tests for tab pages
|
||||
|
||||
local helpers = require('test.functional.helpers')
|
||||
local feed, insert, source = helpers.feed, helpers.insert, helpers.source
|
||||
local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
|
||||
local feed, insert, source, clear, execute, expect, eval, eq =
|
||||
helpers.feed, helpers.insert, helpers.source, helpers.clear,
|
||||
helpers.execute, helpers.expect, helpers.eval, helpers.eq
|
||||
|
||||
describe('tab pages', function()
|
||||
setup(clear)
|
||||
before_each(clear)
|
||||
|
||||
it('is working', function()
|
||||
insert([=[
|
||||
Results:]=])
|
||||
it('can be opened and closed', function()
|
||||
execute('tabnew')
|
||||
eq(2, eval('tabpagenr()'))
|
||||
execute('quit')
|
||||
eq(1, eval('tabpagenr()'))
|
||||
end)
|
||||
|
||||
execute('lang C')
|
||||
|
||||
-- Simple test for opening and closing a tab page.
|
||||
source([[
|
||||
tabnew
|
||||
let nr = tabpagenr()
|
||||
q
|
||||
call append(line('$'), 'tab page ' . nr)
|
||||
unlet nr
|
||||
]])
|
||||
|
||||
-- Open three tab pages and use ":tabdo".
|
||||
it('can be iterated with :tabdo', function()
|
||||
source([[
|
||||
0tabnew
|
||||
1tabnew
|
||||
@ -30,142 +23,112 @@ describe('tab pages', function()
|
||||
tabdo call append(line('$'), 'this is tab page ' . tabpagenr())
|
||||
tabclose! 2
|
||||
tabrewind
|
||||
let line1 = getline('$')
|
||||
undo
|
||||
q
|
||||
tablast
|
||||
let line2 = getline('$')
|
||||
q!
|
||||
call append(line('$'), line1)
|
||||
call append(line('$'), line2)
|
||||
unlet line1 line2
|
||||
]])
|
||||
eq('this is tab page 1', eval("getline('$')"))
|
||||
execute('tablast')
|
||||
eq('this is tab page 4', eval("getline('$')"))
|
||||
end)
|
||||
|
||||
it('have local variables accasible with settabvar()/gettabvar()', function()
|
||||
-- Test for settabvar() and gettabvar() functions. Open a new tab page and
|
||||
-- set 3 variables to a number, string and a list. Verify that the
|
||||
-- variables are correctly set.
|
||||
source([=[
|
||||
source([[
|
||||
tabnew
|
||||
tabfirst
|
||||
call settabvar(2, 'val_num', 100)
|
||||
call settabvar(2, 'val_str', 'SetTabVar test')
|
||||
call settabvar(2, 'val_list', ['red', 'blue', 'green'])
|
||||
|
||||
let test_status = 'gettabvar: fail'
|
||||
if gettabvar(2, 'val_num') == 100 &&
|
||||
\ gettabvar(2, 'val_str') == 'SetTabVar test' &&
|
||||
\ gettabvar(2, 'val_list') == ['red', 'blue', 'green']
|
||||
let test_status = 'gettabvar: pass'
|
||||
endif
|
||||
call append(line('$'), test_status)
|
||||
|
||||
tabnext 2
|
||||
let test_status = 'settabvar: fail'
|
||||
if t:val_num == 100 &&
|
||||
\ t:val_str == 'SetTabVar test' &&
|
||||
\ t:val_list == ['red', 'blue', 'green']
|
||||
let test_status = 'settabvar: pass'
|
||||
endif
|
||||
tabclose
|
||||
call append(line('$'), test_status)
|
||||
]=])
|
||||
|
||||
-- Test some drop features
|
||||
source([[
|
||||
" Test for ":tab drop exist-file" to keep current window.
|
||||
sp test1
|
||||
tab drop test1
|
||||
let test_status = 'tab drop 1: fail'
|
||||
if tabpagenr('$') == 1 && winnr('$') == 2 && winnr() == 1
|
||||
let test_status = 'tab drop 1: pass'
|
||||
endif
|
||||
close
|
||||
call append(line('$'), test_status)
|
||||
|
||||
" Test for ":tab drop new-file" to keep current window of tabpage 1.
|
||||
split
|
||||
tab drop newfile
|
||||
let test_status = 'tab drop 2: fail'
|
||||
if tabpagenr('$') == 2 &&
|
||||
\ tabpagewinnr(1, '$') == 2 &&
|
||||
\ tabpagewinnr(1) == 1
|
||||
let test_status = 'tab drop 2: pass'
|
||||
endif
|
||||
tabclose
|
||||
q
|
||||
call append(line('$'), test_status)
|
||||
|
||||
" Test for ":tab drop multi-opend-file" to keep current tabpage and
|
||||
" window.
|
||||
new test1
|
||||
tabnew
|
||||
new test1
|
||||
tab drop test1
|
||||
let test_status = 'tab drop 3: fail'
|
||||
if tabpagenr() == 2 &&
|
||||
\ tabpagewinnr(2, '$') == 2 &&
|
||||
\ tabpagewinnr(2) == 1
|
||||
let test_status = 'tab drop 3: pass'
|
||||
endif
|
||||
tabclose
|
||||
q
|
||||
call append(line('$'), test_status)
|
||||
]])
|
||||
-------
|
||||
|
||||
eq(100, eval('gettabvar(2, "val_num")'))
|
||||
eq('SetTabVar test', eval('gettabvar(2, "val_str")'))
|
||||
eq({'red', 'blue', 'green'}, eval('gettabvar(2, "val_list")'))
|
||||
execute('tabnext 2')
|
||||
eq(100, eval('t:val_num'))
|
||||
eq('SetTabVar test', eval('t:val_str'))
|
||||
eq({'red', 'blue', 'green'}, eval('t:val_list'))
|
||||
end)
|
||||
|
||||
it('work together with the drop feature and loaded buffers', function()
|
||||
-- Test for ":tab drop exist-file" to keep current window.
|
||||
execute('sp test1')
|
||||
execute('tab drop test1')
|
||||
eq(1, eval('tabpagenr("$")'))
|
||||
eq(2, eval('winnr("$")'))
|
||||
eq(1, eval('winnr()'))
|
||||
end)
|
||||
|
||||
it('work together with the drop feature and new files', function()
|
||||
-- Test for ":tab drop new-file" to keep current window of tabpage 1.
|
||||
execute('split')
|
||||
execute('tab drop newfile')
|
||||
eq(2, eval('tabpagenr("$")'))
|
||||
eq(2, eval('tabpagewinnr(1, "$")'))
|
||||
eq(1, eval('tabpagewinnr(1)'))
|
||||
end)
|
||||
|
||||
it('work together with the drop feature and multi loaded buffers', function()
|
||||
-- Test for ":tab drop multi-opend-file" to keep current tabpage and
|
||||
-- window.
|
||||
execute('new test1')
|
||||
execute('tabnew')
|
||||
execute('new test1')
|
||||
execute('tab drop test1')
|
||||
eq(2, eval('tabpagenr()'))
|
||||
eq(2, eval('tabpagewinnr(2, "$")'))
|
||||
eq(1, eval('tabpagewinnr(2)'))
|
||||
end)
|
||||
|
||||
it('can be navigated with :tabmove', function()
|
||||
execute('lang C')
|
||||
execute('for i in range(9) | tabnew | endfor')
|
||||
feed('1gt')
|
||||
feed('Go<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(1, eval('tabpagenr()'))
|
||||
execute('tabmove 5')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(6, eval('tabpagenr()'))
|
||||
execute('tabmove -2')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(4, eval('tabpagenr()'))
|
||||
execute('tabmove +4')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(8, eval('tabpagenr()'))
|
||||
execute('tabmove')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(10, eval('tabpagenr()'))
|
||||
execute('tabmove -20')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(1, eval('tabpagenr()'))
|
||||
execute('tabmove +20')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(10, eval('tabpagenr()'))
|
||||
execute('3tabmove')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
eq(4, eval('tabpagenr()'))
|
||||
execute('7tabmove 5')
|
||||
feed('i<C-R>=tabpagenr()<C-M><C-M><esc>')
|
||||
execute([[let a='No error caught.']])
|
||||
eq(6, eval('tabpagenr()'))
|
||||
execute('let a="No error caught."')
|
||||
execute('try')
|
||||
execute('tabmove foo')
|
||||
execute('catch E474')
|
||||
execute([[let a='E474 caught.']])
|
||||
execute('let a="E474 caught."')
|
||||
execute('endtry')
|
||||
feed('i<C-R>=a<C-M><esc>')
|
||||
eq('E474 caught.', eval('a'))
|
||||
end)
|
||||
|
||||
it('can trigger certain autocommands', function()
|
||||
insert('Results:')
|
||||
|
||||
-- Test autocommands.
|
||||
source([=[
|
||||
source([[
|
||||
tabonly!
|
||||
let g:r=[]
|
||||
command -nargs=1 -bar C :call add(g:r, '=== '.<q-args>.' ===')|<args>
|
||||
function Test()
|
||||
let hasau=has('autocmd')
|
||||
if hasau
|
||||
autocmd TabEnter * :call add(g:r, 'TabEnter')
|
||||
autocmd WinEnter * :call add(g:r, 'WinEnter')
|
||||
autocmd BufEnter * :call add(g:r, 'BufEnter')
|
||||
autocmd TabLeave * :call add(g:r, 'TabLeave')
|
||||
autocmd WinLeave * :call add(g:r, 'WinLeave')
|
||||
autocmd BufLeave * :call add(g:r, 'BufLeave')
|
||||
endif
|
||||
autocmd TabEnter * :call add(g:r, 'TabEnter')
|
||||
autocmd WinEnter * :call add(g:r, 'WinEnter')
|
||||
autocmd BufEnter * :call add(g:r, 'BufEnter')
|
||||
autocmd TabLeave * :call add(g:r, 'TabLeave')
|
||||
autocmd WinLeave * :call add(g:r, 'WinLeave')
|
||||
autocmd BufLeave * :call add(g:r, 'BufLeave')
|
||||
let t:a='a'
|
||||
C tab split
|
||||
if !hasau
|
||||
let g:r+=['WinLeave', 'TabLeave', 'WinEnter', 'TabEnter']
|
||||
endif
|
||||
let t:a='b'
|
||||
C tabnew
|
||||
if !hasau
|
||||
let g:r+=['WinLeave', 'TabLeave', 'WinEnter', 'TabEnter',
|
||||
\ 'BufLeave', 'BufEnter']
|
||||
endif
|
||||
let t:a='c'
|
||||
call add(g:r, join(map(range(1, tabpagenr('$')),
|
||||
\ 'gettabvar(v:val, "a")')))
|
||||
@ -175,80 +138,36 @@ describe('tab pages', function()
|
||||
\ 'gettabvar(v:val, "a")')))
|
||||
let w:a='a'
|
||||
C vsplit
|
||||
if !hasau
|
||||
let g:r+=['WinLeave', 'WinEnter']
|
||||
endif
|
||||
let w:a='a'
|
||||
let tabn=tabpagenr()
|
||||
let winr=range(1, winnr('$'))
|
||||
C tabnext 1
|
||||
if !hasau
|
||||
let g:r+=['BufLeave', 'WinLeave', 'TabLeave', 'WinEnter',
|
||||
\ 'TabEnter', 'BufEnter']
|
||||
endif
|
||||
call add(g:r, join(map(copy(winr),
|
||||
\ 'gettabwinvar('.tabn.', v:val, "a")')))
|
||||
C call map(copy(winr),
|
||||
\ 'settabwinvar('.tabn.', v:val, ''a'', v:val*2)')
|
||||
call add(g:r, join(map(copy(winr),
|
||||
\ 'gettabwinvar('.tabn.', v:val, "a")')))
|
||||
if hasau
|
||||
augroup TabDestructive
|
||||
autocmd TabEnter * :C tabnext 2 | C tabclose 3
|
||||
augroup END
|
||||
C tabnext 3
|
||||
let g:r+=[tabpagenr().'/'.tabpagenr('$')]
|
||||
autocmd! TabDestructive TabEnter
|
||||
C tabnew
|
||||
C tabnext 1
|
||||
autocmd TabDestructive TabEnter * nested
|
||||
\ :C tabnext 2 | C tabclose 3
|
||||
C tabnext 3
|
||||
let g:r+=[tabpagenr().'/'.tabpagenr('$')]
|
||||
else
|
||||
let g:r+=["=== tabnext 3 ===", "BufLeave", "WinLeave",
|
||||
\ "TabLeave", "WinEnter", "TabEnter", "=== tabnext 2 ===",
|
||||
\ "=== tabclose 3 ===", "2/2", "=== tabnew ===", "WinLeave",
|
||||
\ "TabLeave", "WinEnter", "TabEnter", "BufLeave", "BufEnter",
|
||||
\ "=== tabnext 1 ===", "BufLeave", "WinLeave", "TabLeave",
|
||||
\ "WinEnter", "TabEnter", "BufEnter", "=== tabnext 3 ===",
|
||||
\ "BufLeave", "WinLeave", "TabLeave", "WinEnter", "TabEnter",
|
||||
\ "=== tabnext 2 ===", "BufLeave", "WinLeave", "TabLeave",
|
||||
\ "WinEnter", "TabEnter", "=== tabnext 2 ===",
|
||||
\ "=== tabclose 3 ===", "BufEnter", "=== tabclose 3 ===",
|
||||
\ "2/2"]
|
||||
endif
|
||||
augroup TabDestructive
|
||||
autocmd TabEnter * :C tabnext 2 | C tabclose 3
|
||||
augroup END
|
||||
C tabnext 3
|
||||
let g:r+=[tabpagenr().'/'.tabpagenr('$')]
|
||||
autocmd! TabDestructive TabEnter
|
||||
C tabnew
|
||||
C tabnext 1
|
||||
autocmd TabDestructive TabEnter * nested
|
||||
\ :C tabnext 2 | C tabclose 3
|
||||
C tabnext 3
|
||||
let g:r+=[tabpagenr().'/'.tabpagenr('$')]
|
||||
endfunction
|
||||
call Test()
|
||||
$ put =g:r
|
||||
]=])
|
||||
|
||||
|
||||
--execute('0,/^Results/-1 d')
|
||||
--execute('qa!')
|
||||
]])
|
||||
|
||||
-- Assert buffer contents.
|
||||
expect([=[
|
||||
expect([[
|
||||
Results:
|
||||
tab page 2
|
||||
this is tab page 3
|
||||
this is tab page 1
|
||||
this is tab page 4
|
||||
gettabvar: pass
|
||||
settabvar: pass
|
||||
tab drop 1: pass
|
||||
tab drop 2: pass
|
||||
tab drop 3: pass
|
||||
1
|
||||
6
|
||||
4
|
||||
8
|
||||
10
|
||||
1
|
||||
10
|
||||
4
|
||||
6
|
||||
E474 caught.
|
||||
=== tab split ===
|
||||
WinLeave
|
||||
TabLeave
|
||||
@ -316,6 +235,6 @@ describe('tab pages', function()
|
||||
=== tabclose 3 ===
|
||||
BufEnter
|
||||
=== tabclose 3 ===
|
||||
2/2]=])
|
||||
2/2]])
|
||||
end)
|
||||
end)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user