Mercurial > vim
view src/testdir/test_balloon.vim @ 16720:9c90cf08cfa8 v8.1.1362
patch 8.1.1362: code and data in tests can be hard to read
commit https://github.com/vim/vim/commit/c79745a82faeb5a6058e915ca49a4c69fa60ea01
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon May 20 22:12:34 2019 +0200
patch 8.1.1362: code and data in tests can be hard to read
Problem: Code and data in tests can be hard to read.
Solution: Use the new heredoc style. (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/4400)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Mon, 20 May 2019 22:15:06 +0200 |
| parents | ff3c99bd1038 |
| children | ebdf6cd89910 |
line wrap: on
line source
" Tests for 'balloonevalterm'. " Tests that only work in the terminal. if has('balloon_eval_term') && !has('gui_running') source screendump.vim if !CanRunVimInTerminal() finish endif let s:common_script =<< [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 .. ": " .. v:beval_text endfun redraw [CODE] func Test_balloon_eval_term() " Use <Ignore> after <MouseMove> to return from vgetc() without removing " the balloon. call writefile(s:common_script + [ \ 'call test_setmouse(2, 6)', \ 'call feedkeys("\<MouseMove>\<Ignore>", "xt")', \ ], 'XTest_beval') " Check that the balloon shows up after a mouse move let buf = RunVimInTerminal('-S XTest_beval', {'rows': 10, 'cols': 50}) call term_wait(buf, 100) call VerifyScreenDump(buf, 'Test_balloon_eval_term_01', {}) " 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 term_wait(buf, 100) call VerifyScreenDump(buf, 'Test_balloon_eval_term_02', {}) " clean up call StopVimInTerminal(buf) call delete('XTest_beval_visual') endfunc endif " Tests that only work in the GUI if has('gui_running') func Test_balloon_show_gui() let msg = 'this this this this' call balloon_show(msg) call assert_equal(msg, balloon_gettext()) sleep 10m call balloon_show('') let msg = 'that that' call balloon_show(msg) call assert_equal(msg, balloon_gettext()) sleep 10m call balloon_show('') endfunc endif