1" Test WinBar 2 3if !has('menu') 4 finish 5endif 6 7source shared.vim 8 9func Test_add_remove_menu() 10 new 11 amenu 1.10 WinBar.Next :let g:did_next = 11<CR> 12 amenu 1.20 WinBar.Cont :let g:did_cont = 12<CR> 13 redraw 14 call assert_match('Next Cont', Screenline(1)) 15 16 emenu WinBar.Next 17 call assert_equal(11, g:did_next) 18 emenu WinBar.Cont 19 call assert_equal(12, g:did_cont) 20 21 wincmd w 22 call assert_fails('emenu WinBar.Next', 'E334') 23 wincmd p 24 25 aunmenu WinBar.Next 26 aunmenu WinBar.Cont 27 close 28endfunc 29 30func Test_click_in_winbar() 31 new 32 amenu 1.10 WinBar.Next :let g:did_next = 11<CR> 33 amenu 1.20 WinBar.Cont :let g:did_cont = 12<CR> 34 amenu 1.30 WinBar.Close :close<CR> 35 redraw 36 call assert_match('Next Cont Close', Screenline(1)) 37 38 let save_mouse = &mouse 39 set mouse=a 40 41 " Columns of the button edges: 42 " _Next_ _Cont_ _Close_ 43 " 2 7 10 15 18 24 44 let g:did_next = 0 45 let g:did_cont = 0 46 for col in [1, 8, 9, 16, 17, 25, 26] 47 call test_setmouse(1, col) 48 call feedkeys("\<LeftMouse>", "xt") 49 call assert_equal(0, g:did_next, 'col ' .. col) 50 call assert_equal(0, g:did_cont, 'col ' .. col) 51 endfor 52 53 for col in range(2, 7) 54 let g:did_next = 0 55 call test_setmouse(1, col) 56 call feedkeys("\<LeftMouse>", "xt") 57 call assert_equal(11, g:did_next, 'col ' .. col) 58 endfor 59 60 for col in range(10, 15) 61 let g:did_cont = 0 62 call test_setmouse(1, col) 63 call feedkeys("\<LeftMouse>", "xt") 64 call assert_equal(12, g:did_cont, 'col ' .. col) 65 endfor 66 67 let wincount = winnr('$') 68 call test_setmouse(1, 20) 69 call feedkeys("\<LeftMouse>", "xt") 70 call assert_equal(wincount - 1, winnr('$')) 71 72 let &mouse = save_mouse 73endfunc 74