blob: fad725d2e5db277a6355a7ffdc10e9aa759b76d4 [file] [log] [blame]
Bram Moolenaar0f518a82016-04-14 16:57:10 +02001" Tests for expressions using utf-8.
Bram Moolenaar0f518a82016-04-14 16:57:10 +02002
3func Test_strgetchar()
Bram Moolenaarb22bd462016-04-14 22:52:50 +02004 call assert_equal(char2nr('á'), strgetchar('áxb', 0))
5 call assert_equal(char2nr('x'), strgetchar('áxb', 1))
Bram Moolenaar0f518a82016-04-14 16:57:10 +02006
Bram Moolenaarb22bd462016-04-14 22:52:50 +02007 call assert_equal(char2nr('a'), strgetchar('àxb', 0))
8 call assert_equal(char2nr('̀'), strgetchar('àxb', 1))
9 call assert_equal(char2nr('x'), strgetchar('àxb', 2))
Bram Moolenaar5d18e0e2016-04-14 22:54:24 +020010
11 call assert_equal(char2nr('あ'), strgetchar('あaい', 0))
12 call assert_equal(char2nr('a'), strgetchar('あaい', 1))
13 call assert_equal(char2nr('い'), strgetchar('あaい', 2))
Bram Moolenaar0f518a82016-04-14 16:57:10 +020014endfunc
15
16func Test_strcharpart()
17 call assert_equal('áxb', strcharpart('áxb', 0))
18 call assert_equal('á', strcharpart('áxb', 0, 1))
19 call assert_equal('x', strcharpart('áxb', 1, 1))
20
Bram Moolenaarfca66002016-04-23 15:30:09 +020021 call assert_equal('いうeお', strcharpart('あいうeお', 1))
22 call assert_equal('い', strcharpart('あいうeお', 1, 1))
23 call assert_equal('いう', strcharpart('あいうeお', 1, 2))
24 call assert_equal('いうe', strcharpart('あいうeお', 1, 3))
25 call assert_equal('いうeお', strcharpart('あいうeお', 1, 4))
26 call assert_equal('eお', strcharpart('あいうeお', 3))
27 call assert_equal('e', strcharpart('あいうeお', 3, 1))
28
29 call assert_equal('あ', strcharpart('あいうeお', -3, 4))
30
Bram Moolenaar0f518a82016-04-14 16:57:10 +020031 call assert_equal('a', strcharpart('àxb', 0, 1))
32 call assert_equal('̀', strcharpart('àxb', 1, 1))
33 call assert_equal('x', strcharpart('àxb', 2, 1))
34endfunc