Mercurial > vim

annotate src/testdir/test_utf8.vim @ 35120:a9ee3031a1bb default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v9.1.0393 for changeset 7d6bce8d8875e7deec699d688e081b1450243bb6
author Christian Brabandt <cb@256bit.org>
date Sat, 04 May 2024 10:00:06 +0200
parents ca76febc62fc
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
1 " Tests for Unicode manipulations
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
2
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
3 source check.vim
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
4 source view_util.vim
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
5 source screendump.vim
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
6
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
7 " Visual block Insert adjusts for multi-byte char
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
8 func Test_visual_block_insert()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
9 new
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
10 call setline(1, ["aaa", "あああ", "bbb"])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
11 exe ":norm! gg0l\<C-V>jjIx\<Esc>"
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
12 call assert_equal(['axaa', ' xあああ', 'bxbb'], getline(1, '$'))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
13 bwipeout!
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
14 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
15
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
16 " Test for built-in functions strchars() and strcharlen()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
17 func Test_strchars()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
18 let inp = ["a", "あいa", "A\u20dd", "A\u20dd\u20dd", "\u20dd"]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
19 let exp = [[1, 1, 1], [3, 3, 3], [2, 2, 1], [3, 3, 1], [1, 1, 1]]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
20 for i in range(len(inp))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
21 call assert_equal(exp[i][0], strchars(inp[i]))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
22 call assert_equal(exp[i][1], inp[i]->strchars(0))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
23 call assert_equal(exp[i][2], strchars(inp[i], 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
24 endfor
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
25
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
26 let exp = [1, 3, 1, 1, 1]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
27 for i in range(len(inp))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
28 call assert_equal(exp[i], inp[i]->strcharlen())
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
29 call assert_equal(exp[i], strcharlen(inp[i]))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
30 endfor
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
31
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
32 call assert_fails("call strchars('abc', 2)", ['E1023:', 'E1023:'])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
33 call assert_fails("call strchars('abc', -1)", ['E1023:', 'E1023:'])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
34 call assert_fails("call strchars('abc', {})", ['E728:', 'E728:'])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
35 call assert_fails("call strchars('abc', [])", ['E745:', 'E745:'])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
36 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
37
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
38 " Test for customlist completion
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
39 func CustomComplete1(lead, line, pos)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
40 return ['あ', 'い']
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
41 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
42
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
43 func CustomComplete2(lead, line, pos)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
44 return ['あたし', 'あたま', 'あたりめ']
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
45 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
46
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
47 func CustomComplete3(lead, line, pos)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
48 return ['Nこ', 'Nん', 'Nぶ']
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
49 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
50
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
51 func Test_customlist_completion()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
52 command -nargs=1 -complete=customlist,CustomComplete1 Test1 echo
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
53 call feedkeys(":Test1 \<C-L>\<C-B>\"\<CR>", 'itx')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
54 call assert_equal('"Test1 ', getreg(':'))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
55
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
56 command -nargs=1 -complete=customlist,CustomComplete2 Test2 echo
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
57 call feedkeys(":Test2 \<C-L>\<C-B>\"\<CR>", 'itx')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
58 call assert_equal('"Test2 あた', getreg(':'))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
59
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
60 command -nargs=1 -complete=customlist,CustomComplete3 Test3 echo
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
61 call feedkeys(":Test3 \<C-L>\<C-B>\"\<CR>", 'itx')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
62 call assert_equal('"Test3 N', getreg(':'))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
63
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
64 call garbagecollect(1)
34955
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
65 delcommand Test1
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
66 delcommand Test2
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
67 delcommand Test3
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
68 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
69
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
70 " Yank one 3 byte character and check the mark columns.
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
71 func Test_getvcol()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
72 new
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
73 call setline(1, "x\u2500x")
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
74 normal 0lvy
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
75 call assert_equal(2, col("'["))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
76 call assert_equal(4, col("']"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
77 call assert_equal(2, virtcol("'["))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
78 call assert_equal(2, virtcol("']"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
79 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
80
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
81 func Test_list2str_str2list_utf8()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
82 " One Unicode codepoint
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
83 let s = "\u3042\u3044"
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
84 let l = [0x3042, 0x3044]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
85 call assert_equal(l, str2list(s, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
86 call assert_equal(s, list2str(l, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
87 if &enc ==# 'utf-8'
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
88 call assert_equal(str2list(s), str2list(s, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
89 call assert_equal(list2str(l), list2str(l, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
90 endif
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
91
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
92 " With composing characters
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
93 let s = "\u304b\u3099\u3044"
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
94 let l = [0x304b, 0x3099, 0x3044]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
95 call assert_equal(l, str2list(s, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
96 call assert_equal(s, l->list2str(1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
97 if &enc ==# 'utf-8'
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
98 call assert_equal(str2list(s), str2list(s, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
99 call assert_equal(list2str(l), list2str(l, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
100 endif
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
101
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
102 " Null list is the same as an empty list
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
103 call assert_equal('', list2str([]))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
104 call assert_equal('', list2str(test_null_list()))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
105 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
106
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
107 func Test_list2str_str2list_latin1()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
108 " When 'encoding' is not multi-byte can still get utf-8 string.
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
109 " But we need to create the utf-8 string while 'encoding' is utf-8.
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
110 let s = "\u3042\u3044"
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
111 let l = [0x3042, 0x3044]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
112
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
113 let save_encoding = &encoding
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
114 set encoding=latin1
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
115
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
116 let lres = str2list(s, 1)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
117 let sres = list2str(l, 1)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
118 call assert_equal([65, 66, 67], str2list("ABC"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
119
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
120 " Try converting a list to a string in latin-1 encoding
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
121 call assert_equal([1, 2, 3], str2list(list2str([1, 2, 3])))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
122
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
123 let &encoding = save_encoding
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
124 call assert_equal(l, lres)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
125 call assert_equal(s, sres)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
126 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
127
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
128 func Test_screenchar_utf8()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
129 new
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
130
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
131 " 1-cell, with composing characters
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
132 call setline(1, ["ABC\u0308"])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
133 redraw
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
134 call assert_equal([0x0041], screenchars(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
135 call assert_equal([0x0042], 1->screenchars(2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
136 call assert_equal([0x0043, 0x0308], screenchars(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
137 call assert_equal("A", screenstring(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
138 call assert_equal("B", screenstring(1, 2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
139 call assert_equal("C\u0308", screenstring(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
140
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
141 " 1-cell, with 6 composing characters
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
142 set maxcombine=6
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
143 call setline(1, ["ABC" .. repeat("\u0308", 6)])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
144 redraw
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
145 call assert_equal([0x0041], screenchars(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
146 call assert_equal([0x0042], 1->screenchars(2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
147 " This should not use uninitialized memory
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
148 call assert_equal([0x0043] + repeat([0x0308], 6), screenchars(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
149 call assert_equal("A", screenstring(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
150 call assert_equal("B", screenstring(1, 2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
151 call assert_equal("C" .. repeat("\u0308", 6), screenstring(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
152 set maxcombine&
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
153
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
154 " 2-cells, with composing characters
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
155 let text = "\u3042\u3044\u3046\u3099"
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
156 call setline(1, text)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
157 redraw
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
158 call assert_equal([0x3042], screenchars(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
159 call assert_equal([0], screenchars(1, 2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
160 call assert_equal([0x3044], screenchars(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
161 call assert_equal([0], screenchars(1, 4))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
162 call assert_equal([0x3046, 0x3099], screenchars(1, 5))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
163
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
164 call assert_equal("\u3042", screenstring(1, 1))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
165 call assert_equal("", screenstring(1, 2))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
166 call assert_equal("\u3044", screenstring(1, 3))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
167 call assert_equal("", screenstring(1, 4))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
168 call assert_equal("\u3046\u3099", screenstring(1, 5))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
169
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
170 call assert_equal([text . ' '], ScreenLines(1, 8))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
171
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
172 bwipe!
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
173 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
174
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
175 func Test_setcellwidths()
34922
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
176 new
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
177 call setcellwidths([
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
178 \ [0x1330, 0x1330, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
179 \ [9999, 10000, 1],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
180 \ [0x1337, 0x1339, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
181 \])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
182
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
183 call assert_equal(2, strwidth("\u1330"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
184 call assert_equal(1, strwidth("\u1336"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
185 call assert_equal(2, strwidth("\u1337"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
186 call assert_equal(2, strwidth("\u1339"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
187 call assert_equal(1, strwidth("\u133a"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
188
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
189 for aw in ['single', 'double']
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
190 exe 'set ambiwidth=' . aw
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
191 " Handle \u0080 to \u009F as control chars even on MS-Windows.
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
192 set isprint=@,161-255
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
193
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
194 call setcellwidths([])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
195 " Control chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
196 call assert_equal(4, strwidth("\u0081"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
197 call assert_equal(6, strwidth("\uFEFF"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
198 " Ambiguous width chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
199 call assert_equal((aw == 'single') ? 1 : 2, strwidth("\u00A1"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
200 call assert_equal((aw == 'single') ? 1 : 2, strwidth("\u2010"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
201
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
202 call setcellwidths([[0x81, 0x81, 1], [0xA1, 0xA1, 1],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
203 \ [0x2010, 0x2010, 1], [0xFEFF, 0xFEFF, 1]])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
204 " Control chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
205 call assert_equal(4, strwidth("\u0081"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
206 call assert_equal(6, strwidth("\uFEFF"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
207 " Ambiguous width chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
208 call assert_equal(1, strwidth("\u00A1"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
209 call assert_equal(1, strwidth("\u2010"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
210
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
211 call setcellwidths([[0x81, 0x81, 2], [0xA1, 0xA1, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
212 \ [0x2010, 0x2010, 2], [0xFEFF, 0xFEFF, 2]])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
213 " Control chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
214 call assert_equal(4, strwidth("\u0081"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
215 call assert_equal(6, strwidth("\uFEFF"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
216 " Ambiguous width chars
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
217 call assert_equal(2, strwidth("\u00A1"))
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
218 call assert_equal(2, strwidth("\u2010"))
34922
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
219
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
220 call setcellwidths([])
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
221 call setline(1, repeat("\u2103", 10))
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
222 normal! $
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
223 redraw
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
224 call assert_equal((aw == 'single') ? 10 : 19, wincol())
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
225 call setcellwidths([[0x2103, 0x2103, 1]])
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
226 redraw
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
227 call assert_equal(10, wincol())
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
228 call setcellwidths([[0x2103, 0x2103, 2]])
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
229 redraw
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
230 call assert_equal(19, wincol())
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
231 endfor
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
232 set ambiwidth& isprint&
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
233
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
234 call setcellwidths([])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
235
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
236 call assert_fails('call setcellwidths(1)', 'E1211:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
237
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
238 call assert_fails('call setcellwidths([1, 2, 0])', 'E1109:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
239
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
240 call assert_fails('call setcellwidths([[0x101]])', 'E1110:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
241 call assert_fails('call setcellwidths([[0x101, 0x102]])', 'E1110:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
242 call assert_fails('call setcellwidths([[0x101, 0x102, 1, 4]])', 'E1110:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
243 call assert_fails('call setcellwidths([["a"]])', 'E1110:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
244
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
245 call assert_fails('call setcellwidths([[0x102, 0x101, 1]])', 'E1111:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
246
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
247 call assert_fails('call setcellwidths([[0x101, 0x102, 0]])', 'E1112:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
248 call assert_fails('call setcellwidths([[0x101, 0x102, 3]])', 'E1112:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
249
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
250 call assert_fails('call setcellwidths([[0x111, 0x122, 1], [0x115, 0x116, 2]])', 'E1113:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
251 call assert_fails('call setcellwidths([[0x111, 0x122, 1], [0x122, 0x123, 2]])', 'E1113:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
252
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
253 call assert_fails('call setcellwidths([[0x33, 0x44, 2]])', 'E1114:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
254
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
255 set listchars=tab:--\\u2192
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
256 call assert_fails('call setcellwidths([[0x2192, 0x2192, 2]])', 'E834:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
257
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
258 set fillchars=stl:\\u2501
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
259 call assert_fails('call setcellwidths([[0x2501, 0x2501, 2]])', 'E835:')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
260
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
261 set listchars&
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
262 set fillchars&
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
263 call setcellwidths([])
34922
8f3fc2bcb321 patch 9.1.0320: Wrong cursor position after using setcellwidths()
Christian Brabandt <cb@256bit.org>
parents: 34692
diff changeset
264 bwipe!
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
265 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
266
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
267 func Test_getcellwidths()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
268 call setcellwidths([])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
269 call assert_equal([], getcellwidths())
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
270
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
271 let widthlist = [
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
272 \ [0x1330, 0x1330, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
273 \ [9999, 10000, 1],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
274 \ [0x1337, 0x1339, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
275 \]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
276 let widthlistsorted = [
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
277 \ [0x1330, 0x1330, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
278 \ [0x1337, 0x1339, 2],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
279 \ [9999, 10000, 1],
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
280 \]
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
281 call setcellwidths(widthlist)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
282 call assert_equal(widthlistsorted, getcellwidths())
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
283
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
284 call setcellwidths([])
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
285 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
286
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
287 func Test_setcellwidths_dump()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
288 CheckRunVimInTerminal
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
289
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
290 let lines =<< trim END
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
291 call setline(1, "\ue5ffDesktop")
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
292 END
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
293 call writefile(lines, 'XCellwidths', 'D')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
294 let buf = RunVimInTerminal('-S XCellwidths', {'rows': 6})
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
295 call VerifyScreenDump(buf, 'Test_setcellwidths_dump_1', {})
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
296
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
297 call term_sendkeys(buf, ":call setcellwidths([[0xe5ff, 0xe5ff, 2]])\<CR>")
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
298 call VerifyScreenDump(buf, 'Test_setcellwidths_dump_2', {})
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
299
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
300 call StopVimInTerminal(buf)
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
301 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
302
34991
ca76febc62fc patch 9.1.0351: No test that completing a partial mapping clears 'showcmd'
Christian Brabandt <cb@256bit.org>
parents: 34977
diff changeset
303 " Test setcellwidths() on characters that are not targets of 'ambiwidth'.
34977
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
304 func Test_setcellwidths_with_non_ambiwidth_character_dump()
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
305 CheckRunVimInTerminal
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
306
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
307 let lines =<< trim END
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
308 call setline(1, [repeat("\u279c", 60), repeat("\u279c", 60)])
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
309 set ambiwidth=single
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
310 END
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
311 call writefile(lines, 'XCellwidthsWithNonAmbiwidthCharacter', 'D')
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
312 let buf = RunVimInTerminal('-S XCellwidthsWithNonAmbiwidthCharacter', {'rows': 6, 'cols': 50})
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
313 call term_sendkeys(buf, ":call setcellwidths([[0x279c, 0x279c, 1]])\<CR>")
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
314 call term_sendkeys(buf, ":echo\<CR>")
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
315 call VerifyScreenDump(buf, 'Test_setcellwidths_with_non_ambiwidth_character_dump_1', {})
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
316
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
317 call term_sendkeys(buf, ":call setcellwidths([[0x279c, 0x279c, 2]])\<CR>")
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
318 call term_sendkeys(buf, ":echo\<CR>")
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
319 call VerifyScreenDump(buf, 'Test_setcellwidths_with_non_ambiwidth_character_dump_2', {})
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
320
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
321 call StopVimInTerminal(buf)
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
322 endfunc
74f789d0adb1 patch 9.1.0344: Cursor wrong after using setcellwidth() in terminal
Christian Brabandt <cb@256bit.org>
parents: 34955
diff changeset
323
34955
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
324 " For some reason this test causes Test_customlist_completion() to fail on CI,
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
325 " so run it as the last test.
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
326 func Test_zz_ambiwidth_hl_dump()
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
327 CheckRunVimInTerminal
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
328
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
329 let lines =<< trim END
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
330 call setline(1, [repeat("\u2103", 60), repeat("\u2103", 60)])
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
331 set ambiwidth=single cursorline list display=lastline
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
332 END
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
333 call writefile(lines, 'XAmbiwidthHl', 'D')
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
334 let buf = RunVimInTerminal('-S XAmbiwidthHl', {'rows': 6, 'cols': 50})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
335 call VerifyScreenDump(buf, 'Test_ambiwidth_hl_dump_1', {})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
336
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
337 call term_sendkeys(buf, ":set ambiwidth=double\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
338 call term_sendkeys(buf, ":echo\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
339 call VerifyScreenDump(buf, 'Test_ambiwidth_hl_dump_2', {})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
340
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
341 call term_sendkeys(buf, ":set ambiwidth=single\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
342 call term_sendkeys(buf, ":echo\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
343 call VerifyScreenDump(buf, 'Test_ambiwidth_hl_dump_1', {})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
344
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
345 call term_sendkeys(buf, ":call setcellwidths([[0x2103, 0x2103, 2]])\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
346 call term_sendkeys(buf, ":echo\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
347 call VerifyScreenDump(buf, 'Test_ambiwidth_hl_dump_2', {})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
348
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
349 call term_sendkeys(buf, ":call setcellwidths([[0x2103, 0x2103, 1]])\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
350 call term_sendkeys(buf, ":echo\<CR>")
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
351 call VerifyScreenDump(buf, 'Test_ambiwidth_hl_dump_1', {})
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
352
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
353 call StopVimInTerminal(buf)
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
354 endfunc
9eec857ed4a7 patch 9.1.0334: No test for highlight behavior with 'ambiwidth'
Christian Brabandt <cb@256bit.org>
parents: 34922
diff changeset
355
32670
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
356 func Test_print_overlong()
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
357 " Text with more composing characters than MB_MAXBYTES.
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
358 new
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
359 call setline(1, 'axxxxxxxxxxxxxxxxxxxxxxxxxxxxxx')
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
360 s/x/\=nr2char(1629)/g
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
361 print
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
362 bwipe!
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
363 endfunc
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
364
695b50472e85 Fix line endings issue
Christian Brabandt <cb@256bit.org>
parents: 32669
diff changeset
365 " vim: shiftwidth=2 sts=2 expandtab