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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
" Tests for various Visual mode.
if !has('visual')
finish
endif
func Test_block_shift_multibyte()
" Uses double-wide character.
if !has('multi_byte')
return
endif
split
call setline(1, ['xヹxxx', 'ヹxxx'])
exe "normal 1G0l\<C-V>jl>"
call assert_equal('x ヹxxx', getline(1))
call assert_equal(' ヹxxx', getline(2))
q!
endfunc
func Test_Visual_ctrl_o()
new
call setline(1, ['one', 'two', 'three'])
call cursor(1,2)
set noshowmode
set tw=0
call feedkeys("\<c-v>jjlIa\<c-\>\<c-o>:set tw=88\<cr>\<esc>", 'tx')
call assert_equal(['oane', 'tawo', 'tahree'], getline(1, 3))
call assert_equal(88, &tw)
set tw&
bw!
endfu
func Test_Visual_vapo()
new
normal oxx
normal vapo
bwipe!
endfunc
func Test_dotregister_paste()
new
exe "norm! ihello world\<esc>"
norm! 0ve".p
call assert_equal('hello world world', getline(1))
q!
endfunc
func Test_Visual_inner_quote()
new
normal oxX
normal vki'
bwipe!
endfunc
" Test for visual block shift and tab characters.
func Test_block_shift_tab()
enew!
call append(0, repeat(['one two three'], 5))
call cursor(1,1)
exe "normal i\<C-G>u"
exe "normal fe\<C-V>4jR\<Esc>ugvr1"
call assert_equal('on1 two three', getline(1))
call assert_equal('on1 two three', getline(2))
call assert_equal('on1 two three', getline(5))
enew!
call append(0, repeat(['abcdefghijklmnopqrstuvwxyz'], 5))
call cursor(1,1)
exe "normal \<C-V>4jI \<Esc>j<<11|D"
exe "normal j7|a\<Tab>\<Tab>"
exe "normal j7|a\<Tab>\<Tab> "
exe "normal j7|a\<Tab> \<Tab>\<Esc>4k13|\<C-V>4j<"
call assert_equal(' abcdefghijklmnopqrstuvwxyz', getline(1))
call assert_equal('abcdefghij', getline(2))
call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(3))
call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(4))
call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(5))
%s/\s\+//g
call cursor(1,1)
exe "normal \<C-V>4jI \<Esc>j<<"
exe "normal j7|a\<Tab>\<Tab>"
exe "normal j7|a\<Tab>\<Tab>\<Tab>\<Tab>\<Tab>"
exe "normal j7|a\<Tab> \<Tab>\<Tab>\<Esc>4k13|\<C-V>4j3<"
call assert_equal(' abcdefghijklmnopqrstuvwxyz', getline(1))
call assert_equal('abcdefghij', getline(2))
call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(3))
call assert_equal(" abc\<Tab>\<Tab>defghijklmnopqrstuvwxyz", getline(4))
call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(5))
enew!
endfunc
" Tests Blockwise Visual when there are TABs before the text.
func Test_blockwise_visual()
enew!
call append(0, ['123456',
\ '234567',
\ '345678',
\ '',
\ 'test text test tex start here',
\ "\t\tsome text",
\ "\t\ttest text",
\ 'test text'])
call cursor(1,1)
exe "normal /start here$\<CR>"
exe 'normal "by$' . "\<C-V>jjlld"
exe "normal /456$\<CR>"
exe "normal \<C-V>jj" . '"bP'
call assert_equal(['123start here56',
\ '234start here67',
\ '345start here78',
\ '',
\ 'test text test tex rt here',
\ "\t\tsomext",
\ "\t\ttesext"], getline(1, 7))
enew!
endfunc
" Test Virtual replace mode.
func Test_virtual_replace()
throw 'skipped: TODO: '
exe "set t_kD=\<C-V>x7f t_kb=\<C-V>x08"
enew!
exe "normal a\nabcdefghi\njk\tlmn\n opq rst\n\<C-D>uvwxyz"
call cursor(1,1)
set ai bs=2
exe "normal gR0\<C-D> 1\nA\nBCDEFGHIJ\n\tKL\nMNO\nPQR"
call assert_equal([' 1',
\ ' A',
\ ' BCDEFGHIJ',
\ ' KL',
\ ' MNO',
\ ' PQR',
\ ], getline(1, 6))
normal G
mark a
inoremap <C-D> <Del>
exe "normal o0\<C-D>\nabcdefghi\njk\tlmn\n opq\trst\n\<C-D>uvwxyz\n"
exe "normal 'ajgR0\<C-D> 1\nA\nBCDEFGHIJ\n\tKL\nMNO\nPQR" . repeat("\<BS>", 29)
call assert_equal([' 1',
\ 'abcdefghi',
\ 'jk lmn',
\ ' opq rst',
\ 'uvwxyz'], getline(7, 11))
normal G
exe "normal iab\tcdefghi\tjkl"
exe "normal 0gRAB......CDEFGHI.J\<Esc>o"
exe "normal iabcdefghijklmnopqrst\<Esc>0gRAB\tIJKLMNO\tQR"
call assert_equal(['AB......CDEFGHI.Jkl',
\ 'AB IJKLMNO QRst'], getline(12, 13))
enew!
endfunc
" Test for Visual mode not being reset causing E315 error.
func TriggerTheProblem()
" At this point there is no visual selection because :call reset it.
" Let's restore the selection:
normal gv
'<,'>del _
try
exe "normal \<Esc>"
catch /^Vim\%((\a\+)\)\=:E315/
echom 'Snap! E315 error!'
let g:msg='Snap! E315 error!'
endtry
endfunc
func Test_visual_mode_reset()
set belloff=all
enew
let g:msg="Everything's fine."
enew
setl buftype=nofile
call append(line('$'), 'Delete this line.')
" NOTE: this has to be done by a call to a function because executing :del
" the ex-way will require the colon operator which resets the visual mode
" thus preventing the problem:
exe "normal! GV:call TriggerTheProblem()\<CR>"
call assert_equal("Everything's fine.", g:msg)
set belloff&
endfunc
|
