Mercurial > vim
view src/testdir/test_balloon.vim @ 22498:04a9b1399d8e v8.2.1797
patch 8.2.1797: Vim9: some parts of the code not tested
Commit: https://github.com/vim/vim/commit/6abd3dc257cf56a8262db38eb15c7cc754e8e002
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Oct 4 14:17:32 2020 +0200
patch 8.2.1797: Vim9: some parts of the code not tested
Problem: Vim9: some parts of the code not tested.
Solution: Add a few tests.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 04 Oct 2020 14:30:05 +0200 |
parents | 08940efa6b4e |
children | 9e0ac05f579a |
line wrap: on
line source
" Tests for 'balloonevalterm'. " A few tests only work in the terminal. source check.vim CheckNotGui CheckFeature balloon_eval_term source screendump.vim CheckScreendump let s:common_script =<< trim [CODE] call setline(1, ["one one one", "two tXo two", "three three three"]) set balloonevalterm balloonexpr=MyBalloonExpr() balloondelay=100 func MyBalloonExpr() return "line " .. v:beval_lnum .. " column " .. v:beval_col .. ":\n" .. v:beval_text endfun redraw [CODE] func Test_balloon_eval_term() " Use <Ignore> after <MouseMove> to return from vgetc() without removing " the balloon. let xtra_lines =<< trim [CODE] set updatetime=300 au CursorHold * echo 'hold fired' func Trigger() call test_setmouse(2, 6) call feedkeys("\<MouseMove>\<Ignore>", "xt") endfunc [CODE] call writefile(s:common_script + xtra_lines, 'XTest_beval') " Check that the balloon shows up after a mouse move let buf = RunVimInTerminal('-S XTest_beval', {'rows': 10, 'cols': 50}) call TermWait(buf, 50) call term_sendkeys(buf, 'll') call term_sendkeys(buf, ":call Trigger()\<CR>") call VerifyScreenDump(buf, 'Test_balloon_eval_term_01', {}) " Make sure the balloon still shows after 'updatetime' passed and CursorHold " was triggered. call TermWait(buf, 150) call VerifyScreenDump(buf, 'Test_balloon_eval_term_01a', {}) " clean up call StopVimInTerminal(buf) call delete('XTest_beval') endfunc func Test_balloon_eval_term_visual() " Use <Ignore> after <MouseMove> to return from vgetc() without removing " the balloon. call writefile(s:common_script + [ \ 'call test_setmouse(3, 6)', \ 'call feedkeys("3Gevfr\<MouseMove>\<Ignore>", "xt")', \ ], 'XTest_beval_visual') " Check that the balloon shows up after a mouse move let buf = RunVimInTerminal('-S XTest_beval_visual', {'rows': 10, 'cols': 50}) call TermWait(buf, 50) call VerifyScreenDump(buf, 'Test_balloon_eval_term_02', {}) " clean up call StopVimInTerminal(buf) call delete('XTest_beval_visual') endfunc " vim: shiftwidth=2 sts=2 expandtab