1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112 |
- " Test for insert completion
- source screendump.vim
- source check.vim
- source vim9.vim
- " Test for insert expansion
- func Test_ins_complete()
- edit test_ins_complete.vim
- " The files in the current directory interferes with the files
- " used by this test. So use a separate directory for the test.
- call mkdir('Xdir')
- cd Xdir
- set ff=unix
- call writefile(["test11\t36Gepeto\t/Tag/",
- \ "asd\ttest11file\t36G",
- \ "Makefile\tto\trun"], 'Xtestfile')
- call writefile(['', 'start of testfile',
- \ 'ru',
- \ 'run1',
- \ 'run2',
- \ 'STARTTEST',
- \ 'ENDTEST',
- \ 'end of testfile'], 'Xtestdata')
- set ff&
- enew!
- edit Xtestdata
- new
- call append(0, ['#include "Xtestfile"', ''])
- call cursor(2, 1)
- set cot=
- set cpt=.,w
- " add-expands (word from next line) from other window
- exe "normal iru\<C-N>\<C-N>\<C-X>\<C-N>\<Esc>\<C-A>"
- call assert_equal('run1 run3', getline('.'))
- " add-expands (current buffer first)
- exe "normal o\<C-P>\<C-X>\<C-N>"
- call assert_equal('run3 run3', getline('.'))
- " Local expansion, ends in an empty line (unless it becomes a global
- " expansion)
- exe "normal o\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>"
- call assert_equal('', getline('.'))
- " starts Local and switches to global add-expansion
- exe "normal o\<C-X>\<C-P>\<C-P>\<C-X>\<C-X>\<C-N>\<C-X>\<C-N>\<C-N>"
- call assert_equal('run1 run2', getline('.'))
- set cpt=.,\ ,w,i
- " i-add-expands and switches to local
- exe "normal OM\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-X>\<C-X>\<C-P>"
- call assert_equal("Makefile\tto\trun3", getline('.'))
- " add-expands lines (it would end in an empty line if it didn't ignore
- " itself)
- exe "normal o\<C-X>\<C-L>\<C-X>\<C-L>\<C-P>\<C-P>"
- call assert_equal("Makefile\tto\trun3", getline('.'))
- call assert_equal("Makefile\tto\trun3", getline(line('.') - 1))
- set cpt=kXtestfile
- " checks k-expansion, and file expansion (use Xtest11 instead of test11,
- " because TEST11.OUT may match first on DOS)
- write Xtest11.one
- write Xtest11.two
- exe "normal o\<C-N>\<Esc>IX\<Esc>A\<C-X>\<C-F>\<C-N>"
- call assert_equal('Xtest11.two', getline('.'))
- " use CTRL-X CTRL-F to complete Xtest11.one, remove it and then use CTRL-X
- " CTRL-F again to verify this doesn't cause trouble.
- exe "normal oXt\<C-X>\<C-F>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<BS>\<C-X>\<C-F>"
- call assert_equal('Xtest11.one', getline('.'))
- normal ddk
- " Test for expanding a non-existing filename
- exe "normal oa1b2X3Y4\<C-X>\<C-F>"
- call assert_equal('a1b2X3Y4', getline('.'))
- normal ddk
- set cpt=w
- " checks make_cyclic in other window
- exe "normal oST\<C-N>\<C-P>\<C-P>\<C-P>\<C-P>"
- call assert_equal('STARTTEST', getline('.'))
- set cpt=u nohid
- " checks unloaded buffer expansion
- only
- exe "normal oEN\<C-N>"
- call assert_equal('ENDTEST', getline('.'))
- " checks adding mode abortion
- exe "normal ounl\<C-N>\<C-X>\<C-X>\<C-P>"
- call assert_equal('unless', getline('.'))
- set cpt=t,d def=^\\k* tags=Xtestfile notagbsearch
- " tag expansion, define add-expansion interrupted
- exe "normal o\<C-X>\<C-]>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-D>\<C-X>\<C-D>"
- call assert_equal('test11file 36Gepeto /Tag/ asd', getline('.'))
- " t-expansion
- exe "normal oa\<C-N>\<Esc>"
- call assert_equal('asd', getline('.'))
- %bw!
- call delete('Xtestfile')
- call delete('Xtest11.one')
- call delete('Xtest11.two')
- call delete('Xtestdata')
- set cpt& cot& def& tags& tagbsearch& hidden&
- cd ..
- call delete('Xdir', 'rf')
- endfunc
- func Test_ins_complete_invalid_byte()
- if has('unix') && executable('base64')
- " this weird command was causing an illegal memory access
- call writefile(['bm9ybTlvMDCAMM4Dbw4OGA4ODg=='], 'Xinvalid64')
- call system('base64 -d Xinvalid64 > Xinvalid')
- call writefile(['qa!'], 'Xexit')
- call RunVim([], [], " -i NONE -n -X -Z -e -m -s -S Xinvalid -S Xexit")
- call delete('Xinvalid64')
- call delete('Xinvalid')
- call delete('Xexit')
- endif
- endfunc
- func Test_omni_dash()
- func Omni(findstart, base)
- if a:findstart
- return 5
- else
- echom a:base
- return ['-help', '-v']
- endif
- endfunc
- set omnifunc=Omni
- new
- exe "normal Gofind -\<C-x>\<C-o>"
- call assert_equal("find -help", getline('$'))
- bwipe!
- delfunc Omni
- set omnifunc=
- endfunc
- func Test_omni_throw()
- let g:CallCount = 0
- func Omni(findstart, base)
- let g:CallCount += 1
- if a:findstart
- throw "he he he"
- endif
- endfunc
- set omnifunc=Omni
- new
- try
- exe "normal ifoo\<C-x>\<C-o>"
- call assert_false(v:true, 'command should have failed')
- catch
- call assert_exception('he he he')
- call assert_equal(1, g:CallCount)
- endtry
- bwipe!
- delfunc Omni
- unlet g:CallCount
- set omnifunc=
- endfunc
- func Test_completefunc_args()
- let s:args = []
- func! CompleteFunc(findstart, base)
- let s:args += [[a:findstart, empty(a:base)]]
- endfunc
- new
- set completefunc=CompleteFunc
- call feedkeys("i\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([1, 1], s:args[0])
- call assert_equal(0, s:args[1][0])
- set completefunc=
- let s:args = []
- set omnifunc=CompleteFunc
- call feedkeys("i\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([1, 1], s:args[0])
- call assert_equal(0, s:args[1][0])
- set omnifunc=
- bwipe!
- unlet s:args
- delfunc CompleteFunc
- endfunc
- func s:CompleteDone_CompleteFuncNone( findstart, base )
- throw 'skipped: Nvim does not support v:none'
- if a:findstart
- return 0
- endif
- return v:none
- endfunc
- func s:CompleteDone_CompleteFuncDict( findstart, base )
- if a:findstart
- return 0
- endif
- return {
- \ 'words': [
- \ {
- \ 'word': 'aword',
- \ 'abbr': 'wrd',
- \ 'menu': 'extra text',
- \ 'info': 'words are cool',
- \ 'kind': 'W',
- \ 'user_data': ['one', 'two']
- \ }
- \ ]
- \ }
- endfunc
- func s:CompleteDone_CheckCompletedItemNone()
- let s:called_completedone = 1
- endfunc
- func s:CompleteDone_CheckCompletedItemDict(pre)
- call assert_equal( 'aword', v:completed_item[ 'word' ] )
- call assert_equal( 'wrd', v:completed_item[ 'abbr' ] )
- call assert_equal( 'extra text', v:completed_item[ 'menu' ] )
- call assert_equal( 'words are cool', v:completed_item[ 'info' ] )
- call assert_equal( 'W', v:completed_item[ 'kind' ] )
- call assert_equal( ['one', 'two'], v:completed_item[ 'user_data' ] )
- if a:pre
- call assert_equal('function', complete_info().mode)
- endif
- let s:called_completedone = 1
- endfunc
- func Test_CompleteDoneNone()
- throw 'skipped: Nvim does not support v:none'
- au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemNone()
- let oldline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '')
- set completefunc=<SID>CompleteDone_CompleteFuncNone
- execute "normal a\<C-X>\<C-U>\<C-Y>"
- set completefunc&
- let newline = join(map(range(&columns), 'nr2char(screenchar(&lines-1, v:val+1))'), '')
- call assert_true(s:called_completedone)
- call assert_equal(oldline, newline)
- let s:called_completedone = 0
- au! CompleteDone
- endfunc
- func Test_CompleteDone_vevent_keys()
- func OnDone()
- let g:complete_word = get(v:event, 'complete_word', v:null)
- let g:complete_type = get(v:event, 'complete_type', v:null)
- endfunction
- autocmd CompleteDone * :call OnDone()
- func CompleteFunc(findstart, base)
- if a:findstart
- return col(".")
- endif
- return [#{word: "foo"}, #{word: "bar"}]
- endfunc
- set omnifunc=CompleteFunc
- set completefunc=CompleteFunc
- set completeopt+=menuone
- new
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'tx')
- call assert_equal('', g:complete_word)
- call assert_equal('omni', g:complete_type)
- call feedkeys("S\<C-X>\<C-O>\<C-Y>\<Esc>", 'tx')
- call assert_equal('foo', g:complete_word)
- call assert_equal('omni', g:complete_type)
- call feedkeys("S\<C-X>\<C-O>\<C-N>\<C-Y>\<Esc>0", 'tx')
- call assert_equal('bar', g:complete_word)
- call assert_equal('omni', g:complete_type)
- call feedkeys("Shello vim visual v\<C-X>\<C-N>\<ESC>", 'tx')
- call assert_equal('', g:complete_word)
- call assert_equal('keyword', g:complete_type)
- call feedkeys("Shello vim visual v\<C-X>\<C-N>\<C-Y>", 'tx')
- call assert_equal('vim', g:complete_word)
- call assert_equal('keyword', g:complete_type)
- call feedkeys("Shello vim visual v\<C-X>\<C-N>\<C-Y>", 'tx')
- call assert_equal('vim', g:complete_word)
- call assert_equal('keyword', g:complete_type)
- call feedkeys("Shello vim\<CR>completion test\<CR>\<C-X>\<C-l>\<C-Y>", 'tx')
- call assert_equal('completion test', g:complete_word)
- call assert_equal('whole_line', g:complete_type)
- call feedkeys("S\<C-X>\<C-U>\<C-Y>", 'tx')
- call assert_equal('foo', g:complete_word)
- call assert_equal('function', g:complete_type)
- inoremap <buffer> <f3> <cmd>call complete(1, ["red", "blue"])<cr>
- call feedkeys("S\<f3>\<C-Y>", 'tx')
- call assert_equal('red', g:complete_word)
- call assert_equal('eval', g:complete_type)
- call feedkeys("S\<C-X>\<C-V>\<C-Y>", 'tx')
- call assert_equal('!', g:complete_word)
- call assert_equal('cmdline', g:complete_type)
- call writefile([''], 'foo_test', 'D')
- call feedkeys("Sfoo\<C-X>\<C-F>\<C-Y>\<Esc>", 'tx')
- call assert_equal('foo_test', g:complete_word)
- call assert_equal('files', g:complete_type)
- call writefile(['hello help'], 'test_case.txt', 'D')
- set dictionary=test_case.txt
- call feedkeys("ggdGSh\<C-X>\<C-K>\<C-Y>\<Esc>", 'tx')
- call assert_equal('hello', g:complete_word)
- call assert_equal('dictionary', g:complete_type)
- set spell spelllang=en_us
- call feedkeys("STheatre\<C-X>s\<C-Y>\<Esc>", 'tx')
- call assert_equal('Theater', g:complete_word)
- call assert_equal('spell', g:complete_type)
- bwipe!
- set completeopt& omnifunc& completefunc& spell& spelllang& dictionary&
- autocmd! CompleteDone
- delfunc OnDone
- delfunc CompleteFunc
- unlet g:complete_word
- unlet g:complete_type
- endfunc
- func Test_CompleteDoneDict()
- au CompleteDonePre * :call <SID>CompleteDone_CheckCompletedItemDict(1)
- au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDict(0)
- set completefunc=<SID>CompleteDone_CompleteFuncDict
- execute "normal a\<C-X>\<C-U>\<C-Y>"
- set completefunc&
- call assert_equal(['one', 'two'], v:completed_item[ 'user_data' ])
- call assert_true(s:called_completedone)
- let s:called_completedone = 0
- au! CompleteDone
- endfunc
- func s:CompleteDone_CompleteFuncDictNoUserData(findstart, base)
- if a:findstart
- return 0
- endif
- return {
- \ 'words': [
- \ {
- \ 'word': 'aword',
- \ 'abbr': 'wrd',
- \ 'menu': 'extra text',
- \ 'info': 'words are cool',
- \ 'kind': 'W',
- \ }
- \ ]
- \ }
- endfunc
- func s:CompleteDone_CheckCompletedItemDictNoUserData()
- call assert_equal( 'aword', v:completed_item[ 'word' ] )
- call assert_equal( 'wrd', v:completed_item[ 'abbr' ] )
- call assert_equal( 'extra text', v:completed_item[ 'menu' ] )
- call assert_equal( 'words are cool', v:completed_item[ 'info' ] )
- call assert_equal( 'W', v:completed_item[ 'kind' ] )
- call assert_equal( '', v:completed_item[ 'user_data' ] )
- let s:called_completedone = 1
- endfunc
- func Test_CompleteDoneDictNoUserData()
- au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemDictNoUserData()
- set completefunc=<SID>CompleteDone_CompleteFuncDictNoUserData
- execute "normal a\<C-X>\<C-U>\<C-Y>"
- set completefunc&
- call assert_equal('', v:completed_item[ 'user_data' ])
- call assert_true(s:called_completedone)
- let s:called_completedone = 0
- au! CompleteDone
- endfunc
- func s:CompleteDone_CompleteFuncList(findstart, base)
- if a:findstart
- return 0
- endif
- return [ 'aword' ]
- endfunc
- func s:CompleteDone_CheckCompletedItemList()
- call assert_equal( 'aword', v:completed_item[ 'word' ] )
- call assert_equal( '', v:completed_item[ 'abbr' ] )
- call assert_equal( '', v:completed_item[ 'menu' ] )
- call assert_equal( '', v:completed_item[ 'info' ] )
- call assert_equal( '', v:completed_item[ 'kind' ] )
- call assert_equal( '', v:completed_item[ 'user_data' ] )
- let s:called_completedone = 1
- endfunc
- func Test_CompleteDoneList()
- au CompleteDone * :call <SID>CompleteDone_CheckCompletedItemList()
- set completefunc=<SID>CompleteDone_CompleteFuncList
- execute "normal a\<C-X>\<C-U>\<C-Y>"
- set completefunc&
- call assert_equal('', v:completed_item[ 'user_data' ])
- call assert_true(s:called_completedone)
- let s:called_completedone = 0
- au! CompleteDone
- endfunc
- func Test_CompleteDone_undo()
- au CompleteDone * call append(0, "prepend1")
- new
- call setline(1, ["line1", "line2"])
- call feedkeys("Go\<C-X>\<C-N>\<CR>\<ESC>", "tx")
- call assert_equal(["prepend1", "line1", "line2", "line1", ""],
- \ getline(1, '$'))
- undo
- call assert_equal(["line1", "line2"], getline(1, '$'))
- bwipe!
- au! CompleteDone
- endfunc
- func Test_CompleteDone_modify()
- let value = {
- \ 'word': '',
- \ 'abbr': '',
- \ 'menu': '',
- \ 'info': '',
- \ 'kind': '',
- \ 'user_data': '',
- \ }
- let v:completed_item = value
- call assert_equal(value, v:completed_item)
- endfunc
- func CompleteTest(findstart, query)
- if a:findstart
- return col('.')
- endif
- return ['matched']
- endfunc
- func Test_completefunc_info()
- new
- set completeopt=menuone
- set completefunc=CompleteTest
- call feedkeys("i\<C-X>\<C-U>\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx")
- call assert_equal("matched{'pum_visible': 1, 'mode': 'function', 'selected': 0, 'items': [{'word': 'matched', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}]}", getline(1))
- bwipe!
- set completeopt&
- set completefunc&
- endfunc
- func CompleteInfoUserDefinedFn(findstart, query)
- " User defined function (i_CTRL-X_CTRL-U)
- if a:findstart
- return col('.')
- endif
- return [{'word': 'foo'}, {'word': 'bar'}, {'word': 'baz'}, {'word': 'qux'}]
- endfunc
- func CompleteInfoTestUserDefinedFn(mvmt, idx, noselect)
- new
- if a:noselect
- set completeopt=menuone,popup,noinsert,noselect
- else
- set completeopt=menu,preview
- endif
- set completefunc=CompleteInfoUserDefinedFn
- call feedkeys("i\<C-X>\<C-U>" . a:mvmt . "\<C-R>\<C-R>=string(complete_info())\<CR>\<ESC>", "tx")
- let completed = a:idx != -1 ? ['foo', 'bar', 'baz', 'qux']->get(a:idx) : ''
- call assert_equal(completed. "{'pum_visible': 1, 'mode': 'function', 'selected': " . a:idx . ", 'items': [" .
- \ "{'word': 'foo', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " .
- \ "{'word': 'bar', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " .
- \ "{'word': 'baz', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, " .
- \ "{'word': 'qux', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}" .
- \ "]}", getline(1))
- bwipe!
- set completeopt&
- set completefunc&
- endfunc
- func Test_complete_info_user_defined_fn()
- " forward
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>", 1, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>", 2, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>", 2, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>", 3, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-N>", -1, v:false)
- " backward
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>", 2, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>", 1, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>", -1, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>", 3, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>", 2, v:false)
- " forward backward
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-P>", 1, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-P>", 0, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-P>", 2, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-N>\<C-N>\<C-P>", 3, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-N>\<C-N>\<C-P>", 1, v:false)
- " backward forward
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-N>", 0, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-N>", 2, v:true)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-N>", 1, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-P>\<C-P>\<C-N>", 3, v:false)
- call CompleteInfoTestUserDefinedFn("\<C-P>\<C-N>\<C-N>", 1, v:false)
- endfunc
- " Test that mouse scrolling/movement should not interrupt completion.
- func Test_mouse_scroll_move_during_completion()
- new
- com! -buffer TestCommand1 echo 'TestCommand1'
- com! -buffer TestCommand2 echo 'TestCommand2'
- call setline(1, ['', '', '', '', ''])
- call cursor(5, 1)
- " Without completion menu scrolling can move text.
- set completeopt-=menu wrap
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelDown>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_notequal(1, winsaveview().topline)
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelUp>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(1, winsaveview().topline)
- set nowrap
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelRight>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_notequal(0, winsaveview().leftcol)
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelLeft>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(0, winsaveview().leftcol)
- call feedkeys("ccT\<C-X>\<C-V>\<MouseMove>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- " With completion menu scrolling cannot move text.
- set completeopt+=menu wrap
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelDown>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(1, winsaveview().topline)
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelUp>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(1, winsaveview().topline)
- set nowrap
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelRight>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(0, winsaveview().leftcol)
- call feedkeys("ccT\<C-X>\<C-V>\<ScrollWheelLeft>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- call assert_equal(0, winsaveview().leftcol)
- call feedkeys("ccT\<C-X>\<C-V>\<MouseMove>\<C-V>", 'tx')
- call assert_equal('TestCommand2', getline('.'))
- bwipe!
- set completeopt& wrap&
- endfunc
- " Check that when using feedkeys() typeahead does not interrupt searching for
- " completions.
- func Test_compl_feedkeys()
- new
- set completeopt=menuone,noselect
- call feedkeys("ajump ju\<C-X>\<C-N>\<C-P>\<ESC>", "tx")
- call assert_equal("jump jump", getline(1))
- bwipe!
- set completeopt&
- endfunc
- func s:ComplInCmdwin_GlobalCompletion(a, l, p)
- return 'global'
- endfunc
- func s:ComplInCmdwin_LocalCompletion(a, l, p)
- return 'local'
- endfunc
- func Test_compl_in_cmdwin()
- set wildmenu wildchar=<Tab>
- com! -nargs=1 -complete=command GetInput let input = <q-args>
- com! -buffer TestCommand echo 'TestCommand'
- let w:test_winvar = 'winvar'
- let b:test_bufvar = 'bufvar'
- " User-defined commands
- let input = ''
- call feedkeys("q:iGetInput T\<C-x>\<C-v>\<CR>", 'tx!')
- call assert_equal('TestCommand', input)
- let input = ''
- call feedkeys("q::GetInput T\<Tab>\<CR>:q\<CR>", 'tx!')
- call assert_equal('T', input)
- com! -nargs=1 -complete=var GetInput let input = <q-args>
- " Window-local variables
- let input = ''
- call feedkeys("q:iGetInput w:test_\<C-x>\<C-v>\<CR>", 'tx!')
- call assert_equal('w:test_winvar', input)
- let input = ''
- call feedkeys("q::GetInput w:test_\<Tab>\<CR>:q\<CR>", 'tx!')
- call assert_equal('w:test_', input)
- " Buffer-local variables
- let input = ''
- call feedkeys("q:iGetInput b:test_\<C-x>\<C-v>\<CR>", 'tx!')
- call assert_equal('b:test_bufvar', input)
- let input = ''
- call feedkeys("q::GetInput b:test_\<Tab>\<CR>:q\<CR>", 'tx!')
- call assert_equal('b:test_', input)
- " Argument completion of buffer-local command
- func s:ComplInCmdwin_GlobalCompletionList(a, l, p)
- return ['global']
- endfunc
- func s:ComplInCmdwin_LocalCompletionList(a, l, p)
- return ['local']
- endfunc
- func s:ComplInCmdwin_CheckCompletion(arg)
- call assert_equal('local', a:arg)
- endfunc
- com! -nargs=1 -complete=custom,<SID>ComplInCmdwin_GlobalCompletion
- \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
- com! -buffer -nargs=1 -complete=custom,<SID>ComplInCmdwin_LocalCompletion
- \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
- call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
- com! -nargs=1 -complete=customlist,<SID>ComplInCmdwin_GlobalCompletionList
- \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
- com! -buffer -nargs=1 -complete=customlist,<SID>ComplInCmdwin_LocalCompletionList
- \ TestCommand call s:ComplInCmdwin_CheckCompletion(<q-args>)
- call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
- func! s:ComplInCmdwin_CheckCompletion(arg)
- call assert_equal('global', a:arg)
- endfunc
- new
- call feedkeys("q:iTestCommand \<Tab>\<CR>", 'tx!')
- quit
- delfunc s:ComplInCmdwin_GlobalCompletion
- delfunc s:ComplInCmdwin_LocalCompletion
- delfunc s:ComplInCmdwin_GlobalCompletionList
- delfunc s:ComplInCmdwin_LocalCompletionList
- delfunc s:ComplInCmdwin_CheckCompletion
- delcom -buffer TestCommand
- delcom TestCommand
- delcom GetInput
- unlet w:test_winvar
- unlet b:test_bufvar
- set wildmenu& wildchar&
- endfunc
- " Test for insert path completion with completeslash option
- func Test_ins_completeslash()
- CheckMSWindows
- call mkdir('Xdir')
- let orig_shellslash = &shellslash
- set cpt&
- new
- set noshellslash
- set completeslash=
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir\', getline('.'))
- set completeslash=backslash
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir\', getline('.'))
- set completeslash=slash
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir/', getline('.'))
- set shellslash
- set completeslash=
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir/', getline('.'))
- set completeslash=backslash
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir\', getline('.'))
- set completeslash=slash
- exe "normal oXd\<C-X>\<C-F>"
- call assert_equal('Xdir/', getline('.'))
- %bw!
- call delete('Xdir', 'rf')
- set noshellslash
- set completeslash=slash
- call assert_true(stridx(globpath(&rtp, 'syntax/*.vim', 1, 1)[0], '\') != -1)
- let &shellslash = orig_shellslash
- set completeslash=
- endfunc
- func Test_pum_stopped_by_timer()
- CheckScreendump
- let lines =<< trim END
- call setline(1, ['hello', 'hullo', 'heeee', ''])
- func StartCompl()
- call timer_start(100, { -> execute('stopinsert') })
- call feedkeys("Gah\<C-N>")
- endfunc
- END
- call writefile(lines, 'Xpumscript')
- let buf = RunVimInTerminal('-S Xpumscript', #{rows: 12})
- call term_sendkeys(buf, ":call StartCompl()\<CR>")
- call TermWait(buf, 200)
- call term_sendkeys(buf, "k")
- call VerifyScreenDump(buf, 'Test_pum_stopped_by_timer', {})
- call StopVimInTerminal(buf)
- call delete('Xpumscript')
- endfunc
- func Test_complete_stopinsert_startinsert()
- nnoremap <F2> <Cmd>startinsert<CR>
- inoremap <F2> <Cmd>stopinsert<CR>
- " This just checks if this causes an error
- call feedkeys("i\<C-X>\<C-N>\<F2>\<F2>", 'x')
- nunmap <F2>
- iunmap <F2>
- endfunc
- func Test_pum_with_folds_two_tabs()
- CheckScreendump
- let lines =<< trim END
- set fdm=marker
- call setline(1, ['" x {{{1', '" a some text'])
- call setline(3, range(&lines)->map({_, val -> '" a' .. val}))
- norm! zm
- tab sp
- call feedkeys('2Gzv', 'xt')
- call feedkeys("0fa", 'xt')
- END
- call writefile(lines, 'Xpumscript')
- let buf = RunVimInTerminal('-S Xpumscript', #{rows: 10})
- call TermWait(buf, 50)
- call term_sendkeys(buf, "a\<C-N>")
- call VerifyScreenDump(buf, 'Test_pum_with_folds_two_tabs', {})
- call term_sendkeys(buf, "\<Esc>")
- call StopVimInTerminal(buf)
- call delete('Xpumscript')
- endfunc
- func Test_pum_with_preview_win()
- CheckScreendump
- let lines =<< trim END
- funct Omni_test(findstart, base)
- if a:findstart
- return col(".") - 1
- endif
- return [#{word: "one", info: "1info"}, #{word: "two", info: "2info"}, #{word: "three", info: "3info"}]
- endfunc
- set omnifunc=Omni_test
- set completeopt+=longest
- END
- call writefile(lines, 'Xpreviewscript')
- let buf = RunVimInTerminal('-S Xpreviewscript', #{rows: 12})
- call term_sendkeys(buf, "Gi\<C-X>\<C-O>")
- call TermWait(buf, 200)
- call term_sendkeys(buf, "\<C-N>")
- call VerifyScreenDump(buf, 'Test_pum_with_preview_win', {})
- call term_sendkeys(buf, "\<Esc>")
- call StopVimInTerminal(buf)
- call delete('Xpreviewscript')
- endfunc
- func Test_scrollbar_on_wide_char()
- CheckScreendump
- let lines =<< trim END
- call setline(1, ['a', ' 啊啊啊',
- \ ' 哦哦哦',
- \ ' 呃呃呃'])
- call setline(5, range(10)->map({i, v -> 'aa' .. v .. 'bb'}))
- END
- call writefile(lines, 'Xwidescript')
- let buf = RunVimInTerminal('-S Xwidescript', #{rows: 10})
- call term_sendkeys(buf, "A\<C-N>")
- call VerifyScreenDump(buf, 'Test_scrollbar_on_wide_char', {})
- call StopVimInTerminal(buf)
- call delete('Xwidescript')
- endfunc
- " Test for inserting the tag search pattern in insert mode
- func Test_ins_compl_tag_sft()
- call writefile([
- \ "!_TAG_FILE_ENCODING\tutf-8\t//",
- \ "first\tXfoo\t/^int first() {}$/",
- \ "second\tXfoo\t/^int second() {}$/",
- \ "third\tXfoo\t/^int third() {}$/"],
- \ 'Xtags')
- set tags=Xtags
- let code =<< trim [CODE]
- int first() {}
- int second() {}
- int third() {}
- [CODE]
- call writefile(code, 'Xfoo')
- enew
- set showfulltag
- exe "normal isec\<C-X>\<C-]>\<C-N>\<CR>"
- call assert_equal('int second() {}', getline(1))
- set noshowfulltag
- call delete('Xtags')
- call delete('Xfoo')
- set tags&
- %bwipe!
- endfunc
- " Test for 'completefunc' deleting text
- func Test_completefunc_error()
- new
- " delete text when called for the first time
- func CompleteFunc(findstart, base)
- if a:findstart == 1
- normal dd
- return col('.') - 1
- endif
- return ['a', 'b']
- endfunc
- set completefunc=CompleteFunc
- call setline(1, ['', 'abcd', ''])
- call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E565:')
- " delete text when called for the second time
- func CompleteFunc2(findstart, base)
- if a:findstart == 1
- return col('.') - 1
- endif
- normal dd
- return ['a', 'b']
- endfunc
- set completefunc=CompleteFunc2
- call setline(1, ['', 'abcd', ''])
- call assert_fails('exe "normal 2G$a\<C-X>\<C-U>"', 'E565:')
- " Jump to a different window from the complete function
- func CompleteFunc3(findstart, base)
- if a:findstart == 1
- return col('.') - 1
- endif
- wincmd p
- return ['a', 'b']
- endfunc
- set completefunc=CompleteFunc3
- new
- call assert_fails('exe "normal a\<C-X>\<C-U>"', 'E565:')
- close!
- set completefunc&
- delfunc CompleteFunc
- delfunc CompleteFunc2
- delfunc CompleteFunc3
- close!
- endfunc
- " Test for returning non-string values from 'completefunc'
- func Test_completefunc_invalid_data()
- new
- func! CompleteFunc(findstart, base)
- if a:findstart == 1
- return col('.') - 1
- endif
- return [{}, '', 'moon']
- endfunc
- set completefunc=CompleteFunc
- exe "normal i\<C-X>\<C-U>"
- call assert_equal('moon', getline(1))
- set completefunc&
- close!
- endfunc
- " Test for errors in using complete() function
- func Test_complete_func_error()
- call assert_fails('call complete(1, ["a"])', 'E785:')
- func ListColors()
- call complete(col('.'), "blue")
- endfunc
- call assert_fails('exe "normal i\<C-R>=ListColors()\<CR>"', 'E474:')
- func ListMonths()
- call complete(col('.'), test_null_list())
- endfunc
- " Nvim allows a NULL list
- " call assert_fails('exe "normal i\<C-R>=ListMonths()\<CR>"', 'E474:')
- delfunc ListColors
- delfunc ListMonths
- call assert_fails('call complete_info({})', 'E714:')
- call assert_equal([], complete_info(['items']).items)
- endfunc
- " Test for recursively starting completion mode using complete()
- func Test_recursive_complete_func()
- func ListColors()
- call complete(5, ["red", "blue"])
- return ''
- endfunc
- new
- call setline(1, ['a1', 'a2'])
- set complete=.
- exe "normal Goa\<C-X>\<C-L>\<C-R>=ListColors()\<CR>\<C-N>"
- call assert_equal('a2blue', getline(3))
- delfunc ListColors
- bw!
- endfunc
- " Test for using complete() with completeopt+=longest
- func Test_complete_with_longest()
- new
- inoremap <buffer> <f3> <cmd>call complete(1, ["iaax", "iaay", "iaaz"])<cr>
- " default: insert first match
- set completeopt&
- call setline(1, ['i'])
- exe "normal Aa\<f3>\<esc>"
- call assert_equal('iaax', getline(1))
- " with longest: insert longest prefix
- set completeopt+=longest
- call setline(1, ['i'])
- exe "normal Aa\<f3>\<esc>"
- call assert_equal('iaa', getline(1))
- set completeopt&
- bwipe!
- endfunc
- " Test for buffer-local value of 'completeopt'
- func Test_completeopt_buffer_local()
- set completeopt=menu
- new
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- call assert_equal('', &l:completeopt)
- call assert_equal('menu', &completeopt)
- call assert_equal('menu', &g:completeopt)
- setlocal bufhidden=hide
- enew
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- call assert_equal('', &l:completeopt)
- call assert_equal('menu', &completeopt)
- call assert_equal('menu', &g:completeopt)
- setlocal completeopt+=fuzzy,noinsert
- call assert_equal('menu,fuzzy,noinsert', &l:completeopt)
- call assert_equal('menu,fuzzy,noinsert', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix')
- call assert_equal('foobaz', getline('.'))
- setlocal completeopt=
- call assert_equal('', &l:completeopt)
- call assert_equal('menu', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-Y>", 'tnix')
- call assert_equal('foofoo', getline('.'))
- setlocal completeopt+=longest
- call assert_equal('menu,longest', &l:completeopt)
- call assert_equal('menu,longest', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix')
- call assert_equal('foo', getline('.'))
- setlocal bufhidden=hide
- buffer #
- call assert_equal('', &l:completeopt)
- call assert_equal('menu', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-Y>", 'tnix')
- call assert_equal('foofoo', getline('.'))
- setlocal completeopt+=fuzzy,noinsert
- call assert_equal('menu,fuzzy,noinsert', &l:completeopt)
- call assert_equal('menu,fuzzy,noinsert', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix')
- call assert_equal('foobaz', getline('.'))
- buffer #
- call assert_equal('menu,longest', &l:completeopt)
- call assert_equal('menu,longest', &completeopt)
- call assert_equal('menu', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix')
- call assert_equal('foo', getline('.'))
- setlocal bufhidden=wipe
- buffer! #
- bwipe!
- call assert_equal('', &l:completeopt)
- call assert_equal('menu', &completeopt)
- call assert_equal('menu', &g:completeopt)
- new | only
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- set completeopt&
- setlocal completeopt=menu,fuzzy,noinsert
- setglobal completeopt=menu,longest
- call assert_equal('menu,fuzzy,noinsert', &completeopt)
- call assert_equal('menu,fuzzy,noinsert', &l:completeopt)
- call assert_equal('menu,longest', &g:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>bz\<C-Y>", 'tnix')
- call assert_equal('foobaz', getline('.'))
- setlocal bufhidden=wipe
- new | only!
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- call assert_equal('menu,longest', &completeopt)
- call assert_equal('menu,longest', &g:completeopt)
- call assert_equal('', &l:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix')
- call assert_equal('foo', getline('.'))
- bwipe!
- new | only
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- set completeopt&
- setlocal completeopt=menu,fuzzy,noinsert
- set completeopt=menu,longest
- call assert_equal('menu,longest', &completeopt)
- call assert_equal('menu,longest', &g:completeopt)
- call assert_equal('', &l:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix')
- call assert_equal('foo', getline('.'))
- setlocal bufhidden=wipe
- new | only!
- call setline(1, ['foofoo', 'foobar', 'foobaz', ''])
- call assert_equal('menu,longest', &completeopt)
- call assert_equal('menu,longest', &g:completeopt)
- call assert_equal('', &l:completeopt)
- call feedkeys("Gccf\<C-X>\<C-N>\<C-X>\<C-Z>", 'tnix')
- call assert_equal('foo', getline('.'))
- bwipe!
- set completeopt&
- endfunc
- " Test for completing words following a completed word in a line
- func Test_complete_wrapscan()
- " complete words from another buffer
- new
- call setline(1, ['one two', 'three four'])
- new
- setlocal complete=w
- call feedkeys("itw\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt')
- call assert_equal('two three four', getline(1))
- close!
- " complete words from the current buffer
- setlocal complete=.
- %d
- call setline(1, ['one two', ''])
- call cursor(2, 1)
- call feedkeys("ion\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>\<C-X>\<C-N>", 'xt')
- call assert_equal('one two one two', getline(2))
- close!
- endfunc
- " Test for completing special characters
- func Test_complete_special_chars()
- new
- call setline(1, 'int .*[-\^$ func float')
- call feedkeys("oin\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>", 'xt')
- call assert_equal('int .*[-\^$ func float', getline(2))
- close!
- endfunc
- " Test for completion when text is wrapped across lines.
- func Test_complete_across_line()
- new
- call setline(1, ['red green blue', 'one two three'])
- setlocal textwidth=20
- exe "normal 2G$a re\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>"
- call assert_equal(['one two three red', 'green blue one'], getline(2, '$'))
- close!
- endfunc
- " Test for completing words with a '.' at the end of a word.
- func Test_complete_joinspaces()
- new
- call setline(1, ['one two.', 'three. four'])
- set joinspaces
- exe "normal Goon\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>"
- call assert_equal("one two. three. four", getline(3))
- set joinspaces&
- bw!
- endfunc
- " Test for using CTRL-L to add one character when completing matching
- func Test_complete_add_onechar()
- new
- call setline(1, ['wool', 'woodwork'])
- call feedkeys("Gowoo\<C-P>\<C-P>\<C-P>\<C-L>f", 'xt')
- call assert_equal('woof', getline(3))
- " use 'ignorecase' and backspace to erase characters from the prefix string
- " and then add letters using CTRL-L
- %d
- set ignorecase backspace=2
- setlocal complete=.
- call setline(1, ['workhorse', 'workload'])
- normal Go
- exe "normal aWOR\<C-P>\<bs>\<bs>\<bs>\<bs>\<bs>\<bs>\<C-L>\<C-L>\<C-L>"
- call assert_equal('workh', getline(3))
- set ignorecase& backspace&
- close!
- endfunc
- " Test for using CTRL-X CTRL-L to complete whole lines lines
- func Test_complete_wholeline()
- new
- " complete one-line
- call setline(1, ['a1', 'a2'])
- exe "normal ggoa\<C-X>\<C-L>"
- call assert_equal(['a1', 'a1', 'a2'], getline(1, '$'))
- " go to the next match (wrapping around the buffer)
- exe "normal 2GCa\<C-X>\<C-L>\<C-N>"
- call assert_equal(['a1', 'a', 'a2'], getline(1, '$'))
- " go to the next match
- exe "normal 2GCa\<C-X>\<C-L>\<C-N>\<C-N>"
- call assert_equal(['a1', 'a2', 'a2'], getline(1, '$'))
- exe "normal 2GCa\<C-X>\<C-L>\<C-N>\<C-N>\<C-N>"
- call assert_equal(['a1', 'a1', 'a2'], getline(1, '$'))
- " repeat the test using CTRL-L
- " go to the next match (wrapping around the buffer)
- exe "normal 2GCa\<C-X>\<C-L>\<C-L>"
- call assert_equal(['a1', 'a2', 'a2'], getline(1, '$'))
- " go to the next match
- exe "normal 2GCa\<C-X>\<C-L>\<C-L>\<C-L>"
- call assert_equal(['a1', 'a', 'a2'], getline(1, '$'))
- exe "normal 2GCa\<C-X>\<C-L>\<C-L>\<C-L>\<C-L>"
- call assert_equal(['a1', 'a1', 'a2'], getline(1, '$'))
- %d
- " use CTRL-X CTRL-L to add one more line
- call setline(1, ['a1', 'b1'])
- setlocal complete=.
- exe "normal ggOa\<C-X>\<C-L>\<C-X>\<C-L>\<C-X>\<C-L>"
- call assert_equal(['a1', 'b1', '', 'a1', 'b1'], getline(1, '$'))
- bw!
- endfunc
- " Test insert completion with 'cindent' (adjust the indent)
- func Test_complete_with_cindent()
- new
- setlocal cindent
- call setline(1, ['if (i == 1)', " j = 2;"])
- exe "normal Go{\<CR>i\<C-X>\<C-L>\<C-X>\<C-L>\<CR>}"
- call assert_equal(['{', "\tif (i == 1)", "\t\tj = 2;", '}'], getline(3, '$'))
- %d
- call setline(1, ['when while', '{', ''])
- setlocal cinkeys+==while
- exe "normal Giwh\<C-P> "
- call assert_equal("\twhile ", getline('$'))
- close!
- endfunc
- " Test for <CTRL-X> <CTRL-V> completion. Complete commands and functions
- func Test_complete_cmdline()
- new
- exe "normal icaddb\<C-X>\<C-V>"
- call assert_equal('caddbuffer', getline(1))
- exe "normal ocall getqf\<C-X>\<C-V>"
- call assert_equal('call getqflist(', getline(2))
- exe "normal oabcxyz(\<C-X>\<C-V>"
- call assert_equal('abcxyz(', getline(3))
- com! -buffer TestCommand1 echo 'TestCommand1'
- com! -buffer TestCommand2 echo 'TestCommand2'
- write TestCommand1Test
- write TestCommand2Test
- " Test repeating <CTRL-X> <CTRL-V> and switching to another CTRL-X mode
- exe "normal oT\<C-X>\<C-V>\<C-X>\<C-V>\<C-X>\<C-F>\<Esc>"
- call assert_equal('TestCommand2Test', getline(4))
- call delete('TestCommand1Test')
- call delete('TestCommand2Test')
- delcom TestCommand1
- delcom TestCommand2
- close!
- endfunc
- " Test for <CTRL-X> <CTRL-Z> stopping completion without changing the match
- func Test_complete_stop()
- new
- func Save_mode1()
- let g:mode1 = mode(1)
- return ''
- endfunc
- func Save_mode2()
- let g:mode2 = mode(1)
- return ''
- endfunc
- inoremap <F1> <C-R>=Save_mode1()<CR>
- inoremap <F2> <C-R>=Save_mode2()<CR>
- call setline(1, ['aaa bbb ccc '])
- exe "normal A\<C-N>\<C-P>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>"
- call assert_equal('ic', g:mode1)
- call assert_equal('i', g:mode2)
- call assert_equal('aaa bbb ccc ', getline(1))
- exe "normal A\<C-N>\<Down>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>"
- call assert_equal('ic', g:mode1)
- call assert_equal('i', g:mode2)
- call assert_equal('aaa bbb ccc aaa', getline(1))
- set completeopt+=noselect
- exe "normal A \<C-N>\<Down>\<Down>\<C-L>\<C-L>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>"
- call assert_equal('ic', g:mode1)
- call assert_equal('i', g:mode2)
- call assert_equal('aaa bbb ccc aaa bb', getline(1))
- set completeopt&
- exe "normal A d\<C-N>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>"
- call assert_equal('ic', g:mode1)
- call assert_equal('i', g:mode2)
- call assert_equal('aaa bbb ccc aaa bb d', getline(1))
- com! -buffer TestCommand1 echo 'TestCommand1'
- com! -buffer TestCommand2 echo 'TestCommand2'
- exe "normal oT\<C-X>\<C-V>\<C-X>\<C-V>\<F1>\<C-X>\<C-Z>\<F2>\<Esc>"
- call assert_equal('ic', g:mode1)
- call assert_equal('i', g:mode2)
- call assert_equal('TestCommand2', getline(2))
- delcom TestCommand1
- delcom TestCommand2
- unlet g:mode1
- unlet g:mode2
- iunmap <F1>
- iunmap <F2>
- delfunc Save_mode1
- delfunc Save_mode2
- close!
- endfunc
- " Test for typing CTRL-R in insert completion mode to insert a register
- " content.
- func Test_complete_reginsert()
- new
- call setline(1, ['a1', 'a12', 'a123', 'a1234'])
- " if a valid CTRL-X mode key is returned from <C-R>=, then it should be
- " processed. Otherwise, CTRL-X mode should be stopped and the key should be
- " inserted.
- exe "normal Goa\<C-P>\<C-R>=\"\\<C-P>\"\<CR>"
- call assert_equal('a123', getline(5))
- let @r = "\<C-P>\<C-P>"
- exe "normal GCa\<C-P>\<C-R>r"
- call assert_equal('a12', getline(5))
- exe "normal GCa\<C-P>\<C-R>=\"x\"\<CR>"
- call assert_equal('a1234x', getline(5))
- bw!
- endfunc
- func Test_issue_7021()
- CheckMSWindows
- let orig_shellslash = &shellslash
- set noshellslash
- set completeslash=slash
- call assert_false(expand('~') =~ '/')
- let &shellslash = orig_shellslash
- set completeslash=
- endfunc
- " Test for 'longest' setting in 'completeopt' with latin1 and utf-8 encodings
- func Test_complete_longest_match()
- " for e in ['latin1', 'utf-8']
- for e in ['utf-8']
- exe 'set encoding=' .. e
- new
- set complete=.
- set completeopt=menu,longest
- call setline(1, ['pfx_a1', 'pfx_a12', 'pfx_a123', 'pfx_b1'])
- exe "normal Gopfx\<C-P>"
- call assert_equal('pfx_', getline(5))
- bw!
- endfor
- " Test for completing additional words with longest match set
- new
- call setline(1, ['abc1', 'abd2'])
- exe "normal Goab\<C-P>\<C-X>\<C-P>"
- call assert_equal('ab', getline(3))
- bw!
- set complete& completeopt&
- endfunc
- " Test for removing the first displayed completion match and selecting the
- " match just before that.
- func Test_complete_erase_firstmatch()
- new
- call setline(1, ['a12', 'a34', 'a56'])
- set complete=.
- exe "normal Goa\<C-P>\<BS>\<BS>3\<CR>"
- call assert_equal('a34', getline('$'))
- set complete&
- bw!
- endfunc
- " Test for completing words from unloaded buffers
- func Test_complete_from_unloadedbuf()
- call writefile(['abc'], "Xfile1")
- call writefile(['def'], "Xfile2")
- edit Xfile1
- edit Xfile2
- new | close
- enew
- bunload Xfile1 Xfile2
- set complete=u
- " complete from an unloaded buffer
- exe "normal! ia\<C-P>"
- call assert_equal('abc', getline(1))
- exe "normal! od\<C-P>"
- call assert_equal('def', getline(2))
- set complete&
- %bw!
- call delete("Xfile1")
- call delete("Xfile2")
- endfunc
- " Test for completing whole lines from unloaded buffers
- func Test_complete_wholeline_unloadedbuf()
- call writefile(['a line1', 'a line2', 'a line3'], "Xfile1")
- edit Xfile1
- enew
- set complete=u
- exe "normal! ia\<C-X>\<C-L>\<C-P>"
- call assert_equal('a line2', getline(1))
- %d
- " completing from an unlisted buffer should fail
- bdel Xfile1
- exe "normal! ia\<C-X>\<C-L>\<C-P>"
- call assert_equal('a', getline(1))
- set complete&
- %bw!
- call delete("Xfile1")
- endfunc
- " Test for completing words from unlisted buffers
- func Test_complete_from_unlistedbuf()
- call writefile(['abc'], "Xfile1")
- call writefile(['def'], "Xfile2")
- edit Xfile1
- edit Xfile2
- new | close
- bdel Xfile1 Xfile2
- set complete=U
- " complete from an unlisted buffer
- exe "normal! ia\<C-P>"
- call assert_equal('abc', getline(1))
- exe "normal! od\<C-P>"
- call assert_equal('def', getline(2))
- set complete&
- %bw!
- call delete("Xfile1")
- call delete("Xfile2")
- endfunc
- " Test for completing whole lines from unlisted buffers
- func Test_complete_wholeline_unlistedbuf()
- call writefile(['a line1', 'a line2', 'a line3'], "Xfile1")
- edit Xfile1
- enew
- set complete=U
- " completing from an unloaded buffer should fail
- exe "normal! ia\<C-X>\<C-L>\<C-P>"
- call assert_equal('a', getline(1))
- %d
- bdel Xfile1
- exe "normal! ia\<C-X>\<C-L>\<C-P>"
- call assert_equal('a line2', getline(1))
- set complete&
- %bw!
- call delete("Xfile1")
- endfunc
- " Test for adding a multibyte character using CTRL-L in completion mode
- func Test_complete_mbyte_char_add()
- new
- set complete=.
- call setline(1, 'abė')
- exe "normal! oa\<C-P>\<BS>\<BS>\<C-L>\<C-L>"
- call assert_equal('abė', getline(2))
- " Test for a leader with multibyte character
- %d
- call setline(1, 'abėĕ')
- exe "normal! oabė\<C-P>"
- call assert_equal('abėĕ', getline(2))
- bw!
- endfunc
- " Test for using <C-X><C-P> for local expansion even if 'complete' is set to
- " not to complete matches from the local buffer. Also test using multiple
- " <C-X> to cancel the current completion mode.
- func Test_complete_local_expansion()
- new
- set complete=t
- call setline(1, ['abc', 'def'])
- exe "normal! Go\<C-X>\<C-P>"
- call assert_equal("def", getline(3))
- exe "normal! Go\<C-P>"
- call assert_equal("", getline(4))
- exe "normal! Go\<C-X>\<C-N>"
- call assert_equal("abc", getline(5))
- exe "normal! Go\<C-N>"
- call assert_equal("", getline(6))
- " use multiple <C-X> to cancel the previous completion mode
- exe "normal! Go\<C-P>\<C-X>\<C-P>"
- call assert_equal("", getline(7))
- exe "normal! Go\<C-P>\<C-X>\<C-X>\<C-P>"
- call assert_equal("", getline(8))
- exe "normal! Go\<C-P>\<C-X>\<C-X>\<C-X>\<C-P>"
- call assert_equal("abc", getline(9))
- " interrupt the current completion mode
- set completeopt=menu,noinsert
- exe "normal! Go\<C-X>\<C-F>\<C-X>\<C-X>\<C-P>\<C-Y>"
- call assert_equal("abc", getline(10))
- " when only one <C-X> is used to interrupt, do normal expansion
- exe "normal! Go\<C-X>\<C-F>\<C-X>\<C-P>"
- call assert_equal("", getline(11))
- set completeopt&
- " using two <C-X> in non-completion mode and restarting the same mode
- exe "normal! God\<C-X>\<C-X>\<C-P>\<C-X>\<C-X>\<C-P>\<C-Y>"
- call assert_equal("def", getline(12))
- " test for adding a match from the original empty text
- %d
- call setline(1, 'abc def g')
- exe "normal! o\<C-X>\<C-P>\<C-N>\<C-X>\<C-P>"
- call assert_equal('def', getline(2))
- exe "normal! 0C\<C-X>\<C-N>\<C-P>\<C-X>\<C-N>"
- call assert_equal('abc', getline(2))
- bw!
- endfunc
- " Test for undoing changes after a insert-mode completion
- func Test_complete_undo()
- new
- set complete=.
- " undo with 'ignorecase'
- call setline(1, ['ABOVE', 'BELOW'])
- set ignorecase
- exe "normal! Goab\<C-G>u\<C-P>"
- call assert_equal("ABOVE", getline(3))
- undo
- call assert_equal("ab", getline(3))
- set ignorecase&
- %d
- " undo with longest match
- set completeopt=menu,longest
- call setline(1, ['above', 'about'])
- exe "normal! Goa\<C-G>u\<C-P>"
- call assert_equal("abo", getline(3))
- undo
- call assert_equal("a", getline(3))
- set completeopt&
- %d
- " undo for line completion
- call setline(1, ['above that change', 'below that change'])
- exe "normal! Goabove\<C-G>u\<C-X>\<C-L>"
- call assert_equal("above that change", getline(3))
- undo
- call assert_equal("above", getline(3))
- bw!
- endfunc
- " Test for completing a very long word
- func Test_complete_long_word()
- set complete&
- new
- call setline(1, repeat('x', 950) .. ' one two three')
- exe "normal! Gox\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>"
- call assert_equal(repeat('x', 950) .. ' one two three', getline(2))
- %d
- " should fail when more than 950 characters are in a word
- call setline(1, repeat('x', 951) .. ' one two three')
- exe "normal! Gox\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>\<C-X>\<C-P>"
- call assert_equal(repeat('x', 951), getline(2))
- " Test for adding a very long word to an existing completion
- %d
- call setline(1, ['abc', repeat('x', 1016) .. '012345'])
- exe "normal! Goab\<C-P>\<C-X>\<C-P>"
- call assert_equal('abc ' .. repeat('x', 1016) .. '0123', getline(3))
- bw!
- endfunc
- " Test for some fields in the complete items used by complete()
- func Test_complete_items()
- func CompleteItems(idx)
- let items = [[#{word: "one", dup: 1, user_data: 'u1'}, #{word: "one", dup: 1, user_data: 'u2'}],
- \ [#{word: "one", dup: 0, user_data: 'u3'}, #{word: "one", dup: 0, user_data: 'u4'}],
- \ [#{word: "one", icase: 1, user_data: 'u7'}, #{word: "oNE", icase: 1, user_data: 'u8'}],
- \ [#{user_data: 'u9'}],
- \ [#{word: "", user_data: 'u10'}],
- \ [#{word: "", empty: 1, user_data: 'u11'}]]
- call complete(col('.'), items[a:idx])
- return ''
- endfunc
- new
- exe "normal! i\<C-R>=CompleteItems(0)\<CR>\<C-N>\<C-Y>"
- call assert_equal('u2', v:completed_item.user_data)
- call assert_equal('one', getline(1))
- exe "normal! o\<C-R>=CompleteItems(1)\<CR>\<C-Y>"
- call assert_equal('u3', v:completed_item.user_data)
- call assert_equal('one', getline(2))
- exe "normal! o\<C-R>=CompleteItems(1)\<CR>\<C-N>"
- call assert_equal('', getline(3))
- set completeopt=menu,noinsert
- exe "normal! o\<C-R>=CompleteItems(2)\<CR>one\<C-N>\<C-Y>"
- call assert_equal('oNE', getline(4))
- call assert_equal('u8', v:completed_item.user_data)
- set completeopt&
- exe "normal! o\<C-R>=CompleteItems(3)\<CR>"
- call assert_equal('', getline(5))
- exe "normal! o\<C-R>=CompleteItems(4)\<CR>"
- call assert_equal('', getline(6))
- exe "normal! o\<C-R>=CompleteItems(5)\<CR>"
- call assert_equal('', getline(7))
- call assert_equal('u11', v:completed_item.user_data)
- " pass invalid argument to complete()
- let cmd = "normal! o\<C-R>=complete(1, [[]])\<CR>"
- call assert_fails('exe cmd', 'E730:')
- bw!
- delfunc CompleteItems
- endfunc
- " Test for the "refresh" item in the dict returned by an insert completion
- " function
- func Test_complete_item_refresh_always()
- let g:CallCount = 0
- func! Tcomplete(findstart, base)
- if a:findstart
- " locate the start of the word
- let line = getline('.')
- let start = col('.') - 1
- while start > 0 && line[start - 1] =~ '\a'
- let start -= 1
- endwhile
- return start
- else
- let g:CallCount += 1
- let res = ["update1", "update12", "update123"]
- return #{words: res, refresh: 'always'}
- endif
- endfunc
- new
- set completeopt=menu,longest
- set completefunc=Tcomplete
- exe "normal! iup\<C-X>\<C-U>\<BS>\<BS>\<BS>\<BS>\<BS>"
- call assert_equal('up', getline(1))
- call assert_equal(6, g:CallCount)
- set completeopt&
- set completefunc&
- bw!
- delfunc Tcomplete
- endfunc
- " Test for completing from a thesaurus file without read permission
- func Test_complete_unreadable_thesaurus_file()
- CheckUnix
- CheckNotRoot
- call writefile(['about', 'above'], 'Xfile')
- call setfperm('Xfile', '---r--r--')
- new
- set complete=sXfile
- exe "normal! ia\<C-P>"
- call assert_equal('a', getline(1))
- bw!
- call delete('Xfile')
- set complete&
- endfunc
- " Test to ensure 'Scanning...' messages are not recorded in messages history
- func Test_z1_complete_no_history()
- new
- messages clear
- let currmess = execute('messages')
- setlocal dictionary=README.txt
- exe "normal owh\<C-X>\<C-K>"
- exe "normal owh\<C-N>"
- call assert_equal(currmess, execute('messages'))
- bwipe!
- endfunc
- " A mapping is not used for the key after CTRL-X.
- func Test_no_mapping_for_ctrl_x_key()
- new
- inoremap <buffer> <C-K> <Cmd>let was_mapped = 'yes'<CR>
- setlocal dictionary=README.txt
- call feedkeys("aexam\<C-X>\<C-K> ", 'xt')
- call assert_equal('example ', getline(1))
- call assert_false(exists('was_mapped'))
- bwipe!
- endfunc
- " Test for different ways of setting the 'completefunc' option
- func Test_completefunc_callback()
- func CompleteFunc1(callnr, findstart, base)
- call add(g:CompleteFunc1Args, [a:callnr, a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- func CompleteFunc2(findstart, base)
- call add(g:CompleteFunc2Args, [a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- let lines =<< trim END
- #" Test for using a global function name
- LET &completefunc = 'g:CompleteFunc2'
- new
- call setline(1, 'global')
- LET g:CompleteFunc2Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'global']], g:CompleteFunc2Args)
- bw!
- #" Test for using a function()
- set completefunc=function('g:CompleteFunc1',\ [10])
- new
- call setline(1, 'one')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[10, 1, ''], [10, 0, 'one']], g:CompleteFunc1Args)
- bw!
- #" Using a funcref variable to set 'completefunc'
- VAR Fn = function('g:CompleteFunc1', [11])
- LET &completefunc = Fn
- new
- call setline(1, 'two')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[11, 1, ''], [11, 0, 'two']], g:CompleteFunc1Args)
- bw!
- #" Using string(funcref_variable) to set 'completefunc'
- LET Fn = function('g:CompleteFunc1', [12])
- LET &completefunc = string(Fn)
- new
- call setline(1, 'two')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[12, 1, ''], [12, 0, 'two']], g:CompleteFunc1Args)
- bw!
- #" Test for using a funcref()
- set completefunc=funcref('g:CompleteFunc1',\ [13])
- new
- call setline(1, 'three')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[13, 1, ''], [13, 0, 'three']], g:CompleteFunc1Args)
- bw!
- #" Using a funcref variable to set 'completefunc'
- LET Fn = funcref('g:CompleteFunc1', [14])
- LET &completefunc = Fn
- new
- call setline(1, 'four')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[14, 1, ''], [14, 0, 'four']], g:CompleteFunc1Args)
- bw!
- #" Using a string(funcref_variable) to set 'completefunc'
- LET Fn = funcref('g:CompleteFunc1', [15])
- LET &completefunc = string(Fn)
- new
- call setline(1, 'four')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[15, 1, ''], [15, 0, 'four']], g:CompleteFunc1Args)
- bw!
- #" Test for using a lambda function with set
- VAR optval = "LSTART a, b LMIDDLE CompleteFunc1(16, a, b) LEND"
- LET optval = substitute(optval, ' ', '\\ ', 'g')
- exe "set completefunc=" .. optval
- new
- call setline(1, 'five')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[16, 1, ''], [16, 0, 'five']], g:CompleteFunc1Args)
- bw!
- #" Set 'completefunc' to a lambda expression
- LET &completefunc = LSTART a, b LMIDDLE CompleteFunc1(17, a, b) LEND
- new
- call setline(1, 'six')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[17, 1, ''], [17, 0, 'six']], g:CompleteFunc1Args)
- bw!
- #" Set 'completefunc' to string(lambda_expression)
- LET &completefunc = 'LSTART a, b LMIDDLE CompleteFunc1(18, a, b) LEND'
- new
- call setline(1, 'six')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[18, 1, ''], [18, 0, 'six']], g:CompleteFunc1Args)
- bw!
- #" Set 'completefunc' to a variable with a lambda expression
- VAR Lambda = LSTART a, b LMIDDLE CompleteFunc1(19, a, b) LEND
- LET &completefunc = Lambda
- new
- call setline(1, 'seven')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:CompleteFunc1Args)
- bw!
- #" Set 'completefunc' to a string(variable with a lambda expression)
- LET Lambda = LSTART a, b LMIDDLE CompleteFunc1(20, a, b) LEND
- LET &completefunc = string(Lambda)
- new
- call setline(1, 'seven')
- LET g:CompleteFunc1Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:CompleteFunc1Args)
- bw!
- #" Test for using a lambda function with incorrect return value
- LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND
- LET &completefunc = Lambda
- new
- call setline(1, 'eight')
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- bw!
- #" Test for clearing the 'completefunc' option
- set completefunc=''
- set completefunc&
- call assert_fails("set completefunc=function('abc')", "E700:")
- call assert_fails("set completefunc=funcref('abc')", "E700:")
- #" set 'completefunc' to a non-existing function
- set completefunc=CompleteFunc2
- call setline(1, 'five')
- call assert_fails("set completefunc=function('NonExistingFunc')", 'E700:')
- call assert_fails("LET &completefunc = function('NonExistingFunc')", 'E700:')
- LET g:CompleteFunc2Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'five']], g:CompleteFunc2Args)
- bw!
- END
- call CheckLegacyAndVim9Success(lines)
- " Test for using a script-local function name
- func s:CompleteFunc3(findstart, base)
- call add(g:CompleteFunc3Args, [a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- set completefunc=s:CompleteFunc3
- new
- call setline(1, 'script1')
- let g:CompleteFunc3Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:CompleteFunc3Args)
- bw!
- let &completefunc = 's:CompleteFunc3'
- new
- call setline(1, 'script2')
- let g:CompleteFunc3Args = []
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script2']], g:CompleteFunc3Args)
- bw!
- delfunc s:CompleteFunc3
- " In Vim9 script s: can be omitted
- let lines =<< trim END
- vim9script
- var CompleteFunc4Args = []
- def CompleteFunc4(findstart: bool, base: string): any
- add(CompleteFunc4Args, [findstart, base])
- return findstart ? 0 : []
- enddef
- set completefunc=CompleteFunc4
- new
- setline(1, 'script1')
- feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'script1']], CompleteFunc4Args)
- bw!
- END
- call CheckScriptSuccess(lines)
- " invalid return value
- let &completefunc = {a -> 'abc'}
- call feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- " Using Vim9 lambda expression in legacy context should fail
- set completefunc=(a,\ b)\ =>\ CompleteFunc1(21,\ a,\ b)
- new | only
- let g:CompleteFunc1Args = []
- call assert_fails('call feedkeys("A\<C-X>\<C-U>\<Esc>", "x")', 'E117:')
- call assert_equal([], g:CompleteFunc1Args)
- " set 'completefunc' to a partial with dict. This used to cause a crash.
- func SetCompleteFunc()
- let params = {'complete': function('g:DictCompleteFunc')}
- let &completefunc = params.complete
- endfunc
- func g:DictCompleteFunc(_) dict
- endfunc
- call SetCompleteFunc()
- new
- call SetCompleteFunc()
- bw
- call test_garbagecollect_now()
- new
- set completefunc=
- wincmd w
- set completefunc=
- %bw!
- delfunc g:DictCompleteFunc
- delfunc SetCompleteFunc
- " Vim9 tests
- let lines =<< trim END
- vim9script
- def Vim9CompleteFunc(callnr: number, findstart: number, base: string): any
- add(g:Vim9completeFuncArgs, [callnr, findstart, base])
- return findstart ? 0 : []
- enddef
- # Test for using a def function with completefunc
- set completefunc=function('Vim9CompleteFunc',\ [60])
- new | only
- setline(1, 'one')
- g:Vim9completeFuncArgs = []
- feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9completeFuncArgs)
- bw!
- # Test for using a global function name
- &completefunc = g:CompleteFunc2
- new | only
- setline(1, 'two')
- g:CompleteFunc2Args = []
- feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'two']], g:CompleteFunc2Args)
- bw!
- # Test for using a script-local function name
- def LocalCompleteFunc(findstart: number, base: string): any
- add(g:LocalCompleteFuncArgs, [findstart, base])
- return findstart ? 0 : []
- enddef
- &completefunc = LocalCompleteFunc
- new | only
- setline(1, 'three')
- g:LocalCompleteFuncArgs = []
- feedkeys("A\<C-X>\<C-U>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'three']], g:LocalCompleteFuncArgs)
- bw!
- END
- call CheckScriptSuccess(lines)
- " cleanup
- set completefunc&
- delfunc CompleteFunc1
- delfunc CompleteFunc2
- unlet g:CompleteFunc1Args g:CompleteFunc2Args
- %bw!
- endfunc
- " Test for different ways of setting the 'omnifunc' option
- func Test_omnifunc_callback()
- func OmniFunc1(callnr, findstart, base)
- call add(g:OmniFunc1Args, [a:callnr, a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- func OmniFunc2(findstart, base)
- call add(g:OmniFunc2Args, [a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- let lines =<< trim END
- #" Test for using a function name
- LET &omnifunc = 'g:OmniFunc2'
- new
- call setline(1, 'zero')
- LET g:OmniFunc2Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'zero']], g:OmniFunc2Args)
- bw!
- #" Test for using a function()
- set omnifunc=function('g:OmniFunc1',\ [10])
- new
- call setline(1, 'one')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[10, 1, ''], [10, 0, 'one']], g:OmniFunc1Args)
- bw!
- #" Using a funcref variable to set 'omnifunc'
- VAR Fn = function('g:OmniFunc1', [11])
- LET &omnifunc = Fn
- new
- call setline(1, 'two')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[11, 1, ''], [11, 0, 'two']], g:OmniFunc1Args)
- bw!
- #" Using a string(funcref_variable) to set 'omnifunc'
- LET Fn = function('g:OmniFunc1', [12])
- LET &omnifunc = string(Fn)
- new
- call setline(1, 'two')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[12, 1, ''], [12, 0, 'two']], g:OmniFunc1Args)
- bw!
- #" Test for using a funcref()
- set omnifunc=funcref('g:OmniFunc1',\ [13])
- new
- call setline(1, 'three')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[13, 1, ''], [13, 0, 'three']], g:OmniFunc1Args)
- bw!
- #" Use let to set 'omnifunc' to a funcref
- LET Fn = funcref('g:OmniFunc1', [14])
- LET &omnifunc = Fn
- new
- call setline(1, 'four')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[14, 1, ''], [14, 0, 'four']], g:OmniFunc1Args)
- bw!
- #" Using a string(funcref) to set 'omnifunc'
- LET Fn = funcref("g:OmniFunc1", [15])
- LET &omnifunc = string(Fn)
- new
- call setline(1, 'four')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[15, 1, ''], [15, 0, 'four']], g:OmniFunc1Args)
- bw!
- #" Test for using a lambda function with set
- VAR optval = "LSTART a, b LMIDDLE OmniFunc1(16, a, b) LEND"
- LET optval = substitute(optval, ' ', '\\ ', 'g')
- exe "set omnifunc=" .. optval
- new
- call setline(1, 'five')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[16, 1, ''], [16, 0, 'five']], g:OmniFunc1Args)
- bw!
- #" Set 'omnifunc' to a lambda expression
- LET &omnifunc = LSTART a, b LMIDDLE OmniFunc1(17, a, b) LEND
- new
- call setline(1, 'six')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[17, 1, ''], [17, 0, 'six']], g:OmniFunc1Args)
- bw!
- #" Set 'omnifunc' to a string(lambda_expression)
- LET &omnifunc = 'LSTART a, b LMIDDLE OmniFunc1(18, a, b) LEND'
- new
- call setline(1, 'six')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[18, 1, ''], [18, 0, 'six']], g:OmniFunc1Args)
- bw!
- #" Set 'omnifunc' to a variable with a lambda expression
- VAR Lambda = LSTART a, b LMIDDLE OmniFunc1(19, a, b) LEND
- LET &omnifunc = Lambda
- new
- call setline(1, 'seven')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:OmniFunc1Args)
- bw!
- #" Set 'omnifunc' to a string(variable with a lambda expression)
- LET Lambda = LSTART a, b LMIDDLE OmniFunc1(20, a, b) LEND
- LET &omnifunc = string(Lambda)
- new
- call setline(1, 'seven')
- LET g:OmniFunc1Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:OmniFunc1Args)
- bw!
- #" Test for using a lambda function with incorrect return value
- LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND
- LET &omnifunc = Lambda
- new
- call setline(1, 'eight')
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- bw!
- #" Test for clearing the 'omnifunc' option
- set omnifunc=''
- set omnifunc&
- call assert_fails("set omnifunc=function('abc')", "E700:")
- call assert_fails("set omnifunc=funcref('abc')", "E700:")
- #" set 'omnifunc' to a non-existing function
- set omnifunc=OmniFunc2
- call setline(1, 'nine')
- call assert_fails("set omnifunc=function('NonExistingFunc')", 'E700:')
- call assert_fails("LET &omnifunc = function('NonExistingFunc')", 'E700:')
- LET g:OmniFunc2Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'nine']], g:OmniFunc2Args)
- bw!
- END
- call CheckLegacyAndVim9Success(lines)
- " Test for using a script-local function name
- func s:OmniFunc3(findstart, base)
- call add(g:OmniFunc3Args, [a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- set omnifunc=s:OmniFunc3
- new
- call setline(1, 'script1')
- let g:OmniFunc3Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:OmniFunc3Args)
- bw!
- let &omnifunc = 's:OmniFunc3'
- new
- call setline(1, 'script2')
- let g:OmniFunc3Args = []
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script2']], g:OmniFunc3Args)
- bw!
- delfunc s:OmniFunc3
- " invalid return value
- let &omnifunc = {a -> 'abc'}
- call feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- " Using Vim9 lambda expression in legacy context should fail
- set omnifunc=(a,\ b)\ =>\ OmniFunc1(21,\ a,\ b)
- new | only
- let g:OmniFunc1Args = []
- call assert_fails('call feedkeys("A\<C-X>\<C-O>\<Esc>", "x")', 'E117:')
- call assert_equal([], g:OmniFunc1Args)
- " set 'omnifunc' to a partial with dict. This used to cause a crash.
- func SetOmniFunc()
- let params = {'omni': function('g:DictOmniFunc')}
- let &omnifunc = params.omni
- endfunc
- func g:DictOmniFunc(_) dict
- endfunc
- call SetOmniFunc()
- new
- call SetOmniFunc()
- bw
- call test_garbagecollect_now()
- new
- set omnifunc=
- wincmd w
- set omnifunc=
- %bw!
- delfunc g:DictOmniFunc
- delfunc SetOmniFunc
- " Vim9 tests
- let lines =<< trim END
- vim9script
- def Vim9omniFunc(callnr: number, findstart: number, base: string): any
- add(g:Vim9omniFunc_Args, [callnr, findstart, base])
- return findstart ? 0 : []
- enddef
- # Test for using a def function with omnifunc
- set omnifunc=function('Vim9omniFunc',\ [60])
- new | only
- setline(1, 'one')
- g:Vim9omniFunc_Args = []
- feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9omniFunc_Args)
- bw!
- # Test for using a global function name
- &omnifunc = g:OmniFunc2
- new | only
- setline(1, 'two')
- g:OmniFunc2Args = []
- feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'two']], g:OmniFunc2Args)
- bw!
- # Test for using a script-local function name
- def LocalOmniFunc(findstart: number, base: string): any
- add(g:LocalOmniFuncArgs, [findstart, base])
- return findstart ? 0 : []
- enddef
- &omnifunc = LocalOmniFunc
- new | only
- setline(1, 'three')
- g:LocalOmniFuncArgs = []
- feedkeys("A\<C-X>\<C-O>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'three']], g:LocalOmniFuncArgs)
- bw!
- END
- call CheckScriptSuccess(lines)
- " cleanup
- set omnifunc&
- delfunc OmniFunc1
- delfunc OmniFunc2
- unlet g:OmniFunc1Args g:OmniFunc2Args
- %bw!
- endfunc
- " Test for different ways of setting the 'thesaurusfunc' option
- func Test_thesaurusfunc_callback()
- func TsrFunc1(callnr, findstart, base)
- call add(g:TsrFunc1Args, [a:callnr, a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- func TsrFunc2(findstart, base)
- call add(g:TsrFunc2Args, [a:findstart, a:base])
- return a:findstart ? 0 : ['sunday']
- endfunc
- let lines =<< trim END
- #" Test for using a function name
- LET &thesaurusfunc = 'g:TsrFunc2'
- new
- call setline(1, 'zero')
- LET g:TsrFunc2Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'zero']], g:TsrFunc2Args)
- bw!
- #" Test for using a function()
- set thesaurusfunc=function('g:TsrFunc1',\ [10])
- new
- call setline(1, 'one')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[10, 1, ''], [10, 0, 'one']], g:TsrFunc1Args)
- bw!
- #" Using a funcref variable to set 'thesaurusfunc'
- VAR Fn = function('g:TsrFunc1', [11])
- LET &thesaurusfunc = Fn
- new
- call setline(1, 'two')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[11, 1, ''], [11, 0, 'two']], g:TsrFunc1Args)
- bw!
- #" Using a string(funcref_variable) to set 'thesaurusfunc'
- LET Fn = function('g:TsrFunc1', [12])
- LET &thesaurusfunc = string(Fn)
- new
- call setline(1, 'two')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[12, 1, ''], [12, 0, 'two']], g:TsrFunc1Args)
- bw!
- #" Test for using a funcref()
- set thesaurusfunc=funcref('g:TsrFunc1',\ [13])
- new
- call setline(1, 'three')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[13, 1, ''], [13, 0, 'three']], g:TsrFunc1Args)
- bw!
- #" Using a funcref variable to set 'thesaurusfunc'
- LET Fn = funcref('g:TsrFunc1', [14])
- LET &thesaurusfunc = Fn
- new
- call setline(1, 'four')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[14, 1, ''], [14, 0, 'four']], g:TsrFunc1Args)
- bw!
- #" Using a string(funcref_variable) to set 'thesaurusfunc'
- LET Fn = funcref('g:TsrFunc1', [15])
- LET &thesaurusfunc = string(Fn)
- new
- call setline(1, 'four')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[15, 1, ''], [15, 0, 'four']], g:TsrFunc1Args)
- bw!
- #" Test for using a lambda function
- VAR optval = "LSTART a, b LMIDDLE TsrFunc1(16, a, b) LEND"
- LET optval = substitute(optval, ' ', '\\ ', 'g')
- exe "set thesaurusfunc=" .. optval
- new
- call setline(1, 'five')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[16, 1, ''], [16, 0, 'five']], g:TsrFunc1Args)
- bw!
- #" Test for using a lambda function with set
- LET &thesaurusfunc = LSTART a, b LMIDDLE TsrFunc1(17, a, b) LEND
- new
- call setline(1, 'six')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[17, 1, ''], [17, 0, 'six']], g:TsrFunc1Args)
- bw!
- #" Set 'thesaurusfunc' to a string(lambda expression)
- LET &thesaurusfunc = 'LSTART a, b LMIDDLE TsrFunc1(18, a, b) LEND'
- new
- call setline(1, 'six')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[18, 1, ''], [18, 0, 'six']], g:TsrFunc1Args)
- bw!
- #" Set 'thesaurusfunc' to a variable with a lambda expression
- VAR Lambda = LSTART a, b LMIDDLE TsrFunc1(19, a, b) LEND
- LET &thesaurusfunc = Lambda
- new
- call setline(1, 'seven')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[19, 1, ''], [19, 0, 'seven']], g:TsrFunc1Args)
- bw!
- #" Set 'thesaurusfunc' to a string(variable with a lambda expression)
- LET Lambda = LSTART a, b LMIDDLE TsrFunc1(20, a, b) LEND
- LET &thesaurusfunc = string(Lambda)
- new
- call setline(1, 'seven')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[20, 1, ''], [20, 0, 'seven']], g:TsrFunc1Args)
- bw!
- #" Test for using a lambda function with incorrect return value
- LET Lambda = LSTART a, b LMIDDLE strlen(a) LEND
- LET &thesaurusfunc = Lambda
- new
- call setline(1, 'eight')
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- bw!
- #" Test for clearing the 'thesaurusfunc' option
- set thesaurusfunc=''
- set thesaurusfunc&
- call assert_fails("set thesaurusfunc=function('abc')", "E700:")
- call assert_fails("set thesaurusfunc=funcref('abc')", "E700:")
- #" set 'thesaurusfunc' to a non-existing function
- set thesaurusfunc=TsrFunc2
- call setline(1, 'ten')
- call assert_fails("set thesaurusfunc=function('NonExistingFunc')", 'E700:')
- call assert_fails("LET &thesaurusfunc = function('NonExistingFunc')", 'E700:')
- LET g:TsrFunc2Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'ten']], g:TsrFunc2Args)
- bw!
- #" Use a buffer-local value and a global value
- set thesaurusfunc&
- setlocal thesaurusfunc=function('g:TsrFunc1',\ [22])
- call setline(1, 'sun')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", "x")
- call assert_equal('sun', getline(1))
- call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:TsrFunc1Args)
- new
- call setline(1, 'sun')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", "x")
- call assert_equal('sun', getline(1))
- call assert_equal([], g:TsrFunc1Args)
- set thesaurusfunc=function('g:TsrFunc1',\ [23])
- wincmd w
- call setline(1, 'sun')
- LET g:TsrFunc1Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", "x")
- call assert_equal('sun', getline(1))
- call assert_equal([[22, 1, ''], [22, 0, 'sun']], g:TsrFunc1Args)
- :%bw!
- END
- call CheckLegacyAndVim9Success(lines)
- " Test for using a script-local function name
- func s:TsrFunc3(findstart, base)
- call add(g:TsrFunc3Args, [a:findstart, a:base])
- return a:findstart ? 0 : []
- endfunc
- set tsrfu=s:TsrFunc3
- new
- call setline(1, 'script1')
- let g:TsrFunc3Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args)
- bw!
- let &tsrfu = 's:TsrFunc3'
- new
- call setline(1, 'script2')
- let g:TsrFunc3Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script2']], g:TsrFunc3Args)
- bw!
- new | only
- set thesaurusfunc=
- setlocal thesaurusfunc=NoSuchFunc
- setglobal thesaurusfunc=s:TsrFunc3
- call assert_equal('NoSuchFunc', &thesaurusfunc)
- call assert_equal('NoSuchFunc', &l:thesaurusfunc)
- call assert_equal('s:TsrFunc3', &g:thesaurusfunc)
- new | only
- call assert_equal('s:TsrFunc3', &thesaurusfunc)
- call assert_equal('s:TsrFunc3', &g:thesaurusfunc)
- call assert_equal('', &l:thesaurusfunc)
- call setline(1, 'script1')
- let g:TsrFunc3Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args)
- bw!
- new | only
- set thesaurusfunc=
- setlocal thesaurusfunc=NoSuchFunc
- set thesaurusfunc=s:TsrFunc3
- call assert_equal('s:TsrFunc3', &thesaurusfunc)
- call assert_equal('s:TsrFunc3', &g:thesaurusfunc)
- call assert_equal('', &l:thesaurusfunc)
- call setline(1, 'script1')
- let g:TsrFunc3Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args)
- setlocal bufhidden=wipe
- new | only!
- call assert_equal('s:TsrFunc3', &thesaurusfunc)
- call assert_equal('s:TsrFunc3', &g:thesaurusfunc)
- call assert_equal('', &l:thesaurusfunc)
- call setline(1, 'script1')
- let g:TsrFunc3Args = []
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- call assert_equal([[1, ''], [0, 'script1']], g:TsrFunc3Args)
- bw!
- delfunc s:TsrFunc3
- " invalid return value
- let &thesaurusfunc = {a -> 'abc'}
- call feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- " Using Vim9 lambda expression in legacy context should fail
- set thesaurusfunc=(a,\ b)\ =>\ TsrFunc1(21,\ a,\ b)
- new | only
- let g:TsrFunc1Args = []
- call assert_fails('call feedkeys("A\<C-X>\<C-T>\<Esc>", "x")', 'E117:')
- call assert_equal([], g:TsrFunc1Args)
- bw!
- " set 'thesaurusfunc' to a partial with dict. This used to cause a crash.
- func SetTsrFunc()
- let params = {'thesaurus': function('g:DictTsrFunc')}
- let &thesaurusfunc = params.thesaurus
- endfunc
- func g:DictTsrFunc(_) dict
- endfunc
- call SetTsrFunc()
- new
- call SetTsrFunc()
- bw
- call test_garbagecollect_now()
- new
- set thesaurusfunc=
- wincmd w
- %bw!
- delfunc SetTsrFunc
- " set buffer-local 'thesaurusfunc' to a partial with dict. This used to
- " cause a crash.
- func SetLocalTsrFunc()
- let params = {'thesaurus': function('g:DictTsrFunc')}
- let &l:thesaurusfunc = params.thesaurus
- endfunc
- call SetLocalTsrFunc()
- call test_garbagecollect_now()
- call SetLocalTsrFunc()
- set thesaurusfunc=
- bw!
- delfunc g:DictTsrFunc
- delfunc SetLocalTsrFunc
- " Vim9 tests
- let lines =<< trim END
- vim9script
- def Vim9tsrFunc(callnr: number, findstart: number, base: string): any
- add(g:Vim9tsrFunc_Args, [callnr, findstart, base])
- return findstart ? 0 : []
- enddef
- # Test for using a def function with thesaurusfunc
- set thesaurusfunc=function('Vim9tsrFunc',\ [60])
- new | only
- setline(1, 'one')
- g:Vim9tsrFunc_Args = []
- feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- assert_equal([[60, 1, ''], [60, 0, 'one']], g:Vim9tsrFunc_Args)
- bw!
- # Test for using a global function name
- &thesaurusfunc = g:TsrFunc2
- new | only
- setline(1, 'two')
- g:TsrFunc2Args = []
- feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'two']], g:TsrFunc2Args)
- bw!
- # Test for using a script-local function name
- def LocalTsrFunc(findstart: number, base: string): any
- add(g:LocalTsrFuncArgs, [findstart, base])
- return findstart ? 0 : []
- enddef
- &thesaurusfunc = LocalTsrFunc
- new | only
- setline(1, 'three')
- g:LocalTsrFuncArgs = []
- feedkeys("A\<C-X>\<C-T>\<Esc>", 'x')
- assert_equal([[1, ''], [0, 'three']], g:LocalTsrFuncArgs)
- bw!
- END
- call CheckScriptSuccess(lines)
- " cleanup
- set thesaurusfunc&
- delfunc TsrFunc1
- delfunc TsrFunc2
- unlet g:TsrFunc1Args g:TsrFunc2Args
- %bw!
- endfunc
- func FooBarComplete(findstart, base)
- if a:findstart
- return col('.') - 1
- else
- return ["Foo", "Bar", "}"]
- endif
- endfunc
- func Test_complete_smartindent()
- new
- setlocal smartindent completefunc=FooBarComplete
- exe "norm! o{\<cr>\<c-x>\<c-u>\<c-p>}\<cr>\<esc>"
- let result = getline(1,'$')
- call assert_equal(['', '{','}',''], result)
- bw!
- delfunction! FooBarComplete
- endfunc
- func Test_complete_overrun()
- " this was going past the end of the copied text
- new
- sil norm si0s0
- bwipe!
- endfunc
- func Test_infercase_very_long_line()
- " this was truncating the line when inferring case
- new
- let longLine = "blah "->repeat(300)
- let verylongLine = "blah "->repeat(400)
- call setline(1, verylongLine)
- call setline(2, longLine)
- set ic infercase
- exe "normal 2Go\<C-X>\<C-L>\<Esc>"
- call assert_equal(longLine, getline(3))
- " check that the too long text is NUL terminated
- %del
- norm o
- norm 1987ax
- exec "norm ox\<C-X>\<C-L>"
- call assert_equal(repeat('x', 1987), getline(3))
- bwipe!
- set noic noinfercase
- endfunc
- func Test_ins_complete_add()
- " this was reading past the end of allocated memory
- new
- norm o
- norm 7o
- sil! norm o
- bwipe!
- endfunc
- func Test_ins_complete_end_of_line()
- " this was reading past the end of the line
- new
- norm 8oý
- sil! norm o
- bwipe!
- endfunc
- func s:Tagfunc(t,f,o)
- bwipe!
- return []
- endfunc
- " This was using freed memory, since 'complete' was in a wiped out buffer.
- " Also using a window that was closed.
- func Test_tagfunc_wipes_out_buffer()
- new
- set complete=.,t,w,b,u,i
- se tagfunc=s:Tagfunc
- sil norm i
- bwipe!
- endfunc
- func Test_ins_complete_popup_position()
- CheckScreendump
- let lines =<< trim END
- vim9script
- set nowrap
- setline(1, ['one', 'two', 'this is line ', 'four'])
- prop_type_add('test', {highlight: 'Error'})
- prop_add(3, 0, {
- text_align: 'above',
- text: 'The quick brown fox jumps over the lazy dog',
- type: 'test'
- })
- END
- call writefile(lines, 'XinsPopup', 'D')
- let buf = RunVimInTerminal('-S XinsPopup', #{rows: 10})
- call term_sendkeys(buf, "3GA\<C-N>")
- call VerifyScreenDump(buf, 'Test_ins_complete_popup_position_1', {})
- call StopVimInTerminal(buf)
- endfunc
- func GetCompleteInfo()
- let g:compl_info = complete_info()
- return ''
- endfunc
- func Test_completion_restart()
- new
- set complete=. completeopt=menuone backspace=2
- call setline(1, 'workhorse workhorse')
- exe "normal $a\<C-N>\<BS>\<BS>\<C-R>=GetCompleteInfo()\<CR>"
- call assert_equal(1, len(g:compl_info['items']))
- call assert_equal('workhorse', g:compl_info['items'][0]['word'])
- set complete& completeopt& backspace&
- bwipe!
- endfunc
- func Test_complete_info_index()
- new
- call setline(1, ["aaa", "bbb", "ccc", "ddd", "eee", "fff"])
- inoremap <buffer><F5> <C-R>=GetCompleteInfo()<CR>
- " Ensure 'index' in complete_info() is coherent with the 'items' array.
- set completeopt=menu,preview
- " Search forward
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("bbb", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("ccc", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("ddd", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("eee", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " Search forward: unselected item
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(6 , len(g:compl_info['items']))
- call assert_equal(-1 , g:compl_info['selected'])
- " Search backward
- call feedkeys("Go\<C-X>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("eee", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("ddd", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("ccc", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("bbb", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " search backwards: unselected item
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(6 , len(g:compl_info['items']))
- call assert_equal(-1 , g:compl_info['selected'])
- " switch direction: forwards, then backwards
- call feedkeys("Go\<C-X>\<C-N>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " switch direction: forwards, then backwards, then forwards again
- call feedkeys("Go\<C-X>\<C-N>\<C-P>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-P>\<C-P>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " switch direction: backwards, then forwards
- call feedkeys("Go\<C-X>\<C-P>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " switch direction: backwards, then forwards, then backwards again
- call feedkeys("Go\<C-X>\<C-P>\<C-P>\<C-N>\<C-N>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- " Add 'noselect', check that 'selected' is -1 when nothing is selected.
- set completeopt+=noselect
- " Search forward.
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(-1, g:compl_info['selected'])
- " Search backward.
- call feedkeys("Go\<C-X>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(-1, g:compl_info['selected'])
- call feedkeys("Go\<C-X>\<C-N>\<C-P>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(5, g:compl_info['selected'])
- call assert_equal(6 , len(g:compl_info['items']))
- call assert_equal("fff", g:compl_info['items'][g:compl_info['selected']]['word'])
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal("aaa", g:compl_info['items'][g:compl_info['selected']]['word'])
- call assert_equal(6 , len(g:compl_info['items']))
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>_dd", 'tx')
- call assert_equal(-1, g:compl_info['selected'])
- call assert_equal(6 , len(g:compl_info['items']))
- set completeopt&
- bwipe!
- endfunc
- func Test_complete_changed_complete_info()
- CheckRunVimInTerminal
- " this used to crash vim, see #13929
- let lines =<< trim END
- set completeopt=menuone
- autocmd CompleteChanged * call complete_info(['items'])
- call feedkeys("iii\<cr>\<c-p>")
- END
- call writefile(lines, 'Xsegfault', 'D')
- let buf = RunVimInTerminal('-S Xsegfault', #{rows: 5})
- call WaitForAssert({-> assert_match('^ii', term_getline(buf, 1))}, 1000)
- call StopVimInTerminal(buf)
- endfunc
- func Test_completefunc_first_call_complete_add()
- new
- func Complete(findstart, base) abort
- if a:findstart
- let col = col('.')
- call complete_add('#')
- return col - 1
- else
- return []
- endif
- endfunc
- set completeopt=longest completefunc=Complete
- " This used to cause heap-buffer-overflow
- call assert_fails('call feedkeys("ifoo#\<C-X>\<C-U>", "xt")', 'E840:')
- delfunc Complete
- set completeopt& completefunc&
- bwipe!
- endfunc
- func Test_complete_fuzzy_match()
- func OnPumChange()
- let g:item = get(v:event, 'completed_item', {})
- let g:word = get(g:item, 'word', v:null)
- let g:abbr = get(g:item, 'abbr', v:null)
- let g:selected = get(complete_info(['selected']), 'selected')
- endfunction
- augroup AAAAA_Group
- au!
- autocmd CompleteChanged * :call OnPumChange()
- augroup END
- func Omni_test(findstart, base)
- if a:findstart
- return col(".")
- endif
- return [#{word: "foo"}, #{word: "foobar"}, #{word: "fooBaz"}, #{word: "foobala"}, #{word: "你好吗"}, #{word: "我好"}]
- endfunc
- new
- set omnifunc=Omni_test
- set completeopt+=noinsert,fuzzy
- call feedkeys("Gi\<C-x>\<C-o>", 'tx')
- call assert_equal('foo', g:word)
- call feedkeys("S\<C-x>\<C-o>fb", 'tx')
- call assert_equal('fooBaz', g:word)
- call feedkeys("S\<C-x>\<C-o>fa", 'tx')
- call assert_equal('foobar', g:word)
- " select next
- call feedkeys("S\<C-x>\<C-o>fb\<C-n>", 'tx')
- call assert_equal('foobar', g:word)
- " can cyclically select next
- call feedkeys("S\<C-x>\<C-o>fb\<C-n>\<C-n>\<C-n>", 'tx')
- call assert_equal(v:null, g:word)
- " select prev
- call feedkeys("S\<C-x>\<C-o>fb\<C-p>", 'tx')
- call assert_equal(v:null, g:word)
- " can cyclically select prev
- call feedkeys("S\<C-x>\<C-o>fb\<C-p>\<C-p>\<C-p>\<C-p>", 'tx')
- call assert_equal('fooBaz', g:word)
- func Comp()
- call complete(col('.'), ["fooBaz", "foobar", "foobala"])
- return ''
- endfunc
- call feedkeys("i\<C-R>=Comp()\<CR>", 'tx')
- call assert_equal('fooBaz', g:word)
- " respect noselect
- set completeopt+=noselect
- call feedkeys("S\<C-x>\<C-o>fb", 'tx')
- call assert_equal(v:null, g:word)
- call feedkeys("S\<C-x>\<C-o>fb\<C-n>", 'tx')
- call assert_equal('fooBaz', g:word)
- " avoid breaking default completion behavior
- set completeopt=fuzzy,menu
- call setline(1, ['hello help hero h'])
- " Use "!" flag of feedkeys() so that ex_normal_busy is not set and
- " ins_compl_check_keys() is not skipped.
- " Add a "0" after the <Esc> to avoid waiting for an escape sequence.
- call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!')
- call assert_equal('hello help hero hello', getline('.'))
- set completeopt+=noinsert
- call setline(1, ['hello help hero h'])
- call feedkeys("A\<C-X>\<C-N>\<Esc>0", 'tx!')
- call assert_equal('hello help hero h', getline('.'))
- " issue #15526
- set completeopt=fuzzy,menuone,menu,noselect
- call setline(1, ['Text', 'ToText', ''])
- call cursor(2, 1)
- call feedkeys("STe\<C-X>\<C-N>x\<CR>\<Esc>0", 'tx!')
- call assert_equal('Tex', getline('.'))
- " test case for nosort option
- set cot=menuone,menu,noinsert,fuzzy,nosort
- " "fooBaz" should have a higher score when the leader is "fb".
- " With "nosort", "foobar" should still be shown first in the popup menu.
- call feedkeys("S\<C-x>\<C-o>fb", 'tx')
- call assert_equal('foobar', g:word)
- call feedkeys("S\<C-x>\<C-o>好", 'tx')
- call assert_equal("你好吗", g:word)
- set cot+=noselect
- call feedkeys("S\<C-x>\<C-o>好", 'tx')
- call assert_equal(v:null, g:word)
- call feedkeys("S\<C-x>\<C-o>好\<C-N>", 'tx')
- call assert_equal('你好吗', g:word)
- " "nosort" shouldn't enable fuzzy filtering when "fuzzy" isn't present.
- set cot=menuone,noinsert,nosort
- call feedkeys("S\<C-x>\<C-o>fooB\<C-Y>", 'tx')
- call assert_equal('fooBaz', getline('.'))
- set cot=menuone,fuzzy,nosort
- func CompAnother()
- call complete(col('.'), [#{word: "do" }, #{word: "echo"}, #{word: "for (${1:expr1}, ${2:expr2}, ${3:expr3}) {\n\t$0\n}", abbr: "for" }, #{word: "foo"}])
- return ''
- endfunc
- call feedkeys("i\<C-R>=CompAnother()\<CR>\<C-N>\<C-N>", 'tx')
- call assert_equal("for", g:abbr)
- call assert_equal(2, g:selected)
- set cot+=noinsert
- call feedkeys("i\<C-R>=CompAnother()\<CR>f", 'tx')
- call assert_equal("for", g:abbr)
- call assert_equal(2, g:selected)
- " clean up
- set omnifunc=
- bw!
- set complete& completeopt&
- autocmd! AAAAA_Group
- augroup! AAAAA_Group
- delfunc OnPumChange
- delfunc Omni_test
- delfunc Comp
- delfunc CompAnother
- unlet g:item
- unlet g:word
- unlet g:selected
- unlet g:abbr
- endfunc
- " Check that tie breaking is stable for completeopt+=fuzzy (which should
- " behave the same on different platforms).
- func Test_complete_fuzzy_match_tie()
- new
- set completeopt+=fuzzy,noselect
- call setline(1, ['aaabbccc', 'aaabbCCC', 'aaabbcccc', 'aaabbCCCC', ''])
- call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-Y>", 'tx')
- call assert_equal('aaabbccc', getline('.'))
- call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-Y>", 'tx')
- call assert_equal('aaabbCCC', getline('.'))
- call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-N>\<C-Y>", 'tx')
- call assert_equal('aaabbcccc', getline('.'))
- call feedkeys("Gcc\<C-X>\<C-N>ab\<C-N>\<C-N>\<C-N>\<C-N>\<C-Y>", 'tx')
- call assert_equal('aaabbCCCC', getline('.'))
- bwipe!
- set completeopt&
- endfunc
- func Test_complete_info_matches()
- let g:what = ['matches']
- func ShownInfo()
- let g:compl_info = complete_info(g:what)
- return ''
- endfunc
- set completeopt+=noinsert
- new
- call setline(1, ['aaa', 'aab', 'aba', 'abb'])
- inoremap <buffer><F5> <C-R>=ShownInfo()<CR>
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx')
- call assert_equal([
- \ {'word': 'aaa', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'aab', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'aba', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \], g:compl_info['matches'])
- call feedkeys("Goa\<C-X>\<C-N>b\<F5>\<Esc>dd", 'tx')
- call assert_equal([
- \ {'word': 'aba', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''},
- \], g:compl_info['matches'])
- " items and matches both in what
- let g:what = ['items', 'matches']
- call feedkeys("Goa\<C-X>\<C-N>b\<F5>\<Esc>dd", 'tx')
- call assert_equal([
- \ {'word': 'aaa', 'menu': '', 'user_data': '', 'match': v:false, 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'aab', 'menu': '', 'user_data': '', 'match': v:false, 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'aba', 'menu': '', 'user_data': '', 'match': v:true, 'info': '', 'kind': '', 'abbr': ''},
- \ {'word': 'abb', 'menu': '', 'user_data': '', 'match': v:true, 'info': '', 'kind': '', 'abbr': ''},
- \], g:compl_info['items'])
- call assert_false(has_key(g:compl_info, 'matches'))
- bw!
- unlet g:what
- delfunc ShownInfo
- set cot&
- endfunc
- func Test_complete_info_completed()
- func ShownInfo()
- let g:compl_info = complete_info(['completed'])
- return ''
- endfunc
- set completeopt+=noinsert
- new
- call setline(1, ['aaa', 'aab', 'aba', 'abb'])
- inoremap <buffer><F5> <C-R>=ShownInfo()<CR>
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx')
- call assert_equal({'word': 'aaa', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed'])
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<F5>\<Esc>dd", 'tx')
- call assert_equal({'word': 'aab', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed'])
- call feedkeys("Go\<C-X>\<C-N>\<C-N>\<C-N>\<C-N>\<F5>\<Esc>dd", 'tx')
- call assert_equal({'word': 'abb', 'menu': '', 'user_data': '', 'info': '', 'kind': '', 'abbr': ''}, g:compl_info['completed'])
- set completeopt+=noselect
- call feedkeys("Go\<C-X>\<C-N>\<F5>\<Esc>dd", 'tx')
- call assert_equal({}, g:compl_info)
- bw!
- delfunc ShownInfo
- set cot&
- endfunc
- function Test_completeopt_preinsert()
- func Omni_test(findstart, base)
- if a:findstart
- return col(".")
- endif
- return [#{word: "fobar"}, #{word: "foobar"}, #{word: "你的"}, #{word: "你好世界"}]
- endfunc
- set omnifunc=Omni_test
- set completeopt=menu,menuone,preinsert
- new
- call feedkeys("S\<C-X>\<C-O>f", 'tx')
- call assert_equal("fobar", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("S\<C-X>\<C-O>foo", 'tx')
- call assert_equal("foobar", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("S\<C-X>\<C-O>foo\<BS>\<BS>\<BS>", 'tx')
- call assert_equal("", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- " delete a character and input new leader
- call feedkeys("S\<C-X>\<C-O>foo\<BS>b", 'tx')
- call assert_equal("fobar", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- " delete preinsert when prepare completion
- call feedkeys("S\<C-X>\<C-O>f\<Space>", 'tx')
- call assert_equal("f ", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("S\<C-X>\<C-O>你", 'tx')
- call assert_equal("你的", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("S\<C-X>\<C-O>你好", 'tx')
- call assert_equal("你好世界", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>f", 'tx')
- call assert_equal("hello fobar wo", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>f\<BS>", 'tx')
- call assert_equal("hello wo", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>foo", 'tx')
- call assert_equal("hello foobar wo", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- call feedkeys("Shello wo\<Left>\<Left>\<Left>\<C-X>\<C-O>foo\<BS>b", 'tx')
- call assert_equal("hello fobar wo", getline('.'))
- call feedkeys("\<C-E>\<ESC>", 'tx')
- " confirm
- call feedkeys("S\<C-X>\<C-O>f\<C-Y>", 'tx')
- call assert_equal("fobar", getline('.'))
- call assert_equal(5, col('.'))
- " cancel
- call feedkeys("S\<C-X>\<C-O>fo\<C-E>", 'tx')
- call assert_equal("fo", getline('.'))
- call assert_equal(2, col('.'))
- call feedkeys("S hello hero\<CR>h\<C-X>\<C-N>", 'tx')
- call assert_equal("hello", getline('.'))
- call assert_equal(1, col('.'))
- call feedkeys("Sh\<C-X>\<C-N>\<C-Y>", 'tx')
- call assert_equal("hello", getline('.'))
- call assert_equal(5, col('.'))
- " delete preinsert part
- call feedkeys("S\<C-X>\<C-O>fo ", 'tx')
- call assert_equal("fo ", getline('.'))
- call assert_equal(3, col('.'))
- call feedkeys("She\<C-X>\<C-N>\<C-U>", 'tx')
- call assert_equal("", getline('.'))
- call assert_equal(1, col('.'))
- call feedkeys("She\<C-X>\<C-N>\<C-W>", 'tx')
- call assert_equal("", getline('.'))
- call assert_equal(1, col('.'))
- " whole line
- call feedkeys("Shello hero\<CR>\<C-X>\<C-L>", 'tx')
- call assert_equal("hello hero", getline('.'))
- call assert_equal(1, col('.'))
- call feedkeys("Shello hero\<CR>he\<C-X>\<C-L>", 'tx')
- call assert_equal("hello hero", getline('.'))
- call assert_equal(2, col('.'))
- call feedkeys("Shello hero\<CR>h\<C-X>\<C-N>er", 'tx')
- call assert_equal("hero", getline('.'))
- call assert_equal(3, col('.'))
- " can not work with fuzzy
- set cot+=fuzzy
- call feedkeys("S\<C-X>\<C-O>", 'tx')
- call assert_equal("fobar", getline('.'))
- call assert_equal(5, col('.'))
- " test for fuzzy and noinsert
- set cot+=noinsert
- call feedkeys("S\<C-X>\<C-O>fb", 'tx')
- call assert_equal("fb", getline('.'))
- call assert_equal(2, col('.'))
- call feedkeys("S\<C-X>\<C-O>你", 'tx')
- call assert_equal("你", getline('.'))
- call assert_equal(1, col('.'))
- call feedkeys("S\<C-X>\<C-O>fb\<C-Y>", 'tx')
- call assert_equal("fobar", getline('.'))
- call assert_equal(5, col('.'))
- bw!
- set cot&
- set omnifunc&
- delfunc Omni_test
- endfunc
- " vim: shiftwidth=2 sts=2 expandtab nofoldenable
|