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