vim: src/testdir/test_edit.vim annotate

annotate src/testdir/test_edit.vim @ 12551:a69d3595d773 v8.0.1154

patch 8.0.1154: 'indentkeys' does not work properly commit https://github.com/vim/vim/commit/1b38344e00af65df12946fffda7f3201621c35ef Author: Bram Moolenaar <Bram@vim.org> Date: Tue Sep 26 20:04:54 2017 +0200 patch 8.0.1154: 'indentkeys' does not work properly Problem: 'indentkeys' does not work properly. (Gary Johnson) Solution: Get the cursor line again. (Christian Brabandt, closes https://github.com/vim/vim/issues/2151)

author	Christian Brabandt <cb@256bit.org>
date	Tue, 26 Sep 2017 20:15:05 +0200
parents	2dc624388934
children	1fad9675d8fd

rev	line source
11105 7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Test for edit functions
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	2 "
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	3 if exists("+t_kD")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	4 let &t_kD="[3;*~"
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	5 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	6 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	7
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	8 " Needed for testing basic rightleft: Test_edit_rightleft
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	9 source view_util.vim
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	10
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	11 " Needs to come first until the bug in getchar() is
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	12 " fixed: https://groups.google.com/d/msg/vim_dev/fXL9yme4H4c/bOR-U6_bAQAJ
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	13 func! Test_edit_00b()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	14 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	15 call setline(1, ['abc '])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	16 inoreabbr <buffer> h here some more
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	17 call cursor(1, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	18 " <c-l> expands the abbreviation and ends insertmode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	19 call feedkeys(":set im\<cr> h\<c-l>:set noim\<cr>", 'tix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	20 call assert_equal(['abc here some more '], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	21 iunabbr <buffer> h
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	22 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	23 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	24
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	25 func! Test_edit_01()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	26 " set for Travis CI?
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	27 " set nocp noesckeys
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	28 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	29 set belloff=backspace
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	30 " 1) empty buffer
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	31 call assert_equal([''], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	32 " 2) delete in an empty line
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	33 call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	34 call assert_equal([''], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	35 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	36 " 3) delete one character
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	37 call setline(1, 'a')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	38 call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	39 call assert_equal([''], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	40 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	41 " 4) delete a multibyte character
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	42 if has("multi_byte")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	43 call setline(1, "\u0401")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	44 call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	45 call assert_equal([''], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	46 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	47 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	48 " 5.1) delete linebreak with 'bs' option containing eol
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	49 let _bs=&bs
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	50 set bs=eol
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	51 call setline(1, ["abc def", "ghi jkl"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	52 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	53 call feedkeys("A\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	54 call assert_equal(['abc defghi jkl'], getline(1, 2))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	55 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	56 " 5.2) delete linebreak with backspace option w/out eol
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	57 set bs=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	58 call setline(1, ["abc def", "ghi jkl"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	59 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	60 call feedkeys("A\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	61 call assert_equal(["abc def", "ghi jkl"], getline(1, 2))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	62 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	63 let &bs=_bs
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	64 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	65 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	66
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	67 func! Test_edit_02()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	68 " Change cursor position in InsertCharPre command
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	69 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	70 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	71 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	72 fu! DoIt(...)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	73 call cursor(1, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	74 if len(a:000)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	75 let v:char=a:1
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	76 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	77 endfu
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	78 au InsertCharPre <buffer> :call DoIt('y')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	79 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	80 call assert_equal(['abcy'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	81 " Setting <Enter> in InsertCharPre
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	82 au! InsertCharPre <buffer> :call DoIt("\n")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	83 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	84 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	85 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	86 call assert_equal(['abc', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	87 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	88 au! InsertCharPre
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	89 " Change cursor position in InsertEnter command
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	90 " 1) when setting v:char, keeps changed cursor position
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	91 au! InsertEnter <buffer> :call DoIt('y')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	92 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	93 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	94 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	95 call assert_equal(['abxc'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	96 " 2) when not setting v:char, restores changed cursor position
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	97 au! InsertEnter <buffer> :call DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	98 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	99 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	100 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	101 call assert_equal(['xabc'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	102 au! InsertEnter
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	103 delfu DoIt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	104 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	105 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	106
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	107 func! Test_edit_03()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	108 " Change cursor after <c-o> command to end of line
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	109 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	110 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	111 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	112 call feedkeys("i\<c-o>$y\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	113 call assert_equal(['abcy'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	114 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	115 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	116 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	117 call feedkeys("i\<c-o>80\|y\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	118 call assert_equal(['abcy'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	119 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	120 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	121 call feedkeys("Ad\<c-o>:s/$/efg/\<cr>hij", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	122 call assert_equal(['hijabcdefg'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	123 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	124 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	125
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	126 func! Test_edit_04()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	127 " test for :stopinsert
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	128 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	129 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	130 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	131 call feedkeys("i\<c-o>:stopinsert\<cr>$", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	132 call feedkeys("aX\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	133 call assert_equal(['abcX'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	134 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	135 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	136 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	137
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	138 func! Test_edit_05()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	139 " test for folds being opened
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	140 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	141 call setline(1, ['abcX', 'abcX', 'zzzZ'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	142 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	143 set foldmethod=manual foldopen+=insert
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	144 " create fold for those two lines
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	145 norm! Vjzf
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	146 call feedkeys("$ay\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	147 call assert_equal(['abcXy', 'abcX', 'zzzZ'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	148 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	149 call setline(1, ['abcX', 'abcX', 'zzzZ'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	150 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	151 set foldmethod=manual foldopen-=insert
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	152 " create fold for those two lines
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	153 norm! Vjzf
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	154 call feedkeys("$ay\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	155 call assert_equal(['abcXy', 'abcX', 'zzzZ'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	156 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	157 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	158 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	159
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	160 func! Test_edit_06()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	161 " Test in diff mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	162 if !has("diff") \|\| !executable("diff")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	163 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	164 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	165 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	166 call setline(1, ['abc', 'xxx', 'yyy'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	167 vnew
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	168 call setline(1, ['abc', 'zzz', 'xxx', 'yyy'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	169 wincmd p
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	170 diffthis
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	171 wincmd p
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	172 diffthis
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	173 wincmd p
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	174 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	175 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	176 call feedkeys("Ozzz\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	177 call assert_equal(['abc', 'zzz', 'xxx', 'yyy'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	178 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	179 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	180 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	181
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	182 func! Test_edit_07()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	183 " 1) Test with completion <c-l> when popupmenu is visible
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	184 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	185 call setline(1, 'J')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	186
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	187 func! ListMonths()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	188 call complete(col('.')-1, ['January', 'February', 'March',
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	189 \ 'April', 'May', 'June', 'July', 'August', 'September',
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	190 \ 'October', 'November', 'December'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	191 return ''
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	192 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	193 inoremap <buffer> <F5> <C-R>=ListMonths()<CR>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	194
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	195 call feedkeys("A\<f5>\<c-p>". repeat("\<down>", 6)."\<c-l>\<down>\<c-l>\<cr>", 'tx')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	196 call assert_equal(['July'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	197 " 1) Test completion when InsertCharPre kicks in
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	198 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	199 call setline(1, 'J')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	200 fu! DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	201 if v:char=='u'
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	202 let v:char='an'
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	203 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	204 endfu
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	205 au InsertCharPre <buffer> :call DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	206 call feedkeys("A\<f5>\<c-p>u\<cr>\<c-l>\<cr>", 'tx')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	207 call assert_equal(["Jan\<c-l>",''], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	208 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	209 call setline(1, 'J')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	210 call feedkeys("A\<f5>\<c-p>u\<down>\<c-l>\<cr>", 'tx')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	211 call assert_equal(["January"], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	212
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	213 delfu ListMonths
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	214 delfu DoIt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	215 iunmap <buffer> <f5>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	216 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	217 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	218
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	219 func! Test_edit_08()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	220 " reset insertmode from i_ctrl-r_=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	221 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	222 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	223 call cursor(1, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	224 call feedkeys(":set im\<cr>ZZZ\<c-r>=setbufvar(1,'&im', 0)\<cr>",'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	225 call assert_equal(['abZZZc'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	226 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	227 call assert_false(0, '&im')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	228 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	229 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	230
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	231 func! Test_edit_09()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	232 " test i_CTRL-\ combinations
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	233 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	234 call setline(1, ['abc', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	235 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	236 " 1) CTRL-\ CTLR-N
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	237 call feedkeys(":set im\<cr>\<c-\>\<c-n>ccABC\<c-l>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	238 call assert_equal(['ABC', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	239 call setline(1, ['ABC', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	240 " 2) CTRL-\ CTLR-G
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	241 call feedkeys("j0\<c-\>\<c-g>ZZZ\<cr>\<c-l>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	242 call assert_equal(['ABC', 'ZZZ', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	243 call feedkeys("I\<c-\>\<c-g>YYY\<c-l>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	244 call assert_equal(['ABC', 'ZZZ', 'YYYdef', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	245 set noinsertmode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	246 " 3) CTRL-\ CTRL-O
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	247 call setline(1, ['ABC', 'ZZZ', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	248 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	249 call feedkeys("A\<c-o>ix", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	250 call assert_equal(['ABxC', 'ZZZ', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	251 call feedkeys("A\<c-\>\<c-o>ix", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	252 call assert_equal(['ABxCx', 'ZZZ', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	253 " 4) CTRL-\ a (should be inserted literally, not special after <c-\>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	254 call setline(1, ['ABC', 'ZZZ', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	255 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	256 call feedkeys("A\<c-\>a", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	257 call assert_equal(["ABC\<c-\>a", 'ZZZ', 'def', 'ghi'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	258 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	259 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	260
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	261 func! Test_edit_10()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	262 " Test for starting selectmode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	263 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	264 set selectmode=key keymodel=startsel
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	265 call setline(1, ['abc', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	266 call cursor(1, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	267 call feedkeys("A\<s-home>start\<esc>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	268 call assert_equal(['startdef', 'ghi'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	269 set selectmode= keymodel=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	270 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	271 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	272
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	273 func! Test_edit_11()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	274 " Test that indenting kicks in
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	275 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	276 set cindent
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	277 call setline(1, ['{', '', ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	278 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	279 call feedkeys("i\<c-f>int c;\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	280 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	281 call feedkeys("i/* comment */", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	282 call assert_equal(['{', "\<tab>int c;", "/* comment */"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	283 " added changed cindentkeys slightly
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	284 set cindent cinkeys+=*/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	285 call setline(1, ['{', '', ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	286 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	287 call feedkeys("i\<c-f>int c;\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	288 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	289 call feedkeys("i/* comment */", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	290 call assert_equal(['{', "\<tab>int c;", "\<tab>/* comment */"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	291 set cindent cinkeys+==end
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	292 call feedkeys("oend\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	293 call assert_equal(['{', "\<tab>int c;", "\<tab>/* comment */", "\tend", ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	294 set cinkeys-==end
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	295 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	296 " Use indentexpr instead of cindenting
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	297 func! Do_Indent()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	298 if v:lnum == 3
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	299 return 3*shiftwidth()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	300 else
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	301 return 2*shiftwidth()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	302 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	303 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	304 setl indentexpr=Do_Indent() indentkeys+=*/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	305 call setline(1, ['{', '', ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	306 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	307 call feedkeys("i\<c-f>int c;\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	308 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	309 call feedkeys("i/* comment */", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	310 call assert_equal(['{', "\<tab>\<tab>int c;", "\<tab>\<tab>\<tab>/* comment */"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	311 set cinkeys&vim indentkeys&vim
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	312 set nocindent indentexpr=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	313 delfu Do_Indent
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	314 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	315 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	316
12551 a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	317 func! Test_edit_11_indentexpr()
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	318 " Test that indenting kicks in
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	319 new
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	320 " Use indentexpr instead of cindenting
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	321 func! Do_Indent()
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	322 let pline=prevnonblank(v:lnum)
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	323 if empty(getline(v:lnum))
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	324 if getline(pline) =~ 'if\\|then'
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	325 return shiftwidth()
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	326 else
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	327 return 0
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	328 endif
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	329 else
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	330 return 0
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	331 endif
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	332 endfunc
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	333 setl indentexpr=Do_Indent() indentkeys+=0=then,0=fi
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	334 call setline(1, ['if [ $this ]'])
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	335 call cursor(1, 1)
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	336 call feedkeys("othen\<cr>that\<cr>fi", 'tnix')
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	337 call assert_equal(['if [ $this ]', "then", "\<tab>that", "fi"], getline(1, '$'))
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	338 set cinkeys&vim indentkeys&vim
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	339 set nocindent indentexpr=
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	340 delfu Do_Indent
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	341 bw!
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	342 endfunc
a69d3595d773 patch 8.0.1154: 'indentkeys' does not work properly Christian Brabandt <cb@256bit.org> parents: 11319 diff changeset	343
11105 7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	344 func! Test_edit_12()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	345 " Test changing indent in replace mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	346 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	347 call setline(1, ["\tabc", "\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	348 call cursor(2, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	349 call feedkeys("R^\<c-d>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	350 call assert_equal(["\tabc", "def"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	351 call assert_equal([0, 2, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	352 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	353 call setline(1, ["\tabc", "\t\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	354 call cursor(2, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	355 call feedkeys("R^\<c-d>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	356 call assert_equal(["\tabc", "def"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	357 call assert_equal([0, 2, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	358 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	359 call setline(1, ["\tabc", "\t\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	360 call cursor(2, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	361 call feedkeys("R\<c-t>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	362 call assert_equal(["\tabc", "\t\t\tdef"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	363 call assert_equal([0, 2, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	364 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	365 10vnew
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	366 call setline(1, ["\tabc", "\t\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	367 call cursor(2, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	368 call feedkeys("R\<c-t>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	369 call assert_equal(["\tabc", "\t\t\tdef"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	370 call assert_equal([0, 2, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	371 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	372 set sw=4
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	373 call setline(1, ["\tabc", "\t\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	374 call cursor(2, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	375 call feedkeys("R\<c-t>\<c-t>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	376 call assert_equal(["\tabc", "\t\t\tdef"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	377 call assert_equal([0, 2, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	378 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	379 call setline(1, ["\tabc", "\t\tdef"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	380 call cursor(2, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	381 call feedkeys("R\<c-t>\<c-t>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	382 call assert_equal(["\tabc", "\t\t\tdef"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	383 call assert_equal([0, 2, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	384 set et
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	385 set sw& et&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	386 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	387 call setline(1, ["\t/*"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	388 set formatoptions=croql
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	389 call cursor(1, 3)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	390 call feedkeys("A\<cr>\<cr>/", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	391 call assert_equal(["\t/", " ", " */"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	392 set formatoptions&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	393 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	394 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	395
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	396 func! Test_edit_13()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	397 " Test smartindenting
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	398 if exists("+smartindent")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	399 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	400 set smartindent autoindent
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	401 call setline(1, ["\tabc"])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	402 call feedkeys("A {\<cr>more\<cr>}\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	403 call assert_equal(["\tabc {", "\t\tmore", "\t}"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	404 set smartindent& autoindent&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	405 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	406 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	407 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	408
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	409 func! Test_edit_CR()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	410 " Test for <CR> in insert mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	411 " basically only in quickfix mode ist tested, the rest
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	412 " has been taken care of by other tests
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	413 if !has("quickfix")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	414 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	415 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	416 botright new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	417 call writefile(range(1, 10), 'Xqflist.txt')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	418 call setqflist([{'filename': 'Xqflist.txt', 'lnum': 2}])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	419 copen
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	420 set modifiable
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	421 call feedkeys("A\<cr>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	422 call assert_equal('Xqflist.txt', bufname(''))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	423 call assert_equal(2, line('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	424 cclose
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	425 botright new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	426 call setloclist(0, [{'filename': 'Xqflist.txt', 'lnum': 10}])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	427 lopen
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	428 set modifiable
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	429 call feedkeys("A\<cr>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	430 call assert_equal('Xqflist.txt', bufname(''))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	431 call assert_equal(10, line('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	432 call feedkeys("A\<Enter>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	433 call feedkeys("A\<kEnter>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	434 call feedkeys("A\n", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	435 call feedkeys("A\r", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	436 call assert_equal(map(range(1, 10), 'string(v:val)') + ['', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	437 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	438 lclose
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	439 call delete('Xqflist.txt')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	440 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	441
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	442 func! Test_edit_CTRL_()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	443 " disabled for Windows builds, why?
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	444 if !has("multi_byte") \|\| !has("rightleft") \|\| has("win32")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	445 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	446 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	447 let _encoding=&encoding
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	448 set encoding=utf-8
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	449 " Test for CTRL-_
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	450 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	451 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	452 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	453 call feedkeys("i\<c-_>xyz\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	454 call assert_equal(["\<C-_>xyzabc"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	455 call assert_false(&revins)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	456 set ari
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	457 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	458 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	459 call feedkeys("i\<c-_>xyz\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	460 call assert_equal(["æèñabc"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	461 call assert_true(&revins)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	462 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	463 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	464 call feedkeys("i\<c-_>xyz\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	465 call assert_equal(["xyzabc"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	466 call assert_false(&revins)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	467 set noari
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	468 let &encoding=_encoding
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	469 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	470 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	471
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	472 " needs to come first, to have the @. register empty
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	473 func! Test_edit_00a_CTRL_A()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	474 " Test pressing CTRL-A
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	475 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	476 call setline(1, repeat([''], 5))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	477 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	478 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	479 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	480 call feedkeys("A\<NUL>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	481 catch /^Vim\%((\a\+)\)\=:E29/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	482 call assert_true(1, 'E29 error caught')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	483 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	484 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	485 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	486 call feedkeys("Afoobar \<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	487 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	488 call feedkeys("A\<c-a>more\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	489 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	490 call feedkeys("A\<NUL>and more\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	491 call assert_equal(['foobar ', 'foobar more', 'foobar morend more', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	492 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	493 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	494
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	495 func! Test_edit_CTRL_EY()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	496 " Ctrl-E/ Ctrl-Y in insert mode completion to scroll
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	497 10new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	498 call setline(1, range(1, 100))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	499 call cursor(30, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	500 norm! z.
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	501 call feedkeys("A\<c-x>\<c-e>\<c-e>\<c-e>\<c-e>\<c-e>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	502 call assert_equal(30, winsaveview()['topline'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	503 call assert_equal([0, 30, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	504 call feedkeys("A\<c-x>\<c-e>\<c-e>\<c-e>\<c-e>\<c-e>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	505 call feedkeys("A\<c-x>".repeat("\<c-y>", 10), 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	506 call assert_equal(21, winsaveview()['topline'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	507 call assert_equal([0, 30, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	508 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	509 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	510
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	511 func! Test_edit_CTRL_G()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	512 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	513 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	514 call setline(1, ['foobar', 'foobar', 'foobar'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	515 call cursor(2, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	516 call feedkeys("ioooooooo\<c-g>k\<c-r>.\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	517 call assert_equal(['foooooooooobar', 'foooooooooobar', 'foobar'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	518 call assert_equal([0, 1, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	519 call feedkeys("i\<c-g>k\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	520 call assert_equal([0, 1, 10, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	521 call cursor(2, 4)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	522 call feedkeys("i\<c-g>jzzzz\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	523 call assert_equal(['foooooooooobar', 'foooooooooobar', 'foozzzzbar'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	524 call assert_equal([0, 3, 7, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	525 call feedkeys("i\<c-g>j\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	526 call assert_equal([0, 3, 6, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	527 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	528 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	529 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	530
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	531 func! Test_edit_CTRL_I()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	532 " Tab in completion mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	533 let path=expand("%:p:h")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	534 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	535 call setline(1, [path."/", ''])
11171 7fc6afa998be patch 8.0.0472: when a test fails another test may also fail Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	536 call feedkeys("Arunt\<c-x>\<c-f>\<tab>\<cr>\<esc>", 'tnix')
7fc6afa998be patch 8.0.0472: when a test fails another test may also fail Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	537 call assert_match('runtest\.vim', getline(1))
11105 7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	538 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	539 call writefile(['one', 'two', 'three'], 'Xinclude.txt')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	540 let include='#include Xinclude.txt'
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	541 call setline(1, [include, ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	542 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	543 call feedkeys("A\<c-x>\<tab>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	544 call assert_equal([include, 'one', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	545 call feedkeys("2ggC\<c-x>\<tab>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	546 call assert_equal([include, 'two', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	547 call feedkeys("2ggC\<c-x>\<tab>\<down>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	548 call assert_equal([include, 'three', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	549 call feedkeys("2ggC\<c-x>\<tab>\<down>\<down>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	550 call assert_equal([include, '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	551 call delete("Xinclude.txt")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	552 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	553 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	554
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	555 func! Test_edit_CTRL_K()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	556 " Test pressing CTRL-K (basically only dictionary completion and digraphs
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	557 " the rest is already covered
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	558 call writefile(['A', 'AA', 'AAA', 'AAAA'], 'Xdictionary.txt')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	559 set dictionary=Xdictionary.txt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	560 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	561 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	562 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	563 call feedkeys("A\<c-x>\<c-k>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	564 call assert_equal(['AA', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	565 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	566 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	567 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	568 call feedkeys("A\<c-x>\<c-k>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	569 call assert_equal(['AAA'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	570 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	571 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	572 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	573 call feedkeys("A\<c-x>\<c-k>\<down>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	574 call assert_equal(['AAAA'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	575 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	576 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	577 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	578 call feedkeys("A\<c-x>\<c-k>\<down>\<down>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	579 call assert_equal(['A'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	580 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	581 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	582 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	583 call feedkeys("A\<c-x>\<c-k>\<down>\<down>\<down>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	584 call assert_equal(['AA'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	585
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	586 " press an unexecpted key after dictionary completion
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	587 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	588 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	589 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	590 call feedkeys("A\<c-x>\<c-k>\<c-]>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	591 call assert_equal(['AA', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	592 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	593 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	594 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	595 call feedkeys("A\<c-x>\<c-k>\<c-s>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	596 call assert_equal(["AA\<c-s>", ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	597 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	598 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	599 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	600 call feedkeys("A\<c-x>\<c-k>\<c-f>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	601 call assert_equal(["AA\<c-f>", ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	602
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	603 set dictionary=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	604 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	605 call setline(1, 'A')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	606 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	607 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	608 let v:testing = 1
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	609 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	610 call feedkeys("A\<c-x>\<c-k>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	611 catch
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	612 " error sleeps 2 seconds, when v:testing is not set
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	613 let v:testing = 0
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	614 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	615 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	616 call delete('Xdictionary.txt')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	617
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	618 if has("multi_byte")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	619 call test_override("char_avail", 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	620 set showcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	621 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	622 call feedkeys("A\<c-k>a:\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	623 call assert_equal(['ä'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	624 call test_override("char_avail", 0)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	625 set noshowcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	626 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	627 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	628 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	629
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	630 func! Test_edit_CTRL_L()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	631 " Test Ctrl-X Ctrl-L (line completion)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	632 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	633 set complete=.
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	634 call setline(1, ['one', 'two', 'three', '', '', '', ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	635 call cursor(4, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	636 call feedkeys("A\<c-x>\<c-l>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	637 call assert_equal(['one', 'two', 'three', 'three', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	638 call feedkeys("cct\<c-x>\<c-l>\<c-n>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	639 call assert_equal(['one', 'two', 'three', 't', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	640 call feedkeys("cct\<c-x>\<c-l>\<c-n>\<c-n>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	641 call assert_equal(['one', 'two', 'three', 't', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	642 call feedkeys("cct\<c-x>\<c-l>\<c-n>\<c-n>\<c-n>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	643 call assert_equal(['one', 'two', 'three', 'two', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	644 call feedkeys("cct\<c-x>\<c-l>\<c-n>\<c-n>\<c-n>\<c-n>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	645 call assert_equal(['one', 'two', 'three', 'three', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	646 call feedkeys("cct\<c-x>\<c-l>\<c-p>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	647 call assert_equal(['one', 'two', 'three', 'two', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	648 call feedkeys("cct\<c-x>\<c-l>\<c-p>\<c-p>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	649 call assert_equal(['one', 'two', 'three', 't', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	650 call feedkeys("cct\<c-x>\<c-l>\<c-p>\<c-p>\<c-p>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	651 call assert_equal(['one', 'two', 'three', 'three', '', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	652 set complete=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	653 call cursor(5, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	654 call feedkeys("A\<c-x>\<c-l>\<c-p>\<c-n>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	655 call assert_equal(['one', 'two', 'three', 'three', "\<c-l>\<c-p>\<c-n>", '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	656 set complete&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	657 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	658 if has("conceal") && has("syntax")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	659 call setline(1, ['foo', 'bar', 'foobar'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	660 call test_override("char_avail", 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	661 set conceallevel=2 concealcursor=n
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	662 syn on
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	663 syn match ErrorMsg "^bar"
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	664 call matchadd("Conceal", 'oo', 10, -1, {'conceal': 'X'})
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	665 func! DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	666 let g:change=1
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	667 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	668 au! TextChangedI <buffer> :call DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	669
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	670 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	671 call assert_false(exists("g:change"))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	672 call feedkeys("A \<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	673 call assert_equal(['foo', 'bar ', 'foobar'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	674 call assert_equal(1, g:change)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	675
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	676 call test_override("char_avail", 0)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	677 call clearmatches()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	678 syn off
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	679 au! TextChangedI
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	680 delfu DoIt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	681 unlet! g:change
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	682 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	683 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	684 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	685
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	686 func! Test_edit_CTRL_N()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	687 " Check keyword completion
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	688 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	689 set complete=.
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	690 call setline(1, ['INFER', 'loWER', '', '', ])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	691 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	692 call feedkeys("Ai\<c-n>\<cr>\<esc>", "tnix")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	693 call feedkeys("ILO\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	694 call assert_equal(['INFER', 'loWER', 'i', 'LO', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	695 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	696 call setline(1, ['INFER', 'loWER', '', '', ])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	697 call cursor(3, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	698 set ignorecase infercase
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	699 call feedkeys("Ii\<c-n>\<cr>\<esc>", "tnix")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	700 call feedkeys("ILO\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	701 call assert_equal(['INFER', 'loWER', 'infer', 'LOWER', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	702
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	703 set noignorecase noinfercase complete&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	704 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	705 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	706
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	707 func! Test_edit_CTRL_O()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	708 " Check for CTRL-O in insert mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	709 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	710 inoreabbr <buffer> h here some more
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	711 call setline(1, ['abc', 'def'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	712 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	713 " Ctrl-O after an abbreviation
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	714 exe "norm A h\<c-o>:set nu\<cr> text"
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	715 call assert_equal(['abc here some more text', 'def'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	716 call assert_true(&nu)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	717 set nonu
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	718 iunabbr <buffer> h
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	719 " Ctrl-O at end of line with 've'=onemore
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	720 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	721 call feedkeys("A\<c-o>:let g:a=getpos('.')\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	722 call assert_equal([0, 1, 23, 0], g:a)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	723 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	724 set ve=onemore
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	725 call feedkeys("A\<c-o>:let g:a=getpos('.')\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	726 call assert_equal([0, 1, 24, 0], g:a)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	727 set ve=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	728 unlet! g:a
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	729 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	730 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	731
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	732 func! Test_edit_CTRL_R()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	733 " Insert Register
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	734 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	735 call test_override("ALL", 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	736 set showcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	737 call feedkeys("AFOOBAR eins zwei\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	738 call feedkeys("O\<c-r>.", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	739 call feedkeys("O\<c-r>=10*500\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	740 call feedkeys("O\<c-r>=getreg('=', 1)\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	741 call assert_equal(["getreg('=', 1)", '5000', "FOOBAR eins zwei", "FOOBAR eins zwei"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	742 call test_override("ALL", 0)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	743 set noshowcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	744 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	745 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	746
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	747 func! Test_edit_CTRL_S()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	748 " Test pressing CTRL-S (basically only spellfile completion)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	749 " the rest is already covered
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	750 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	751 if !has("spell")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	752 call setline(1, 'vim')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	753 call feedkeys("A\<c-x>ss\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	754 call assert_equal(['vims', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	755 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	756 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	757 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	758 call setline(1, 'vim')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	759 " spell option not yet set
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	760 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	761 call feedkeys("A\<c-x>\<c-s>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	762 catch /^Vim\%((\a\+)\)\=:E756/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	763 call assert_true(1, 'error caught')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	764 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	765 call assert_equal(['vim', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	766 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	767 setl spell spelllang=en
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	768 call setline(1, 'vim')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	769 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	770 call feedkeys("A\<c-x>\<c-s>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	771 call assert_equal(['Vim', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	772 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	773 call setline(1, 'vim')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	774 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	775 call feedkeys("A\<c-x>\<c-s>\<down>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	776 call assert_equal(['Aim'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	777 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	778 call setline(1, 'vim')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	779 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	780 call feedkeys("A\<c-x>\<c-s>\<c-p>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	781 call assert_equal(['vim', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	782 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	783 " empty buffer
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	784 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	785 call feedkeys("A\<c-x>\<c-s>\<c-p>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	786 call assert_equal(['', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	787 setl nospell
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	788 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	789 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	790
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	791 func! Test_edit_CTRL_T()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	792 " Check for CTRL-T and CTRL-X CTRL-T in insert mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	793 " 1) increase indent
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	794 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	795 call setline(1, "abc")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	796 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	797 call feedkeys("A\<c-t>xyz", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	798 call assert_equal(["\<tab>abcxyz"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	799 " 2) also when paste option is set
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	800 set paste
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	801 call setline(1, "abc")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	802 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	803 call feedkeys("A\<c-t>xyz", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	804 call assert_equal(["\<tab>abcxyz"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	805 set nopaste
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	806 " CTRL-X CTRL-T (thesaurus complete)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	807 call writefile(['angry furious mad enraged'], 'Xthesaurus')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	808 set thesaurus=Xthesaurus
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	809 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	810 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	811 call feedkeys("A\<c-x>\<c-t>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	812 call assert_equal(['mad', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	813 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	814 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	815 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	816 call feedkeys("A\<c-x>\<c-t>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	817 call assert_equal(['angry', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	818 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	819 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	820 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	821 call feedkeys("A\<c-x>\<c-t>\<c-n>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	822 call assert_equal(['furious', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	823 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	824 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	825 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	826 call feedkeys("A\<c-x>\<c-t>\<c-n>\<c-n>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	827 call assert_equal(['enraged', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	828 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	829 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	830 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	831 call feedkeys("A\<c-x>\<c-t>\<c-n>\<c-n>\<c-n>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	832 call assert_equal(['mad', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	833 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	834 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	835 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	836 call feedkeys("A\<c-x>\<c-t>\<c-n>\<c-n>\<c-n>\<c-n>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	837 call assert_equal(['mad', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	838 " Using <c-p> <c-n> when 'complete' is empty
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	839 set complete=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	840 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	841 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	842 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	843 call feedkeys("A\<c-x>\<c-t>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	844 call assert_equal(['angry', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	845 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	846 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	847 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	848 call feedkeys("A\<c-x>\<c-t>\<c-p>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	849 call assert_equal(['mad', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	850 set complete&
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	851
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	852 set thesaurus=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	853 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	854 call setline(1, 'mad')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	855 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	856 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	857 let v:testing = 1
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	858 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	859 call feedkeys("A\<c-x>\<c-t>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	860 catch
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	861 " error sleeps 2 seconds, when v:testing is not set
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	862 let v:testing = 0
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	863 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	864 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	865 call assert_equal(['mad'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	866 call delete('Xthesaurus')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	867 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	868 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	869
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	870 func! Test_edit_CTRL_U()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	871 " Test 'completefunc'
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	872 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	873 " -1, -2 and -3 are special return values
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	874 let g:special=0
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	875 fun! CompleteMonths(findstart, base)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	876 if a:findstart
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	877 " locate the start of the word
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	878 return g:special
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	879 else
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	880 " find months matching with "a:base"
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	881 let res = []
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	882 for m in split("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	883 if m =~ '^\c'.a:base
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	884 call add(res, {'word': m, 'abbr': m.' Month', 'icase': 0})
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	885 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	886 endfor
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	887 return {'words': res, 'refresh': 'always'}
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	888 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	889 endfun
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	890 set completefunc=CompleteMonths
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	891 call setline(1, ['', ''])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	892 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	893 call feedkeys("AX\<c-x>\<c-u>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	894 call assert_equal(['X', '', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	895 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	896 let g:special=-1
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	897 call feedkeys("AX\<c-x>\<c-u>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	898 call assert_equal(['XJan', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	899 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	900 let g:special=-2
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	901 call feedkeys("AX\<c-x>\<c-u>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	902 call assert_equal(['X', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	903 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	904 let g:special=-3
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	905 call feedkeys("AX\<c-x>\<c-u>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	906 call assert_equal(['X', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	907 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	908 let g:special=0
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	909 call feedkeys("AM\<c-x>\<c-u>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	910 call assert_equal(['Mar', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	911 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	912 call feedkeys("AM\<c-x>\<c-u>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	913 call assert_equal(['May', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	914 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	915 call feedkeys("AM\<c-x>\<c-u>\<c-n>\<c-n>\<cr>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	916 call assert_equal(['M', ''], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	917 delfu CompleteMonths
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	918 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	919 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	920 call feedkeys("A\<c-x>\<c-u>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	921 call assert_fails(1, 'unknown completion function')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	922 catch /^Vim\%((\a\+)\)\=:E117/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	923 call assert_true(1, 'E117 error caught')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	924 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	925 set completefunc=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	926 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	927 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	928
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	929 func! Test_edit_CTRL_Z()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	930 " Ctrl-Z when insertmode is not set inserts it literally
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	931 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	932 call setline(1, 'abc')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	933 call feedkeys("A\<c-z>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	934 call assert_equal(["abc\<c-z>"], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	935 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	936 " TODO: How to Test Ctrl-Z in insert mode, e.g. suspend?
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	937 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	938
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	939 func! Test_edit_DROP()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	940 if !has("dnd")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	941 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	942 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	943 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	944 call setline(1, ['abc def ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	945 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	946 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	947 call feedkeys("i\<Drop>\<Esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	948 call assert_fails(1, 'Invalid register name')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	949 catch /^Vim\%((\a\+)\)\=:E353/
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	950 call assert_true(1, 'error caught')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	951 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	952 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	953 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	954
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	955 func! Test_edit_CTRL_V()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	956 if has("ebcdic")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	957 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	958 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	959 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	960 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	961 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	962 " force some redraws
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	963 set showmode showcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	964 "call test_override_char_avail(1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	965 call test_override('ALL', 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	966 call feedkeys("A\<c-v>\<c-n>\<c-v>\<c-l>\<c-v>\<c-b>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	967 call assert_equal(["abc\x0e\x0c\x02"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	968
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	969 if has("rightleft") && exists("+rl")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	970 set rl
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	971 call setline(1, ['abc'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	972 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	973 call feedkeys("A\<c-v>\<c-n>\<c-v>\<c-l>\<c-v>\<c-b>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	974 call assert_equal(["abc\x0e\x0c\x02"], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	975 set norl
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	976 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	977
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	978 call test_override('ALL', 0)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	979 set noshowmode showcmd
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	980 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	981 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	982
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	983 func! Test_edit_F1()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	984 " Pressing <f1>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	985 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	986 call feedkeys(":set im\<cr>\<f1>\<c-l>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	987 set noinsertmode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	988 call assert_equal('help', &buftype)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	989 bw
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	990 bw
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	991 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	992
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	993 func! Test_edit_F21()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	994 " Pressing <f21>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	995 " sends a netbeans command
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	996 if has("netbeans_intg")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	997 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	998 " I have no idea what this is supposed to do :)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	999 call feedkeys("A\<F21>\<F1>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1000 bw
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1001 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1002 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1003
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1004 func! Test_edit_HOME_END()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1005 " Test Home/End Keys
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1006 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1007 set foldopen+=hor
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1008 call setline(1, ['abc', 'def'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1009 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1010 call feedkeys("AX\<Home>Y\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1011 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1012 call feedkeys("iZ\<End>Y\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1013 call assert_equal(['YabcX', 'ZdefY'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1014
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1015 set foldopen-=hor
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1016 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1017 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1018
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1019 func! Test_edit_INS()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1020 " Test for Pressing <Insert>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1021 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1022 call setline(1, ['abc', 'def'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1023 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1024 call feedkeys("i\<Insert>ZYX>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1025 call assert_equal(['ZYX>', 'def'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1026 call setline(1, ['abc', 'def'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1027 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1028 call feedkeys("i\<Insert>Z\<Insert>YX>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1029 call assert_equal(['ZYX>bc', 'def'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1030 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1031 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1032
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1033 func! Test_edit_LEFT_RIGHT()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1034 " Left, Shift-Left, Right, Shift-Right
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1035 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1036 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1037 call setline(1, ['abc def ghi', 'ABC DEF GHI', 'ZZZ YYY XXX'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1038 let _ww=&ww
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1039 set ww=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1040 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1041 call feedkeys("i\<left>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1042 call assert_equal([0, 2, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1043 " Is this a bug, <s-left> does not respect whichwrap option
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1044 call feedkeys("i\<s-left>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1045 call assert_equal([0, 1, 8, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1046 call feedkeys("i". repeat("\<s-left>", 3). "\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1047 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1048 call feedkeys("i\<right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1049 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1050 call feedkeys("i\<right>\<right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1051 call assert_equal([0, 1, 2, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1052 call feedkeys("A\<right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1053 call assert_equal([0, 1, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1054 call feedkeys("A\<s-right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1055 call assert_equal([0, 2, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1056 call feedkeys("i\<s-right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1057 call assert_equal([0, 2, 4, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1058 call cursor(3, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1059 call feedkeys("A\<right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1060 call feedkeys("A\<s-right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1061 call assert_equal([0, 3, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1062 call cursor(2, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1063 " <S-Right> does not respect 'whichwrap' option
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1064 call feedkeys("A\<s-right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1065 call assert_equal([0, 3, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1066 " Check motion when 'whichwrap' contains cursor keys for insert mode
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1067 set ww+=[,]
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1068 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1069 call feedkeys("i\<left>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1070 call assert_equal([0, 1, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1071 call cursor(2, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1072 call feedkeys("A\<right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1073 call assert_equal([0, 3, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1074 call cursor(2, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1075 call feedkeys("A\<s-right>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1076 call assert_equal([0, 3, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1077 let &ww = _ww
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1078 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1079 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1080 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1081
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1082 func! Test_edit_MOUSE()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1083 " This is a simple test, since we not really using the mouse here
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1084 if !has("mouse")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1085 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1086 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1087 10new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1088 call setline(1, range(1, 100))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1089 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1090 set mouse=a
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1091 call feedkeys("A\<ScrollWheelDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1092 call assert_equal([0, 4, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1093 " This should move by one pageDown, but only moves
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1094 " by one line when the test is run...
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1095 call feedkeys("A\<S-ScrollWheelDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1096 call assert_equal([0, 5, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1097 set nostartofline
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1098 call feedkeys("A\<C-ScrollWheelDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1099 call assert_equal([0, 6, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1100 call feedkeys("A\<LeftMouse>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1101 call assert_equal([0, 6, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1102 call feedkeys("A\<RightMouse>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1103 call assert_equal([0, 6, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1104 call cursor(1, 100)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1105 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1106 " this should move by a screen up, but when the test
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1107 " is run, it moves up to the top of the buffer...
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1108 call feedkeys("A\<ScrollWheelUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1109 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1110 call cursor(1, 30)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1111 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1112 call feedkeys("A\<S-ScrollWheelUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1113 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1114 call cursor(1, 30)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1115 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1116 call feedkeys("A\<C-ScrollWheelUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1117 call assert_equal([0, 1, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1118 %d
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1119 call setline(1, repeat(["12345678901234567890"], 100))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1120 call cursor(2, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1121 call feedkeys("A\<ScrollWheelRight>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1122 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1123 call feedkeys("A\<ScrollWheelLeft>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1124 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1125 call feedkeys("A\<S-ScrollWheelRight>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1126 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1127 call feedkeys("A\<S-ScrollWheelLeft>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1128 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1129 call feedkeys("A\<C-ScrollWheelRight>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1130 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1131 call feedkeys("A\<C-ScrollWheelLeft>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1132 call assert_equal([0, 2, 20, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1133 set mouse& startofline
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1134 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1135 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1136
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1137 func! Test_edit_PAGEUP_PAGEDOWN()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1138 set belloff=all
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1139 10new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1140 call setline(1, repeat(['abc def ghi'], 30))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1141 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1142 call feedkeys("i\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1143 call assert_equal([0, 9, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1144 call feedkeys("i\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1145 call assert_equal([0, 17, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1146 call feedkeys("i\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1147 call assert_equal([0, 25, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1148 call feedkeys("i\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1149 call assert_equal([0, 30, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1150 call feedkeys("i\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1151 call assert_equal([0, 30, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1152 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1153 call assert_equal([0, 29, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1154 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1155 call assert_equal([0, 21, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1156 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1157 call assert_equal([0, 13, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1158 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1159 call assert_equal([0, 5, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1160 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1161 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1162 " <S-Up> is the same as <PageUp>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 " <S-Down> is the same as <PageDown>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1164 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1165 call feedkeys("i\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1166 call assert_equal([0, 9, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1167 call feedkeys("i\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1168 call assert_equal([0, 17, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1169 call feedkeys("i\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1170 call assert_equal([0, 25, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1171 call feedkeys("i\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1172 call assert_equal([0, 30, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1173 call feedkeys("i\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1174 call assert_equal([0, 30, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1175 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1176 call assert_equal([0, 29, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1177 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1178 call assert_equal([0, 21, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1179 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1180 call assert_equal([0, 13, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1181 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1182 call assert_equal([0, 5, 1, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1183 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1184 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1185 set nostartofline
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1186 call cursor(30, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1187 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1188 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1189 call assert_equal([0, 29, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1190 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1191 call assert_equal([0, 21, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1192 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1193 call assert_equal([0, 13, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1194 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1195 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1196 call feedkeys("A\<PageUp>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1197 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1198 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1199 call feedkeys("A\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1200 call assert_equal([0, 9, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1201 call feedkeys("A\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1202 call assert_equal([0, 17, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1203 call feedkeys("A\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1204 call assert_equal([0, 25, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1205 call feedkeys("A\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1206 call assert_equal([0, 30, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1207 call feedkeys("A\<PageDown>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1208 call assert_equal([0, 30, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1209 " <S-Up> is the same as <PageUp>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1210 " <S-Down> is the same as <PageDown>
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1211 call cursor(30, 11)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1212 norm! zt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1213 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1214 call assert_equal([0, 29, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1215 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1216 call assert_equal([0, 21, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1217 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1218 call assert_equal([0, 13, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1219 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1220 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1221 call feedkeys("A\<S-Up>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1222 call assert_equal([0, 5, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1223 call cursor(1, 1)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1224 call feedkeys("A\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1225 call assert_equal([0, 9, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1226 call feedkeys("A\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1227 call assert_equal([0, 17, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1228 call feedkeys("A\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1229 call assert_equal([0, 25, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1230 call feedkeys("A\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1231 call assert_equal([0, 30, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1232 call feedkeys("A\<S-Down>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1233 call assert_equal([0, 30, 11, 0], getpos('.'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1234 set startofline belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1235 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1237
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1238 func! Test_edit_forbidden()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1239 set belloff=error,esc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1240 new
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1241 " 1) edit in the sandbox is not allowed
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1242 call setline(1, 'a')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1243 com! Sandbox :sandbox call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1244 call assert_fails(':Sandbox', 'E48:')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 com! Sandbox :sandbox exe "norm! i\<del>"
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1246 call assert_fails(':Sandbox', 'E48:')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1247 delcom Sandbox
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1248 call assert_equal(['a'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1249 " 2) edit with textlock set
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1250 fu! DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1251 call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1252 endfu
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1253 au InsertCharPre <buffer> :call DoIt()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1254 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1255 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1256 call assert_fails(1, 'textlock')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1257 catch /^Vim\%((\a\+)\)\=:E523/ " catch E523: not allowed here
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1258 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1259 " TODO: Might be a bug: should x really be inserted here
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1260 call assert_equal(['xa'], getline(1, '$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1261 delfu DoIt
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1262 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1263 call feedkeys("ix\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1264 call assert_fails(1, 'unknown function')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1265 catch /^Vim\%((\a\+)\)\=:E117/ " catch E117: unknown function
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1266 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1267 au! InsertCharPre
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1268 " 3) edit when completion is shown
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1269 fun! Complete(findstart, base)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1270 if a:findstart
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1271 return col('.')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1272 else
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1273 call feedkeys("i\<del>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1274 return []
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1275 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1276 endfun
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1277 set completefunc=Complete
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1278 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1279 call feedkeys("i\<c-x>\<c-u>\<esc>", 'tnix')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1280 call assert_fails(1, 'change in complete function')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1281 catch /^Vim\%((\a\+)\)\=:E523/ " catch E523
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1282 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1283 delfu Complete
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1284 set completefunc=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1285 if has("rightleft") && exists("+fkmap")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1286 " 4) 'R' when 'fkmap' and 'revins' is set.
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1287 set revins fkmap
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 try
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1289 normal Ri
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1290 call assert_fails(1, "R with 'fkmap' and 'ri' set")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1291 catch
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1292 finally
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1293 set norevins nofkmap
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1294 endtry
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1295 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1296 set belloff=
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1297 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1298 endfunc
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1299
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1300 func! Test_edit_rightleft()
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1301 " Cursor in rightleft mode moves differently
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1302 if !exists("+rightleft")
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1303 return
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1304 endif
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1305 call NewWindow(10, 20)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1306 call setline(1, ['abc', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1307 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1308 set rightleft
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1309 " Screen looks as expected
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1310 let lines = ScreenLines([1, 4], winwidth(0))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1311 let expect = [
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1312 \" cba",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1313 \" fed",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1314 \" ihg",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1315 \" ~"]
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1316 call assert_equal(join(expect, "\n"), join(lines, "\n"))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1317 " 2) right moves to the left
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1318 call feedkeys("i\<right>\<esc>x", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1319 call assert_equal(['bc', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1320 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1321 call feedkeys("i\<s-right>\<esc>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1322 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1323 call feedkeys("i\<c-right>\<esc>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1324 " Screen looks as expected
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1325 let lines = ScreenLines([1, 4], winwidth(0))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1326 let expect = [
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1327 \" cb",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1328 \" fed",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1329 \" ihg",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1330 \" ~"]
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1331 call assert_equal(join(expect, "\n"), join(lines, "\n"))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1332 " 2) left moves to the right
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1333 call setline(1, ['abc', 'def', 'ghi'])
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1334 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1335 call feedkeys("i\<left>\<esc>x", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1336 call assert_equal(['ac', 'def', 'ghi'], getline(1,'$'))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1337 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1338 call feedkeys("i\<s-left>\<esc>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1339 call cursor(1, 2)
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1340 call feedkeys("i\<c-left>\<esc>", 'txin')
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1341 " Screen looks as expected
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1342 let lines = ScreenLines([1, 4], winwidth(0))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1343 let expect = [
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1344 \" ca",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1345 \" fed",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1346 \" ihg",
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1347 \" ~"]
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1348 call assert_equal(join(expect, "\n"), join(lines, "\n"))
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1349 set norightleft
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1350 bw!
7c7e496e625d patch 8.0.0440: not enough test coverage in Insert mode Christian Brabandt <cb@256bit.org> parents: diff changeset	1351 endfunc
11289 e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1352
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1353 func Test_edit_complete_very_long_name()
11319 2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1354 if !has('unix')
11291 783ec3826b0c patch 8.0.0531: test with long directory name fails on non-unix systems Christian Brabandt <cb@256bit.org> parents: 11289 diff changeset	1355 " Long directory names only work on Unix.
783ec3826b0c patch 8.0.0531: test with long directory name fails on non-unix systems Christian Brabandt <cb@256bit.org> parents: 11289 diff changeset	1356 return
783ec3826b0c patch 8.0.0531: test with long directory name fails on non-unix systems Christian Brabandt <cb@256bit.org> parents: 11289 diff changeset	1357 endif
11319 2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1358
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1359 let dirname = getcwd() . "/Xdir"
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1360 let longdirname = dirname . repeat('/' . repeat('d', 255), 4)
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1361 try
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1362 call mkdir(longdirname, 'p')
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1363 catch /E739:/
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1364 " Long directory name probably not supported.
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1365 call delete(dirname, 'rf')
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1366 return
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1367 endtry
2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1368
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1369 " Try to get the Vim window position before setting 'columns'.
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1370 let winposx = getwinposx()
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1371 let winposy = getwinposy()
11289 e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1372 let save_columns = &columns
11319 2dc624388934 patch 8.0.0545: edit test may fail on some systems Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	1373 " Need at least about 1100 columns to reproduce the problem.
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1374 set columns=2000
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1375 call assert_equal(2000, &columns)
11289 e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1376 set noswapfile
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1377
11289 e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1378 let longfilename = longdirname . '/' . repeat('a', 255)
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1379 call writefile(['Totum', 'Table'], longfilename)
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1380 new
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1381 exe "next Xfile " . longfilename
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1382 exe "normal iT\<C-N>"
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1383
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1384 bwipe!
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1385 exe 'bwipe! ' . longfilename
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1386 call delete(dirname, 'rf')
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1387 let &columns = save_columns
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1388 if winposx >= 0 && winposy >= 0
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1389 exe 'winpos ' . winposx . ' ' . winposy
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11293 diff changeset	1390 endif
11289 e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1391 set swapfile&
e0309111d976 patch 8.0.0530: buffer overflow when 'columns' is very big Christian Brabandt <cb@256bit.org> parents: 11171 diff changeset	1392 endfunc

Mercurial > vim

annotate src/testdir/test_edit.vim @ 12551:a69d3595d773 v8.0.1154