vim: src/testdir/test_tagfunc.vim annotate

annotate src/testdir/test_tagfunc.vim @ 26526:33d680d372aa v8.2.3792

patch 8.2.3792: setting *func options insufficiently tested Commit: https://github.com/vim/vim/commit/04ef1fb13d200f770952e670357dddadb6210dd4 Author: Yegappan Lakshmanan <yegappan@yahoo.com> Date: Sun Dec 12 20:08:05 2021 +0000 patch 8.2.3792: setting *func options insufficiently tested Problem: Setting *func options insufficiently tested. Solution: Impove tests. (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/9337)

author	Bram Moolenaar <Bram@vim.org>
date	Sun, 12 Dec 2021 21:15:03 +0100
parents	13ba00ef7687
children	6fed1f1bc282

rev	line source
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 " Test 'tagfunc'
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	2
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	3 source vim9.vim
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	4
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 func TagFunc(pat, flag, info)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 let g:tagfunc_args = [a:pat, a:flag, a:info]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 let tags = []
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 for num in range(1,10)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	9 let tags += [{
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 \ 'cmd': '2', 'name': 'nothing'.num, 'kind': 'm',
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 \ 'filename': 'Xfile1', 'user_data': 'somedata'.num,
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 \}]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	13 endfor
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 return tags
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	15 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	16
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 func Test_tagfunc()
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 set tagfunc=TagFunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 new Xfile1
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 call setline(1, ['empty', 'one()', 'empty'])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 write
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	22
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 call assert_equal({'cmd': '2', 'static': 0,
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 \ 'name': 'nothing2', 'user_data': 'somedata2',
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 \ 'kind': 'm', 'filename': 'Xfile1'}, taglist('.')[1])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	26
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 call settagstack(win_getid(), {'items': []})
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	28
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 tag arbitrary
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 call assert_equal('arbitrary', g:tagfunc_args[0])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 call assert_equal('', g:tagfunc_args[1])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 call assert_equal('somedata1', gettagstack().items[0].user_data)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 5tag arbitrary
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 call assert_equal('arbitrary', g:tagfunc_args[0])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 call assert_equal('', g:tagfunc_args[1])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 call assert_equal('somedata5', gettagstack().items[1].user_data)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 pop
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 tag
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 call assert_equal('arbitrary', g:tagfunc_args[0])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 call assert_equal('', g:tagfunc_args[1])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 call assert_equal('somedata5', gettagstack().items[1].user_data)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	42
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 let g:tagfunc_args=[]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 execute "normal! \<c-]>"
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 call assert_equal('one', g:tagfunc_args[0])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 call assert_equal('c', g:tagfunc_args[1])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	47
24186 4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	48 let g:tagfunc_args=[]
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	49 execute "tag /foo$"
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	50 call assert_equal('foo$', g:tagfunc_args[0])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	51 call assert_equal('r', g:tagfunc_args[1])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	52
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 set cpt=t
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 let g:tagfunc_args=[]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 execute "normal! i\<c-n>\<c-y>"
24186 4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	56 call assert_equal('\<\k\k', g:tagfunc_args[0])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	57 call assert_equal('cir', g:tagfunc_args[1])
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 call assert_equal('nothing1', getline('.')[0:7])
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	59
24186 4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	60 let g:tagfunc_args=[]
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	61 execute "normal! ono\<c-n>\<c-n>\<c-y>"
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	62 call assert_equal('\<no', g:tagfunc_args[0])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	63 call assert_equal('cir', g:tagfunc_args[1])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	64 call assert_equal('nothing2', getline('.')[0:7])
4902263c302e patch 8.2.2634: 'tagfunc' does not indicate using a pattern Bram Moolenaar <Bram@vim.org> parents: 22087 diff changeset	65
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 func BadTagFunc1(...)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 return 0
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 func BadTagFunc2(...)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 return [1]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 func BadTagFunc3(...)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 return [{'name': 'foo'}]
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	75
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 for &tagfunc in ['BadTagFunc1', 'BadTagFunc2', 'BadTagFunc3']
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 try
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 tag nothing
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 call assert_false(1, 'tag command should have failed')
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 catch
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 call assert_exception('E987:')
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 endtry
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 exe 'delf' &tagfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 endfor
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	85
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 func NullTagFunc(...)
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 return v:null
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 set tags= tfu=NullTagFunc
22087 ff21e2962490 patch 8.2.1593: tests do not check the error number properly Bram Moolenaar <Bram@vim.org> parents: 21265 diff changeset	90 call assert_fails('tag nothing', 'E433:')
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 delf NullTagFunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	92
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 bwipe!
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 set tags& tfu& cpt&
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 call delete('Xfile1')
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 endfunc
54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	97
19055 8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	98 " Test for modifying the tag stack from a tag function and jumping to a tag
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	99 " from a tag function
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	100 func Test_tagfunc_settagstack()
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	101 func Mytagfunc1(pat, flags, info)
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	102 call settagstack(1, {'tagname' : 'mytag', 'from' : [0, 10, 1, 0]})
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	103 return [{'name' : 'mytag', 'filename' : 'Xtest', 'cmd' : '1'}]
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	104 endfunc
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	105 set tagfunc=Mytagfunc1
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	106 call writefile([''], 'Xtest')
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	107 call assert_fails('tag xyz', 'E986:')
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	108
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	109 func Mytagfunc2(pat, flags, info)
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	110 tag test_tag
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	111 return [{'name' : 'mytag', 'filename' : 'Xtest', 'cmd' : '1'}]
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	112 endfunc
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	113 set tagfunc=Mytagfunc2
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	114 call assert_fails('tag xyz', 'E986:')
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	115
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	116 call delete('Xtest')
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	117 set tagfunc&
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	118 delfunc Mytagfunc1
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	119 delfunc Mytagfunc2
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	120 endfunc
8645b73b3645 patch 8.2.0088: insufficient tests for tags; bug in using extra tag field Bram Moolenaar <Bram@vim.org> parents: 16447 diff changeset	121
26388 8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	122 " Script local tagfunc callback function
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	123 func s:ScriptLocalTagFunc(pat, flags, info)
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	124 let g:ScriptLocalFuncArgs = [a:pat, a:flags, a:info]
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	125 return v:null
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	126 endfunc
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	127
26268 3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	128 " Test for different ways of setting the 'tagfunc' option
3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	129 func Test_tagfunc_callback()
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	130 func TagFunc1(callnr, pat, flags, info)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	131 let g:TagFunc1Args = [a:callnr, a:pat, a:flags, a:info]
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	132 return v:null
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	133 endfunc
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	134 func TagFunc2(pat, flags, info)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	135 let g:TagFunc2Args = [a:pat, a:flags, a:info]
26268 3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	136 return v:null
3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	137 endfunc
26456 7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	138
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	139 let lines =<< trim END
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	140 #" Test for using a function name
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	141 LET &tagfunc = 'g:TagFunc2'
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	142 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	143 LET g:TagFunc2Args = []
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	144 call assert_fails('tag a10', 'E433:')
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	145 call assert_equal(['a10', '', {}], g:TagFunc2Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	146 bw!
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	147
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	148 #" Test for using a function()
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	149 set tagfunc=function('g:TagFunc1',\ [10])
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	150 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	151 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	152 call assert_fails('tag a11', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	153 call assert_equal([10, 'a11', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	154 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	155
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	156 #" Using a funcref variable to set 'tagfunc'
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	157 VAR Fn = function('g:TagFunc1', [11])
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	158 LET &tagfunc = Fn
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	159 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	160 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	161 call assert_fails('tag a12', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	162 call assert_equal([11, 'a12', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	163 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	164
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	165 #" Using a string(funcref_variable) to set 'tagfunc'
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	166 LET Fn = function('g:TagFunc1', [12])
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	167 LET &tagfunc = string(Fn)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	168 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	169 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	170 call assert_fails('tag a12', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	171 call assert_equal([12, 'a12', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	172 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	173
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	174 #" Test for using a funcref()
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	175 set tagfunc=funcref('g:TagFunc1',\ [13])
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	176 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	177 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	178 call assert_fails('tag a13', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	179 call assert_equal([13, 'a13', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	180 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	181
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	182 #" Using a funcref variable to set 'tagfunc'
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	183 LET Fn = funcref('g:TagFunc1', [14])
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	184 LET &tagfunc = Fn
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	185 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	186 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	187 call assert_fails('tag a14', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	188 call assert_equal([14, 'a14', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	189 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	190
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	191 #" Using a string(funcref_variable) to set 'tagfunc'
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	192 LET Fn = funcref('g:TagFunc1', [15])
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	193 LET &tagfunc = string(Fn)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	194 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	195 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	196 call assert_fails('tag a14', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	197 call assert_equal([15, 'a14', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	198 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	199
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	200 #" Test for using a lambda function
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	201 VAR optval = "LSTART a, b, c LMIDDLE TagFunc1(16, a, b, c) LEND"
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	202 LET optval = substitute(optval, ' ', '\\ ', 'g')
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	203 exe "set tagfunc=" .. optval
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	204 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	205 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	206 call assert_fails('tag a17', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	207 call assert_equal([16, 'a17', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	208 bw!
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	209
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	210 #" Set 'tagfunc' to a lambda expression
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	211 LET &tagfunc = LSTART a, b, c LMIDDLE TagFunc1(17, a, b, c) LEND
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	212 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	213 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	214 call assert_fails('tag a18', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	215 call assert_equal([17, 'a18', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	216 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	217
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	218 #" Set 'tagfunc' to a string(lambda expression)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	219 LET &tagfunc = 'LSTART a, b, c LMIDDLE TagFunc1(18, a, b, c) LEND'
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	220 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	221 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	222 call assert_fails('tag a18', 'E433:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	223 call assert_equal([18, 'a18', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	224 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	225
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	226 #" Set 'tagfunc' to a variable with a lambda expression
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	227 VAR Lambda = LSTART a, b, c LMIDDLE TagFunc1(19, a, b, c) LEND
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	228 LET &tagfunc = Lambda
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	229 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	230 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	231 call assert_fails("tag a19", "E433:")
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	232 call assert_equal([19, 'a19', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	233 bw!
26441 65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	234
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	235 #" Set 'tagfunc' to a string(variable with a lambda expression)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	236 LET Lambda = LSTART a, b, c LMIDDLE TagFunc1(20, a, b, c) LEND
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	237 LET &tagfunc = string(Lambda)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	238 new
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	239 LET g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	240 call assert_fails("tag a19", "E433:")
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	241 call assert_equal([20, 'a19', '', {}], g:TagFunc1Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	242 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	243
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	244 #" Test for using a lambda function with incorrect return value
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	245 LET Lambda = LSTART a, b, c LMIDDLE strlen(a) LEND
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	246 LET &tagfunc = string(Lambda)
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	247 new
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	248 call assert_fails("tag a20", "E987:")
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	249 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	250
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	251 #" Test for clearing the 'tagfunc' option
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	252 set tagfunc=''
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	253 set tagfunc&
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	254 call assert_fails("set tagfunc=function('abc')", "E700:")
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	255 call assert_fails("set tagfunc=funcref('abc')", "E700:")
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	256
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	257 #" set 'tagfunc' to a non-existing function
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	258 LET &tagfunc = function('g:TagFunc2', [21])
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	259 LET g:TagFunc2Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	260 call assert_fails("set tagfunc=function('NonExistingFunc')", 'E700:')
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	261 call assert_fails("LET &tagfunc = function('NonExistingFunc')", 'E700:')
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	262 call assert_fails("tag axb123", 'E426:')
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	263 call assert_equal([], g:TagFunc2Args)
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	264 bw!
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	265 END
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	266 call CheckLegacyAndVim9Success(lines)
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	267
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	268 let &tagfunc = "{a -> 'abc'}"
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	269 call assert_fails("echo taglist('a')", "E987:")
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	270
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	271 " Using Vim9 lambda expression in legacy context should fail
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	272 set tagfunc=(a,\ b,\ c)\ =>\ g:TagFunc1(21,\ a,\ b,\ c)
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	273 new \| only
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	274 let g:TagFunc1Args = []
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	275 call assert_fails("tag a17", "E117:")
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	276 call assert_equal([], g:TagFunc1Args)
26268 3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	277
26388 8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	278 " Test for using a script local function
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	279 set tagfunc=<SID>ScriptLocalTagFunc
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	280 new \| only
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	281 let g:ScriptLocalFuncArgs = []
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	282 call assert_fails('tag a15', 'E433:')
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	283 call assert_equal(['a15', '', {}], g:ScriptLocalFuncArgs)
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	284
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	285 " Test for using a script local funcref variable
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	286 let Fn = function("s:ScriptLocalTagFunc")
26441 65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	287 let &tagfunc= Fn
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	288 new \| only
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	289 let g:ScriptLocalFuncArgs = []
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	290 call assert_fails('tag a16', 'E433:')
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	291 call assert_equal(['a16', '', {}], g:ScriptLocalFuncArgs)
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	292
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	293 " Test for using a string(script local funcref variable)
65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26388 diff changeset	294 let Fn = function("s:ScriptLocalTagFunc")
26388 8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	295 let &tagfunc= string(Fn)
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	296 new \| only
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	297 let g:ScriptLocalFuncArgs = []
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	298 call assert_fails('tag a16', 'E433:')
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	299 call assert_equal(['a16', '', {}], g:ScriptLocalFuncArgs)
8aba638e91eb patch 8.2.3725: cannot use a lambda for 'completefunc' and 'omnifunc' Bram Moolenaar <Bram@vim.org> parents: 26362 diff changeset	300
26518 13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	301 " set 'tagfunc' to a partial with dict. This used to cause a crash.
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	302 func SetTagFunc()
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	303 let params = {'tagfn': function('g:DictTagFunc')}
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	304 let &tagfunc = params.tagfn
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	305 endfunc
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	306 func g:DictTagFunc(_) dict
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	307 endfunc
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	308 call SetTagFunc()
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	309 new
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	310 call SetTagFunc()
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	311 bw
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	312 call test_garbagecollect_now()
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	313 new
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	314 set tagfunc=
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	315 wincmd w
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	316 set tagfunc=
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	317 :%bw!
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	318 delfunc g:DictTagFunc
13ba00ef7687 patch 8.2.3788: lambda for option that is a function may be freed Bram Moolenaar <Bram@vim.org> parents: 26456 diff changeset	319 delfunc SetTagFunc
26456 7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	320
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	321 " Vim9 tests
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	322 let lines =<< trim END
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	323 vim9script
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	324
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	325 # Test for using function()
26456 7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	326 def Vim9tagFunc(val: number, pat: string, flags: string, info: dict<any>): any
7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	327 g:Vim9tagFuncArgs = [val, pat, flags, info]
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	328 return null
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	329 enddef
26456 7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	330 set tagfunc=function('Vim9tagFunc',\ [60])
7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	331 new \| only
7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	332 g:Vim9tagFuncArgs = []
7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	333 assert_fails('tag a10', 'E433:')
7eaf61a67d18 patch 8.2.3758: options that take a function insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 26452 diff changeset	334 assert_equal([60, 'a10', '', {}], g:Vim9tagFuncArgs)
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	335 END
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	336 call CheckScriptSuccess(lines)
dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	337
26268 3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	338 " cleanup
26526 33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	339 delfunc TagFunc1
33d680d372aa patch 8.2.3792: setting func options insufficiently tested Bram Moolenaar <Bram@vim.org>* parents: 26518 diff changeset	340 delfunc TagFunc2
26362 dbe615b75f15 patch 8.2.3712: cannot use Vim9 lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 26268 diff changeset	341 set tagfunc&
26268 3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	342 %bw!
3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	343 endfunc
3aa48d4e3dc8 patch 8.2.3665: cannot use a lambda for 'tagfunc' Bram Moolenaar <Bram@vim.org> parents: 24186 diff changeset	344
16447 54ffc82f38a8 patch 8.1.1228: not possible to process tags with a function Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 " vim: shiftwidth=2 sts=2 expandtab

Mercurial > vim

annotate src/testdir/test_tagfunc.vim @ 26526:33d680d372aa v8.2.3792