1function! Test_lambda_with_filter() 2 let s:x = 2 3 call assert_equal([2, 3], filter([1, 2, 3], {i, v -> v >= s:x})) 4endfunction 5 6function! Test_lambda_with_map() 7 let s:x = 1 8 call assert_equal([2, 3, 4], map([1, 2, 3], {i, v -> v + s:x})) 9endfunction 10 11function! Test_lambda_with_sort() 12 call assert_equal([1, 2, 3, 4, 7], sort([3,7,2,1,4], {a, b -> a - b})) 13endfunction 14 15function! Test_lambda_with_timer() 16 if !has('timers') 17 return 18 endif 19 20 let s:n = 0 21 let s:timer_id = 0 22 function! s:Foo() 23 "let n = 0 24 let s:timer_id = timer_start(50, {-> execute("let s:n += 1 | echo s:n")}, {"repeat": -1}) 25 endfunction 26 27 call s:Foo() 28 sleep 200ms 29 " do not collect lambda 30 call test_garbagecollect_now() 31 let m = s:n 32 sleep 200ms 33 call timer_stop(s:timer_id) 34 call assert_true(m > 1) 35 call assert_true(s:n > m + 1) 36 call assert_true(s:n < 9) 37endfunction 38 39function! Test_lambda_with_partial() 40 let l:Cb = function({... -> ['zero', a:1, a:2, a:3]}, ['one', 'two']) 41 call assert_equal(['zero', 'one', 'two', 'three'], l:Cb('three')) 42endfunction 43 44function Test_lambda_fails() 45 call assert_equal(3, {a, b -> a + b}(1, 2)) 46 call assert_fails('echo {a, a -> a + a}(1, 2)', 'E15:') 47 call assert_fails('echo {a, b -> a + b)}(1, 2)', 'E15:') 48endfunc 49 50func Test_not_lamda() 51 let x = {'>' : 'foo'} 52 call assert_equal('foo', x['>']) 53endfunc 54