Mercurial > vim
view src/testdir/test_blockedit.vim @ 25597:0fdacd8f0cf3 v8.2.3335
patch 8.2.3335: Vim9: not enough tests run with Vim9
Commit: https://github.com/vim/vim/commit/ef98257593a0abf1300d0f70358dc45a70a62580
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Aug 12 19:27:57 2021 +0200
patch 8.2.3335: Vim9: not enough tests run with Vim9
Problem: Vim9: not enough tests run with Vim9.
Solution: Run a few more tests in Vim9 script and :def function. Fix that
items(), keys() and values9) return zero for a NULL dict.
Make join() return an empty string for a NULL list. Make sort()
return an empty list for a NULL list.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Thu, 12 Aug 2021 19:30:03 +0200 |
| parents | bd46322bea66 |
| children | 294736db2561 |
line wrap: on
line source
" Test for block inserting func Test_blockinsert_indent() new filetype plugin indent on setlocal sw=2 et ft=vim call setline(1, ['let a=[', ' ''eins'',', ' ''zwei'',', ' ''drei'']']) call cursor(2, 3) exe "norm! \<c-v>2jI\\ \<esc>" call assert_equal(['let a=[', ' \ ''eins'',', ' \ ''zwei'',', ' \ ''drei'']'], \ getline(1,'$')) " reset to sane state filetype off bwipe! endfunc func Test_blockinsert_delete() new let _bs = &bs set bs=2 call setline(1, ['case Arg is ', ' when Name_Async,', ' when Name_Num_Gangs,', 'end if;']) exe "norm! ggjVj\<c-v>$o$A\<bs>\<esc>" "call feedkeys("Vj\<c-v>$o$A\<bs>\<esc>", 'ti') call assert_equal(["case Arg is ", " when Name_Async", " when Name_Num_Gangs,", "end if;"], \ getline(1,'$')) " reset to sane state let &bs = _bs bwipe! endfunc func Test_blockappend_eol_cursor() new " Test 1 Move 1 char left call setline(1, ['aaa', 'bbb', 'ccc']) exe "norm! gg$\<c-v>2jA\<left>x\<esc>" call assert_equal(['aaxa', 'bbxb', 'ccxc'], getline(1, '$')) " Test 2 Move 2 chars left sil %d call setline(1, ['aaa', 'bbb', 'ccc']) exe "norm! gg$\<c-v>2jA\<left>\<left>x\<esc>" call assert_equal(['axaa', 'bxbb', 'cxcc'], getline(1, '$')) " Test 3 Move 3 chars left (outside of the visual selection) sil %d call setline(1, ['aaa', 'bbb', 'ccc']) exe "norm! ggl$\<c-v>2jA\<left>\<left>\<left>x\<esc>" call assert_equal(['xaaa', 'bbb', 'ccc'], getline(1, '$')) bw! endfunc func Test_blockappend_eol_cursor2() new " Test 1 Move 1 char left call setline(1, ['aaaaa', 'bbb', 'ccccc']) exe "norm! gg\<c-v>$2jA\<left>x\<esc>" call assert_equal(['aaaaxa', 'bbbx', 'ccccxc'], getline(1, '$')) " Test 2 Move 2 chars left sil %d call setline(1, ['aaaaa', 'bbb', 'ccccc']) exe "norm! gg\<c-v>$2jA\<left>\<left>x\<esc>" call assert_equal(['aaaxaa', 'bbbx', 'cccxcc'], getline(1, '$')) " Test 3 Move 3 chars left (to the beginning of the visual selection) sil %d call setline(1, ['aaaaa', 'bbb', 'ccccc']) exe "norm! gg\<c-v>$2jA\<left>\<left>\<left>x\<esc>" call assert_equal(['aaxaaa', 'bbxb', 'ccxccc'], getline(1, '$')) " Test 4 Move 3 chars left (outside of the visual selection) sil %d call setline(1, ['aaaaa', 'bbb', 'ccccc']) exe "norm! ggl\<c-v>$2jA\<left>\<left>\<left>x\<esc>" call assert_equal(['aaxaaa', 'bbxb', 'ccxccc'], getline(1, '$')) " Test 5 Move 4 chars left (outside of the visual selection) sil %d call setline(1, ['aaaaa', 'bbb', 'ccccc']) exe "norm! ggl\<c-v>$2jA\<left>\<left>\<left>\<left>x\<esc>" call assert_equal(['axaaaa', 'bxbb', 'cxcccc'], getline(1, '$')) bw! endfunc " vim: shiftwidth=2 sts=2 expandtab