Mercurial > vim
annotate src/testdir/test95.in @ 8332:07713b8243ac v7.4.1458
commit https://github.com/vim/vim/commit/fdd6ce4a2f922afac7bd719a00228dbd8539b9c4
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Feb 28 22:21:38 2016 +0100
patch 7.4.1458
Problem: When a JSON channel has a callback it may never be cleared.
Solution: Do not write "DETACH" into a JS or JSON channel.
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Sun, 28 Feb 2016 22:30:03 +0100 |
| parents | bc269cf15ccd |
| children | ad9e9e92ad55 |
| rev | line source |
|---|---|
| 4476 | 1 Test for regexp patterns with multi-byte support, using utf-8. |
| 4444 | 2 See test64 for the non-multi-byte tests. |
| 3 | |
| 4 A pattern that gives the expected result produces OK, so that we know it was | |
| 5 actually tried. | |
| 6 | |
| 7 STARTTEST | |
| 8 :so small.vim | |
| 9 :so mbyte.vim | |
|
4525
36ddcf4cecbc
updated for version 7.3.1010
Bram Moolenaar <bram@vim.org>
parents:
4521
diff
changeset
|
10 :set nocp encoding=utf-8 viminfo+=nviminfo nomore |
| 4444 | 11 :" tl is a List of Lists with: |
|
4547
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
12 :" 2: test auto/old/new 0: test auto/old 1: test auto/new |
| 4444 | 13 :" regexp pattern |
| 14 :" text to test the pattern on | |
| 15 :" expected match (optional) | |
| 16 :" expected submatch 1 (optional) | |
| 17 :" expected submatch 2 (optional) | |
| 18 :" etc. | |
| 19 :" When there is no match use only the first two items. | |
| 20 :let tl = [] | |
| 7003 | 21 : |
| 4444 | 22 :"""" Multi-byte character tests. These will fail unless vim is compiled |
| 23 :"""" with Multibyte (FEAT_MBYTE) or BIG/HUGE features. | |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
24 :call add(tl, [2, '[[:alpha:][=a=]]\+', '879 aiaãâaiuvna ', 'aiaãâaiuvna']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
25 :call add(tl, [2, '[[=a=]]\+', 'ddaãâbcd', 'aãâ']) " equivalence classes |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
26 :call add(tl, [2, '[^ม ]\+', 'มม oijasoifjos ifjoisj f osij j มมมมม abcd', 'oijasoifjos']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
27 :call add(tl, [2, ' [^ ]\+', 'start มabcdม ', ' มabcdม']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
28 :call add(tl, [2, '[ม[:alpha:][=a=]]\+', '879 aiaãมâมaiuvna ', 'aiaãมâมaiuvna']) |
| 7003 | 29 : |
| 4468 | 30 :" this is not a normal "i" but 0xec |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
31 :call add(tl, [2, '\p\+', 'ìa', 'ìa']) |
|
5221
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
32 :call add(tl, [2, '\p*', 'aあ', 'aあ']) |
| 7003 | 33 : |
| 4478 | 34 :"""" Test recognition of some character classes |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
35 :call add(tl, [2, '\i\+', '&*¨xx ', 'xx']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
36 :call add(tl, [2, '\f\+', '&*fname ', 'fname']) |
| 7003 | 37 : |
|
4527
55bcaa1d2749
updated for version 7.3.1011
Bram Moolenaar <bram@vim.org>
parents:
4525
diff
changeset
|
38 :"""" Test composing character matching |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
39 :call add(tl, [2, '.ม', 'xม่x yมy', 'yม']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
40 :call add(tl, [2, '.ม่', 'xม่x yมy', 'xม่']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
41 :call add(tl, [2, "\u05b9", " x\u05b9 ", "x\u05b9"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
42 :call add(tl, [2, ".\u05b9", " x\u05b9 ", "x\u05b9"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
43 :call add(tl, [2, "\u05b9\u05bb", " x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
44 :call add(tl, [2, ".\u05b9\u05bb", " x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
|
4547
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
45 :call add(tl, [2, "\u05bb\u05b9", " x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
|
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
46 :call add(tl, [2, ".\u05bb\u05b9", " x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
47 :call add(tl, [2, "\u05b9", " y\u05bb x\u05b9 ", "x\u05b9"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
48 :call add(tl, [2, ".\u05b9", " y\u05bb x\u05b9 ", "x\u05b9"]) |
|
4547
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
49 :call add(tl, [2, "\u05b9", " y\u05bb\u05b9 x\u05b9 ", "y\u05bb\u05b9"]) |
|
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
50 :call add(tl, [2, ".\u05b9", " y\u05bb\u05b9 x\u05b9 ", "y\u05bb\u05b9"]) |
|
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
51 :call add(tl, [1, "\u05b9\u05bb", " y\u05b9 x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
|
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
52 :call add(tl, [2, ".\u05b9\u05bb", " y\u05bb x\u05b9\u05bb ", "x\u05b9\u05bb"]) |
| 5899 | 53 :call add(tl, [2, "a", "ca\u0300t"]) |
| 5903 | 54 :call add(tl, [2, "ca", "ca\u0300t"]) |
| 5899 | 55 :call add(tl, [2, "a\u0300", "ca\u0300t", "a\u0300"]) |
| 5903 | 56 :call add(tl, [2, 'a\%C', "ca\u0300t", "a\u0300"]) |
| 57 :call add(tl, [2, 'ca\%C', "ca\u0300t", "ca\u0300"]) | |
| 58 :call add(tl, [2, 'ca\%Ct', "ca\u0300t", "ca\u0300t"]) | |
| 7003 | 59 : |
| 60 : | |
|
4525
36ddcf4cecbc
updated for version 7.3.1010
Bram Moolenaar <bram@vim.org>
parents:
4521
diff
changeset
|
61 :"""" Test \Z |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
62 :call add(tl, [2, 'ú\Z', 'x']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
63 :call add(tl, [2, 'יהוה\Z', 'יהוה', 'יהוה']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
64 :call add(tl, [2, 'יְהוָה\Z', 'יהוה', 'יהוה']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
65 :call add(tl, [2, 'יהוה\Z', 'יְהוָה', 'יְהוָה']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
66 :call add(tl, [2, 'יְהוָה\Z', 'יְהוָה', 'יְהוָה']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
67 :call add(tl, [2, 'יְ\Z', 'וְיַ', 'יַ']) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
68 :call add(tl, [2, "ק\u200d\u05b9x\\Z", "xק\u200d\u05b9xy", "ק\u200d\u05b9x"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
69 :call add(tl, [2, "ק\u200d\u05b9x\\Z", "xק\u200dxy", "ק\u200dx"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
70 :call add(tl, [2, "ק\u200dx\\Z", "xק\u200d\u05b9xy", "ק\u200d\u05b9x"]) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
71 :call add(tl, [2, "ק\u200dx\\Z", "xק\u200dxy", "ק\u200dx"]) |
|
4551
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
72 :call add(tl, [2, "\u05b9\\Z", "xyz"]) |
|
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
73 :call add(tl, [2, "\\Z\u05b9", "xyz"]) |
|
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
74 :call add(tl, [2, "\u05b9\\Z", "xy\u05b9z", "y\u05b9"]) |
|
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
75 :call add(tl, [2, "\\Z\u05b9", "xy\u05b9z", "y\u05b9"]) |
|
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
76 :call add(tl, [1, "\u05b9\\+\\Z", "xy\u05b9z\u05b9 ", "y\u05b9z\u05b9"]) |
|
f0c37f5cf4ea
updated for version 7.3.1023
Bram Moolenaar <bram@vim.org>
parents:
4547
diff
changeset
|
77 :call add(tl, [1, "\\Z\u05b9\\+", "xy\u05b9z\u05b9 ", "y\u05b9z\u05b9"]) |
| 7003 | 78 : |
| 4478 | 79 :"""" Combining different tests and features |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
80 :call add(tl, [2, '[^[=a=]]\+', 'ddaãâbcd', 'dd']) |
| 7003 | 81 : |
| 4444 | 82 :"""" Run the tests |
| 7003 | 83 : |
| 4444 | 84 :" |
| 85 :for t in tl | |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
86 : let re = t[0] |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
87 : let pat = t[1] |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
88 : let text = t[2] |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
89 : let matchidx = 3 |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
90 : for engine in [0, 1, 2] |
|
4547
fc997f05cbc7
updated for version 7.3.1021
Bram Moolenaar <bram@vim.org>
parents:
4545
diff
changeset
|
91 : if engine == 2 && re == 0 || engine == 1 && re == 1 |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
92 : continue |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
93 : endif |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
94 : let ®expengine = engine |
|
4651
f10f63aaec5c
updated for version 7.3.1073
Bram Moolenaar <bram@vim.org>
parents:
4551
diff
changeset
|
95 : try |
|
f10f63aaec5c
updated for version 7.3.1073
Bram Moolenaar <bram@vim.org>
parents:
4551
diff
changeset
|
96 : let l = matchlist(text, pat) |
|
f10f63aaec5c
updated for version 7.3.1073
Bram Moolenaar <bram@vim.org>
parents:
4551
diff
changeset
|
97 : catch |
| 5903 | 98 : $put ='ERROR ' . engine . ': pat: \"' . pat . '\", text: \"' . text . '\", caused an exception: \"' . v:exception . '\"' |
|
4651
f10f63aaec5c
updated for version 7.3.1073
Bram Moolenaar <bram@vim.org>
parents:
4551
diff
changeset
|
99 : endtry |
| 4444 | 100 :" check the match itself |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
101 : if len(l) == 0 && len(t) > matchidx |
| 5903 | 102 : $put ='ERROR ' . engine . ': pat: \"' . pat . '\", text: \"' . text . '\", did not match, expected: \"' . t[matchidx] . '\"' |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
103 : elseif len(l) > 0 && len(t) == matchidx |
| 5903 | 104 : $put ='ERROR ' . engine . ': pat: \"' . pat . '\", text: \"' . text . '\", match: \"' . l[0] . '\", expected no match' |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
105 : elseif len(t) > matchidx && l[0] != t[matchidx] |
| 5903 | 106 : $put ='ERROR ' . engine . ': pat: \"' . pat . '\", text: \"' . text . '\", match: \"' . l[0] . '\", expected: \"' . t[matchidx] . '\"' |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
107 : else |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
108 : $put ='OK ' . engine . ' - ' . pat |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
109 : endif |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
110 : if len(l) > 0 |
| 4444 | 111 :" check all the nine submatches |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
112 : for i in range(1, 9) |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
113 : if len(t) <= matchidx + i |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
114 : let e = '' |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
115 : else |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
116 : let e = t[matchidx + i] |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
117 : endif |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
118 : if l[i] != e |
| 5903 | 119 : $put ='ERROR ' . engine . ': pat: \"' . pat . '\", text: \"' . text . '\", submatch ' . i . ': \"' . l[i] . '\", expected: \"' . e . '\"' |
|
4545
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
120 : endif |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
121 : endfor |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
122 : unlet i |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
123 : endif |
|
f7944ce459ac
updated for version 7.3.1020
Bram Moolenaar <bram@vim.org>
parents:
4535
diff
changeset
|
124 : endfor |
| 4444 | 125 :endfor |
| 126 :unlet t tl e l | |
| 7003 | 127 : |
|
5221
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
128 :" check that 'ambiwidth' does not change the meaning of \p |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
129 :set regexpengine=1 ambiwidth=single |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
130 :$put ='eng 1 ambi single: ' . match(\"\u00EC\", '\p') |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
131 :set regexpengine=1 ambiwidth=double |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
132 :$put ='eng 1 ambi double: ' . match(\"\u00EC\", '\p') |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
133 :set regexpengine=2 ambiwidth=single |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
134 :$put ='eng 2 ambi single: ' . match(\"\u00EC\", '\p') |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
135 :set regexpengine=2 ambiwidth=double |
|
9982ec574beb
updated for version 7.4a.036
Bram Moolenaar <bram@vim.org>
parents:
4651
diff
changeset
|
136 :$put ='eng 2 ambi double: ' . match(\"\u00EC\", '\p') |
| 7003 | 137 : |
| 4444 | 138 :/\%#=1^Results/,$wq! test.out |
| 139 ENDTEST | |
| 140 | |
| 141 Results of test95: |