Mercurial > vim

annotate src/testdir/test_spell.vim @ 32669:448aef880252

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
normalize line endings
author Christian Brabandt <cb@256bit.org>
date Mon, 26 Jun 2023 09:54:34 +0200
parents 238e25832d07
children 695b50472e85
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
32669
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1 " Test spell checking
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
2 " Note: this file uses latin1 encoding, but is used with utf-8 encoding.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
3
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
4 source check.vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
5 CheckFeature spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
6
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
7 source screendump.vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
8
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
9 func TearDown()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
10 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
11 call delete('Xtest.aff')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
12 call delete('Xtest.dic')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
13 call delete('Xtest.latin1.add')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
14 call delete('Xtest.latin1.add.spl')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
15 call delete('Xtest.latin1.spl')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
16 call delete('Xtest.latin1.sug')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
17 " set 'encoding' to clear the word list
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
18 set encoding=utf-8
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
19 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
20
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
21 func Test_wrap_search()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
22 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
23 call setline(1, ['The', '', 'A plong line with two zpelling mistakes', '', 'End'])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
24 set spell wrapscan
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
25 normal ]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
26 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
27 normal ]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
28 call assert_equal('zpelling', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
29 normal ]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
30 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
31 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
32 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
33 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
34
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
35 func Test_curswant()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
36 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
37 call setline(1, ['Another plong line', 'abcdefghijklmnopq'])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
38 set spell wrapscan
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
39 normal 0]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
40 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
41 normal j
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
42 call assert_equal(9, getcurpos()[2])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
43 normal 0[s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
44 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
45 normal j
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
46 call assert_equal(9, getcurpos()[2])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
47
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
48 normal 0]S
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
49 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
50 normal j
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
51 call assert_equal(9, getcurpos()[2])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
52 normal 0[S
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
53 call assert_equal('plong', expand('<cword>'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
54 normal j
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
55 call assert_equal(9, getcurpos()[2])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
56
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
57 normal 1G0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
58 call assert_equal('plong', spellbadword()[0])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
59 normal j
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
60 call assert_equal(9, getcurpos()[2])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
61
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
62 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
63 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
64 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
65
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
66 func Test_z_equal_on_invalid_utf8_word()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
67 split
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
68 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
69 call setline(1, "\xff")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
70 norm z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
71 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
72 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
73 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
74
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
75 func Test_z_equal_on_single_character()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
76 " this was decrementing the index below zero
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
77 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
78 norm a0\Ê
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
79 norm zW
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
80 norm z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
81
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
82 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
83 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
84
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
85 " Test spellbadword() with argument
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
86 func Test_spellbadword()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
87 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
88
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
89 call assert_equal(['bycycle', 'bad'], spellbadword('My bycycle.'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
90 call assert_equal(['another', 'caps'], 'A sentence. another sentence'->spellbadword())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
91
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
92 call assert_equal(['TheCamelWord', 'bad'], 'TheCamelWord asdf'->spellbadword())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
93 set spelloptions=camel
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
94 call assert_equal(['asdf', 'bad'], 'TheCamelWord asdf'->spellbadword())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
95 set spelloptions=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
96
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
97 set spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
98 call assert_equal(['', ''], spellbadword('centre'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
99 call assert_equal(['', ''], spellbadword('center'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
100 set spelllang=en_us
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
101 call assert_equal(['centre', 'local'], spellbadword('centre'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
102 call assert_equal(['', ''], spellbadword('center'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
103 set spelllang=en_gb
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
104 call assert_equal(['', ''], spellbadword('centre'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
105 call assert_equal(['center', 'local'], spellbadword('center'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
106
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
107 " Create a small word list to test that spellbadword('...')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
108 " can return ['...', 'rare'].
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
109 e Xwords
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
110 insert
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
111 foo
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
112 foobar/?
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
113 .
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
114 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
115 mkspell! Xwords.spl Xwords
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
116 set spelllang=Xwords.spl
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
117 call assert_equal(['foobar', 'rare'], spellbadword('foo foobar'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
118
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
119 " Typo should be detected even without the 'spell' option.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
120 set spelllang=en_gb nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
121 call assert_equal(['', ''], spellbadword('centre'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
122 call assert_equal(['bycycle', 'bad'], spellbadword('My bycycle.'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
123 call assert_equal(['another', 'caps'], spellbadword('A sentence. another sentence'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
124
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
125 set spelllang=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
126 call assert_fails("call spellbadword('maxch')", 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
127 call assert_fails("spelldump", 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
128
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
129 call delete('Xwords.spl')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
130 call delete('Xwords')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
131 set spelllang&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
132 set spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
133 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
134
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
135 func Test_spell_file_missing()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
136 let s:spell_file_missing = 0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
137 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
138 autocmd! SpellFileMissing * let s:spell_file_missing += 1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
139 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
140
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
141 set spell spelllang=ab_cd
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
142 let messages = GetMessages()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
143 call assert_equal('Warning: Cannot find word list "ab.utf-8.spl" or "ab.ascii.spl"', messages[-1])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
144 call assert_equal(1, s:spell_file_missing)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
145
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
146 new XTestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
147 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
148 autocmd! SpellFileMissing * bwipe
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
149 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
150 call assert_fails('set spell spelllang=ab_cd', 'E937:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
151
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
152 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
153 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
154 autocmd! SpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
155 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
156 augroup! TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
157 unlet s:spell_file_missing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
158 set spell& spelllang&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
159 %bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
160 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
161
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
162 func Test_spell_file_missing_bwipe()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
163 " this was using a window that was wiped out in a SpellFileMissing autocmd
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
164 set spelllang=xy
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
165 au SpellFileMissing * n0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
166 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
167 au SpellFileMissing * bw
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
168 snext somefile
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
169
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
170 au! SpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
171 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
172 set nospell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
173 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
174
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
175 func Test_spelldump()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
176 " In case the spell file is not found avoid getting the download dialog, we
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
177 " would get stuck at the prompt.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
178 let g:en_not_found = 0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
179 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
180 au! SpellFileMissing * let g:en_not_found = 1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
181 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
182 set spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
183 spellrare! emacs
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
184 if g:en_not_found
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
185 call assert_report("Could not find English spell file")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
186 else
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
187 spelldump
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
188
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
189 " Check assumption about region: 1: us, 2: au, 3: ca, 4: gb, 5: nz.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
190 call assert_equal('/regions=usaucagbnz', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
191 call assert_notequal(0, search('^theater/1$')) " US English only.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
192 call assert_notequal(0, search('^theatre/2345$')) " AU, CA, GB or NZ English.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
193
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
194 call assert_notequal(0, search('^emacs/?$')) " ? for a rare word.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
195 call assert_notequal(0, search('^the the/!$')) " ! for a wrong word.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
196 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
197
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
198 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
199 unlet g:en_not_found
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
200 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
201 autocmd! SpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
202 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
203 augroup! TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
204 bwipe
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
205 set spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
206 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
207
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
208 func Test_spelldump_bang()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
209 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
210 call setline(1, 'This is a sample sentence.')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
211 redraw
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
212
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
213 " In case the spell file is not found avoid getting the download dialog, we
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
214 " would get stuck at the prompt.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
215 let g:en_not_found = 0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
216 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
217 au! SpellFileMissing * let g:en_not_found = 1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
218 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
219
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
220 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
221
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
222 if g:en_not_found
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
223 call assert_report("Could not find English spell file")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
224 else
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
225 redraw
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
226 spelldump!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
227
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
228 " :spelldump! includes the number of times a word was found while updating
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
229 " the screen.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
230 " Common word count starts at 10, regular word count starts at 0.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
231 call assert_notequal(0, search("^is\t11$")) " common word found once.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
232 call assert_notequal(0, search("^the\t10$")) " common word never found.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
233 call assert_notequal(0, search("^sample\t1$")) " regular word found once.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
234 call assert_equal(0, search("^screen\t")) " regular word never found.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
235 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
236
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
237 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
238 unlet g:en_not_found
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
239 augroup TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
240 autocmd! SpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
241 augroup END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
242 augroup! TestSpellFileMissing
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
243 %bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
244 set spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
245 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
246
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
247 func Test_spelllang_inv_region()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
248 set spell spelllang=en_xx
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
249 let messages = GetMessages()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
250 call assert_equal('Warning: region xx not supported', messages[-1])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
251 set spell& spelllang&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
252 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
253
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
254 func Test_compl_with_CTRL_X_CTRL_K_using_spell()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
255 " When spell checking is enabled and 'dictionary' is empty,
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
256 " CTRL-X CTRL-K in insert mode completes using the spelling dictionary.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
257 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
258 set spell spelllang=en dictionary=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
259
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
260 set ignorecase
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
261 call feedkeys("Senglis\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
262 call assert_equal(['English'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
263 call feedkeys("SEnglis\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
264 call assert_equal(['English'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
265
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
266 set noignorecase
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
267 call feedkeys("Senglis\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
268 call assert_equal(['englis'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
269 call feedkeys("SEnglis\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
270 call assert_equal(['English'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
271
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
272 set spelllang=en_us
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
273 call feedkeys("Stheat\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
274 call assert_equal(['theater'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
275 set spelllang=en_gb
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
276 call feedkeys("Stheat\<c-x>\<c-k>\<esc>", 'tnx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
277 " FIXME: commented out, expected theatre bug got theater. See issue #7025.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
278 " call assert_equal(['theatre'], getline(1, '$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
279
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
280 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
281 set spell& spelllang& dictionary& ignorecase&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
282 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
283
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
284 func Test_spellrepall()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
285 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
286 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
287 call assert_fails('spellrepall', 'E752:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
288 call setline(1, ['A speling mistake. The same speling mistake.',
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
289 \ 'Another speling mistake.'])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
290 call feedkeys(']s1z=', 'tx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
291 call assert_equal('A spelling mistake. The same speling mistake.', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
292 call assert_equal('Another speling mistake.', getline(2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
293 spellrepall
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
294 call assert_equal('A spelling mistake. The same spelling mistake.', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
295 call assert_equal('Another spelling mistake.', getline(2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
296 call assert_fails('spellrepall', 'E753:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
297 set spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
298 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
299 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
300
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
301 func Test_spell_dump_word_length()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
302 " this was running over MAXWLEN
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
303 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
304 noremap 0 0a0zW0000000
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
305 sil! norm 0z=0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
306 sil norm 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
307 sil! norm 0z=0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
308
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
309 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
310 nunmap 0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
311 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
312
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
313 " Test spellsuggest({word} [, {max} [, {capital}]])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
314 func Test_spellsuggest()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
315 " Verify suggestions are given even when spell checking is not enabled.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
316 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
317 call assert_equal(['march', 'March'], spellsuggest('marrch', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
318
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
319 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
320
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
321 " With 1 argument.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
322 call assert_equal(['march', 'March'], spellsuggest('marrch')[0:1])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
323
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
324 " With 2 arguments.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
325 call assert_equal(['march', 'March'], spellsuggest('marrch', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
326
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
327 " With 3 arguments.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
328 call assert_equal(['march'], spellsuggest('marrch', 1, 0))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
329 call assert_equal(['March'], spellsuggest('marrch', 1, 1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
330
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
331 " Test with digits and hyphen.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
332 call assert_equal('Carbon-14', spellsuggest('Carbon-15')[0])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
333
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
334 " Comment taken from spellsuggest.c explains the following test cases:
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
335 "
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
336 " If there are more UPPER than lower case letters suggest an
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
337 " ALLCAP word. Otherwise, if the first letter is UPPER then
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
338 " suggest ONECAP. Exception: "ALl" most likely should be "All",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
339 " require three upper case letters.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
340 call assert_equal(['THIRD', 'third'], spellsuggest('thIRD', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
341 call assert_equal(['third', 'THIRD'], spellsuggest('tHIrd', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
342 call assert_equal(['Third'], spellsuggest('THird', 1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
343 call assert_equal(['All'], spellsuggest('ALl', 1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
344
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
345 " Special suggestion for repeated 'the the'.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
346 call assert_inrange(0, 2, index(spellsuggest('the the', 3), 'the'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
347 call assert_inrange(0, 2, index(spellsuggest('the the', 3), 'the'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
348 call assert_inrange(0, 2, index(spellsuggest('The the', 3), 'The'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
349
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
350 call assert_fails("call spellsuggest('maxch', [])", 'E745:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
351 call assert_fails("call spellsuggest('maxch', 2, [])", 'E745:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
352
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
353 set spelllang=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
354 call assert_fails("call spellsuggest('maxch')", 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
355 set spelllang&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
356
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
357 set spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
358 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
359
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
360 " Test 'spellsuggest' option with methods fast, best and double.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
361 func Test_spellsuggest_option_methods()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
362 set spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
363
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
364 for e in ['latin1', 'utf-8']
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
365 exe 'set encoding=' .. e
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
366
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
367 set spellsuggest=fast
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
368 call assert_equal(['Stick', 'Stitch'], spellsuggest('Stich', 2), e)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
369
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
370 " With best or double option, "Stitch" should become the top suggestion
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
371 " because of better phonetic matching.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
372 set spellsuggest=best
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
373 call assert_equal(['Stitch', 'Stick'], spellsuggest('Stich', 2), e)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
374
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
375 set spellsuggest=double
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
376 call assert_equal(['Stitch', 'Stick'], spellsuggest('Stich', 2), e)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
377 endfor
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
378
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
379 set spell& spellsuggest& encoding&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
380 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
381
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
382 " Test 'spellsuggest' option with value file:{filename}
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
383 func Test_spellsuggest_option_file()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
384 set spell spellsuggest=file:Xspellsuggest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
385 call writefile(['emacs/vim',
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
386 \ 'theribal/terrible',
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
387 \ 'teribal/terrrible',
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
388 \ 'terribal'],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
389 \ 'Xspellsuggest')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
390
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
391 call assert_equal(['vim'], spellsuggest('emacs', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
392 call assert_equal(['terrible'], spellsuggest('theribal',2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
393
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
394 " If the suggestion is misspelled (*terrrible* with 3 r),
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
395 " it should not be proposed.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
396 " The entry for "terribal" should be ignored because of missing slash.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
397 call assert_equal([], spellsuggest('teribal', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
398 call assert_equal([], spellsuggest('terribal', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
399
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
400 set spell spellsuggest=best,file:Xspellsuggest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
401 call assert_equal(['vim', 'Emacs'], spellsuggest('emacs', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
402 call assert_equal(['terrible', 'tribal'], spellsuggest('theribal', 2))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
403 call assert_equal(['tribal'], spellsuggest('teribal', 1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
404 call assert_equal(['tribal'], spellsuggest('terribal', 1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
405
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
406 call delete('Xspellsuggest')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
407 call assert_fails("call spellsuggest('vim')", "E484: Can't open file Xspellsuggest")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
408
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
409 set spellsuggest& spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
410 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
411
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
412 " Test 'spellsuggest' option with value {number}
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
413 " to limit the number of suggestions
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
414 func Test_spellsuggest_option_number()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
415 set spell spellsuggest=2,best
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
416 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
417
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
418 " We limited the number of suggestions to 2, so selecting
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
419 " the 1st and 2nd suggestion should correct the word, but
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
420 " selecting a 3rd suggestion should do nothing.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
421 call setline(1, 'A baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
422 norm $1z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
423 call assert_equal('A board', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
424
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
425 call setline(1, 'A baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
426 norm $2z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
427 call assert_equal('A bard', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
428
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
429 call setline(1, 'A baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
430 norm $3z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
431 call assert_equal('A baord', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
432
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
433 let a = execute('norm $z=')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
434 call assert_equal(
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
435 \ "\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
436 \ .. "Change \"baord\" to:\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
437 \ .. " 1 \"board\"\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
438 \ .. " 2 \"bard\"\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
439 \ .. "Type number and <Enter> or click with the mouse (q or empty cancels): ", a)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
440
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
441 set spell spellsuggest=0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
442 call assert_equal("\nSorry, no suggestions", execute('norm $z='))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
443
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
444 " Unlike z=, function spellsuggest(...) should not be affected by the
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
445 " max number of suggestions (2) set by the 'spellsuggest' option.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
446 call assert_equal(['board', 'bard', 'broad'], spellsuggest('baord', 3))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
447
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
448 set spellsuggest& spell&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
449 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
450 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
451
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
452 " Test 'spellsuggest' option with value expr:{expr}
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
453 func Test_spellsuggest_option_expr()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
454 " A silly 'spellsuggest' function which makes suggestions all uppercase
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
455 " and makes the score of each suggestion the length of the suggested word.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
456 " So shorter suggestions are preferred.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
457 func MySuggest()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
458 let spellsuggest_save = &spellsuggest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
459 set spellsuggest=3,best
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
460 let result = map(spellsuggest(v:val, 3), "[toupper(v:val), len(v:val)]")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
461 let &spellsuggest = spellsuggest_save
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
462 return result
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
463 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
464
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
465 set spell spellsuggest=expr:MySuggest()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
466 call assert_equal(['BARD', 'BOARD', 'BROAD'], spellsuggest('baord', 3))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
467
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
468 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
469 call setline(1, 'baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
470 let a = execute('norm z=')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
471 call assert_equal(
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
472 \ "\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
473 \ .. "Change \"baord\" to:\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
474 \ .. " 1 \"BARD\"\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
475 \ .. " 2 \"BOARD\"\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
476 \ .. " 3 \"BROAD\"\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
477 \ .. "Type number and <Enter> or click with the mouse (q or empty cancels): ", a)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
478
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
479 " With verbose, z= should show the score i.e. word length with
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
480 " our SpellSuggest() function.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
481 set verbose=1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
482 let a = execute('norm z=')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
483 call assert_equal(
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
484 \ "\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
485 \ .. "Change \"baord\" to:\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
486 \ .. " 1 \"BARD\" (4 - 0)\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
487 \ .. " 2 \"BOARD\" (5 - 0)\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
488 \ .. " 3 \"BROAD\" (5 - 0)\n"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
489 \ .. "Type number and <Enter> or click with the mouse (q or empty cancels): ", a)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
490
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
491 set spell& spellsuggest& verbose&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
492 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
493 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
494
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
495 " Test for 'spellsuggest' expr errors
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
496 func Test_spellsuggest_expr_errors()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
497 " 'spellsuggest'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
498 func MySuggest()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
499 return range(3)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
500 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
501 set spell spellsuggest=expr:MySuggest()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
502 call assert_equal([], spellsuggest('baord', 3))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
503
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
504 " Test for 'spellsuggest' expression returning a non-list value
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
505 func! MySuggest2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
506 return 'good'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
507 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
508 set spellsuggest=expr:MySuggest2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
509 call assert_equal([], spellsuggest('baord'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
510
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
511 " Test for 'spellsuggest' expression returning a list with dict values
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
512 func! MySuggest3()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
513 return [[{}, {}]]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
514 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
515 set spellsuggest=expr:MySuggest3()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
516 call assert_fails("call spellsuggest('baord')", 'E731:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
517
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
518 set nospell spellsuggest&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
519 delfunc MySuggest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
520 delfunc MySuggest2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
521 delfunc MySuggest3
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
522 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
523
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
524 func Test_spellsuggest_timeout()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
525 set spellsuggest=timeout:30
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
526 set spellsuggest=timeout:-123
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
527 set spellsuggest=timeout:999999
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
528 call assert_fails('set spellsuggest=timeout', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
529 call assert_fails('set spellsuggest=timeout:x', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
530 call assert_fails('set spellsuggest=timeout:-x', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
531 call assert_fails('set spellsuggest=timeout:--9', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
532 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
533
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
534 func Test_spellsuggest_visual_end_of_line()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
535 let enc_save = &encoding
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
536 set encoding=iso8859
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
537
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
538 " This was reading beyond the end of the line.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
539 norm R00000000000
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
540 sil norm 0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
541 sil! norm i00000)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
542 sil! norm i00000)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
543 call feedkeys("\<CR>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
544 norm z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
545
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
546 let &encoding = enc_save
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
547 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
548
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
549 func Test_spellinfo()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
550 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
551 let runtime = substitute($VIMRUNTIME, '\\', '/', 'g')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
552
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
553 set enc=latin1 spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
554 call assert_match("^\nfile: " .. runtime .. "/spell/en.latin1.spl\n$", execute('spellinfo'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
555
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
556 set enc=cp1250 spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
557 call assert_match("^\nfile: " .. runtime .. "/spell/en.ascii.spl\n$", execute('spellinfo'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
558
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
559 set enc=utf-8 spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
560 call assert_match("^\nfile: " .. runtime .. "/spell/en.utf-8.spl\n$", execute('spellinfo'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
561
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
562 set enc=latin1 spell spelllang=en_us,en_nz
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
563 call assert_match("^\n" .
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
564 \ "file: " .. runtime .. "/spell/en.latin1.spl\n" .
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
565 \ "file: " .. runtime.. "/spell/en.latin1.spl\n$", execute('spellinfo'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
566
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
567 set spell spelllang=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
568 call assert_fails('spellinfo', 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
569
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
570 set nospell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
571 call assert_fails('spellinfo', 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
572
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
573 call assert_fails('set spelllang=foo/bar', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
574 call assert_fails('set spelllang=foo\ bar', 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
575 call assert_fails("set spelllang=foo\\\nbar", 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
576 call assert_fails("set spelllang=foo\\\rbar", 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
577 call assert_fails("set spelllang=foo+bar", 'E474:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
578
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
579 set enc& spell& spelllang&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
580 bwipe
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
581 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
582
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
583 func Test_zz_basic()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
584 call LoadAffAndDic(g:test_data_aff1, g:test_data_dic1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
585 call RunGoodBad("wrong OK puts. Test the end",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
586 \ "bad: inputs comment ok Ok. test d\xE9\xF4l end the",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
587 \["Comment", "deol", "d\xE9\xF4r", "input", "OK", "output", "outputs", "outtest", "put", "puts",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
588 \ "test", "testen", "testn", "the end", "uk", "wrong"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
589 \[
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
590 \ ["bad", ["put", "uk", "OK"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
591 \ ["inputs", ["input", "puts", "outputs"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
592 \ ["comment", ["Comment", "outtest", "the end"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
593 \ ["ok", ["OK", "uk", "put"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
594 \ ["Ok", ["OK", "Uk", "Put"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
595 \ ["test", ["Test", "testn", "testen"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
596 \ ["d\xE9\xF4l", ["deol", "d\xE9\xF4r", "test"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
597 \ ["end", ["put", "uk", "test"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
598 \ ["the", ["put", "uk", "test"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
599 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
600 \ )
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
601
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
602 call assert_equal("gebletegek", soundfold('goobledygoook'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
603 call assert_equal("kepereneven", 'kóopërÿnôven'->soundfold())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
604 call assert_equal("everles gesvets etele", soundfold('oeverloos gezwets edale'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
605 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
606
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
607 " Postponed prefixes
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
608 func Test_zz_prefixes()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
609 call LoadAffAndDic(g:test_data_aff2, g:test_data_dic1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
610 call RunGoodBad("puts",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
611 \ "bad: inputs comment ok Ok end the. test d\xE9\xF4l",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
612 \ ["Comment", "deol", "d\xE9\xF4r", "OK", "put", "input", "output", "puts", "outputs", "test", "outtest", "testen", "testn", "the end", "uk", "wrong"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
613 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
614 \ ["bad", ["put", "uk", "OK"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
615 \ ["inputs", ["input", "puts", "outputs"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
616 \ ["comment", ["Comment"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
617 \ ["ok", ["OK", "uk", "put"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
618 \ ["Ok", ["OK", "Uk", "Put"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
619 \ ["end", ["put", "uk", "deol"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
620 \ ["the", ["put", "uk", "test"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
621 \ ["test", ["Test", "testn", "testen"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
622 \ ["d\xE9\xF4l", ["deol", "d\xE9\xF4r", "test"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
623 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
624 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
625
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
626 "Compound words
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
627 func Test_zz_compound()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
628 call LoadAffAndDic(g:test_data_aff3, g:test_data_dic3)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
629 call RunGoodBad("foo m\xEF foobar foofoobar barfoo barbarfoo",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
630 \ "bad: bar la foom\xEF barm\xEF m\xEFfoo m\xEFbar m\xEFm\xEF lala m\xEFla lam\xEF foola labar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
631 \ ["foo", "m\xEF"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
632 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
633 \ ["bad", ["foo", "m\xEF"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
634 \ ["bar", ["barfoo", "foobar", "foo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
635 \ ["la", ["m\xEF", "foo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
636 \ ["foom\xEF", ["foo m\xEF", "foo", "foofoo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
637 \ ["barm\xEF", ["barfoo", "m\xEF", "barbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
638 \ ["m\xEFfoo", ["m\xEF foo", "foo", "foofoo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
639 \ ["m\xEFbar", ["foobar", "barbar", "m\xEF"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
640 \ ["m\xEFm\xEF", ["m\xEF m\xEF", "m\xEF"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
641 \ ["lala", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
642 \ ["m\xEFla", ["m\xEF", "m\xEF m\xEF"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
643 \ ["lam\xEF", ["m\xEF", "m\xEF m\xEF"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
644 \ ["foola", ["foo", "foobar", "foofoo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
645 \ ["labar", ["barbar", "foobar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
646 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
647
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
648 call LoadAffAndDic(g:test_data_aff4, g:test_data_dic4)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
649 call RunGoodBad("word util bork prebork start end wordutil wordutils pro-ok bork borkbork borkborkbork borkborkborkbork borkborkborkborkbork tomato tomatotomato startend startword startwordword startwordend startwordwordend startwordwordwordend prebork preborkbork preborkborkbork nouword",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
650 \ "bad: wordutilize pro borkborkborkborkborkbork tomatotomatotomato endstart endend startstart wordend wordstart preborkprebork preborkpreborkbork startwordwordwordwordend borkpreborkpreborkbork utilsbork startnouword",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
651 \ ["bork", "prebork", "end", "pro-ok", "start", "tomato", "util", "utilize", "utils", "word", "nouword"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
652 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
653 \ ["bad", ["end", "bork", "word"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
654 \ ["wordutilize", ["word utilize", "wordutils", "wordutil"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
655 \ ["pro", ["bork", "word", "end"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
656 \ ["borkborkborkborkborkbork", ["bork borkborkborkborkbork", "borkbork borkborkborkbork", "borkborkbork borkborkbork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
657 \ ["tomatotomatotomato", ["tomato tomatotomato", "tomatotomato tomato", "tomato tomato tomato"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
658 \ ["endstart", ["end start", "start"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
659 \ ["endend", ["end end", "end"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
660 \ ["startstart", ["start start"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
661 \ ["wordend", ["word end", "word", "wordword"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
662 \ ["wordstart", ["word start", "bork start"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
663 \ ["preborkprebork", ["prebork prebork", "preborkbork", "preborkborkbork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
664 \ ["preborkpreborkbork", ["prebork preborkbork", "preborkborkbork", "preborkborkborkbork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
665 \ ["startwordwordwordwordend", ["startwordwordwordword end", "startwordwordwordword", "start wordwordwordword end"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
666 \ ["borkpreborkpreborkbork", ["bork preborkpreborkbork", "bork prebork preborkbork", "bork preborkprebork bork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
667 \ ["utilsbork", ["utilbork", "utils bork", "util bork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
668 \ ["startnouword", ["start nouword", "startword", "startborkword"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
669 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
670
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
671 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
672
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
673 "Test affix flags with two characters
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
674 func Test_zz_affix()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
675 call LoadAffAndDic(g:test_data_aff5, g:test_data_dic5)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
676 call RunGoodBad("fooa1 fooa\xE9 bar prebar barbork prebarbork startprebar start end startend startmiddleend nouend",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
677 \ "bad: foo fooa2 prabar probarbirk middle startmiddle middleend endstart startprobar startnouend",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
678 \ ["bar", "barbork", "end", "fooa1", "fooa\xE9", "nouend", "prebar", "prebarbork", "start"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
679 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
680 \ ["bad", ["bar", "end", "fooa1"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
681 \ ["foo", ["fooa1", "fooa\xE9", "bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
682 \ ["fooa2", ["fooa1", "fooa\xE9", "bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
683 \ ["prabar", ["prebar", "bar", "bar bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
684 \ ["probarbirk", ["prebarbork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
685 \ ["middle", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
686 \ ["startmiddle", ["startmiddleend", "startmiddlebar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
687 \ ["middleend", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
688 \ ["endstart", ["end start", "start"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
689 \ ["startprobar", ["startprebar", "start prebar", "startbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
690 \ ["startnouend", ["start nouend", "startend"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
691 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
692
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
693 call LoadAffAndDic(g:test_data_aff6, g:test_data_dic6)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
694 call RunGoodBad("meea1 meea\xE9 bar prebar barbork prebarbork leadprebar lead end leadend leadmiddleend",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
695 \ "bad: mee meea2 prabar probarbirk middle leadmiddle middleend endlead leadprobar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
696 \ ["bar", "barbork", "end", "lead", "meea1", "meea\xE9", "prebar", "prebarbork"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
697 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
698 \ ["bad", ["bar", "end", "lead"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
699 \ ["mee", ["meea1", "meea\xE9", "bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
700 \ ["meea2", ["meea1", "meea\xE9", "lead"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
701 \ ["prabar", ["prebar", "bar", "leadbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
702 \ ["probarbirk", ["prebarbork"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
703 \ ["middle", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
704 \ ["leadmiddle", ["leadmiddleend", "leadmiddlebar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
705 \ ["middleend", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
706 \ ["endlead", ["end lead", "lead", "end end"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
707 \ ["leadprobar", ["leadprebar", "lead prebar", "leadbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
708 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
709
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
710 call LoadAffAndDic(g:test_data_aff7, g:test_data_dic7)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
711 call RunGoodBad("meea1 meezero meea\xE9 bar prebar barmeat prebarmeat leadprebar lead tail leadtail leadmiddletail",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
712 \ "bad: mee meea2 prabar probarmaat middle leadmiddle middletail taillead leadprobar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
713 \ ["bar", "barmeat", "lead", "meea1", "meea\xE9", "meezero", "prebar", "prebarmeat", "tail"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
714 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
715 \ ["bad", ["bar", "lead", "tail"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
716 \ ["mee", ["meea1", "meea\xE9", "bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
717 \ ["meea2", ["meea1", "meea\xE9", "lead"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
718 \ ["prabar", ["prebar", "bar", "leadbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
719 \ ["probarmaat", ["prebarmeat"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
720 \ ["middle", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
721 \ ["leadmiddle", ["leadmiddlebar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
722 \ ["middletail", []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
723 \ ["taillead", ["tail lead", "tail"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
724 \ ["leadprobar", ["leadprebar", "lead prebar", "leadbar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
725 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
726 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
727
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
728 func Test_zz_NOSLITSUGS()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
729 call LoadAffAndDic(g:test_data_aff8, g:test_data_dic8)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
730 call RunGoodBad("foo bar faabar", "bad: foobar barfoo",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
731 \ ["bar", "faabar", "foo"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
732 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
733 \ ["bad", ["bar", "foo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
734 \ ["foobar", ["faabar", "foo bar", "bar"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
735 \ ["barfoo", ["bar foo", "bar", "foo"]],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
736 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
737 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
738
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
739 " Numbers
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
740 func Test_zz_Numbers()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
741 call LoadAffAndDic(g:test_data_aff9, g:test_data_dic9)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
742 call RunGoodBad("0b1011 0777 1234 0x01ff", "",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
743 \ ["bar", "foo"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
744 \ [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
745 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
746 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
747
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
748 " Affix flags
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
749 func Test_zz_affix_flags()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
750 call LoadAffAndDic(g:test_data_aff10, g:test_data_dic10)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
751 call RunGoodBad("drink drinkable drinkables drinktable drinkabletable",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
752 \ "bad: drinks drinkstable drinkablestable",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
753 \ ["drink", "drinkable", "drinkables", "table"],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
754 \ [['bad', []],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
755 \ ['drinks', ['drink']],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
756 \ ['drinkstable', ['drinktable', 'drinkable', 'drink table']],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
757 \ ['drinkablestable', ['drinkabletable', 'drinkables table', 'drinkable table']],
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
758 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
759 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
760
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
761 function FirstSpellWord()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
762 call feedkeys("/^start:\n", 'tx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
763 normal ]smm
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
764 let [str, a] = spellbadword()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
765 return str
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
766 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
767
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
768 function SecondSpellWord()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
769 normal `m]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
770 let [str, a] = spellbadword()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
771 return str
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
772 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
773
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
774 "Test with SAL instead of SOFO items; test automatic reloading
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
775 func Test_zz_sal_and_addition()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
776 set enc=latin1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
777 set spellfile=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
778 call writefile(g:test_data_dic1, "Xtest.dic", 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
779 call writefile(g:test_data_aff_sal, "Xtest.aff", 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
780 mkspell! Xtest Xtest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
781 set spl=Xtest.latin1.spl spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
782 call assert_equal('kbltykk', soundfold('goobledygoook'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
783 call assert_equal('kprnfn', soundfold('kóopërÿnôven'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
784 call assert_equal('*fls kswts tl', soundfold('oeverloos gezwets edale'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
785
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
786 "also use an addition file
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
787 call writefile(["/regions=usgbnz", "elequint/2", "elekwint/3"], "Xtest.latin1.add", 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
788 mkspell! Xtest.latin1.add.spl Xtest.latin1.add
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
789
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
790 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
791 call setline(1, ["start: elequint test elekwint test elekwent asdf"])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
792
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
793 set spellfile=Xtest.latin1.add
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
794 call assert_equal("elekwent", FirstSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
795
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
796 set spl=Xtest_us.latin1.spl
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
797 call assert_equal("elequint", FirstSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
798 call assert_equal("elekwint", SecondSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
799
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
800 set spl=Xtest_gb.latin1.spl
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
801 call assert_equal("elekwint", FirstSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
802 call assert_equal("elekwent", SecondSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
803
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
804 set spl=Xtest_nz.latin1.spl
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
805 call assert_equal("elequint", FirstSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
806 call assert_equal("elekwent", SecondSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
807
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
808 set spl=Xtest_ca.latin1.spl
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
809 call assert_equal("elequint", FirstSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
810 call assert_equal("elekwint", SecondSpellWord())
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
811
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
812 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
813 set spellfile=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
814 set spl&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
815 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
816
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
817 func Test_spellfile_value()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
818 set spellfile=Xdir/Xtest.latin1.add
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
819 set spellfile=Xdir/Xtest.utf-8.add,Xtest_other.add
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
820 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
821
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
822 func Test_region_error()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
823 messages clear
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
824 call writefile(["/regions=usgbnz", "elequint/0"], "Xtest.latin1.add", 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
825 mkspell! Xtest.latin1.add.spl Xtest.latin1.add
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
826 call assert_match('Invalid region nr in Xtest.latin1.add line 2: 0', execute('messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
827 call delete('Xtest.latin1.add.spl')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
828 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
829
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
830 " Check using z= in new buffer (crash fixed by patch 7.4a.028).
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
831 func Test_zeq_crash()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
832 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
833 set maxmem=512 spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
834 call feedkeys('iasdz=:\"', 'tx')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
835
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
836 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
837 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
838
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
839 " Check that z= works even when 'nospell' is set. This test uses one of the
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
840 " tests in Test_spellsuggest_option_number() just to verify that z= basically
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
841 " works and that "E756: Spell checking is not enabled" is not generated.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
842 func Test_zeq_nospell()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
843 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
844 set nospell spellsuggest=1,best
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
845 call setline(1, 'A baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
846 try
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
847 norm $1z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
848 call assert_equal('A board', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
849 catch
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
850 call assert_report("Caught exception: " . v:exception)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
851 endtry
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
852 set spell& spellsuggest&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
853 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
854 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
855
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
856 " Check that "E756: Spell checking is not possible" is reported when z= is
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
857 " executed and 'spelllang' is empty.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
858 func Test_zeq_no_spelllang()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
859 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
860 set spelllang= spellsuggest=1,best
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
861 call setline(1, 'A baord')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
862 call assert_fails('normal $1z=', 'E756:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
863 set spelllang& spellsuggest&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
864 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
865 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
866
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
867 " Check handling a word longer than MAXWLEN.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
868 func Test_spell_long_word()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
869 set enc=utf-8
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
870 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
871 call setline(1, "d\xCC\xB4\xCC\xBD\xCD\x88\xCD\x94a\xCC\xB5\xCD\x84\xCD\x84\xCC\xA8\xCD\x9Cr\xCC\xB5\xCC\x8E\xCD\x85\xCD\x85k\xCC\xB6\xCC\x89\xCC\x9D \xCC\xB6\xCC\x83\xCC\x8F\xCC\xA4\xCD\x8Ef\xCC\xB7\xCC\x81\xCC\x80\xCC\xA9\xCC\xB0\xCC\xAC\xCC\xA2\xCD\x95\xCD\x87\xCD\x8D\xCC\x9E\xCD\x99\xCC\xAD\xCC\xAB\xCC\x97\xCC\xBBo\xCC\xB6\xCC\x84\xCC\x95\xCC\x8C\xCC\x8B\xCD\x9B\xCD\x9C\xCC\xAFr\xCC\xB7\xCC\x94\xCD\x83\xCD\x97\xCC\x8C\xCC\x82\xCD\x82\xCD\x80\xCD\x91\xCC\x80\xCC\xBE\xCC\x82\xCC\x8F\xCC\xA3\xCD\x85\xCC\xAE\xCD\x8D\xCD\x99\xCC\xBC\xCC\xAB\xCC\xA7\xCD\x88c\xCC\xB7\xCD\x83\xCC\x84\xCD\x92\xCC\x86\xCC\x83\xCC\x88\xCC\x92\xCC\x94\xCC\xBE\xCC\x9D\xCC\xAF\xCC\x98\xCC\x9D\xCC\xBB\xCD\x8E\xCC\xBB\xCC\xB3\xCC\xA3\xCD\x8E\xCD\x99\xCC\xA5\xCC\xAD\xCC\x99\xCC\xB9\xCC\xAE\xCC\xA5\xCC\x9E\xCD\x88\xCC\xAE\xCC\x9E\xCC\xA9\xCC\x97\xCC\xBC\xCC\x99\xCC\xA5\xCD\x87\xCC\x97\xCD\x8E\xCD\x94\xCC\x99\xCC\x9D\xCC\x96\xCD\x94\xCC\xAB\xCC\xA7\xCC\xA5\xCC\x98\xCC\xBB\xCC\xAF\xCC\xABe\xCC\xB7\xCC\x8E\xCC\x82\xCD\x86\xCD\x9B\xCC\x94\xCD\x83\xCC\x85\xCD\x8A\xCD\x8C\xCC\x8B\xCD\x92\xCD\x91\xCC\x8F\xCC\x81\xCD\x95\xCC\xA2\xCC\xB9\xCC\xB2\xCD\x9C\xCC\xB1\xCC\xA6\xCC\xB3\xCC\xAF\xCC\xAE\xCC\x9C\xCD\x99s\xCC\xB8\xCC\x8C\xCC\x8E\xCC\x87\xCD\x81\xCD\x82\xCC\x86\xCD\x8C\xCD\x8C\xCC\x8B\xCC\x84\xCC\x8C\xCD\x84\xCD\x9B\xCD\x86\xCC\x93\xCD\x90\xCC\x85\xCC\x94\xCD\x98\xCD\x84\xCD\x92\xCD\x8B\xCC\x90\xCC\x83\xCC\x8F\xCD\x84\xCD\x81\xCD\x9B\xCC\x90\xCD\x81\xCC\x8F\xCC\xBD\xCC\x88\xCC\xBF\xCC\x88\xCC\x84\xCC\x8E\xCD\x99\xCD\x94\xCC\x99\xCD\x99\xCC\xB0\xCC\xA8\xCC\xA3\xCC\xA8\xCC\x96\xCC\x99\xCC\xAE\xCC\xBC\xCC\x99\xCD\x9A\xCC\xB2\xCC\xB1\xCC\x9F\xCC\xBB\xCC\xA6\xCD\x85\xCC\xAA\xCD\x89\xCC\x9D\xCC\x99\xCD\x96\xCC\xB1\xCC\xB1\xCC\x99\xCC\xA6\xCC\xA5\xCD\x95\xCC\xB2\xCC\xA0\xCD\x99 within")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
872 set spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
873 redraw
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
874 redraw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
875 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
876 set nospell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
877 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
878
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
879 func Test_spellsuggest_too_deep()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
880 " This was incrementing "depth" over MAXWLEN.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
881 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
882 norm s000G00ý000000000000
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
883 sil norm ..vzG................vvzG0 v z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
884 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
885 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
886
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
887 func Test_spell_good_word_invalid()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
888 " This was adding a word with a 0x02 byte, which causes havoc.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
889 enew
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
890 norm o0
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
891 sil! norm rzzWs00/
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
892 2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
893 sil! norm VzGprzzW
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
894 sil! norm z=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
895
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
896 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
897 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
898
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
899 func Test_spell_good_word_slash()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
900 " This caused E1280.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
901 new
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
902 norm afoo /
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
903 1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
904 norm zG
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
905
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
906 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
907 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
908
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
909 func LoadAffAndDic(aff_contents, dic_contents)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
910 set enc=latin1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
911 set spellfile=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
912 call writefile(a:aff_contents, "Xtest.aff")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
913 call writefile(a:dic_contents, "Xtest.dic")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
914 " Generate a .spl file from a .dic and .aff file.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
915 mkspell! Xtest Xtest
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
916 " use that spell file
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
917 set spl=Xtest.latin1.spl spell
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
918 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
919
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
920 func ListWords()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
921 spelldump
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
922 %yank
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
923 quit
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
924 return split(@", "\n")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
925 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
926
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
927 func TestGoodBadBase()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
928 exe '1;/^good:'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
929 normal 0f:]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
930 let prevbad = ''
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
931 let result = []
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
932 while 1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
933 let [bad, a] = spellbadword()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
934 if bad == '' || bad == prevbad || bad == 'badend'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
935 break
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
936 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
937 let prevbad = bad
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
938 let lst = bad->spellsuggest(3)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
939 normal mm
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
940
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
941 call add(result, [bad, lst])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
942 normal `m]s
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
943 endwhile
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
944 return result
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
945 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
946
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
947 func RunGoodBad(good, bad, expected_words, expected_bad_words)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
948 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
949 call setline(1, ["good: ", a:good, a:bad, " badend "])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
950 let words = ListWords()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
951 call assert_equal(a:expected_words, words[1:-1])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
952 let bad_words = TestGoodBadBase()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
953 call assert_equal(a:expected_bad_words, bad_words)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
954 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
955 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
956
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
957 func Test_spell_screendump()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
958 CheckScreendump
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
959
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
960 let lines =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
961 call test_override('alloc_lines', 1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
962 call setline(1, [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
963 \ "This is some text without any spell errors. Everything",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
964 \ "should just be black, nothing wrong here.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
965 \ "",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
966 \ "This line has a sepll error. and missing caps.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
967 \ "And and this is the the duplication.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
968 \ "with missing caps here.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
969 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
970 set spell spelllang=en_nz
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
971 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
972 call writefile(lines, 'XtestSpell', 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
973 let buf = RunVimInTerminal('-S XtestSpell', {'rows': 8})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
974 call VerifyScreenDump(buf, 'Test_spell_1', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
975
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
976 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
977 call StopVimInTerminal(buf)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
978 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
979
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
980 func Test_spell_screendump_spellcap()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
981 CheckScreendump
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
982
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
983 let lines =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
984 call test_override('alloc_lines', 1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
985 call setline(1, [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
986 \ " This line has a sepll error. and missing caps and trailing spaces. ",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
987 \ "another missing cap here.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
988 \ "",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
989 \ "and here.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
990 \ " ",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
991 \ "and here."
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
992 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
993 set spell spelllang=en
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
994 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
995 call writefile(lines, 'XtestSpellCap', 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
996 let buf = RunVimInTerminal('-S XtestSpellCap', {'rows': 8})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
997 call VerifyScreenDump(buf, 'Test_spell_2', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
998
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
999 " After adding word missing Cap in next line is updated
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1000 call term_sendkeys(buf, "3GANot\<Esc>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1001 call VerifyScreenDump(buf, 'Test_spell_3', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1002
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1003 " Deleting a full stop removes missing Cap in next line
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1004 call term_sendkeys(buf, "5Gdd\<C-L>k$x")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1005 call VerifyScreenDump(buf, 'Test_spell_4', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1006
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1007 " Undo also updates the next line (go to command line to remove message)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1008 call term_sendkeys(buf, "u:\<Esc>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1009 call VerifyScreenDump(buf, 'Test_spell_5', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1010
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1011 " Folding an empty line does not remove Cap in next line
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1012 call term_sendkeys(buf, "uzfk:\<Esc>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1013 call VerifyScreenDump(buf, 'Test_spell_6', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1014
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1015 " Folding the end of a sentence does not remove Cap in next line
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1016 " and editing a line does not remove Cap in current line
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1017 call term_sendkeys(buf, "Jzfkk$x")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1018 call VerifyScreenDump(buf, 'Test_spell_7', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1019
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1020 " Cap is correctly applied in the first row of a window
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1021 call term_sendkeys(buf, "\<C-E>\<C-L>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1022 call VerifyScreenDump(buf, 'Test_spell_8', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1023
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1024 " Adding an empty line does not remove Cap in "mod_bot" area
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1025 call term_sendkeys(buf, "zbO\<Esc>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1026 call VerifyScreenDump(buf, 'Test_spell_9', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1027
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1028 " Multiple empty lines does not remove Cap in the line after
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1029 call term_sendkeys(buf, "O\<Esc>\<C-L>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1030 call VerifyScreenDump(buf, 'Test_spell_10', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1031
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1032 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1033 call StopVimInTerminal(buf)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1034 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1035
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1036 func Test_spell_compatible()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1037 CheckScreendump
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1038
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1039 let lines =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1040 call test_override('alloc_lines', 1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1041 call setline(1, [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1042 \ "test "->repeat(20),
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1043 \ "",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1044 \ "end",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1045 \ ])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1046 set spell cpo+=$
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1047 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1048 call writefile(lines, 'XtestSpellComp', 'D')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1049 let buf = RunVimInTerminal('-S XtestSpellComp', {'rows': 8})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1050
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1051 call term_sendkeys(buf, "51|C")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1052 call VerifyScreenDump(buf, 'Test_spell_compatible_1', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1053
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1054 call term_sendkeys(buf, "x")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1055 call VerifyScreenDump(buf, 'Test_spell_compatible_2', {})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1056
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1057 " clean up
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1058 call StopVimInTerminal(buf)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1059 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1060
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1061 let g:test_data_aff1 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1062 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1063 \"TRY esianrtolcdugmphbyfvkwjkqxz-\xEB\xE9\xE8\xEA\xEF\xEE\xE4\xE0\xE2\xF6\xFC\xFB'ESIANRTOLCDUGMPHBYFVKWJKQXZ",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1064 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1065 \"FOL \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1066 \"LOW \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1067 \"UPP \xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1068 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1069 \"SOFOFROM abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xBF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1070 \"SOFOTO ebctefghejklnnepkrstevvkesebctefghejklnnepkrstevvkeseeeeeeeceeeeeeeedneeeeeeeeeeepseeeeeeeeceeeeeeeedneeeeeeeeeeep?",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1071 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1072 \"MIDWORD\t'-",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1073 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1074 \"KEP =",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1075 \"RAR ?",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1076 \"BAD !",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1077 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1078 \"PFX I N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1079 \"PFX I 0 in .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1080 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1081 \"PFX O Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1082 \"PFX O 0 out .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1083 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1084 \"SFX S Y 2",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1085 \"SFX S 0 s [^s]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1086 \"SFX S 0 es s",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1087 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1088 \"SFX N N 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1089 \"SFX N 0 en [^n]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1090 \"SFX N 0 nen n",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1091 \"SFX N 0 n .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1092 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1093 \"REP 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1094 \"REP g ch",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1095 \"REP ch g",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1096 \"REP svp s.v.p.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1097 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1098 \"MAP 9",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1099 \"MAP a\xE0\xE1\xE2\xE3\xE4\xE5",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1100 \"MAP e\xE8\xE9\xEA\xEB",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1101 \"MAP i\xEC\xED\xEE\xEF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1102 \"MAP o\xF2\xF3\xF4\xF5\xF6",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1103 \"MAP u\xF9\xFA\xFB\xFC",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1104 \"MAP n\xF1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1105 \"MAP c\xE7",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1106 \"MAP y\xFF\xFD",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1107 \"MAP s\xDF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1108 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1109 let g:test_data_dic1 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1110 \"123456",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1111 \"test/NO",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1112 \"# comment",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1113 \"wrong",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1114 \"Comment",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1115 \"OK",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1116 \"uk",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1117 \"put/ISO",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1118 \"the end",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1119 \"deol",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1120 \"d\xE9\xF4r",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1121 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1122 let g:test_data_aff2 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1123 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1124 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1125 \"FOL \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1126 \"LOW \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1127 \"UPP \xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1128 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1129 \"PFXPOSTPONE",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1130 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1131 \"MIDWORD\t'-",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1132 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1133 \"KEP =",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1134 \"RAR ?",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1135 \"BAD !",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1136 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1137 \"PFX I N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1138 \"PFX I 0 in .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1139 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1140 \"PFX O Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1141 \"PFX O 0 out [a-z]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1142 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1143 \"SFX S Y 2",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1144 \"SFX S 0 s [^s]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1145 \"SFX S 0 es s",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1146 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1147 \"SFX N N 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1148 \"SFX N 0 en [^n]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1149 \"SFX N 0 nen n",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1150 \"SFX N 0 n .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1151 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1152 \"REP 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1153 \"REP g ch",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1154 \"REP ch g",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1155 \"REP svp s.v.p.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1156 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1157 \"MAP 9",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1158 \"MAP a\xE0\xE1\xE2\xE3\xE4\xE5",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1159 \"MAP e\xE8\xE9\xEA\xEB",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1160 \"MAP i\xEC\xED\xEE\xEF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1161 \"MAP o\xF2\xF3\xF4\xF5\xF6",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1162 \"MAP u\xF9\xFA\xFB\xFC",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1163 \"MAP n\xF1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1164 \"MAP c\xE7",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1165 \"MAP y\xFF\xFD",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1166 \"MAP s\xDF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1167 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1168 let g:test_data_aff3 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1169 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1170 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1171 \"COMPOUNDMIN 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1172 \"COMPOUNDRULE m*",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1173 \"NEEDCOMPOUND x",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1174 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1175 let g:test_data_dic3 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1176 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1177 \"foo/m",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1178 \"bar/mx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1179 \"m\xEF/m",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1180 \"la/mx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1181 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1182 let g:test_data_aff4 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1183 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1184 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1185 \"FOL \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1186 \"LOW \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1187 \"UPP \xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1188 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1189 \"COMPOUNDRULE m+",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1190 \"COMPOUNDRULE sm*e",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1191 \"COMPOUNDRULE sm+",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1192 \"COMPOUNDMIN 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1193 \"COMPOUNDWORDMAX 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1194 \"COMPOUNDFORBIDFLAG t",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1195 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1196 \"COMPOUNDSYLMAX 5",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1197 \"SYLLABLE a\xE1e\xE9i\xEDo\xF3\xF6\xF5u\xFA\xFC\xFBy/aa/au/ea/ee/ei/ie/oa/oe/oo/ou/uu/ui",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1198 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1199 \"MAP 9",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1200 \"MAP a\xE0\xE1\xE2\xE3\xE4\xE5",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1201 \"MAP e\xE8\xE9\xEA\xEB",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1202 \"MAP i\xEC\xED\xEE\xEF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1203 \"MAP o\xF2\xF3\xF4\xF5\xF6",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1204 \"MAP u\xF9\xFA\xFB\xFC",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1205 \"MAP n\xF1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1206 \"MAP c\xE7",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1207 \"MAP y\xFF\xFD",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1208 \"MAP s\xDF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1209 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1210 \"NEEDAFFIX x",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1211 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1212 \"PFXPOSTPONE",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1213 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1214 \"MIDWORD '-",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1215 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1216 \"SFX q N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1217 \"SFX q 0 -ok .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1218 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1219 \"SFX a Y 2",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1220 \"SFX a 0 s .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1221 \"SFX a 0 ize/t .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1222 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1223 \"PFX p N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1224 \"PFX p 0 pre .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1225 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1226 \"PFX P N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1227 \"PFX P 0 nou .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1228 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1229 let g:test_data_dic4 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1230 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1231 \"word/mP",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1232 \"util/am",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1233 \"pro/xq",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1234 \"tomato/m",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1235 \"bork/mp",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1236 \"start/s",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1237 \"end/e",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1238 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1239 let g:test_data_aff5 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1240 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1241 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1242 \"FLAG long",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1243 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1244 \"NEEDAFFIX !!",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1245 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1246 \"COMPOUNDRULE ssmm*ee",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1247 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1248 \"NEEDCOMPOUND xx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1249 \"COMPOUNDPERMITFLAG pp",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1250 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1251 \"SFX 13 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1252 \"SFX 13 0 bork .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1253 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1254 \"SFX a1 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1255 \"SFX a1 0 a1 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1256 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1257 \"SFX a\xE9 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1258 \"SFX a\xE9 0 a\xE9 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1259 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1260 \"PFX zz Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1261 \"PFX zz 0 pre/pp .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1262 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1263 \"PFX yy Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1264 \"PFX yy 0 nou .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1265 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1266 let g:test_data_dic5 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1267 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1268 \"foo/a1a\xE9!!",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1269 \"bar/zz13ee",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1270 \"start/ss",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1271 \"end/eeyy",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1272 \"middle/mmxx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1273 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1274 let g:test_data_aff6 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1275 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1276 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1277 \"FLAG caplong",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1278 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1279 \"NEEDAFFIX A!",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1280 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1281 \"COMPOUNDRULE sMm*Ee",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1282 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1283 \"NEEDCOMPOUND Xx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1284 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1285 \"COMPOUNDPERMITFLAG p",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1286 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1287 \"SFX N3 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1288 \"SFX N3 0 bork .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1289 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1290 \"SFX A1 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1291 \"SFX A1 0 a1 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1292 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1293 \"SFX A\xE9 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1294 \"SFX A\xE9 0 a\xE9 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1295 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1296 \"PFX Zz Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1297 \"PFX Zz 0 pre/p .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1298 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1299 let g:test_data_dic6 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1300 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1301 \"mee/A1A\xE9A!",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1302 \"bar/ZzN3Ee",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1303 \"lead/s",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1304 \"end/Ee",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1305 \"middle/MmXx",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1306 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1307 let g:test_data_aff7 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1308 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1309 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1310 \"FLAG num",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1311 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1312 \"NEEDAFFIX 9999",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1313 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1314 \"COMPOUNDRULE 2,77*123",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1315 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1316 \"NEEDCOMPOUND 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1317 \"COMPOUNDPERMITFLAG 432",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1318 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1319 \"SFX 61003 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1320 \"SFX 61003 0 meat .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1321 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1322 \"SFX 0 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1323 \"SFX 0 0 zero .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1324 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1325 \"SFX 391 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1326 \"SFX 391 0 a1 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1327 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1328 \"SFX 111 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1329 \"SFX 111 0 a\xE9 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1330 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1331 \"PFX 17 Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1332 \"PFX 17 0 pre/432 .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1333 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1334 let g:test_data_dic7 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1335 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1336 \"mee/0,391,111,9999",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1337 \"bar/17,61003,123",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1338 \"lead/2",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1339 \"tail/123",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1340 \"middle/77,1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1341 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1342 let g:test_data_aff8 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1343 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1344 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1345 \"NOSPLITSUGS",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1346 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1347 let g:test_data_dic8 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1348 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1349 \"foo",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1350 \"bar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1351 \"faabar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1352 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1353 let g:test_data_aff9 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1354 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1355 let g:test_data_dic9 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1356 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1357 \"foo",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1358 \"bar",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1359 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1360 let g:test_data_aff10 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1361 \"COMPOUNDRULE se",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1362 \"COMPOUNDPERMITFLAG p",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1363 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1364 \"SFX A Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1365 \"SFX A 0 able/Mp .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1366 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1367 \"SFX M Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1368 \"SFX M 0 s .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1369 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1370 let g:test_data_dic10 = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1371 \"1234",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1372 \"drink/As",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1373 \"table/e",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1374 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1375 let g:test_data_aff_sal = [
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1376 \"SET ISO8859-1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1377 \"TRY esianrtolcdugmphbyfvkwjkqxz-\xEB\xE9\xE8\xEA\xEF\xEE\xE4\xE0\xE2\xF6\xFC\xFB'ESIANRTOLCDUGMPHBYFVKWJKQXZ",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1378 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1379 \"FOL \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1380 \"LOW \xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1381 \"UPP \xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xFF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1382 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1383 \"MIDWORD\t'-",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1384 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1385 \"KEP =",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1386 \"RAR ?",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1387 \"BAD !",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1388 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1389 \"PFX I N 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1390 \"PFX I 0 in .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1391 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1392 \"PFX O Y 1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1393 \"PFX O 0 out .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1394 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1395 \"SFX S Y 2",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1396 \"SFX S 0 s [^s]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1397 \"SFX S 0 es s",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1398 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1399 \"SFX N N 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1400 \"SFX N 0 en [^n]",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1401 \"SFX N 0 nen n",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1402 \"SFX N 0 n .",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1403 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1404 \"REP 3",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1405 \"REP g ch",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1406 \"REP ch g",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1407 \"REP svp s.v.p.",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1408 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1409 \"MAP 9",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1410 \"MAP a\xE0\xE1\xE2\xE3\xE4\xE5",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1411 \"MAP e\xE8\xE9\xEA\xEB",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1412 \"MAP i\xEC\xED\xEE\xEF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1413 \"MAP o\xF2\xF3\xF4\xF5\xF6",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1414 \"MAP u\xF9\xFA\xFB\xFC",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1415 \"MAP n\xF1",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1416 \"MAP c\xE7",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1417 \"MAP y\xFF\xFD",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1418 \"MAP s\xDF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1419 \"",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1420 \"SAL AH(AEIOUY)-^ *H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1421 \"SAL AR(AEIOUY)-^ *R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1422 \"SAL A(HR)^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1423 \"SAL A^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1424 \"SAL AH(AEIOUY)- H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1425 \"SAL AR(AEIOUY)- R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1426 \"SAL A(HR) _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1427 \"SAL \xC0^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1428 \"SAL \xC5^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1429 \"SAL BB- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1430 \"SAL B B",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1431 \"SAL CQ- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1432 \"SAL CIA X",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1433 \"SAL CH X",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1434 \"SAL C(EIY)- S",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1435 \"SAL CK K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1436 \"SAL COUGH^ KF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1437 \"SAL CC< C",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1438 \"SAL C K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1439 \"SAL DG(EIY) K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1440 \"SAL DD- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1441 \"SAL D T",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1442 \"SAL \xC9< E",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1443 \"SAL EH(AEIOUY)-^ *H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1444 \"SAL ER(AEIOUY)-^ *R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1445 \"SAL E(HR)^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1446 \"SAL ENOUGH^$ *NF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1447 \"SAL E^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1448 \"SAL EH(AEIOUY)- H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1449 \"SAL ER(AEIOUY)- R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1450 \"SAL E(HR) _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1451 \"SAL FF- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1452 \"SAL F F",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1453 \"SAL GN^ N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1454 \"SAL GN$ N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1455 \"SAL GNS$ NS",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1456 \"SAL GNED$ N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1457 \"SAL GH(AEIOUY)- K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1458 \"SAL GH _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1459 \"SAL GG9 K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1460 \"SAL G K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1461 \"SAL H H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1462 \"SAL IH(AEIOUY)-^ *H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1463 \"SAL IR(AEIOUY)-^ *R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1464 \"SAL I(HR)^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1465 \"SAL I^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1466 \"SAL ING6 N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1467 \"SAL IH(AEIOUY)- H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1468 \"SAL IR(AEIOUY)- R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1469 \"SAL I(HR) _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1470 \"SAL J K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1471 \"SAL KN^ N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1472 \"SAL KK- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1473 \"SAL K K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1474 \"SAL LAUGH^ LF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1475 \"SAL LL- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1476 \"SAL L L",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1477 \"SAL MB$ M",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1478 \"SAL MM M",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1479 \"SAL M M",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1480 \"SAL NN- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1481 \"SAL N N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1482 \"SAL OH(AEIOUY)-^ *H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1483 \"SAL OR(AEIOUY)-^ *R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1484 \"SAL O(HR)^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1485 \"SAL O^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1486 \"SAL OH(AEIOUY)- H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1487 \"SAL OR(AEIOUY)- R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1488 \"SAL O(HR) _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1489 \"SAL PH F",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1490 \"SAL PN^ N",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1491 \"SAL PP- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1492 \"SAL P P",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1493 \"SAL Q K",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1494 \"SAL RH^ R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1495 \"SAL ROUGH^ RF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1496 \"SAL RR- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1497 \"SAL R R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1498 \"SAL SCH(EOU)- SK",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1499 \"SAL SC(IEY)- S",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1500 \"SAL SH X",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1501 \"SAL SI(AO)- X",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1502 \"SAL SS- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1503 \"SAL S S",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1504 \"SAL TI(AO)- X",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1505 \"SAL TH @",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1506 \"SAL TCH-- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1507 \"SAL TOUGH^ TF",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1508 \"SAL TT- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1509 \"SAL T T",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1510 \"SAL UH(AEIOUY)-^ *H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1511 \"SAL UR(AEIOUY)-^ *R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1512 \"SAL U(HR)^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1513 \"SAL U^ *",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1514 \"SAL UH(AEIOUY)- H",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1515 \"SAL UR(AEIOUY)- R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1516 \"SAL U(HR) _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1517 \"SAL V^ W",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1518 \"SAL V F",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1519 \"SAL WR^ R",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1520 \"SAL WH^ W",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1521 \"SAL W(AEIOU)- W",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1522 \"SAL X^ S",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1523 \"SAL X KS",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1524 \"SAL Y(AEIOU)- Y",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1525 \"SAL ZZ- _",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1526 \"SAL Z S",
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1527 \ ]
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1528
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32564
diff changeset
1529 " vim: shiftwidth=2 sts=2 expandtab