1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
" Tests for character input and feedkeys() function.
func Test_feedkeys_x_with_empty_string()
new
call feedkeys("ifoo\<Esc>")
call assert_equal('', getline('.'))
call feedkeys('', 'x')
call assert_equal('foo', getline('.'))
" check it goes back to normal mode immediately.
call feedkeys('i', 'x')
call assert_equal('foo', getline('.'))
quit!
endfunc
func Test_feedkeys_with_abbreviation()
new
inoreabbrev trigger value
call feedkeys("atrigger ", 'x')
call feedkeys("atrigger ", 'x')
call assert_equal('value value ', getline(1))
bwipe!
iunabbrev trigger
endfunc
func Test_feedkeys_escape_special()
nnoremap … <Cmd>let g:got_ellipsis += 1<CR>
call feedkeys('…', 't')
call assert_equal('…', getcharstr())
let g:got_ellipsis = 0
call feedkeys('…', 'xt')
call assert_equal(1, g:got_ellipsis)
unlet g:got_ellipsis
nunmap …
endfunc
func Test_input_simplify_ctrl_at()
new
" feeding unsimplified CTRL-@ should still trigger i_CTRL-@
call feedkeys("ifoo\<Esc>A\<*C-@>x", 'xt')
call assert_equal('foofo', getline(1))
bw!
endfunc
func Test_input_simplify_noremap()
call feedkeys("i\<*C-M>", 'nx')
call assert_equal('', getline(1))
call assert_equal([0, 2, 1, 0, 1], getcurpos())
bw!
endfunc
func Test_input_simplify_timedout()
inoremap <C-M>a b
call feedkeys("i\<*C-M>", 'xt')
call assert_equal('', getline(1))
call assert_equal([0, 2, 1, 0, 1], getcurpos())
iunmap <C-M>a
bw!
endfunc
" Check that <Ignore> and <MouseMove> are no-op in the middle of various
" commands as they are ignored by plain_vgetc().
func Test_input_noop_keys()
for key in ["\<Ignore>", "\<MouseMove>"]
20new
setlocal scrolloff=0
let lines = range(1, 100)->mapnew({_, n -> $'line {n}'})
call setline(1, lines)
let InsertNoopKeys = {s -> key .. split(s, '\zs')->join(key) .. key}
call feedkeys(InsertNoopKeys("60z\<CR>\<C-\>\<C-N>"), 'tnix')
call assert_equal(60, line('w0'))
call assert_equal('line 60', getline('.'))
call feedkeys(InsertNoopKeys("gg20ddi\<C-V>x5F\<Esc>"), 'tnix')
call assert_equal(80, line('$'))
call assert_equal('_line 21', getline('.'))
call feedkeys(InsertNoopKeys("fea\<C-K>,.\<C-\>\<C-N>"), 'tnix')
call assert_equal('_line… 21', getline('.'))
call feedkeys(InsertNoopKeys("Iabcde\<C-G>ufghij\<Esc>u"), 'tnix')
call assert_equal('abcde_line… 21', getline('.'))
call feedkeys("\<C-R>$2Feg~tj", 'tnix')
call assert_equal('abcdEFGHIj_line… 21', getline('.'))
let @g = 'FOO'
call feedkeys(InsertNoopKeys("A\<C-R>g\<C-R>\<C-O>g\<Esc>"), 'tnix')
call assert_equal('abcdEFGHIj_line… 21FOOFOO', getline('.'))
call feedkeys(InsertNoopKeys("0v10l\<C-G>\<C-R>g?!!\<Esc>"), 'tnix')
call assert_equal('abcdEFGHIj_', @g)
call assert_equal('?!!line… 21FOOFOO', getline('.'))
let @g = 'BAR'
call feedkeys(InsertNoopKeys("$:\"abc\<C-R>\<C-R>\<C-W>\<CR>"), 'tnix')
call assert_equal('"abc21FOOFOO', @:)
call feedkeys(InsertNoopKeys(":\<C-\>e'\"foo'\<CR>\<C-R>g\<CR>"), 'tnix')
call assert_equal('"fooBAR', @:)
call feedkeys(InsertNoopKeys("z10\<CR>"), 'tnix')
call assert_equal(10, winheight(0))
call feedkeys(InsertNoopKeys("\<C-W>10+"), 'tnix')
call assert_equal(20, winheight(0))
bwipe!
endfor
endfunc
" mnv: shiftwidth=2 sts=2 expandtab
|
