| " Tests for various Ex commands. |
| |
| source check.vim |
| |
| func Test_ex_delete() |
| new |
| call setline(1, ['a', 'b', 'c']) |
| 2 |
| " :dl is :delete with the "l" flag, not :dlist |
| .dl |
| call assert_equal(['a', 'c'], getline(1, 2)) |
| endfunc |
| |
| func Test_range_error() |
| call assert_fails(':.echo 1', 'E481:') |
| call assert_fails(':$echo 1', 'E481:') |
| call assert_fails(':1,2echo 1', 'E481:') |
| call assert_fails(':+1echo 1', 'E481:') |
| call assert_fails(':/1/echo 1', 'E481:') |
| call assert_fails(':\/echo 1', 'E481:') |
| normal vv |
| call assert_fails(":'<,'>echo 1", 'E481:') |
| call assert_fails(":\\xcenter", 'E10:') |
| endfunc |
| |
| func Test_buffers_lastused() |
| call test_settime(localtime() - 2000) " middle |
| edit bufa |
| enew |
| call test_settime(localtime() - 10) " newest |
| edit bufb |
| enew |
| call test_settime(1550010000) " oldest |
| edit bufc |
| enew |
| call test_settime(0) |
| enew |
| |
| let ls = split(execute('buffers t', 'silent!'), '\n') |
| let bufs = ls->map({i,v->split(v, '"\s*')[1:2]}) |
| call assert_equal(['bufb', 'bufa', 'bufc'], bufs[1:]->map({i,v->v[0]})) |
| call assert_match('1[0-3] seconds ago', bufs[1][1]) |
| call assert_match('\d\d:\d\d:\d\d', bufs[2][1]) |
| call assert_match('2019/02/1\d \d\d:\d\d:00', bufs[3][1]) |
| |
| bwipeout bufa |
| bwipeout bufb |
| bwipeout bufc |
| endfunc |
| |
| " Test for the :copy command |
| func Test_copy() |
| new |
| |
| call setline(1, ['L1', 'L2', 'L3', 'L4']) |
| " copy lines in a range to inside the range |
| 1,3copy 2 |
| call assert_equal(['L1', 'L2', 'L1', 'L2', 'L3', 'L3', 'L4'], getline(1, 7)) |
| |
| " Specifying a count before using : to run an ex-command |
| exe "normal! gg4:yank\<CR>" |
| call assert_equal("L1\nL2\nL1\nL2\n", @") |
| |
| close! |
| endfunc |
| |
| " Test for the :file command |
| func Test_file_cmd() |
| call assert_fails('3file', 'E474:') |
| call assert_fails('0,0file', 'E474:') |
| call assert_fails('0file abc', 'E474:') |
| endfunc |
| |
| " Test for the :drop command |
| func Test_drop_cmd() |
| call writefile(['L1', 'L2'], 'Xfile') |
| enew | only |
| drop Xfile |
| call assert_equal('L2', getline(2)) |
| " Test for switching to an existing window |
| below new |
| drop Xfile |
| call assert_equal(1, winnr()) |
| " Test for splitting the current window |
| enew | only |
| set modified |
| drop Xfile |
| call assert_equal(2, winnr('$')) |
| " Check for setting the argument list |
| call assert_equal(['Xfile'], argv()) |
| enew | only! |
| call delete('Xfile') |
| endfunc |
| |
| " Test for the :append command |
| func Test_append_cmd() |
| new |
| call setline(1, [' L1']) |
| call feedkeys(":append\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L2', ' L3'], getline(1, '$')) |
| %delete _ |
| " append after a specific line |
| call setline(1, [' L1', ' L2', ' L3']) |
| call feedkeys(":2append\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L2', ' L4', ' L5', ' L3'], getline(1, '$')) |
| %delete _ |
| " append with toggling 'autoindent' |
| call setline(1, [' L1']) |
| call feedkeys(":append!\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L2', ' L3'], getline(1, '$')) |
| call assert_false(&autoindent) |
| %delete _ |
| " append with 'autoindent' set and toggling 'autoindent' |
| set autoindent |
| call setline(1, [' L1']) |
| call feedkeys(":append!\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L2', ' L3'], getline(1, '$')) |
| call assert_true(&autoindent) |
| set autoindent& |
| close! |
| endfunc |
| |
| " Test for the :insert command |
| func Test_insert_cmd() |
| new |
| call setline(1, [' L1']) |
| call feedkeys(":insert\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L2', ' L3', ' L1'], getline(1, '$')) |
| %delete _ |
| " insert before a specific line |
| call setline(1, [' L1', ' L2', ' L3']) |
| call feedkeys(":2insert\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L4', ' L5', ' L2', ' L3'], getline(1, '$')) |
| %delete _ |
| " insert with toggling 'autoindent' |
| call setline(1, [' L1']) |
| call feedkeys(":insert!\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L2', ' L3', ' L1'], getline(1, '$')) |
| call assert_false(&autoindent) |
| %delete _ |
| " insert with 'autoindent' set and toggling 'autoindent' |
| set autoindent |
| call setline(1, [' L1']) |
| call feedkeys(":insert!\<CR> L2\<CR> L3\<CR>.\<CR>", 'xt') |
| call assert_equal([' L2', ' L3', ' L1'], getline(1, '$')) |
| call assert_true(&autoindent) |
| set autoindent& |
| close! |
| endfunc |
| |
| " Test for the :change command |
| func Test_change_cmd() |
| new |
| call setline(1, [' L1', 'L2', 'L3']) |
| call feedkeys(":change\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L4', ' L5', 'L2', 'L3'], getline(1, '$')) |
| %delete _ |
| " change a specific line |
| call setline(1, [' L1', ' L2', ' L3']) |
| call feedkeys(":2change\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L1', ' L4', ' L5', ' L3'], getline(1, '$')) |
| %delete _ |
| " change with toggling 'autoindent' |
| call setline(1, [' L1', 'L2', 'L3']) |
| call feedkeys(":change!\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L4', ' L5', 'L2', 'L3'], getline(1, '$')) |
| call assert_false(&autoindent) |
| %delete _ |
| " change with 'autoindent' set and toggling 'autoindent' |
| set autoindent |
| call setline(1, [' L1', 'L2', 'L3']) |
| call feedkeys(":change!\<CR> L4\<CR> L5\<CR>.\<CR>", 'xt') |
| call assert_equal([' L4', ' L5', 'L2', 'L3'], getline(1, '$')) |
| call assert_true(&autoindent) |
| set autoindent& |
| close! |
| endfunc |
| |
| " Test for the :language command |
| func Test_language_cmd() |
| CheckFeature multi_lang |
| |
| call assert_fails('language ctype non_existing_lang', 'E197:') |
| call assert_fails('language time non_existing_lang', 'E197:') |
| endfunc |
| |
| " Test for the :confirm command dialog |
| func Test_confirm_cmd() |
| CheckNotGui |
| CheckRunVimInTerminal |
| |
| call writefile(['foo1'], 'foo') |
| call writefile(['bar1'], 'bar') |
| |
| " Test for saving all the modified buffers |
| let buf = RunVimInTerminal('', {'rows': 20}) |
| call term_sendkeys(buf, ":set nomore\n") |
| call term_sendkeys(buf, ":new foo\n") |
| call term_sendkeys(buf, ":call setline(1, 'foo2')\n") |
| call term_sendkeys(buf, ":new bar\n") |
| call term_sendkeys(buf, ":call setline(1, 'bar2')\n") |
| call term_sendkeys(buf, ":wincmd b\n") |
| call term_sendkeys(buf, ":confirm qall\n") |
| call WaitForAssert({-> assert_match('\[Y\]es, (N)o, Save (A)ll, (D)iscard All, (C)ancel: ', term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "A") |
| call StopVimInTerminal(buf) |
| |
| call assert_equal(['foo2'], readfile('foo')) |
| call assert_equal(['bar2'], readfile('bar')) |
| |
| " Test for discarding all the changes to modified buffers |
| let buf = RunVimInTerminal('', {'rows': 20}) |
| call term_sendkeys(buf, ":set nomore\n") |
| call term_sendkeys(buf, ":new foo\n") |
| call term_sendkeys(buf, ":call setline(1, 'foo3')\n") |
| call term_sendkeys(buf, ":new bar\n") |
| call term_sendkeys(buf, ":call setline(1, 'bar3')\n") |
| call term_sendkeys(buf, ":wincmd b\n") |
| call term_sendkeys(buf, ":confirm qall\n") |
| call WaitForAssert({-> assert_match('\[Y\]es, (N)o, Save (A)ll, (D)iscard All, (C)ancel: ', term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "D") |
| call StopVimInTerminal(buf) |
| |
| call assert_equal(['foo2'], readfile('foo')) |
| call assert_equal(['bar2'], readfile('bar')) |
| |
| " Test for saving and discarding changes to some buffers |
| let buf = RunVimInTerminal('', {'rows': 20}) |
| call term_sendkeys(buf, ":set nomore\n") |
| call term_sendkeys(buf, ":new foo\n") |
| call term_sendkeys(buf, ":call setline(1, 'foo4')\n") |
| call term_sendkeys(buf, ":new bar\n") |
| call term_sendkeys(buf, ":call setline(1, 'bar4')\n") |
| call term_sendkeys(buf, ":wincmd b\n") |
| call term_sendkeys(buf, ":confirm qall\n") |
| call WaitForAssert({-> assert_match('\[Y\]es, (N)o, Save (A)ll, (D)iscard All, (C)ancel: ', term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "N") |
| call WaitForAssert({-> assert_match('\[Y\]es, (N)o, (C)ancel: ', term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "Y") |
| call StopVimInTerminal(buf) |
| |
| call assert_equal(['foo4'], readfile('foo')) |
| call assert_equal(['bar2'], readfile('bar')) |
| |
| call delete('foo') |
| call delete('bar') |
| endfunc |
| |
| func Test_confirm_cmd_cancel() |
| CheckNotGui |
| CheckRunVimInTerminal |
| |
| " Test for closing a window with a modified buffer |
| let buf = RunVimInTerminal('', {'rows': 20}) |
| call term_sendkeys(buf, ":set nomore\n") |
| call term_sendkeys(buf, ":new\n") |
| call term_sendkeys(buf, ":call setline(1, 'abc')\n") |
| call term_sendkeys(buf, ":confirm close\n") |
| call WaitForAssert({-> assert_match('^\[Y\]es, (N)o, (C)ancel: *$', |
| \ term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "C") |
| call WaitForAssert({-> assert_equal('', term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, ":confirm close\n") |
| call WaitForAssert({-> assert_match('^\[Y\]es, (N)o, (C)ancel: *$', |
| \ term_getline(buf, 20))}, 1000) |
| call term_sendkeys(buf, "N") |
| call WaitForAssert({-> assert_match('^ *0,0-1 All$', |
| \ term_getline(buf, 20))}, 1000) |
| call StopVimInTerminal(buf) |
| endfunc |
| |
| " Test for the :print command |
| func Test_print_cmd() |
| call assert_fails('print', 'E749:') |
| endfunc |
| |
| " Test for the :winsize command |
| func Test_winsize_cmd() |
| call assert_fails('winsize 1', 'E465:') |
| endfunc |
| |
| " Test for the :redir command |
| func Test_redir_cmd() |
| call assert_fails('redir @@', 'E475:') |
| call assert_fails('redir abc', 'E475:') |
| call assert_fails('redir => 1abc', 'E474:') |
| call assert_fails('redir => a b', 'E488:') |
| call assert_fails('redir => abc[1]', 'E474:') |
| let b=0zFF |
| call assert_fails('redir =>> b', 'E734:') |
| unlet b |
| |
| if has('unix') |
| " Redirecting to a directory name |
| call mkdir('Xdir') |
| call assert_fails('redir > Xdir', 'E17:') |
| call delete('Xdir', 'd') |
| endif |
| if !has('bsd') |
| " Redirecting to a read-only file |
| call writefile([], 'Xfile') |
| call setfperm('Xfile', 'r--r--r--') |
| call assert_fails('redir! > Xfile', 'E190:') |
| call delete('Xfile') |
| endif |
| |
| " Test for redirecting to a register |
| redir @q> | echon 'clean ' | redir END |
| redir @q>> | echon 'water' | redir END |
| call assert_equal('clean water', @q) |
| |
| " Test for redirecting to a variable |
| redir => color | echon 'blue ' | redir END |
| redir =>> color | echon 'sky' | redir END |
| call assert_equal('blue sky', color) |
| endfunc |
| |
| " Test for the :filetype command |
| func Test_filetype_cmd() |
| call assert_fails('filetype abc', 'E475:') |
| endfunc |
| |
| " Test for the :mode command |
| func Test_mode_cmd() |
| call assert_fails('mode abc', 'E359:') |
| endfunc |
| |
| " Test for the :sleep command |
| func Test_sleep_cmd() |
| call assert_fails('sleep x', 'E475:') |
| endfunc |
| |
| " Test for the :read command |
| func Test_read_cmd() |
| call writefile(['one'], 'Xfile') |
| new |
| call assert_fails('read', 'E32:') |
| edit Xfile |
| read |
| call assert_equal(['one', 'one'], getline(1, '$')) |
| close! |
| new |
| read Xfile |
| call assert_equal(['', 'one'], getline(1, '$')) |
| call deletebufline('', 1, '$') |
| call feedkeys("Qr Xfile\<CR>visual\<CR>", 'xt') |
| call assert_equal(['one'], getline(1, '$')) |
| close! |
| call delete('Xfile') |
| endfunc |
| |
| " Test for running Ex commands when text is locked. |
| " <C-\>e in the command line is used to lock the text |
| func Test_run_excmd_with_text_locked() |
| " :quit |
| let cmd = ":\<C-\>eexecute('quit')\<CR>\<C-C>" |
| call assert_fails("call feedkeys(cmd, 'xt')", 'E523:') |
| |
| " :qall |
| let cmd = ":\<C-\>eexecute('qall')\<CR>\<C-C>" |
| call assert_fails("call feedkeys(cmd, 'xt')", 'E523:') |
| |
| " :exit |
| let cmd = ":\<C-\>eexecute('exit')\<CR>\<C-C>" |
| call assert_fails("call feedkeys(cmd, 'xt')", 'E523:') |
| |
| " :close - should be ignored |
| new |
| let cmd = ":\<C-\>eexecute('close')\<CR>\<C-C>" |
| call assert_equal(2, winnr('$')) |
| close |
| |
| call assert_fails("call feedkeys(\":\<C-R>=execute('bnext')\<CR>\", 'xt')", 'E523:') |
| endfunc |
| |
| " Test for the :verbose command |
| func Test_verbose_cmd() |
| call assert_equal([' verbose=1'], split(execute('verbose set vbs'), "\n")) |
| call assert_equal([' verbose=0'], split(execute('0verbose set vbs'), "\n")) |
| let l = execute("4verbose set verbose | set verbose") |
| call assert_equal([' verbose=4', ' verbose=0'], split(l, "\n")) |
| endfunc |
| |
| " Test for the :delete command and the related abbreviated commands |
| func Test_excmd_delete() |
| new |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal(['^Ibar$'], split(execute('dl'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal(['^Ibar$'], split(execute('dell'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal(['^Ibar$'], split(execute('delel'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal(['^Ibar$'], split(execute('deletl'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal(['^Ibar$'], split(execute('deletel'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('dp'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('dep'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('delp'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('delep'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('deletp'), "\n")) |
| call setline(1, ['foo', "\tbar"]) |
| call assert_equal([' bar'], split(execute('deletep'), "\n")) |
| close! |
| endfunc |
| |
| " Test for commands that are blocked in a sandbox |
| func Sandbox_tests() |
| call assert_fails("call histadd(':', 'ls')", 'E48:') |
| call assert_fails("call mkdir('Xdir')", 'E48:') |
| call assert_fails("call rename('a', 'b')", 'E48:') |
| call assert_fails("call setbufvar(1, 'myvar', 1)", 'E48:') |
| call assert_fails("call settabvar(1, 'myvar', 1)", 'E48:') |
| call assert_fails("call settabwinvar(1, 1, 'myvar', 1)", 'E48:') |
| call assert_fails("call setwinvar(1, 'myvar', 1)", 'E48:') |
| call assert_fails("call timer_start(100, '')", 'E48:') |
| if has('channel') |
| call assert_fails("call prompt_setcallback(1, '')", 'E48:') |
| call assert_fails("call prompt_setinterrupt(1, '')", 'E48:') |
| call assert_fails("call prompt_setprompt(1, '')", 'E48:') |
| endif |
| call assert_fails("let $TESTVAR=1", 'E48:') |
| call assert_fails("call feedkeys('ivim')", 'E48:') |
| call assert_fails("source! Xfile", 'E48:') |
| call assert_fails("call delete('Xfile')", 'E48:') |
| call assert_fails("call writefile([], 'Xfile')", 'E48:') |
| call assert_fails('!ls', 'E48:') |
| call assert_fails('shell', 'E48:') |
| call assert_fails('stop', 'E48:') |
| call assert_fails('exe "normal \<C-Z>"', 'E48:') |
| set insertmode |
| call assert_fails('call feedkeys("\<C-Z>", "xt")', 'E48:') |
| set insertmode& |
| call assert_fails('suspend', 'E48:') |
| call assert_fails('call system("ls")', 'E48:') |
| call assert_fails('call systemlist("ls")', 'E48:') |
| if has('clientserver') |
| call assert_fails('let s=remote_expr("gvim", "2+2")', 'E48:') |
| if !has('win32') |
| " remote_foreground() doesn't thrown an error message on MS-Windows |
| call assert_fails('call remote_foreground("gvim")', 'E48:') |
| endif |
| call assert_fails('let s=remote_peek("gvim")', 'E48:') |
| call assert_fails('let s=remote_read("gvim")', 'E48:') |
| call assert_fails('let s=remote_send("gvim", "abc")', 'E48:') |
| call assert_fails('let s=server2client("gvim", "abc")', 'E48:') |
| endif |
| if has('terminal') |
| call assert_fails('terminal', 'E48:') |
| call assert_fails('call term_start("vim")', 'E48:') |
| call assert_fails('call term_dumpwrite(1, "Xfile")', 'E48:') |
| endif |
| if has('channel') |
| call assert_fails("call ch_logfile('chlog')", 'E48:') |
| call assert_fails("call ch_open('localhost:8765')", 'E48:') |
| endif |
| if has('job') |
| call assert_fails("call job_start('vim')", 'E48:') |
| endif |
| if has('unix') && has('libcall') |
| call assert_fails("echo libcall('libc.so', 'getenv', 'HOME')", 'E48:') |
| endif |
| if has('unix') |
| call assert_fails('cd `pwd`', 'E48:') |
| endif |
| endfunc |
| |
| func Test_sandbox() |
| sandbox call Sandbox_tests() |
| endfunc |
| |
| " vim: shiftwidth=2 sts=2 expandtab |