Mercurial > vim
view src/testdir/test_user_func.vim @ 15721:e84eb23f4670 v8.1.0868
patch 8.1.0868: crash if triggering garbage collector after a function call
commit https://github.com/vim/vim/commit/889da2f2438c8168f9a25dc776360b81109bad44
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Feb 2 14:02:30 2019 +0100
patch 8.1.0868: crash if triggering garbage collector after a function call
Problem: Crash if triggering garbage collector after a function call.
(Michael Henry)
Solution: Don't call the garbage collector right away, do it later.
(closes #3894)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 02 Feb 2019 14:15:12 +0100 |
parents | 15f0f9f16cd9 |
children | 1a911bd57f11 |
line wrap: on
line source
" Test for user functions. " Also test an <expr> mapping calling a function. " Also test that a builtin function cannot be replaced. " Also test for regression when calling arbitrary expression. func Table(title, ...) let ret = a:title let idx = 1 while idx <= a:0 exe "let ret = ret . a:" . idx let idx = idx + 1 endwhile return ret endfunc func Compute(n1, n2, divname) if a:n2 == 0 return "fail" endif exe "let g:" . a:divname . " = ". a:n1 / a:n2 return "ok" endfunc func Expr1() silent! normal! v return "111" endfunc func Expr2() call search('XX', 'b') return "222" endfunc func ListItem() let g:counter += 1 return g:counter . '. ' endfunc func ListReset() let g:counter = 0 return '' endfunc func FuncWithRef(a) unlet g:FuncRef return a:a endfunc func Test_user_func() let g:FuncRef=function("FuncWithRef") let g:counter = 0 inoremap <expr> ( ListItem() inoremap <expr> [ ListReset() imap <expr> + Expr1() imap <expr> * Expr2() let g:retval = "nop" call assert_equal('xxx4asdf', Table("xxx", 4, "asdf")) call assert_equal('fail', Compute(45, 0, "retval")) call assert_equal('nop', g:retval) call assert_equal('ok', Compute(45, 5, "retval")) call assert_equal(9, g:retval) call assert_equal(333, g:FuncRef(333)) enew normal oXX+-XX call assert_equal('XX111-XX', getline('.')) normal o---*--- call assert_equal('---222---', getline('.')) normal o(one call assert_equal('1. one', getline('.')) normal o(two call assert_equal('2. two', getline('.')) normal o[(one again call assert_equal('1. one again', getline('.')) call assert_equal(3, max([1, 2, 3])) call assert_fails("call extend(g:, {'max': function('min')})", 'E704') call assert_equal(3, max([1, 2, 3])) " Regression: the first line below used to throw ?E110: Missing ')'? " Second is here just to prove that this line is correct when not skipping " rhs of &&. call assert_equal(0, (0 && (function('tr'))(1, 2, 3))) call assert_equal(1, (1 && (function('tr'))(1, 2, 3))) delfunc Table delfunc Compute delfunc Expr1 delfunc Expr2 delfunc ListItem delfunc ListReset unlet g:retval g:counter enew! endfunc