Mercurial > vim
view src/testdir/test_tabpage.vim @ 30594:586b5b3aacf9 v9.0.0632
patch 9.0.0632: calling a function from an "expr" option has overhead
Commit: https://github.com/vim/vim/commit/87b4e5c5db9d1cfd6f2e79656e1a6cff3c69d15f
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Oct 1 15:32:46 2022 +0100
patch 9.0.0632: calling a function from an "expr" option has overhead
Problem: Calling a function from an "expr" option has too much overhead.
Solution: Add call_simple_func() and use it for 'foldexpr'
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 01 Oct 2022 16:45:04 +0200 |
parents | 13b02c1ea0f7 |
children | ac908e454519 |
line wrap: on
line source
" Tests for tabpage source screendump.vim source check.vim function Test_tabpage() CheckFeature quickfix bw! " Simple test for opening and closing a tab page tabnew call assert_equal(2, tabpagenr()) quit " Open three tab pages and use ":tabdo" 0tabnew 1tabnew $tabnew %del tabdo call append(line('$'), 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 call assert_equal(['', '3', '1', '4'], getline(1, '$')) " " 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. tabnew tabfirst call settabvar(2, 'val_num', 100) eval 'SetTabVar test'->settabvar(2, 'val_str') call settabvar(2, 'val_list', ['red', 'blue', 'green']) " call assert_true(gettabvar(2, 'val_num') == 100 && gettabvar(2, 'val_str') == 'SetTabVar test' && gettabvar(2, 'val_list') == ['red', 'blue', 'green']) tabnext 2 call assert_true(t:val_num == 100 && t:val_str == 'SetTabVar test' && t:val_list == ['red', 'blue', 'green']) tabclose " Test for ":tab drop exist-file" to keep current window. sp test1 tab drop test1 call assert_true(tabpagenr('$') == 1 && winnr('$') == 2 && winnr() == 1) close " " " Test for ":tab drop new-file" to keep current window of tabpage 1. split tab drop newfile call assert_true(tabpagenr('$') == 2 && tabpagewinnr(1, '$') == 2 && tabpagewinnr(1) == 1) tabclose q " " " Test for ":tab drop multi-opened-file" to keep current tabpage and window. new test1 tabnew new test1 tab drop test1 call assert_true(tabpagenr() == 2 && tabpagewinnr(2, '$') == 2 && tabpagewinnr(2) == 1) tabclose q " " " Test for ":tab drop vertical-split-window" to jump test1 buffer tabedit test1 vnew tabfirst tab drop test1 call assert_equal([2, 2, 2, 2], [tabpagenr('$'), tabpagenr(), tabpagewinnr(2, '$'), tabpagewinnr(2)]) 1tabonly " " for i in range(9) | tabnew | endfor normal! 1gt call assert_equal(1, tabpagenr()) tabmove 5 call assert_equal(5, tabpagenr()) .tabmove call assert_equal(5, tabpagenr()) tabmove - call assert_equal(4, tabpagenr()) tabmove + call assert_equal(5, tabpagenr()) tabmove -2 call assert_equal(3, tabpagenr()) tabmove +4 call assert_equal(7, tabpagenr()) tabmove call assert_equal(10, tabpagenr()) 0tabmove call assert_equal(1, tabpagenr()) $tabmove call assert_equal(10, tabpagenr()) tabmove 0 call assert_equal(1, tabpagenr()) tabmove $ call assert_equal(10, tabpagenr()) 3tabmove call assert_equal(4, tabpagenr()) 7tabmove 5 call assert_equal(5, tabpagenr()) -tabmove call assert_equal(4, tabpagenr()) +tabmove call assert_equal(5, tabpagenr()) -2tabmove call assert_equal(3, tabpagenr()) +3tabmove call assert_equal(6, tabpagenr()) " The following are a no-op norm! 2gt call assert_equal(2, tabpagenr()) tabmove 2 call assert_equal(2, tabpagenr()) 2tabmove call assert_equal(2, tabpagenr()) tabmove 1 call assert_equal(2, tabpagenr()) 1tabmove call assert_equal(2, tabpagenr()) call assert_fails('let t = tabpagenr("@")', 'E15:') call assert_equal(0, tabpagewinnr(-1)) call assert_fails("99tabmove", 'E16:') call assert_fails("+99tabmove", 'E16:') call assert_fails("-99tabmove", 'E16:') call assert_fails("tabmove foo", 'E475:') call assert_fails("tabmove 99", 'E475:') call assert_fails("tabmove +99", 'E475:') call assert_fails("tabmove -99", 'E475:') call assert_fails("tabmove -3+", 'E475:') call assert_fails("tabmove $3", 'E475:') call assert_fails("%tabonly", 'E16:') 1tabonly! tabmove 1 call assert_equal(1, tabpagenr()) tabnew call assert_fails("-2tabmove", 'E16:') tabonly! endfunc " Test autocommands function Test_tabpage_with_autocmd() command -nargs=1 -bar C :call add(s:li, '=== ' . <q-args> . ' ===')|<args> augroup TestTabpageGroup au! autocmd TabEnter * call add(s:li, 'TabEnter') autocmd WinEnter * call add(s:li, 'WinEnter') autocmd BufEnter * call add(s:li, 'BufEnter') autocmd TabLeave * call add(s:li, 'TabLeave') autocmd WinLeave * call add(s:li, 'WinLeave') autocmd BufLeave * call add(s:li, 'BufLeave') augroup END let s:li = [] let t:a='a' C tab split call assert_equal(['=== tab split ===', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter'], s:li) let s:li = [] let t:a='b' C tabnew call assert_equal(['=== tabnew ===', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', 'BufLeave', 'BufEnter'], s:li) let t:a='c' let s:li = split(join(map(range(1, tabpagenr('$')), 'gettabvar(v:val, "a")')) , '\s\+') call assert_equal(['a', 'b', 'c'], s:li) let s:li = [] C call map(range(1, tabpagenr('$')), 'settabvar(v:val, ''a'', v:val*2)') call assert_equal(["=== call map(range(1, tabpagenr('$')), 'settabvar(v:val, ''a'', v:val*2)') ==="], s:li) let s:li = split(join(map(range(1, tabpagenr('$')), 'gettabvar(v:val, "a")')) , '\s\+') call assert_equal(['2', '4', '6'], s:li) let s:li = [] let w:a='a' C vsplit call assert_equal(['=== vsplit ===', 'WinLeave', 'WinEnter'], s:li) let s:li = [] let w:a='a' let tabn=tabpagenr() let winr=range(1, winnr('$')) C tabnext 1 call assert_equal(['=== tabnext 1 ===', 'BufLeave', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', 'BufEnter'], s:li) let s:li = split(join(map(copy(winr), 'gettabwinvar('.tabn.', v:val, "a")')), '\s\+') call assert_equal(['a', 'a'], s:li) let s:li = [] C call map(copy(winr), '(v:val*2)->settabwinvar(' .. tabn .. ', v:val, ''a'')') let s:li = split(join(map(copy(winr), 'gettabwinvar('.tabn.', v:val, "a")')), '\s\+') call assert_equal(['2', '4'], s:li) augroup TabDestructive autocmd TabEnter * :C tabnext 2 | C tabclose 3 augroup END let s:li = [] C tabnext 3 call assert_equal(['=== tabnext 3 ===', 'BufLeave', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', '=== tabnext 2 ===', '=== tabclose 3 ==='], s:li) call assert_equal(['2/2'], [tabpagenr().'/'.tabpagenr('$')]) autocmd! TabDestructive TabEnter let s:li = [] C tabnew call assert_equal(['=== tabnew ===', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', 'BufLeave', 'BufEnter'], s:li) let s:li = [] C tabnext 1 call assert_equal(['=== tabnext 1 ===', 'BufLeave', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', 'BufEnter'], s:li) autocmd TabDestructive TabEnter * nested :C tabnext 2 | C tabclose 3 let s:li = [] call assert_equal(3, tabpagenr('$')) C tabnext 2 call assert_equal(2, tabpagenr('$')) call assert_equal(['=== tabnext 2 ===', 'WinLeave', 'TabLeave', 'WinEnter', 'TabEnter', '=== tabnext 2 ===', '=== tabclose 3 ==='], s:li) call assert_equal(['2/2'], [tabpagenr().'/'.tabpagenr('$')]) delcommand C autocmd! TabDestructive augroup! TabDestructive autocmd! TestTabpageGroup augroup! TestTabpageGroup 1tabonly! endfunction " Test autocommands on tab drop function Test_tabpage_with_autocmd_tab_drop() augroup TestTabpageGroup au! autocmd TabEnter * call add(s:li, 'TabEnter') autocmd WinEnter * call add(s:li, 'WinEnter') autocmd BufEnter * call add(s:li, 'BufEnter') autocmd TabLeave * call add(s:li, 'TabLeave') autocmd WinLeave * call add(s:li, 'WinLeave') autocmd BufLeave * call add(s:li, 'BufLeave') augroup END let s:li = [] tab drop test1 call assert_equal(['BufLeave', 'BufEnter'], s:li) let s:li = [] tab drop test2 test3 call assert_equal([ \ 'TabLeave', 'TabEnter', 'TabLeave', 'TabEnter', \ 'TabLeave', 'WinEnter', 'TabEnter', 'BufEnter', \ 'TabLeave', 'WinEnter', 'TabEnter', 'BufEnter'], s:li) autocmd! TestTabpageGroup augroup! TestTabpageGroup 1tabonly! endfunction function Test_tabpage_with_tab_modifier() CheckFeature quickfix for n in range(4) tabedit endfor function s:check_tab(pre_nr, cmd, post_nr) exec 'tabnext ' . a:pre_nr exec a:cmd call assert_equal(a:post_nr, tabpagenr()) call assert_equal('help', &buftype) helpclose endfunc call s:check_tab(1, 'tab help', 2) call s:check_tab(1, '3tab help', 4) call s:check_tab(1, '.tab help', 2) call s:check_tab(1, '.+1tab help', 3) call s:check_tab(1, '0tab help', 1) call s:check_tab(2, '+tab help', 4) call s:check_tab(2, '+2tab help', 5) call s:check_tab(4, '-tab help', 4) call s:check_tab(4, '-2tab help', 3) call s:check_tab(3, '$tab help', 6) call assert_fails('99tab help', 'E16:') call assert_fails('+99tab help', 'E16:') call assert_fails('-99tab help', 'E16:') delfunction s:check_tab 1tabonly! endfunction function Check_tab_count(pre_nr, cmd, post_nr) exec 'tabnext' a:pre_nr normal! G exec a:cmd call assert_equal(a:post_nr, tabpagenr(), a:cmd) endfunc " Test for [count] of tabnext function Test_tabpage_with_tabnext() for n in range(4) tabedit call setline(1, ['', '', '3']) endfor call Check_tab_count(1, 'tabnext', 2) call Check_tab_count(1, '3tabnext', 3) call Check_tab_count(1, '.tabnext', 1) call Check_tab_count(1, '.+1tabnext', 2) call Check_tab_count(2, '+tabnext', 3) call Check_tab_count(2, '+2tabnext', 4) call Check_tab_count(4, '-tabnext', 3) call Check_tab_count(4, '-2tabnext', 2) call Check_tab_count(3, '$tabnext', 5) call assert_fails('0tabnext', 'E16:') call assert_fails('99tabnext', 'E16:') call assert_fails('+99tabnext', 'E16:') call assert_fails('-99tabnext', 'E16:') call Check_tab_count(1, 'tabnext 3', 3) call Check_tab_count(2, 'tabnext +', 3) call Check_tab_count(2, 'tabnext +2', 4) call Check_tab_count(4, 'tabnext -', 3) call Check_tab_count(4, 'tabnext -2', 2) call Check_tab_count(3, 'tabnext $', 5) call assert_fails('tabnext 0', 'E475:') call assert_fails('tabnext .', 'E475:') call assert_fails('tabnext -+', 'E475:') call assert_fails('tabnext +2-', 'E475:') call assert_fails('tabnext $3', 'E475:') call assert_fails('tabnext 99', 'E475:') call assert_fails('tabnext +99', 'E475:') call assert_fails('tabnext -99', 'E475:') 1tabonly! endfunction " Test for [count] of tabprevious function Test_tabpage_with_tabprevious() for n in range(5) tabedit call setline(1, ['', '', '3']) endfor for cmd in ['tabNext', 'tabprevious'] call Check_tab_count(6, cmd, 5) call Check_tab_count(6, '3' . cmd, 3) call Check_tab_count(6, '8' . cmd, 4) call Check_tab_count(6, cmd . ' 3', 3) call Check_tab_count(6, cmd . ' 8', 4) for n in range(2) for c in ['0', '.+3', '+', '+2', '-', '-2', '$', '+99', '-99'] if n == 0 " pre count let entire_cmd = c . cmd let err_code = 'E16:' else let entire_cmd = cmd . ' ' . c let err_code = 'E475:' endif call assert_fails(entire_cmd, err_code) endfor endfor endfor 1tabonly! endfunction function s:reconstruct_tabpage_for_test(nr) let n = (a:nr > 2) ? a:nr - 2 : 1 1tabonly! 0tabedit n0 for n in range(1, n) exec '$tabedit n' . n if n == 1 call setline(1, ['', '', '3']) endif endfor endfunc func Test_tabpage_ctrl_pgup_pgdown() enew! tabnew tab1 tabnew tab2 call assert_equal(3, tabpagenr()) exe "norm! \<C-PageUp>" call assert_equal(2, tabpagenr()) exe "norm! \<C-PageDown>" call assert_equal(3, tabpagenr()) " Check wrapping at last or first page. exe "norm! \<C-PageDown>" call assert_equal(1, tabpagenr()) exe "norm! \<C-PageUp>" call assert_equal(3, tabpagenr()) " With a count, <C-PageUp> and <C-PageDown> are not symmetrical somehow: " - {count}<C-PageUp> goes {count} pages downward (relative count) " - {count}<C-PageDown> goes to page number {count} (absolute count) exe "norm! 2\<C-PageUp>" call assert_equal(1, tabpagenr()) exe "norm! 2\<C-PageDown>" call assert_equal(2, tabpagenr()) 1tabonly! endfunc " Test for [count] of tabclose function Test_tabpage_with_tabclose() " pre count call s:reconstruct_tabpage_for_test(6) call Check_tab_count(3, 'tabclose!', 3) call Check_tab_count(1, '3tabclose', 1) call Check_tab_count(4, '4tabclose', 3) call Check_tab_count(3, '1tabclose', 2) call Check_tab_count(2, 'tabclose', 1) call assert_equal(1, tabpagenr('$')) call assert_equal('', bufname('')) call s:reconstruct_tabpage_for_test(6) call Check_tab_count(2, '$tabclose', 2) call Check_tab_count(4, '.tabclose', 4) call Check_tab_count(3, '.+tabclose', 3) call Check_tab_count(3, '.-2tabclose', 2) call Check_tab_count(1, '.+1tabclose!', 1) call assert_equal(1, tabpagenr('$')) call assert_equal('', bufname('')) " post count call s:reconstruct_tabpage_for_test(6) call Check_tab_count(3, 'tabclose!', 3) call Check_tab_count(1, 'tabclose 3', 1) call Check_tab_count(4, 'tabclose 4', 3) call Check_tab_count(3, 'tabclose 1', 2) call Check_tab_count(2, 'tabclose', 1) call assert_equal(1, tabpagenr('$')) call assert_equal('', bufname('')) call s:reconstruct_tabpage_for_test(6) call Check_tab_count(2, 'tabclose $', 2) call Check_tab_count(4, 'tabclose', 4) call Check_tab_count(3, 'tabclose +', 3) call Check_tab_count(3, 'tabclose -2', 2) call Check_tab_count(1, 'tabclose! +1', 1) call assert_equal(1, tabpagenr('$')) call assert_equal('', bufname('')) call s:reconstruct_tabpage_for_test(6) for n in range(2) for c in ['0', '$3', '99', '+99', '-99'] if n == 0 " pre count let entire_cmd = c . 'tabclose' let err_code = 'E16:' else let entire_cmd = 'tabclose ' . c let err_code = 'E475:' endif call assert_fails(entire_cmd, err_code) call assert_equal(6, tabpagenr('$')) endfor endfor call assert_fails('3tabclose', 'E37:') call assert_fails('tabclose 3', 'E37:') call assert_fails('tabclose -+', 'E475:') call assert_fails('tabclose +2-', 'E475:') call assert_equal(6, tabpagenr('$')) 1tabonly! endfunction " Test for [count] of tabonly function Test_tabpage_with_tabonly() " Test for the normal behavior (pre count only) let tc = [ [4, '.', '!'], [2, '.+', ''], [3, '.-2', '!'], [1, '.+1', '!'] ] for c in tc call s:reconstruct_tabpage_for_test(6) let entire_cmd = c[1] . 'tabonly' . c[2] call Check_tab_count(c[0], entire_cmd, 1) call assert_equal(1, tabpagenr('$')) endfor " Test for the normal behavior let tc2 = [ [3, '', ''], [1, '3', ''], [4, '4', '!'], [3, '1', '!'], \ [2, '', '!'], \ [2, '$', '!'], [3, '+', '!'], [3, '-2', '!'], [3, '+1', '!'] \ ] for n in range(2) for c in tc2 call s:reconstruct_tabpage_for_test(6) if n == 0 " pre count let entire_cmd = c[1] . 'tabonly' . c[2] else let entire_cmd = 'tabonly' . c[2] . ' ' . c[1] endif call Check_tab_count(c[0], entire_cmd, 1) call assert_equal(1, tabpagenr('$')) endfor endfor " Test for the error behavior for n in range(2) for c in ['0', '$3', '99', '+99', '-99'] call s:reconstruct_tabpage_for_test(6) if n == 0 " pre count let entire_cmd = c . 'tabonly' let err_code = 'E16:' else let entire_cmd = 'tabonly ' . c let err_code = 'E475:' endif call assert_fails(entire_cmd, err_code) call assert_equal(6, tabpagenr('$')) endfor endfor " Test for the error behavior (post count only) for c in tc call s:reconstruct_tabpage_for_test(6) let entire_cmd = 'tabonly' . c[2] . ' ' . c[1] let err_code = 'E475:' call assert_fails(entire_cmd, err_code) call assert_equal(6, tabpagenr('$')) endfor call assert_fails('tabonly -+', 'E475:') call assert_fails('tabonly +2-', 'E475:') call assert_equal(6, tabpagenr('$')) 1tabonly! new only! endfunction func Test_tabnext_on_buf_unload1() " This once caused a crash new tabedit tabfirst au BufUnload <buffer> tabnext q while tabpagenr('$') > 1 bwipe! endwhile endfunc func Test_tabnext_on_buf_unload2() " This once caused a crash tabedit autocmd BufUnload <buffer> tabnext file x edit y while tabpagenr('$') > 1 bwipe! endwhile endfunc func Test_close_on_quitpre() " This once caused a crash edit Xtest new only set bufhidden=delete au QuitPre <buffer> close tabnew tab1 tabnew tab2 1tabn q! call assert_equal(1, tabpagenr()) call assert_equal(2, tabpagenr('$')) " clean up while tabpagenr('$') > 1 bwipe! endwhile buf Xtest endfunc func Test_tabs() enew! tabnew tab1 norm ixxx let a=split(execute(':tabs'), "\n") call assert_equal(['Tab page 1', \ ' [No Name]', \ 'Tab page 2', \ '> + tab1'], a) 1tabonly! bw! endfunc func Test_tabpage_cmdheight() CheckRunVimInTerminal call writefile([ \ 'set laststatus=2', \ 'set cmdheight=2', \ 'tabnew', \ 'set cmdheight=3', \ 'tabnext', \ 'redraw!', \ 'echo "hello\nthere"', \ 'tabnext', \ 'redraw', \ ], 'XTest_tabpage_cmdheight') " Check that cursor line is concealed let buf = RunVimInTerminal('-S XTest_tabpage_cmdheight', {'statusoff': 3}) call VerifyScreenDump(buf, 'Test_tabpage_cmdheight', {}) call StopVimInTerminal(buf) call delete('XTest_tabpage_cmdheight') endfunc " Test for closing the tab page from a command window func Test_tabpage_close_cmdwin() CheckFeature cmdwin tabnew call feedkeys("q/:tabclose\<CR>\<Esc>", 'xt') call assert_equal(2, tabpagenr('$')) call feedkeys("q/:tabonly\<CR>\<Esc>", 'xt') call assert_equal(2, tabpagenr('$')) tabonly endfunc " Pressing <C-PageUp> in insert mode should go to the previous tab page " and <C-PageDown> should go to the next tab page func Test_tabpage_Ctrl_Pageup() tabnew call feedkeys("i\<C-PageUp>", 'xt') call assert_equal(1, tabpagenr()) call feedkeys("i\<C-PageDown>", 'xt') call assert_equal(2, tabpagenr()) %bw! endfunc " Return the terminal key code for selecting a tab page from the tabline. This " sequence contains the following codes: a CSI (0x9b), KS_TABLINE (0xf0), " KS_FILLER (0x58) and then the tab page number. func TabLineSelectPageCode(tabnr) return "\x9b\xf0\x58" .. nr2char(a:tabnr) endfunc " Return the terminal key code for opening a new tabpage from the tabpage " menu. This sequence consists of the following codes: a CSI (0x9b), " KS_TABMENU (0xef), KS_FILLER (0x58), the tab page number and " TABLINE_MENU_NEW (2). func TabMenuNewItemCode(tabnr) return "\x9b\xef\x58" .. nr2char(a:tabnr) .. nr2char(2) endfunc " Return the terminal key code for closing a tabpage from the tabpage menu. " This sequence consists of the following codes: a CSI (0x9b), KS_TABMENU " (0xef), KS_FILLER (0x58), the tab page number and TABLINE_MENU_CLOSE (1). func TabMenuCloseItemCode(tabnr) return "\x9b\xef\x58" .. nr2char(a:tabnr) .. nr2char(1) endfunc " Test for using the tabpage menu from the insert and normal modes func Test_tabline_tabmenu() " only works in GUI CheckGui %bw! tabnew tabnew call assert_equal(3, tabpagenr()) " go to tab page 2 in normal mode call feedkeys(TabLineSelectPageCode(2), "Lx!") call assert_equal(2, tabpagenr()) " close tab page 3 in normal mode call feedkeys(TabMenuCloseItemCode(3), "Lx!") call assert_equal(2, tabpagenr('$')) call assert_equal(2, tabpagenr()) " open new tab page before tab page 1 in normal mode call feedkeys(TabMenuNewItemCode(1), "Lx!") call assert_equal(1, tabpagenr()) call assert_equal(3, tabpagenr('$')) " go to tab page 2 in operator-pending mode (should beep) call assert_beeps('call feedkeys("c" .. TabLineSelectPageCode(2), "Lx!")') call assert_equal(2, tabpagenr()) call assert_equal(3, tabpagenr('$')) " open new tab page before tab page 1 in operator-pending mode (should beep) call assert_beeps('call feedkeys("c" .. TabMenuNewItemCode(1), "Lx!")') call assert_equal(1, tabpagenr()) call assert_equal(4, tabpagenr('$')) " open new tab page after tab page 3 in normal mode call feedkeys(TabMenuNewItemCode(4), "Lx!") call assert_equal(4, tabpagenr()) call assert_equal(5, tabpagenr('$')) " go to tab page 2 in insert mode call feedkeys("i" .. TabLineSelectPageCode(2) .. "\<C-C>", "Lx!") call assert_equal(2, tabpagenr()) " close tab page 2 in insert mode call feedkeys("i" .. TabMenuCloseItemCode(2) .. "\<C-C>", "Lx!") call assert_equal(4, tabpagenr('$')) " open new tab page before tab page 3 in insert mode call feedkeys("i" .. TabMenuNewItemCode(3) .. "\<C-C>", "Lx!") call assert_equal(3, tabpagenr()) call assert_equal(5, tabpagenr('$')) " open new tab page after tab page 4 in insert mode call feedkeys("i" .. TabMenuNewItemCode(5) .. "\<C-C>", "Lx!") call assert_equal(5, tabpagenr()) call assert_equal(6, tabpagenr('$')) %bw! endfunc " Test for changing the current tab page from an autocmd when closing a tab " page. func Test_tabpage_switchtab_on_close() only tabnew tabnew " Test for BufLeave augroup T1 au! au BufLeave * tabfirst augroup END tabclose call assert_equal(1, tabpagenr()) augroup T1 au! augroup END " Test for WinLeave $tabnew augroup T1 au! au WinLeave * tabfirst augroup END tabclose call assert_equal(1, tabpagenr()) augroup T1 au! augroup END " Test for TabLeave $tabnew augroup T1 au! au TabLeave * tabfirst augroup END tabclose call assert_equal(1, tabpagenr()) augroup T1 au! augroup END augroup! T1 tabonly endfunc " Test for closing the destination tabpage when jumping from one to another. func Test_tabpage_close_on_switch() tabnew tabnew edit Xtabfile augroup T2 au! au BufLeave Xtabfile 1tabclose augroup END tabfirst call assert_equal(2, tabpagenr()) call assert_equal('Xtabfile', @%) augroup T2 au! augroup END augroup! T2 %bw! endfunc " Test for jumping to last accessed tabpage func Test_lastused_tabpage() tabonly! call assert_equal(0, tabpagenr('#')) call assert_beeps('call feedkeys("g\<Tab>", "xt")') call assert_beeps('call feedkeys("\<C-Tab>", "xt")') call assert_beeps('call feedkeys("\<C-W>g\<Tab>", "xt")') call assert_fails('tabnext #', 'E475:') " open four tab pages tabnew tabnew tabnew 2tabnext " Test for g<Tab> call assert_equal(4, tabpagenr('#')) call feedkeys("g\<Tab>", "xt") call assert_equal(4, tabpagenr()) call assert_equal(2, tabpagenr('#')) " Test for <C-Tab> call feedkeys("\<C-Tab>", "xt") call assert_equal(2, tabpagenr()) call assert_equal(4, tabpagenr('#')) " Test for <C-W>g<Tab> call feedkeys("\<C-W>g\<Tab>", "xt") call assert_equal(4, tabpagenr()) call assert_equal(2, tabpagenr('#')) " Test for :tabnext # tabnext # call assert_equal(2, tabpagenr()) call assert_equal(4, tabpagenr('#')) " Try to jump to a closed tab page tabclose # call assert_equal(0, tabpagenr('#')) call feedkeys("g\<Tab>", "xt") call assert_equal(2, tabpagenr()) call feedkeys("\<C-Tab>", "xt") call assert_equal(2, tabpagenr()) call feedkeys("\<C-W>g\<Tab>", "xt") call assert_equal(2, tabpagenr()) call assert_fails('tabnext #', 'E475:') call assert_equal(2, tabpagenr()) " Test for :tabonly # let wnum = win_getid() $tabnew tabonly # call assert_equal(wnum, win_getid()) call assert_equal(1, tabpagenr('$')) " Test for :tabmove # tabnew let wnum = win_getid() tabnew tabnew tabnext 2 tabmove # call assert_equal(4, tabpagenr()) call assert_equal(wnum, win_getid()) tabonly! endfunc " Test for tabpage allocation failure func Test_tabpage_alloc_failure() call test_alloc_fail(GetAllocId('newtabpage_tvars'), 0, 0) call assert_fails('tabnew', 'E342:') call test_alloc_fail(GetAllocId('newtabpage_tvars'), 0, 0) edit Xfile1 call assert_fails('tabedit Xfile2', 'E342:') call assert_equal(1, winnr('$')) call assert_equal(1, tabpagenr('$')) call assert_equal('Xfile1', @%) new call test_alloc_fail(GetAllocId('newtabpage_tvars'), 0, 0) call assert_fails('wincmd T', 'E342:') bw! call test_alloc_fail(GetAllocId('newtabpage_tvars'), 0, 0) call assert_fails('tab split', 'E342:') call assert_equal(2, winnr('$')) call assert_equal(1, tabpagenr('$')) endfunc " vim: shiftwidth=2 sts=2 expandtab