Mercurial > vim

annotate src/testdir/test_digraph.vim @ 14068:697cd77146aa

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