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
|
source view_util.vim
source check.vim
let s:imactivatefunc_called = 0
let s:imstatusfunc_called = 0
let s:imstatus_active = 0
func IM_activatefunc(active)
let s:imactivatefunc_called = 1
let s:imstatus_active = a:active
endfunc
func IM_statusfunc()
let s:imstatusfunc_called = 1
return s:imstatus_active
endfunc
func Test_iminsert2()
let s:imactivatefunc_called = 0
let s:imstatusfunc_called = 0
set imactivatefunc=IM_activatefunc
set imstatusfunc=IM_statusfunc
set iminsert=2
normal! i
set iminsert=0
set imactivatefunc=
set imstatusfunc=
let expected = has('gui_running') ? 0 : 1
call assert_equal(expected, s:imactivatefunc_called)
call assert_equal(expected, s:imstatusfunc_called)
endfunc
func Test_getimstatus()
if has('win32')
CheckFeature multi_byte_ime
elseif !has('gui_mac')
CheckFeature xim
endif
if has('gui_running')
if !has('win32')
throw 'Skipped: running in the GUI, only works on MS-Windows'
endif
set imactivatefunc=
set imstatusfunc=
else
set imactivatefunc=IM_activatefunc
set imstatusfunc=IM_statusfunc
let s:imstatus_active = 0
endif
new
set iminsert=2
call feedkeys("i\<C-R>=getimstatus()\<CR>\<ESC>", 'nx')
call assert_equal('1', getline(1))
set iminsert=0
call feedkeys("o\<C-R>=getimstatus()\<CR>\<ESC>", 'nx')
call assert_equal('0', getline(2))
bw!
set imactivatefunc=
set imstatusfunc=
endfunc
" Test for using an lmap in insert mode
func Test_lmap_in_insert_mode()
new
call setline(1, 'abc')
lmap { w
set iminsert=1
call feedkeys('r{', 'xt')
call assert_equal('wbc', getline(1))
set iminsert=2
call feedkeys('$r{', 'xt')
call assert_equal('wb{', getline(1))
call setline(1, 'vim web')
set iminsert=1
call feedkeys('0f{', 'xt')
call assert_equal(5, col('.'))
set iminsert&
lunmap {
close!
endfunc
" vim: shiftwidth=2 sts=2 expandtab
|