Gitiles
Code Review Sign In
gerrit.omnirom.org / android_external_vim / e3242346cf1c2ff8b0315cb2cb98e731bfa952c0 / . / src / testdir / test_digraph.vim
blob: 9e7d6f4bbc604cf5053bd93244612edd2de169fa [file] [log] [blame]
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]1" Tests for digraphs
2
Bram Moolenaarb46fecd2019-06-15 17:58:09 +0200[diff] [blame]3source check.vim
4CheckFeature digraphs
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]5
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]6func Put_Dig(chars)
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]7 exe "norm! o\<c-k>".a:chars
8endfu
9
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]10func Put_Dig_BS(char1, char2)
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]11 exe "norm! o".a:char1."\<bs>".a:char2
12endfu
13
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]14func Test_digraphs()
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]15 new
16 call Put_Dig("00")
17 call assert_equal("∞", getline('.'))
18 " not a digraph
19 call Put_Dig("el")
20 call assert_equal("l", getline('.'))
21 call Put_Dig("ht")
22 call assert_equal("þ", getline('.'))
23 " digraph "ab" is the same as "ba"
24 call Put_Dig("ab")
25 call Put_Dig("ba")
26 call assert_equal(["ば","ば"], getline(line('.')-1,line('.')))
27 " Euro sign
28 call Put_Dig("e=")
29 call Put_Dig("=e")
30 call Put_Dig("Eu")
31 call Put_Dig("uE")
32 call assert_equal(['е']+repeat(["€"],3), getline(line('.')-3,line('.')))
33 " Rouble sign
34 call Put_Dig("R=")
35 call Put_Dig("=R")
36 call Put_Dig("=P")
37 call Put_Dig("P=")
38 call assert_equal(['Р']+repeat(["₽"],2)+['П'], getline(line('.')-3,line('.')))
39 " Not a digraph
40 call Put_Dig("a\<bs>")
41 call Put_Dig("\<bs>a")
42 call assert_equal(["<BS>", "<BS>a"], getline(line('.')-1,line('.')))
43 " Grave
44 call Put_Dig("a!")
45 call Put_Dig("!e")
46 call Put_Dig("b!") " not defined
47 call assert_equal(["à", "è", "!"], getline(line('.')-2,line('.')))
48 " Acute accent
49 call Put_Dig("a'")
50 call Put_Dig("'e")
51 call Put_Dig("b'") " not defined
52 call assert_equal(["á", "é", "'"], getline(line('.')-2,line('.')))
53 " Cicumflex
54 call Put_Dig("a>")
55 call Put_Dig(">e")
56 call Put_Dig("b>") " not defined
57 call assert_equal(['â', 'ê', '>'], getline(line('.')-2,line('.')))
58 " Tilde
59 call Put_Dig("o~")
60 call Put_Dig("~u") " not defined
61 call Put_Dig("z~") " not defined
62 call assert_equal(['õ', 'u', '~'], getline(line('.')-2,line('.')))
63 " Tilde
64 call Put_Dig("o?")
65 call Put_Dig("?u")
66 call Put_Dig("z?") " not defined
67 call assert_equal(['õ', 'ũ', '?'], getline(line('.')-2,line('.')))
68 " Macron
69 call Put_Dig("o-")
70 call Put_Dig("-u")
71 call Put_Dig("z-") " not defined
72 call assert_equal(['ō', 'ū', '-'], getline(line('.')-2,line('.')))
73 " Breve
74 call Put_Dig("o(")
75 call Put_Dig("(u")
76 call Put_Dig("z(") " not defined
77 call assert_equal(['ŏ', 'ŭ', '('], getline(line('.')-2,line('.')))
78 " Dot above
79 call Put_Dig("b.")
80 call Put_Dig(".e")
81 call Put_Dig("a.") " not defined
82 call assert_equal(['ḃ', 'ė', '.'], getline(line('.')-2,line('.')))
Bram Moolenaar4b96df52020-01-26 22:00:26 +0100[diff] [blame]83 " Diaeresis
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]84 call Put_Dig("a:")
85 call Put_Dig(":u")
86 call Put_Dig("b:") " not defined
87 call assert_equal(['ä', 'ü', ':'], getline(line('.')-2,line('.')))
88 " Cedilla
89 call Put_Dig("',")
90 call Put_Dig(",C")
91 call Put_Dig("b,") " not defined
92 call assert_equal(['¸', 'Ç', ','], getline(line('.')-2,line('.')))
93 " Underline
94 call Put_Dig("B_")
95 call Put_Dig("_t")
96 call Put_Dig("a_") " not defined
97 call assert_equal(['Ḇ', 'ṯ', '_'], getline(line('.')-2,line('.')))
98 " Stroke
99 call Put_Dig("j/")
100 call Put_Dig("/l")
101 call Put_Dig("b/") " not defined
102 call assert_equal(['/', 'ł', '/'], getline(line('.')-2,line('.')))
103 " Double acute
104 call Put_Dig('O"')
105 call Put_Dig('"y')
106 call Put_Dig('b"') " not defined
107 call assert_equal(['Ő', 'ÿ', '"'], getline(line('.')-2,line('.')))
108 " Ogonek
109 call Put_Dig('u;')
110 call Put_Dig(';E')
111 call Put_Dig('b;') " not defined
112 call assert_equal(['ų', 'Ę', ';'], getline(line('.')-2,line('.')))
113 " Caron
114 call Put_Dig('u<')
115 call Put_Dig('<E')
116 call Put_Dig('b<') " not defined
117 call assert_equal(['ǔ', 'Ě', '<'], getline(line('.')-2,line('.')))
118 " Ring above
119 call Put_Dig('u0')
120 call Put_Dig('0E') " not defined
121 call Put_Dig('b0') " not defined
122 call assert_equal(['ů', 'E', '0'], getline(line('.')-2,line('.')))
123 " Hook
124 call Put_Dig('u2')
125 call Put_Dig('2E')
126 call Put_Dig('b2') " not defined
127 call assert_equal(['ủ', 'Ẻ', '2'], getline(line('.')-2,line('.')))
128 " Horn
129 call Put_Dig('u9')
130 call Put_Dig('9E') " not defined
131 call Put_Dig('b9') " not defined
132 call assert_equal(['ư', 'E', '9'], getline(line('.')-2,line('.')))
133 " Cyrillic
134 call Put_Dig('u=')
135 call Put_Dig('=b')
136 call Put_Dig('=_')
137 call assert_equal(['у', 'б', '〓'], getline(line('.')-2,line('.')))
138 " Greek
139 call Put_Dig('u*')
140 call Put_Dig('*b')
141 call Put_Dig('*_')
142 call assert_equal(['υ', 'β', '々'], getline(line('.')-2,line('.')))
143 " Greek/Cyrillic special
144 call Put_Dig('u%')
145 call Put_Dig('%b') " not defined
146 call Put_Dig('%_') " not defined
147 call assert_equal(['ύ', 'b', '_'], getline(line('.')-2,line('.')))
148 " Arabic
149 call Put_Dig('u+')
150 call Put_Dig('+b')
151 call Put_Dig('+_') " japanese industrial symbol
152 call assert_equal(['+', 'ب', '〄'], getline(line('.')-2,line('.')))
153 " Hebrew
154 call Put_Dig('Q+')
155 call Put_Dig('+B')
156 call Put_Dig('+X')
157 call assert_equal(['ק', 'ב', 'ח'], getline(line('.')-2,line('.')))
158 " Latin
159 call Put_Dig('a3')
160 call Put_Dig('A3')
161 call Put_Dig('3X')
162 call assert_equal(['ǣ', 'Ǣ', 'X'], getline(line('.')-2,line('.')))
163 " Bopomofo
164 call Put_Dig('a4')
165 call Put_Dig('A4')
166 call Put_Dig('4X')
167 call assert_equal(['ㄚ', '4', 'X'], getline(line('.')-2,line('.')))
168 " Hiragana
169 call Put_Dig('a5')
170 call Put_Dig('A5')
171 call Put_Dig('5X')
172 call assert_equal(['あ', 'ぁ', 'X'], getline(line('.')-2,line('.')))
173 " Katakana
174 call Put_Dig('a6')
175 call Put_Dig('A6')
176 call Put_Dig('6X')
177 call assert_equal(['ァ', 'ア', 'X'], getline(line('.')-2,line('.')))
178 " Superscripts
179 call Put_Dig('1S')
180 call Put_Dig('2S')
181 call Put_Dig('3S')
182 call assert_equal(['¹', '²', '³'], getline(line('.')-2,line('.')))
183 " Subscripts
184 call Put_Dig('1s')
185 call Put_Dig('2s')
186 call Put_Dig('3s')
187 call assert_equal(['₁', '₂', '₃'], getline(line('.')-2,line('.')))
188 " Eszet (only lowercase)
189 call Put_Dig("ss")
190 call Put_Dig("SS") " start of string
191 call assert_equal(["ß", "˜"], getline(line('.')-1,line('.')))
192 " High bit set
193 call Put_Dig("a ")
194 call Put_Dig(" A")
195 call assert_equal(['á', 'Á'], getline(line('.')-1,line('.')))
196 " Escape is not part of a digraph
197 call Put_Dig("a\<esc>")
198 call Put_Dig("\<esc>A")
199 call assert_equal(['', 'A'], getline(line('.')-1,line('.')))
200 " define some custom digraphs
201 " old: 00 ∞
202 " old: el l
203 digraph 00 9216
204 digraph el 0252
205 call Put_Dig("00")
206 call Put_Dig("el")
207 " Reset digraphs
208 digraph 00 8734
209 digraph el 108
210 call Put_Dig("00")
211 call Put_Dig("el")
212 call assert_equal(['␀', 'ü', '∞', 'l'], getline(line('.')-3,line('.')))
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200[diff] [blame]213 call assert_fails('exe "digraph a\<Esc> 100"', 'E104:')
214 call assert_fails('exe "digraph \<Esc>a 100"', 'E104:')
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]215 bw!
216endfunc
217
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]218func Test_digraphs_option()
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]219 " reset whichwrap option, so that testing <esc><bs>A works,
220 " without moving up a line
Bram Moolenaardfd63e32016-07-21 10:11:03 +0200[diff] [blame]221 set digraph ww=
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]222 new
223 call Put_Dig_BS("0","0")
224 call assert_equal("∞", getline('.'))
225 " not a digraph
226 call Put_Dig_BS("e","l")
227 call assert_equal("l", getline('.'))
228 call Put_Dig_BS("h","t")
229 call assert_equal("þ", getline('.'))
230 " digraph "ab" is the same as "ba"
231 call Put_Dig_BS("a","b")
232 call Put_Dig_BS("b","a")
233 call assert_equal(["ば","ば"], getline(line('.')-1,line('.')))
234 " Euro sign
235 call Put_Dig_BS("e","=")
236 call Put_Dig_BS("=","e")
237 call Put_Dig_BS("E","u")
238 call Put_Dig_BS("u","E")
239 call assert_equal(['е']+repeat(["€"],3), getline(line('.')-3,line('.')))
240 " Rouble sign
241 call Put_Dig_BS("R","=")
242 call Put_Dig_BS("=","R")
243 call Put_Dig_BS("=","P")
244 call Put_Dig_BS("P","=")
245 call assert_equal(['Р']+repeat(["₽"],2)+['П'], getline(line('.')-3,line('.')))
246 " Not a digraph: this is different from <c-k>!
247 call Put_Dig_BS("a","\<bs>")
248 call Put_Dig_BS("\<bs>","a")
249 call assert_equal(['','a'], getline(line('.')-1,line('.')))
250 " Grave
251 call Put_Dig_BS("a","!")
252 call Put_Dig_BS("!","e")
253 call Put_Dig_BS("b","!") " not defined
254 call assert_equal(["à", "è", "!"], getline(line('.')-2,line('.')))
255 " Acute accent
256 call Put_Dig_BS("a","'")
257 call Put_Dig_BS("'","e")
258 call Put_Dig_BS("b","'") " not defined
259 call assert_equal(["á", "é", "'"], getline(line('.')-2,line('.')))
260 " Cicumflex
261 call Put_Dig_BS("a",">")
262 call Put_Dig_BS(">","e")
263 call Put_Dig_BS("b",">") " not defined
264 call assert_equal(['â', 'ê', '>'], getline(line('.')-2,line('.')))
265 " Tilde
266 call Put_Dig_BS("o","~")
267 call Put_Dig_BS("~","u") " not defined
268 call Put_Dig_BS("z","~") " not defined
269 call assert_equal(['õ', 'u', '~'], getline(line('.')-2,line('.')))
270 " Tilde
271 call Put_Dig_BS("o","?")
272 call Put_Dig_BS("?","u")
273 call Put_Dig_BS("z","?") " not defined
274 call assert_equal(['õ', 'ũ', '?'], getline(line('.')-2,line('.')))
275 " Macron
276 call Put_Dig_BS("o","-")
277 call Put_Dig_BS("-","u")
278 call Put_Dig_BS("z","-") " not defined
279 call assert_equal(['ō', 'ū', '-'], getline(line('.')-2,line('.')))
280 " Breve
281 call Put_Dig_BS("o","(")
282 call Put_Dig_BS("(","u")
283 call Put_Dig_BS("z","(") " not defined
284 call assert_equal(['ŏ', 'ŭ', '('], getline(line('.')-2,line('.')))
285 " Dot above
286 call Put_Dig_BS("b",".")
287 call Put_Dig_BS(".","e")
288 call Put_Dig_BS("a",".") " not defined
289 call assert_equal(['ḃ', 'ė', '.'], getline(line('.')-2,line('.')))
Bram Moolenaar4b96df52020-01-26 22:00:26 +0100[diff] [blame]290 " Diaeresis
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]291 call Put_Dig_BS("a",":")
292 call Put_Dig_BS(":","u")
293 call Put_Dig_BS("b",":") " not defined
294 call assert_equal(['ä', 'ü', ':'], getline(line('.')-2,line('.')))
295 " Cedilla
296 call Put_Dig_BS("'",",")
297 call Put_Dig_BS(",","C")
298 call Put_Dig_BS("b",",") " not defined
299 call assert_equal(['¸', 'Ç', ','], getline(line('.')-2,line('.')))
300 " Underline
301 call Put_Dig_BS("B","_")
302 call Put_Dig_BS("_","t")
303 call Put_Dig_BS("a","_") " not defined
304 call assert_equal(['Ḇ', 'ṯ', '_'], getline(line('.')-2,line('.')))
305 " Stroke
306 call Put_Dig_BS("j","/")
307 call Put_Dig_BS("/","l")
308 call Put_Dig_BS("b","/") " not defined
309 call assert_equal(['/', 'ł', '/'], getline(line('.')-2,line('.')))
310 " Double acute
311 call Put_Dig_BS('O','"')
312 call Put_Dig_BS('"','y')
313 call Put_Dig_BS('b','"') " not defined
314 call assert_equal(['Ő', 'ÿ', '"'], getline(line('.')-2,line('.')))
315 " Ogonek
316 call Put_Dig_BS('u',';')
317 call Put_Dig_BS(';','E')
318 call Put_Dig_BS('b',';') " not defined
319 call assert_equal(['ų', 'Ę', ';'], getline(line('.')-2,line('.')))
320 " Caron
321 call Put_Dig_BS('u','<')
322 call Put_Dig_BS('<','E')
323 call Put_Dig_BS('b','<') " not defined
324 call assert_equal(['ǔ', 'Ě', '<'], getline(line('.')-2,line('.')))
325 " Ring above
326 call Put_Dig_BS('u','0')
327 call Put_Dig_BS('0','E') " not defined
328 call Put_Dig_BS('b','0') " not defined
329 call assert_equal(['ů', 'E', '0'], getline(line('.')-2,line('.')))
330 " Hook
331 call Put_Dig_BS('u','2')
332 call Put_Dig_BS('2','E')
333 call Put_Dig_BS('b','2') " not defined
334 call assert_equal(['ủ', 'Ẻ', '2'], getline(line('.')-2,line('.')))
335 " Horn
336 call Put_Dig_BS('u','9')
337 call Put_Dig_BS('9','E') " not defined
338 call Put_Dig_BS('b','9') " not defined
339 call assert_equal(['ư', 'E', '9'], getline(line('.')-2,line('.')))
340 " Cyrillic
341 call Put_Dig_BS('u','=')
342 call Put_Dig_BS('=','b')
343 call Put_Dig_BS('=','_')
344 call assert_equal(['у', 'б', '〓'], getline(line('.')-2,line('.')))
345 " Greek
346 call Put_Dig_BS('u','*')
347 call Put_Dig_BS('*','b')
348 call Put_Dig_BS('*','_')
349 call assert_equal(['υ', 'β', '々'], getline(line('.')-2,line('.')))
350 " Greek/Cyrillic special
351 call Put_Dig_BS('u','%')
352 call Put_Dig_BS('%','b') " not defined
353 call Put_Dig_BS('%','_') " not defined
354 call assert_equal(['ύ', 'b', '_'], getline(line('.')-2,line('.')))
355 " Arabic
356 call Put_Dig_BS('u','+')
357 call Put_Dig_BS('+','b')
358 call Put_Dig_BS('+','_') " japanese industrial symbol
359 call assert_equal(['+', 'ب', '〄'], getline(line('.')-2,line('.')))
360 " Hebrew
361 call Put_Dig_BS('Q','+')
362 call Put_Dig_BS('+','B')
363 call Put_Dig_BS('+','X')
364 call assert_equal(['ק', 'ב', 'ח'], getline(line('.')-2,line('.')))
365 " Latin
366 call Put_Dig_BS('a','3')
367 call Put_Dig_BS('A','3')
368 call Put_Dig_BS('3','X')
369 call assert_equal(['ǣ', 'Ǣ', 'X'], getline(line('.')-2,line('.')))
370 " Bopomofo
371 call Put_Dig_BS('a','4')
372 call Put_Dig_BS('A','4')
373 call Put_Dig_BS('4','X')
374 call assert_equal(['ㄚ', '4', 'X'], getline(line('.')-2,line('.')))
375 " Hiragana
376 call Put_Dig_BS('a','5')
377 call Put_Dig_BS('A','5')
378 call Put_Dig_BS('5','X')
379 call assert_equal(['あ', 'ぁ', 'X'], getline(line('.')-2,line('.')))
380 " Katakana
381 call Put_Dig_BS('a','6')
382 call Put_Dig_BS('A','6')
383 call Put_Dig_BS('6','X')
384 call assert_equal(['ァ', 'ア', 'X'], getline(line('.')-2,line('.')))
385 " Superscripts
386 call Put_Dig_BS('1','S')
387 call Put_Dig_BS('2','S')
388 call Put_Dig_BS('3','S')
389 call assert_equal(['¹', '²', '³'], getline(line('.')-2,line('.')))
390 " Subscripts
391 call Put_Dig_BS('1','s')
392 call Put_Dig_BS('2','s')
393 call Put_Dig_BS('3','s')
394 call assert_equal(['₁', '₂', '₃'], getline(line('.')-2,line('.')))
395 " Eszet (only lowercase)
396 call Put_Dig_BS("s","s")
397 call Put_Dig_BS("S","S") " start of string
398 call assert_equal(["ß", "˜"], getline(line('.')-1,line('.')))
399 " High bit set (different from <c-k>)
400 call Put_Dig_BS("a"," ")
401 call Put_Dig_BS(" ","A")
402 call assert_equal([' ', 'A'], getline(line('.')-1,line('.')))
403 " Escape is not part of a digraph (different from <c-k>)
404 call Put_Dig_BS("a","\<esc>")
405 call Put_Dig_BS("\<esc>","A")
406 call assert_equal(['', ''], getline(line('.')-1,line('.')))
407 " define some custom digraphs
408 " old: 00 ∞
409 " old: el l
410 digraph 00 9216
411 digraph el 0252
412 call Put_Dig_BS("0","0")
413 call Put_Dig_BS("e","l")
414 " Reset digraphs
415 digraph 00 8734
416 digraph el 108
417 call Put_Dig_BS("0","0")
418 call Put_Dig_BS("e","l")
419 call assert_equal(['␀', 'ü', '∞', 'l'], getline(line('.')-3,line('.')))
Bram Moolenaar397eadb2016-07-20 22:01:12 +0200[diff] [blame]420 set nodigraph ww&vim
421 bw!
422endfunc
423
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]424func Test_digraphs_output()
Bram Moolenaare25bc5a2016-07-21 21:23:38 +0200[diff] [blame]425 new
426 let out = execute(':digraph')
427 call assert_equal('Eu € 8364', matchstr(out, '\C\<Eu\D*8364\>'))
428 call assert_equal('=e € 8364', matchstr(out, '\C=e\D*8364\>'))
429 call assert_equal('=R ₽ 8381', matchstr(out, '\C=R\D*8381\>'))
430 call assert_equal('=P ₽ 8381', matchstr(out, '\C=P\D*8381\>'))
431 call assert_equal('o: ö 246', matchstr(out, '\C\<o:\D*246\>'))
432 call assert_equal('v4 ㄪ 12586', matchstr(out, '\C\<v4\D*12586\>'))
433 call assert_equal("'0 ˚ 730", matchstr(out, '\C''0\D*730\>'))
434 call assert_equal('Z% Ж 1046', matchstr(out, '\C\<Z%\D*1046\>'))
435 call assert_equal('u- ū 363', matchstr(out, '\C\<u-\D*363\>'))
436 call assert_equal('SH ^A 1', matchstr(out, '\C\<SH\D*1\>'))
Bram Moolenaare3242342020-04-13 19:46:43 +0200[diff] [blame^]437 call assert_notmatch('Latin supplement', out)
438
439 let out_bang_without_custom = execute(':digraph!')
440 digraph lt 60
441 let out_bang_with_custom = execute(':digraph!')
442 call assert_notmatch('lt', out_bang_without_custom)
443 call assert_match("^\n"
444 \ .. "NU ^@ 10 .*\n"
445 \ .. "Latin supplement\n"
446 \ .. "!I ¡ 161 .*\n"
447 \ .. ".*\n"
448 \ .. 'Custom\n.*\<lt < 60\>', out_bang_with_custom)
Bram Moolenaare25bc5a2016-07-21 21:23:38 +0200[diff] [blame]449 bw!
450endfunc
451
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]452func Test_loadkeymap()
Bram Moolenaarf3621352016-07-21 22:03:02 +0200[diff] [blame]453 if !has('keymap')
454 return
455 endif
Bram Moolenaare25bc5a2016-07-21 21:23:38 +0200[diff] [blame]456 new
457 set keymap=czech
458 set iminsert=0
459 call feedkeys("o|\<c-^>|01234567890|\<esc>", 'tx')
460 call assert_equal("|'é+ěščřžýáíé'", getline('.'))
461 " reset keymap and encoding option
462 set keymap=
463 bw!
464endfunc
465
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]466func Test_digraph_cmndline()
Bram Moolenaare25bc5a2016-07-21 21:23:38 +0200[diff] [blame]467 " Create digraph on commandline
Bram Moolenaar91ffc8a2020-03-02 20:54:22 +0100[diff] [blame]468 call feedkeys(":\"\<c-k>Eu\<cr>", 'xt')
469 call assert_equal('"€', @:)
470
471 " Canceling a CTRL-K on the cmdline
472 call feedkeys(":\"a\<c-k>\<esc>b\<cr>", 'xt')
473 call assert_equal('"ab', @:)
Bram Moolenaare25bc5a2016-07-21 21:23:38 +0200[diff] [blame]474endfunc
475
Bram Moolenaar5f73ef82018-02-27 21:09:30 +0100[diff] [blame]476func Test_show_digraph()
477 new
478 call Put_Dig("e=")
479 call assert_equal("\n<е> 1077, Hex 0435, Oct 2065, Digr e=", execute('ascii'))
480 bwipe!
481endfunc
482
Bram Moolenaarbc5020a2018-06-16 17:25:22 +0200[diff] [blame]483func Test_show_digraph_cp1251()
Bram Moolenaarbc5020a2018-06-16 17:25:22 +0200[diff] [blame]484 new
485 set encoding=cp1251
486 call Put_Dig("='")
487 call assert_equal("\n<\xfa> <|z> <M-z> 250, Hex fa, Oct 372, Digr ='", execute('ascii'))
488 set encoding=utf-8
489 bwipe!
490endfunc
491
Bram Moolenaaree4e0c12020-04-06 21:35:05 +0200[diff] [blame]492" Test for error in a keymap file
493func Test_loadkeymap_error()
494 if !has('keymap')
495 return
496 endif
497 call assert_fails('loadkeymap', 'E105:')
498 call writefile(['loadkeymap', 'a'], 'Xkeymap')
499 call assert_fails('source Xkeymap', 'E791:')
500 call delete('Xkeymap')
501endfunc
502
Bram Moolenaar9e4d8212016-08-18 23:04:48 +0200[diff] [blame]503" vim: shiftwidth=2 sts=2 expandtab