1" Tests for parsing the modeline.
2
3func Test_modeline_invalid()
4  " This was reading allocated memory in the past.
5  call writefile(['vi:0', 'nothing'], 'Xmodeline')
6  let modeline = &modeline
7  set modeline
8  call assert_fails('split Xmodeline', 'E518:')
9
10  " Missing end colon (ignored).
11  call writefile(['// vim: set ts=2'], 'Xmodeline')
12  edit Xmodeline_version
13  call assert_equal(8, &ts)
14  bwipe!
15
16  " Missing colon at beginning (ignored).
17  call writefile(['// vim set ts=2:'], 'Xmodeline')
18  edit Xmodeline_version
19  call assert_equal(8, &ts)
20  bwipe!
21
22  " Missing space after vim (ignored).
23  call writefile(['// vim:ts=2:'], 'Xmodeline')
24  edit Xmodeline_version
25  call assert_equal(8, &ts)
26  bwipe!
27
28  let &modeline = modeline
29  bwipe!
30  call delete('Xmodeline')
31endfunc
32
33func Test_modeline_filetype()
34  call writefile(['vim: set ft=c :', 'nothing'], 'Xmodeline_filetype')
35  let modeline = &modeline
36  set modeline
37  filetype plugin on
38  split Xmodeline_filetype
39  call assert_equal("c", &filetype)
40  call assert_equal(1, b:did_ftplugin)
41  call assert_equal("ccomplete#Complete", &ofu)
42
43  bwipe!
44  call delete('Xmodeline_filetype')
45  let &modeline = modeline
46  filetype plugin off
47endfunc
48
49func Test_modeline_syntax()
50  call writefile(['vim: set syn=c :', 'nothing'], 'Xmodeline_syntax')
51  let modeline = &modeline
52  set modeline
53  syntax enable
54  split Xmodeline_syntax
55  call assert_equal("c", &syntax)
56  call assert_equal("c", b:current_syntax)
57
58  bwipe!
59  call delete('Xmodeline_syntax')
60  let &modeline = modeline
61  syntax off
62endfunc
63
64func Test_modeline_keymap()
65  if !has('keymap')
66    return
67  endif
68  call writefile(['vim: set keymap=greek :', 'nothing'], 'Xmodeline_keymap')
69  let modeline = &modeline
70  set modeline
71  split Xmodeline_keymap
72  call assert_equal("greek", &keymap)
73  call assert_match('greek\|grk', b:keymap_name)
74
75  bwipe!
76  call delete('Xmodeline_keymap')
77  let &modeline = modeline
78  set keymap= iminsert=0 imsearch=-1
79endfunc
80
81func Test_modeline_version()
82  let modeline = &modeline
83  set modeline
84
85  " Test with vim:{vers}: (version {vers} or later).
86  call writefile(['// vim' .. v:version .. ': ts=2:'], 'Xmodeline_version')
87  edit Xmodeline_version
88  call assert_equal(2, &ts)
89  bwipe!
90
91  call writefile(['// vim' .. (v:version - 100) .. ': ts=2:'], 'Xmodeline_version')
92  edit Xmodeline_version
93  call assert_equal(2, &ts)
94  bwipe!
95
96  call writefile(['// vim' .. (v:version + 100) .. ': ts=2:'], 'Xmodeline_version')
97  edit Xmodeline_version
98  call assert_equal(8, &ts)
99  bw!
100
101  " Test with vim>{vers}: (version after {vers}).
102  call writefile(['// vim>' .. v:version .. ': ts=2:'], 'Xmodeline_version')
103  edit Xmodeline_version
104  call assert_equal(8, &ts)
105  bwipe!
106
107  call writefile(['// vim>' .. (v:version - 100) .. ': ts=2:'], 'Xmodeline_version')
108  edit Xmodeline_version
109  call assert_equal(2, &ts)
110  bwipe!
111
112  call writefile(['// vim>' .. (v:version + 100) .. ': ts=2:'], 'Xmodeline_version')
113  edit Xmodeline_version
114  call assert_equal(8, &ts)
115  bwipe!
116
117  " Test with vim<{vers}: (version before {vers}).
118  call writefile(['// vim<' .. v:version .. ': ts=2:'], 'Xmodeline_version')
119  edit Xmodeline_version
120  call assert_equal(8, &ts)
121  bwipe!
122
123  call writefile(['// vim<' .. (v:version - 100) .. ': ts=2:'], 'Xmodeline_version')
124  edit Xmodeline_version
125  call assert_equal(8, &ts)
126  bwipe!
127
128  call writefile(['// vim<' .. (v:version + 100) .. ': ts=2:'], 'Xmodeline_version')
129  edit Xmodeline_version
130  call assert_equal(2, &ts)
131  bwipe!
132
133  " Test with vim={vers}: (version {vers} only).
134  call writefile(['// vim=' .. v:version .. ': ts=2:'], 'Xmodeline_version')
135  edit Xmodeline_version
136  call assert_equal(2, &ts)
137  bwipe!
138
139  call writefile(['// vim=' .. (v:version - 100) .. ': ts=2:'], 'Xmodeline_version')
140  edit Xmodeline_version
141  call assert_equal(8, &ts)
142  bwipe!
143
144  call writefile(['// vim=' .. (v:version + 100) .. ': ts=2:'], 'Xmodeline_version')
145  edit Xmodeline_version
146  call assert_equal(8, &ts)
147  bwipe!
148
149  let &modeline = modeline
150  call delete('Xmodeline_version')
151endfunc
152
153func Test_modeline_colon()
154  let modeline = &modeline
155  set modeline
156
157  call writefile(['// vim: set showbreak=\: ts=2: sw=2'], 'Xmodeline_colon')
158  edit Xmodeline_colon
159
160  " backlash colon should become colon.
161  call assert_equal(':', &showbreak)
162
163  " 'ts' should be set.
164  " 'sw' should be ignored because it is after the end colon.
165  call assert_equal(2, &ts)
166  call assert_equal(8, &sw)
167
168  let &modeline = modeline
169  call delete('Xmodeline_colon')
170endfunc
171
172func s:modeline_fails(what, text, error)
173  if !exists('+' .. a:what)
174    return
175  endif
176  let fname = "Xmodeline_fails_" . a:what
177  call writefile(['vim: set ' . a:text . ' :', 'nothing'], fname)
178  let modeline = &modeline
179  set modeline
180  filetype plugin on
181  syntax enable
182  call assert_fails('split ' . fname, a:error)
183  call assert_equal("", &filetype)
184  call assert_equal("", &syntax)
185
186  bwipe!
187  call delete(fname)
188  let &modeline = modeline
189  filetype plugin off
190  syntax off
191endfunc
192
193func Test_modeline_filetype_fails()
194  call s:modeline_fails('filetype', 'ft=evil$CMD', 'E474:')
195endfunc
196
197func Test_modeline_syntax_fails()
198  call s:modeline_fails('syntax', 'syn=evil$CMD', 'E474:')
199endfunc
200
201func Test_modeline_keymap_fails()
202  call s:modeline_fails('keymap', 'keymap=evil$CMD', 'E474:')
203endfunc
204
205func Test_modeline_fails_always()
206  call s:modeline_fails('backupdir', 'backupdir=Something()', 'E520:')
207  call s:modeline_fails('cdpath', 'cdpath=Something()', 'E520:')
208  call s:modeline_fails('charconvert', 'charconvert=Something()', 'E520:')
209  call s:modeline_fails('completefunc', 'completefunc=Something()', 'E520:')
210  call s:modeline_fails('cscopeprg', 'cscopeprg=Something()', 'E520:')
211  call s:modeline_fails('diffexpr', 'diffexpr=Something()', 'E520:')
212  call s:modeline_fails('directory', 'directory=Something()', 'E520:')
213  call s:modeline_fails('equalprg', 'equalprg=Something()', 'E520:')
214  call s:modeline_fails('errorfile', 'errorfile=Something()', 'E520:')
215  call s:modeline_fails('exrc', 'exrc=Something()', 'E520:')
216  call s:modeline_fails('formatprg', 'formatprg=Something()', 'E520:')
217  call s:modeline_fails('fsync', 'fsync=Something()', 'E520:')
218  call s:modeline_fails('grepprg', 'grepprg=Something()', 'E520:')
219  call s:modeline_fails('helpfile', 'helpfile=Something()', 'E520:')
220  call s:modeline_fails('imactivatefunc', 'imactivatefunc=Something()', 'E520:')
221  call s:modeline_fails('imstatusfunc', 'imstatusfunc=Something()', 'E520:')
222  call s:modeline_fails('imstyle', 'imstyle=Something()', 'E520:')
223  call s:modeline_fails('keywordprg', 'keywordprg=Something()', 'E520:')
224  call s:modeline_fails('langmap', 'langmap=Something()', 'E520:')
225  call s:modeline_fails('luadll', 'luadll=Something()', 'E520:')
226  call s:modeline_fails('makeef', 'makeef=Something()', 'E520:')
227  call s:modeline_fails('makeprg', 'makeprg=Something()', 'E520:')
228  call s:modeline_fails('mkspellmem', 'mkspellmem=Something()', 'E520:')
229  call s:modeline_fails('mzschemedll', 'mzschemedll=Something()', 'E520:')
230  call s:modeline_fails('mzschemegcdll', 'mzschemegcdll=Something()', 'E520:')
231  call s:modeline_fails('modelineexpr', 'modelineexpr', 'E520:')
232  call s:modeline_fails('omnifunc', 'omnifunc=Something()', 'E520:')
233  call s:modeline_fails('operatorfunc', 'operatorfunc=Something()', 'E520:')
234  call s:modeline_fails('perldll', 'perldll=Something()', 'E520:')
235  call s:modeline_fails('printdevice', 'printdevice=Something()', 'E520:')
236  call s:modeline_fails('patchexpr', 'patchexpr=Something()', 'E520:')
237  call s:modeline_fails('printexpr', 'printexpr=Something()', 'E520:')
238  call s:modeline_fails('pythondll', 'pythondll=Something()', 'E520:')
239  call s:modeline_fails('pythonhome', 'pythonhome=Something()', 'E520:')
240  call s:modeline_fails('pythonthreedll', 'pythonthreedll=Something()', 'E520:')
241  call s:modeline_fails('pythonthreehome', 'pythonthreehome=Something()', 'E520:')
242  call s:modeline_fails('pyxversion', 'pyxversion=Something()', 'E520:')
243  call s:modeline_fails('rubydll', 'rubydll=Something()', 'E520:')
244  call s:modeline_fails('runtimepath', 'runtimepath=Something()', 'E520:')
245  call s:modeline_fails('secure', 'secure=Something()', 'E520:')
246  call s:modeline_fails('shell', 'shell=Something()', 'E520:')
247  call s:modeline_fails('shellcmdflag', 'shellcmdflag=Something()', 'E520:')
248  call s:modeline_fails('shellpipe', 'shellpipe=Something()', 'E520:')
249  call s:modeline_fails('shellquote', 'shellquote=Something()', 'E520:')
250  call s:modeline_fails('shellredir', 'shellredir=Something()', 'E520:')
251  call s:modeline_fails('shellxquote', 'shellxquote=Something()', 'E520:')
252  call s:modeline_fails('spellfile', 'spellfile=Something()', 'E520:')
253  call s:modeline_fails('spellsuggest', 'spellsuggest=Something()', 'E520:')
254  call s:modeline_fails('tcldll', 'tcldll=Something()', 'E520:')
255  call s:modeline_fails('titleold', 'titleold=Something()', 'E520:')
256  call s:modeline_fails('viewdir', 'viewdir=Something()', 'E520:')
257  call s:modeline_fails('viminfo', 'viminfo=Something()', 'E520:')
258  call s:modeline_fails('viminfofile', 'viminfofile=Something()', 'E520:')
259  call s:modeline_fails('winptydll', 'winptydll=Something()', 'E520:')
260  call s:modeline_fails('undodir', 'undodir=Something()', 'E520:')
261  " only check a few terminal options
262  call s:modeline_fails('t_AB', 't_AB=Something()', 'E520:')
263  call s:modeline_fails('t_ce', 't_ce=Something()', 'E520:')
264  call s:modeline_fails('t_sr', 't_sr=Something()', 'E520:')
265  call s:modeline_fails('t_8b', 't_8b=Something()', 'E520:')
266endfunc
267
268func Test_modeline_fails_modelineexpr()
269  call s:modeline_fails('balloonexpr', 'balloonexpr=Something()', 'E992:')
270  call s:modeline_fails('foldexpr', 'foldexpr=Something()', 'E992:')
271  call s:modeline_fails('foldtext', 'foldtext=Something()', 'E992:')
272  call s:modeline_fails('formatexpr', 'formatexpr=Something()', 'E992:')
273  call s:modeline_fails('guitablabel', 'guitablabel=Something()', 'E992:')
274  call s:modeline_fails('iconstring', 'iconstring=Something()', 'E992:')
275  call s:modeline_fails('includeexpr', 'includeexpr=Something()', 'E992:')
276  call s:modeline_fails('indentexpr', 'indentexpr=Something()', 'E992:')
277  call s:modeline_fails('rulerformat', 'rulerformat=Something()', 'E992:')
278  call s:modeline_fails('statusline', 'statusline=Something()', 'E992:')
279  call s:modeline_fails('tabline', 'tabline=Something()', 'E992:')
280  call s:modeline_fails('titlestring', 'titlestring=Something()', 'E992:')
281endfunc
282