xref: /vim-8.2.3635/src/testdir/test_lambda.vim (revision 4f0383bc)
1069c1e7fSBram Moolenaarfunction! Test_lambda_with_filter()
2069c1e7fSBram Moolenaar  let s:x = 2
3069c1e7fSBram Moolenaar  call assert_equal([2, 3], filter([1, 2, 3], {i, v -> v >= s:x}))
4069c1e7fSBram Moolenaarendfunction
5069c1e7fSBram Moolenaar
6069c1e7fSBram Moolenaarfunction! Test_lambda_with_map()
7069c1e7fSBram Moolenaar  let s:x = 1
8069c1e7fSBram Moolenaar  call assert_equal([2, 3, 4], map([1, 2, 3], {i, v -> v + s:x}))
9069c1e7fSBram Moolenaarendfunction
10069c1e7fSBram Moolenaar
11069c1e7fSBram Moolenaarfunction! Test_lambda_with_sort()
12069c1e7fSBram Moolenaar  call assert_equal([1, 2, 3, 4, 7], sort([3,7,2,1,4], {a, b -> a - b}))
13069c1e7fSBram Moolenaarendfunction
14069c1e7fSBram Moolenaar
15069c1e7fSBram Moolenaarfunction! Test_lambda_with_timer()
16069c1e7fSBram Moolenaar  if !has('timers')
17069c1e7fSBram Moolenaar    return
18069c1e7fSBram Moolenaar  endif
19069c1e7fSBram Moolenaar
20069c1e7fSBram Moolenaar  let s:n = 0
21069c1e7fSBram Moolenaar  let s:timer_id = 0
22069c1e7fSBram Moolenaar  function! s:Foo()
23069c1e7fSBram Moolenaar    "let n = 0
24069c1e7fSBram Moolenaar    let s:timer_id = timer_start(50, {-> execute("let s:n += 1 | echo s:n")}, {"repeat": -1})
25069c1e7fSBram Moolenaar  endfunction
26069c1e7fSBram Moolenaar
27069c1e7fSBram Moolenaar  call s:Foo()
28069c1e7fSBram Moolenaar  sleep 200ms
29069c1e7fSBram Moolenaar  " do not collect lambda
30069c1e7fSBram Moolenaar  call test_garbagecollect_now()
31069c1e7fSBram Moolenaar  let m = s:n
32069c1e7fSBram Moolenaar  sleep 200ms
33069c1e7fSBram Moolenaar  call timer_stop(s:timer_id)
34069c1e7fSBram Moolenaar  call assert_true(m > 1)
35069c1e7fSBram Moolenaar  call assert_true(s:n > m + 1)
36069c1e7fSBram Moolenaar  call assert_true(s:n < 9)
37069c1e7fSBram Moolenaarendfunction
38069c1e7fSBram Moolenaar
39069c1e7fSBram Moolenaarfunction! Test_lambda_with_partial()
40069c1e7fSBram Moolenaar  let l:Cb = function({... -> ['zero', a:1, a:2, a:3]}, ['one', 'two'])
41069c1e7fSBram Moolenaar  call assert_equal(['zero', 'one', 'two', 'three'], l:Cb('three'))
42069c1e7fSBram Moolenaarendfunction
43069c1e7fSBram Moolenaar
44069c1e7fSBram Moolenaarfunction Test_lambda_fails()
45069c1e7fSBram Moolenaar  call assert_equal(3, {a, b -> a + b}(1, 2))
46069c1e7fSBram Moolenaar  call assert_fails('echo {a, a -> a + a}(1, 2)', 'E15:')
47069c1e7fSBram Moolenaar  call assert_fails('echo {a, b -> a + b)}(1, 2)', 'E15:')
48069c1e7fSBram Moolenaarendfunc
49*4f0383bcSBram Moolenaar
50*4f0383bcSBram Moolenaarfunc Test_not_lamda()
51*4f0383bcSBram Moolenaar  let x = {'>' : 'foo'}
52*4f0383bcSBram Moolenaar  call assert_equal('foo', x['>'])
53*4f0383bcSBram Moolenaarendfunc
54