blob: 5599655461e4b015c01e6f9e51cbd18e7b7eea22 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
" 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
|
