Mercurial > vim
view src/testdir/test_nested_function.vim @ 28139:f34afadbef47 v8.2.4594
patch 8.2.4594: need to write script to a file to be able to source them
Commit: https://github.com/vim/vim/commit/36a5b6867bb6c0bd69c8da7d788000ab8a0b0ab0
Author: Yegappan Lakshmanan <yegappan@yahoo.com>
Date: Sat Mar 19 12:56:51 2022 +0000
patch 8.2.4594: need to write script to a file to be able to source them
Problem: Need to write script to a file to be able to source them.
Solution: Make ":source" use lines from the current buffer. (Yegappan
Lakshmanan et al., closes #9967)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 19 Mar 2022 14:00:03 +0100 |
parents | 08940efa6b4e |
children |
line wrap: on
line source
" Tests for nested functions source check.vim func NestedFunc() func! Func1() let g:text .= 'Func1 ' endfunc call Func1() func! s:func2() let g:text .= 's:func2 ' endfunc call s:func2() func! s:_func3() let g:text .= 's:_func3 ' endfunc call s:_func3() let fn = 'Func4' func! {fn}() let g:text .= 'Func4 ' endfunc call {fn}() let fn = 'func5' func! s:{fn}() let g:text .= 's:func5' endfunc call s:{fn}() endfunc func Test_nested_functions() let g:text = '' call NestedFunc() call assert_equal('Func1 s:func2 s:_func3 Func4 s:func5', g:text) endfunction func Test_nested_argument() func g:X() let g:Y = function('sort') endfunc let g:Y = function('sort') echo g:Y([], g:X()) delfunc g:X unlet g:Y endfunc func Recurse(count) if a:count > 0 call Recurse(a:count - 1) endif endfunc func Test_max_nesting() " TODO: why does this fail on Windows? Runs out of stack perhaps? CheckNotMSWindows let call_depth_here = 2 let ex_depth_here = 5 set mfd& call Recurse(99 - call_depth_here) call assert_fails('call Recurse(' . (100 - call_depth_here) . ')', 'E132:') set mfd=210 call Recurse(209 - ex_depth_here) call assert_fails('call Recurse(' . (210 - ex_depth_here) . ')', 'E169:') set mfd& endfunc " vim: shiftwidth=2 sts=2 expandtab