mirror of
https://github.com/neovim/neovim.git
synced 2024-12-21 03:35:02 -07:00
1004 lines
23 KiB
Lua
1004 lines
23 KiB
Lua
-- Tests for spell checking with 'encoding' set to "utf-8".
|
|
|
|
local helpers = require('test.functional.helpers')(after_each)
|
|
local feed, insert, source = helpers.feed, helpers.insert, helpers.source
|
|
local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
|
|
local write_file, call = helpers.write_file, helpers.call
|
|
|
|
if helpers.pending_win32(pending) then return end
|
|
|
|
local function write_latin1(name, text)
|
|
text = call('iconv', text, 'utf-8', 'latin-1')
|
|
write_file(name, text)
|
|
end
|
|
|
|
describe("spell checking with 'encoding' set to utf-8", function()
|
|
setup(function()
|
|
clear()
|
|
execute("syntax off")
|
|
write_latin1('Xtest1.aff',[[
|
|
SET ISO8859-1
|
|
TRY esianrtolcdugmphbyfvkwjkqxz-ëéèêïîäàâöüû'ESIANRTOLCDUGMPHBYFVKWJKQXZ
|
|
|
|
FOL àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
LOW àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
UPP ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßÿ
|
|
|
|
SOFOFROM abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞ¿
|
|
SOFOTO ebctefghejklnnepkrstevvkesebctefghejklnnepkrstevvkeseeeeeeeceeeeeeeedneeeeeeeeeeepseeeeeeeeceeeeeeeedneeeeeeeeeeep?
|
|
|
|
MIDWORD '-
|
|
|
|
KEP =
|
|
RAR ?
|
|
BAD !
|
|
|
|
PFX I N 1
|
|
PFX I 0 in .
|
|
|
|
PFX O Y 1
|
|
PFX O 0 out .
|
|
|
|
SFX S Y 2
|
|
SFX S 0 s [^s]
|
|
SFX S 0 es s
|
|
|
|
SFX N N 3
|
|
SFX N 0 en [^n]
|
|
SFX N 0 nen n
|
|
SFX N 0 n .
|
|
|
|
REP 3
|
|
REP g ch
|
|
REP ch g
|
|
REP svp s.v.p.
|
|
|
|
MAP 9
|
|
MAP aàáâãäå
|
|
MAP eèéêë
|
|
MAP iìíîï
|
|
MAP oòóôõö
|
|
MAP uùúûü
|
|
MAP nñ
|
|
MAP cç
|
|
MAP yÿý
|
|
MAP sß
|
|
]])
|
|
write_latin1('Xtest1.dic', [[
|
|
123456
|
|
test/NO
|
|
# comment
|
|
wrong
|
|
Comment
|
|
OK
|
|
uk
|
|
put/ISO
|
|
the end
|
|
deol
|
|
déôr
|
|
]])
|
|
write_latin1('Xtest2.aff', [[
|
|
SET ISO8859-1
|
|
|
|
FOL àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
LOW àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
UPP ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßÿ
|
|
|
|
PFXPOSTPONE
|
|
|
|
MIDWORD '-
|
|
|
|
KEP =
|
|
RAR ?
|
|
BAD !
|
|
|
|
PFX I N 1
|
|
PFX I 0 in .
|
|
|
|
PFX O Y 1
|
|
PFX O 0 out [a-z]
|
|
|
|
SFX S Y 2
|
|
SFX S 0 s [^s]
|
|
SFX S 0 es s
|
|
|
|
SFX N N 3
|
|
SFX N 0 en [^n]
|
|
SFX N 0 nen n
|
|
SFX N 0 n .
|
|
|
|
REP 3
|
|
REP g ch
|
|
REP ch g
|
|
REP svp s.v.p.
|
|
|
|
MAP 9
|
|
MAP aàáâãäå
|
|
MAP eèéêë
|
|
MAP iìíîï
|
|
MAP oòóôõö
|
|
MAP uùúûü
|
|
MAP nñ
|
|
MAP cç
|
|
MAP yÿý
|
|
MAP sß
|
|
]])
|
|
write_latin1('Xtest3.aff', [[
|
|
SET ISO8859-1
|
|
|
|
COMPOUNDMIN 3
|
|
COMPOUNDRULE m*
|
|
NEEDCOMPOUND x
|
|
]])
|
|
write_latin1('Xtest3.dic', [[
|
|
1234
|
|
foo/m
|
|
bar/mx
|
|
mï/m
|
|
la/mx
|
|
]])
|
|
write_latin1('Xtest4.aff', [[
|
|
SET ISO8859-1
|
|
|
|
FOL àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
LOW àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
UPP ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßÿ
|
|
|
|
COMPOUNDRULE m+
|
|
COMPOUNDRULE sm*e
|
|
COMPOUNDRULE sm+
|
|
COMPOUNDMIN 3
|
|
COMPOUNDWORDMAX 3
|
|
COMPOUNDFORBIDFLAG t
|
|
|
|
COMPOUNDSYLMAX 5
|
|
SYLLABLE aáeéiíoóöõuúüûy/aa/au/ea/ee/ei/ie/oa/oe/oo/ou/uu/ui
|
|
|
|
MAP 9
|
|
MAP aàáâãäå
|
|
MAP eèéêë
|
|
MAP iìíîï
|
|
MAP oòóôõö
|
|
MAP uùúûü
|
|
MAP nñ
|
|
MAP cç
|
|
MAP yÿý
|
|
MAP sß
|
|
|
|
NEEDAFFIX x
|
|
|
|
PFXPOSTPONE
|
|
|
|
MIDWORD '-
|
|
|
|
SFX q N 1
|
|
SFX q 0 -ok .
|
|
|
|
SFX a Y 2
|
|
SFX a 0 s .
|
|
SFX a 0 ize/t .
|
|
|
|
PFX p N 1
|
|
PFX p 0 pre .
|
|
|
|
PFX P N 1
|
|
PFX P 0 nou .
|
|
]])
|
|
write_latin1('Xtest4.dic', [[
|
|
1234
|
|
word/mP
|
|
util/am
|
|
pro/xq
|
|
tomato/m
|
|
bork/mp
|
|
start/s
|
|
end/e
|
|
]])
|
|
write_latin1('Xtest5.aff', [[
|
|
SET ISO8859-1
|
|
|
|
FLAG long
|
|
|
|
NEEDAFFIX !!
|
|
|
|
COMPOUNDRULE ssmm*ee
|
|
|
|
NEEDCOMPOUND xx
|
|
COMPOUNDPERMITFLAG pp
|
|
|
|
SFX 13 Y 1
|
|
SFX 13 0 bork .
|
|
|
|
SFX a1 Y 1
|
|
SFX a1 0 a1 .
|
|
|
|
SFX aé Y 1
|
|
SFX aé 0 aé .
|
|
|
|
PFX zz Y 1
|
|
PFX zz 0 pre/pp .
|
|
|
|
PFX yy Y 1
|
|
PFX yy 0 nou .
|
|
]])
|
|
write_latin1('Xtest5.dic', [[
|
|
1234
|
|
foo/a1aé!!
|
|
bar/zz13ee
|
|
start/ss
|
|
end/eeyy
|
|
middle/mmxx
|
|
]])
|
|
write_latin1('Xtest6.aff', [[
|
|
SET ISO8859-1
|
|
|
|
FLAG caplong
|
|
|
|
NEEDAFFIX A!
|
|
|
|
COMPOUNDRULE sMm*Ee
|
|
|
|
NEEDCOMPOUND Xx
|
|
|
|
COMPOUNDPERMITFLAG p
|
|
|
|
SFX N3 Y 1
|
|
SFX N3 0 bork .
|
|
|
|
SFX A1 Y 1
|
|
SFX A1 0 a1 .
|
|
|
|
SFX Aé Y 1
|
|
SFX Aé 0 aé .
|
|
|
|
PFX Zz Y 1
|
|
PFX Zz 0 pre/p .
|
|
]])
|
|
write_latin1('Xtest6.dic', [[
|
|
1234
|
|
mee/A1AéA!
|
|
bar/ZzN3Ee
|
|
lead/s
|
|
end/Ee
|
|
middle/MmXx
|
|
]])
|
|
write_latin1('Xtest7.aff', [[
|
|
SET ISO8859-1
|
|
|
|
FOL àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
LOW àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
UPP ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßÿ
|
|
|
|
FLAG num
|
|
|
|
NEEDAFFIX 9999
|
|
|
|
COMPOUNDRULE 2,77*123
|
|
|
|
NEEDCOMPOUND 1
|
|
COMPOUNDPERMITFLAG 432
|
|
|
|
SFX 61003 Y 1
|
|
SFX 61003 0 meat .
|
|
|
|
SFX 391 Y 1
|
|
SFX 391 0 a1 .
|
|
|
|
SFX 111 Y 1
|
|
SFX 111 0 aé .
|
|
|
|
PFX 17 Y 1
|
|
PFX 17 0 pre/432 .
|
|
]])
|
|
write_latin1('Xtest7.dic', [[
|
|
1234
|
|
mee/391,111,9999
|
|
bar/17,61003,123
|
|
lead/2
|
|
tail/123
|
|
middle/77,1
|
|
]])
|
|
write_latin1('Xtest8.aff', [[
|
|
SET ISO8859-1
|
|
|
|
NOSPLITSUGS
|
|
]])
|
|
write_latin1('Xtest8.dic', [[
|
|
1234
|
|
foo
|
|
bar
|
|
faabar
|
|
]])
|
|
write_latin1('Xtest9.aff', [[
|
|
]])
|
|
write_latin1('Xtest9.dic', [[
|
|
1234
|
|
foo
|
|
bar
|
|
]])
|
|
write_latin1('Xtest-sal.aff', [[
|
|
SET ISO8859-1
|
|
TRY esianrtolcdugmphbyfvkwjkqxz-ëéèêïîäàâöüû'ESIANRTOLCDUGMPHBYFVKWJKQXZ
|
|
|
|
FOL àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
LOW àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþßÿ
|
|
UPP ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßÿ
|
|
|
|
MIDWORD '-
|
|
|
|
KEP =
|
|
RAR ?
|
|
BAD !
|
|
|
|
PFX I N 1
|
|
PFX I 0 in .
|
|
|
|
PFX O Y 1
|
|
PFX O 0 out .
|
|
|
|
SFX S Y 2
|
|
SFX S 0 s [^s]
|
|
SFX S 0 es s
|
|
|
|
SFX N N 3
|
|
SFX N 0 en [^n]
|
|
SFX N 0 nen n
|
|
SFX N 0 n .
|
|
|
|
REP 3
|
|
REP g ch
|
|
REP ch g
|
|
REP svp s.v.p.
|
|
|
|
MAP 9
|
|
MAP aàáâãäå
|
|
MAP eèéêë
|
|
MAP iìíîï
|
|
MAP oòóôõö
|
|
MAP uùúûü
|
|
MAP nñ
|
|
MAP cç
|
|
MAP yÿý
|
|
MAP sß
|
|
|
|
SAL AH(AEIOUY)-^ *H
|
|
SAL AR(AEIOUY)-^ *R
|
|
SAL A(HR)^ *
|
|
SAL A^ *
|
|
SAL AH(AEIOUY)- H
|
|
SAL AR(AEIOUY)- R
|
|
SAL A(HR) _
|
|
SAL À^ *
|
|
SAL Å^ *
|
|
SAL BB- _
|
|
SAL B B
|
|
SAL CQ- _
|
|
SAL CIA X
|
|
SAL CH X
|
|
SAL C(EIY)- S
|
|
SAL CK K
|
|
SAL COUGH^ KF
|
|
SAL CC< C
|
|
SAL C K
|
|
SAL DG(EIY) K
|
|
SAL DD- _
|
|
SAL D T
|
|
SAL É< E
|
|
SAL EH(AEIOUY)-^ *H
|
|
SAL ER(AEIOUY)-^ *R
|
|
SAL E(HR)^ *
|
|
SAL ENOUGH^$ *NF
|
|
SAL E^ *
|
|
SAL EH(AEIOUY)- H
|
|
SAL ER(AEIOUY)- R
|
|
SAL E(HR) _
|
|
SAL FF- _
|
|
SAL F F
|
|
SAL GN^ N
|
|
SAL GN$ N
|
|
SAL GNS$ NS
|
|
SAL GNED$ N
|
|
SAL GH(AEIOUY)- K
|
|
SAL GH _
|
|
SAL GG9 K
|
|
SAL G K
|
|
SAL H H
|
|
SAL IH(AEIOUY)-^ *H
|
|
SAL IR(AEIOUY)-^ *R
|
|
SAL I(HR)^ *
|
|
SAL I^ *
|
|
SAL ING6 N
|
|
SAL IH(AEIOUY)- H
|
|
SAL IR(AEIOUY)- R
|
|
SAL I(HR) _
|
|
SAL J K
|
|
SAL KN^ N
|
|
SAL KK- _
|
|
SAL K K
|
|
SAL LAUGH^ LF
|
|
SAL LL- _
|
|
SAL L L
|
|
SAL MB$ M
|
|
SAL MM M
|
|
SAL M M
|
|
SAL NN- _
|
|
SAL N N
|
|
SAL OH(AEIOUY)-^ *H
|
|
SAL OR(AEIOUY)-^ *R
|
|
SAL O(HR)^ *
|
|
SAL O^ *
|
|
SAL OH(AEIOUY)- H
|
|
SAL OR(AEIOUY)- R
|
|
SAL O(HR) _
|
|
SAL PH F
|
|
SAL PN^ N
|
|
SAL PP- _
|
|
SAL P P
|
|
SAL Q K
|
|
SAL RH^ R
|
|
SAL ROUGH^ RF
|
|
SAL RR- _
|
|
SAL R R
|
|
SAL SCH(EOU)- SK
|
|
SAL SC(IEY)- S
|
|
SAL SH X
|
|
SAL SI(AO)- X
|
|
SAL SS- _
|
|
SAL S S
|
|
SAL TI(AO)- X
|
|
SAL TH @
|
|
SAL TCH-- _
|
|
SAL TOUGH^ TF
|
|
SAL TT- _
|
|
SAL T T
|
|
SAL UH(AEIOUY)-^ *H
|
|
SAL UR(AEIOUY)-^ *R
|
|
SAL U(HR)^ *
|
|
SAL U^ *
|
|
SAL UH(AEIOUY)- H
|
|
SAL UR(AEIOUY)- R
|
|
SAL U(HR) _
|
|
SAL V^ W
|
|
SAL V F
|
|
SAL WR^ R
|
|
SAL WH^ W
|
|
SAL W(AEIOU)- W
|
|
SAL X^ S
|
|
SAL X KS
|
|
SAL Y(AEIOU)- Y
|
|
SAL ZZ- _
|
|
SAL Z S
|
|
]])
|
|
write_file('Xtest.utf-8.add', [[
|
|
/regions=usgbnz
|
|
elequint/2
|
|
elekwint/3
|
|
]])
|
|
end)
|
|
|
|
teardown(function()
|
|
os.remove('Xtest-sal.aff')
|
|
os.remove('Xtest.aff')
|
|
os.remove('Xtest.dic')
|
|
os.remove('Xtest.utf-8.add')
|
|
os.remove('Xtest.utf-8.add.spl')
|
|
os.remove('Xtest.utf-8.spl')
|
|
os.remove('Xtest.utf-8.sug')
|
|
os.remove('Xtest1.aff')
|
|
os.remove('Xtest1.dic')
|
|
os.remove('Xtest2.aff')
|
|
os.remove('Xtest3.aff')
|
|
os.remove('Xtest3.dic')
|
|
os.remove('Xtest4.aff')
|
|
os.remove('Xtest4.dic')
|
|
os.remove('Xtest5.aff')
|
|
os.remove('Xtest5.dic')
|
|
os.remove('Xtest6.aff')
|
|
os.remove('Xtest6.dic')
|
|
os.remove('Xtest7.aff')
|
|
os.remove('Xtest7.dic')
|
|
os.remove('Xtest8.aff')
|
|
os.remove('Xtest8.dic')
|
|
os.remove('Xtest9.aff')
|
|
os.remove('Xtest9.dic')
|
|
end)
|
|
|
|
-- Function to test .aff/.dic with list of good and bad words. This was a
|
|
-- Vim function in the original legacy test.
|
|
local function test_one(aff, dic)
|
|
-- Generate a .spl file from a .dic and .aff file.
|
|
os.execute('cp -f Xtest'..aff..'.aff Xtest.aff')
|
|
os.execute('cp -f Xtest'..dic..'.dic Xtest.dic')
|
|
source([[
|
|
set spellfile=
|
|
function! SpellDumpNoShow()
|
|
" spelling scores depend on what happens to be drawn on screen
|
|
spelldump
|
|
%yank
|
|
quit
|
|
endfunction
|
|
$put =''
|
|
$put ='test ]]..aff..'-'..dic..[['
|
|
mkspell! Xtest Xtest
|
|
" Use that spell file.
|
|
set spl=Xtest.utf-8.spl spell
|
|
" List all valid words.
|
|
call SpellDumpNoShow()
|
|
$put
|
|
$put ='-------'
|
|
" Find all bad words and suggestions for them.
|
|
1;/^]]..aff..[[good:
|
|
normal 0f:]s
|
|
let prevbad = ''
|
|
while 1
|
|
let [bad, a] = spellbadword()
|
|
if bad == '' || bad == prevbad || bad == 'badend'
|
|
break
|
|
endif
|
|
let prevbad = bad
|
|
let lst = spellsuggest(bad, 3)
|
|
normal mm
|
|
$put =bad
|
|
$put =string(lst)
|
|
normal `m]s
|
|
endwhile
|
|
]])
|
|
end
|
|
|
|
it('part 1-1', function()
|
|
insert([[
|
|
1good: wrong OK puts. Test the end
|
|
bad: inputs comment ok Ok. test déôl end the
|
|
badend
|
|
|
|
test2:
|
|
elequint test elekwint test elekwent asdf
|
|
]])
|
|
test_one(1, 1)
|
|
execute([[$put =soundfold('goobledygoook')]])
|
|
execute([[$put =soundfold('kóopërÿnôven')]])
|
|
execute([[$put =soundfold('oeverloos gezwets edale')]])
|
|
-- And now with SAL instead of SOFO items; test automatic reloading.
|
|
os.execute('cp -f Xtest-sal.aff Xtest.aff')
|
|
execute('mkspell! Xtest Xtest')
|
|
execute([[$put =soundfold('goobledygoook')]])
|
|
execute([[$put =soundfold('kóopërÿnôven')]])
|
|
execute([[$put =soundfold('oeverloos gezwets edale')]])
|
|
-- Also use an addition file.
|
|
execute('mkspell! Xtest.utf-8.add.spl Xtest.utf-8.add')
|
|
execute('set spellfile=Xtest.utf-8.add')
|
|
execute('/^test2:')
|
|
feed(']s')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
execute('set spl=Xtest_us.utf-8.spl')
|
|
execute('/^test2:')
|
|
feed(']smm')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
feed('`m]s')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
execute('set spl=Xtest_gb.utf-8.spl')
|
|
execute('/^test2:')
|
|
feed(']smm')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
feed('`m]s')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
execute('set spl=Xtest_nz.utf-8.spl')
|
|
execute('/^test2:')
|
|
feed(']smm')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
feed('`m]s')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
execute('set spl=Xtest_ca.utf-8.spl')
|
|
execute('/^test2:')
|
|
feed(']smm')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
feed('`m]s')
|
|
execute('let [str, a] = spellbadword()')
|
|
execute('$put =str')
|
|
execute('1,/^test 1-1/-1d')
|
|
expect([[
|
|
test 1-1
|
|
# file: Xtest.utf-8.spl
|
|
Comment
|
|
deol
|
|
déôr
|
|
input
|
|
OK
|
|
output
|
|
outputs
|
|
outtest
|
|
put
|
|
puts
|
|
test
|
|
testen
|
|
testn
|
|
the end
|
|
uk
|
|
wrong
|
|
-------
|
|
bad
|
|
['put', 'uk', 'OK']
|
|
inputs
|
|
['input', 'puts', 'outputs']
|
|
comment
|
|
['Comment', 'outtest', 'the end']
|
|
ok
|
|
['OK', 'uk', 'put']
|
|
Ok
|
|
['OK', 'Uk', 'Put']
|
|
test
|
|
['Test', 'testn', 'testen']
|
|
déôl
|
|
['deol', 'déôr', 'test']
|
|
end
|
|
['put', 'uk', 'test']
|
|
the
|
|
['put', 'uk', 'test']
|
|
gebletegek
|
|
kepereneven
|
|
everles gesvets etele
|
|
kbltykk
|
|
kprnfn
|
|
*fls kswts tl
|
|
elekwent
|
|
elequint
|
|
elekwint
|
|
elekwint
|
|
elekwent
|
|
elequint
|
|
elekwent
|
|
elequint
|
|
elekwint]])
|
|
end)
|
|
|
|
it('part 2-1', function()
|
|
insert([[
|
|
2good: puts
|
|
bad: inputs comment ok Ok end the. test déôl
|
|
badend
|
|
]])
|
|
-- Postponed prefixes.
|
|
test_one(2, 1)
|
|
execute('1,/^test 2-1/-1d')
|
|
expect([=[
|
|
test 2-1
|
|
# file: Xtest.utf-8.spl
|
|
Comment
|
|
deol
|
|
déôr
|
|
OK
|
|
put
|
|
input
|
|
output
|
|
puts
|
|
outputs
|
|
test
|
|
outtest
|
|
testen
|
|
testn
|
|
the end
|
|
uk
|
|
wrong
|
|
-------
|
|
bad
|
|
['put', 'uk', 'OK']
|
|
inputs
|
|
['input', 'puts', 'outputs']
|
|
comment
|
|
['Comment']
|
|
ok
|
|
['OK', 'uk', 'put']
|
|
Ok
|
|
['OK', 'Uk', 'Put']
|
|
end
|
|
['put', 'uk', 'deol']
|
|
the
|
|
['put', 'uk', 'test']
|
|
test
|
|
['Test', 'testn', 'testen']
|
|
déôl
|
|
['deol', 'déôr', 'test']]=])
|
|
end)
|
|
|
|
it('part 3-3', function()
|
|
insert([[
|
|
Test rules for compounding.
|
|
|
|
3good: foo mï foobar foofoobar barfoo barbarfoo
|
|
bad: bar la foomï barmï mïfoo mïbar mïmï lala mïla lamï foola labar
|
|
badend
|
|
]])
|
|
test_one(3, 3)
|
|
execute('1,/^test 3-3/-1d')
|
|
expect([=[
|
|
test 3-3
|
|
# file: Xtest.utf-8.spl
|
|
foo
|
|
mï
|
|
-------
|
|
bad
|
|
['foo', 'mï']
|
|
bar
|
|
['barfoo', 'foobar', 'foo']
|
|
la
|
|
['mï', 'foo']
|
|
foomï
|
|
['foo mï', 'foo', 'foofoo']
|
|
barmï
|
|
['barfoo', 'mï', 'barbar']
|
|
mïfoo
|
|
['mï foo', 'foo', 'foofoo']
|
|
mïbar
|
|
['foobar', 'barbar', 'mï']
|
|
mïmï
|
|
['mï mï', 'mï']
|
|
lala
|
|
[]
|
|
mïla
|
|
['mï', 'mï mï']
|
|
lamï
|
|
['mï', 'mï mï']
|
|
foola
|
|
['foo', 'foobar', 'foofoo']
|
|
labar
|
|
['barbar', 'foobar']]=])
|
|
end)
|
|
|
|
it('part 4-4', function()
|
|
insert([[
|
|
Tests for compounding.
|
|
|
|
4good: 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
|
|
bad: wordutilize pro borkborkborkborkborkbork tomatotomatotomato
|
|
endstart endend startstart wordend wordstart
|
|
preborkprebork preborkpreborkbork
|
|
startwordwordwordwordend borkpreborkpreborkbork
|
|
utilsbork startnouword
|
|
badend
|
|
]])
|
|
test_one(4, 4)
|
|
execute('1,/^test 4-4/-1d')
|
|
expect([=[
|
|
test 4-4
|
|
# file: Xtest.utf-8.spl
|
|
bork
|
|
prebork
|
|
end
|
|
pro-ok
|
|
start
|
|
tomato
|
|
util
|
|
utilize
|
|
utils
|
|
word
|
|
nouword
|
|
-------
|
|
bad
|
|
['end', 'bork', 'word']
|
|
wordutilize
|
|
['word utilize', 'wordutils', 'wordutil']
|
|
pro
|
|
['bork', 'word', 'end']
|
|
borkborkborkborkborkbork
|
|
['bork borkborkborkborkbork', 'borkbork borkborkborkbork', 'borkborkbork borkborkbork']
|
|
tomatotomatotomato
|
|
['tomato tomatotomato', 'tomatotomato tomato', 'tomato tomato tomato']
|
|
endstart
|
|
['end start', 'start']
|
|
endend
|
|
['end end', 'end']
|
|
startstart
|
|
['start start']
|
|
wordend
|
|
['word end', 'word', 'wordword']
|
|
wordstart
|
|
['word start', 'bork start']
|
|
preborkprebork
|
|
['prebork prebork', 'preborkbork', 'preborkborkbork']
|
|
preborkpreborkbork
|
|
['prebork preborkbork', 'preborkborkbork', 'preborkborkborkbork']
|
|
startwordwordwordwordend
|
|
['startwordwordwordword end', 'startwordwordwordword', 'start wordwordwordword end']
|
|
borkpreborkpreborkbork
|
|
['bork preborkpreborkbork', 'bork prebork preborkbork', 'bork preborkprebork bork']
|
|
utilsbork
|
|
['utilbork', 'utils bork', 'util bork']
|
|
startnouword
|
|
['start nouword', 'startword', 'startborkword']]=])
|
|
end)
|
|
|
|
it('part 5-5', function()
|
|
insert([[
|
|
Test affix flags with two characters
|
|
|
|
5good: fooa1 fooaé bar prebar barbork prebarbork startprebar
|
|
start end startend startmiddleend nouend
|
|
bad: foo fooa2 prabar probarbirk middle startmiddle middleend endstart
|
|
startprobar startnouend
|
|
badend
|
|
]])
|
|
test_one(5, 5)
|
|
execute('1,/^test 5-5/-1d')
|
|
expect([=[
|
|
test 5-5
|
|
# file: Xtest.utf-8.spl
|
|
bar
|
|
barbork
|
|
end
|
|
fooa1
|
|
fooaé
|
|
nouend
|
|
prebar
|
|
prebarbork
|
|
start
|
|
-------
|
|
bad
|
|
['bar', 'end', 'fooa1']
|
|
foo
|
|
['fooa1', 'fooaé', 'bar']
|
|
fooa2
|
|
['fooa1', 'fooaé', 'bar']
|
|
prabar
|
|
['prebar', 'bar', 'bar bar']
|
|
probarbirk
|
|
['prebarbork']
|
|
middle
|
|
[]
|
|
startmiddle
|
|
['startmiddleend', 'startmiddlebar']
|
|
middleend
|
|
[]
|
|
endstart
|
|
['end start', 'start']
|
|
startprobar
|
|
['startprebar', 'start prebar', 'startbar']
|
|
startnouend
|
|
['start nouend', 'startend']]=])
|
|
end)
|
|
|
|
it('part 6-6', function()
|
|
insert([[
|
|
6good: meea1 meeaé bar prebar barbork prebarbork leadprebar
|
|
lead end leadend leadmiddleend
|
|
bad: mee meea2 prabar probarbirk middle leadmiddle middleend endlead
|
|
leadprobar
|
|
badend
|
|
]])
|
|
test_one(6, 6)
|
|
execute('1,/^test 6-6/-1d')
|
|
expect([=[
|
|
test 6-6
|
|
# file: Xtest.utf-8.spl
|
|
bar
|
|
barbork
|
|
end
|
|
lead
|
|
meea1
|
|
meeaé
|
|
prebar
|
|
prebarbork
|
|
-------
|
|
bad
|
|
['bar', 'end', 'lead']
|
|
mee
|
|
['meea1', 'meeaé', 'bar']
|
|
meea2
|
|
['meea1', 'meeaé', 'lead']
|
|
prabar
|
|
['prebar', 'bar', 'leadbar']
|
|
probarbirk
|
|
['prebarbork']
|
|
middle
|
|
[]
|
|
leadmiddle
|
|
['leadmiddleend', 'leadmiddlebar']
|
|
middleend
|
|
[]
|
|
endlead
|
|
['end lead', 'lead', 'end end']
|
|
leadprobar
|
|
['leadprebar', 'lead prebar', 'leadbar']]=])
|
|
end)
|
|
|
|
it('part 7-7', function()
|
|
insert([[
|
|
7good: meea1 meeaé bar prebar barmeat prebarmeat leadprebar
|
|
lead tail leadtail leadmiddletail
|
|
bad: mee meea2 prabar probarmaat middle leadmiddle middletail taillead
|
|
leadprobar
|
|
badend
|
|
]])
|
|
-- Compound words.
|
|
test_one(7, 7)
|
|
-- Assert buffer contents.
|
|
execute('1,/^test 7-7/-1d')
|
|
expect([=[
|
|
test 7-7
|
|
# file: Xtest.utf-8.spl
|
|
bar
|
|
barmeat
|
|
lead
|
|
meea1
|
|
meeaé
|
|
prebar
|
|
prebarmeat
|
|
tail
|
|
-------
|
|
bad
|
|
['bar', 'lead', 'tail']
|
|
mee
|
|
['meea1', 'meeaé', 'bar']
|
|
meea2
|
|
['meea1', 'meeaé', 'lead']
|
|
prabar
|
|
['prebar', 'bar', 'leadbar']
|
|
probarmaat
|
|
['prebarmeat']
|
|
middle
|
|
[]
|
|
leadmiddle
|
|
['leadmiddlebar']
|
|
middletail
|
|
[]
|
|
taillead
|
|
['tail lead', 'tail']
|
|
leadprobar
|
|
['leadprebar', 'lead prebar', 'leadbar']]=])
|
|
end)
|
|
|
|
it('part 8-8', function()
|
|
insert([[
|
|
8good: foo bar faabar
|
|
bad: foobar barfoo
|
|
badend
|
|
]])
|
|
-- NOSPLITSUGS
|
|
test_one(8, 8)
|
|
-- Assert buffer contents.
|
|
execute('1,/^test 8-8/-1d')
|
|
expect([=[
|
|
test 8-8
|
|
# file: Xtest.utf-8.spl
|
|
bar
|
|
faabar
|
|
foo
|
|
-------
|
|
bad
|
|
['bar', 'foo']
|
|
foobar
|
|
['faabar', 'foo bar', 'bar']
|
|
barfoo
|
|
['bar foo', 'bar', 'foo']]=])
|
|
end)
|
|
|
|
it('part 9-9', function()
|
|
insert([[
|
|
9good: 0b1011 0777 1234 0x01ff
|
|
badend
|
|
]])
|
|
-- NOSPLITSUGS
|
|
test_one(9, 9)
|
|
-- Assert buffer contents.
|
|
execute('1,/^test 9-9/-1d')
|
|
expect([=[
|
|
test 9-9
|
|
# file: Xtest.utf-8.spl
|
|
bar
|
|
foo
|
|
-------]=])
|
|
end)
|
|
end)
|