1" Tests for Vim9 script expressions
2
3source check.vim
4source vim9.vim
5
6let g:cond = v:false
7def FuncOne(arg: number): string
8  return 'yes'
9enddef
10def FuncTwo(arg: number): number
11  return 123
12enddef
13
14" test cond ? expr : expr
15def Test_expr1_trinary()
16  var lines =<< trim END
17      assert_equal('one', true ? 'one' : 'two')
18      assert_equal('one', 1 ?
19                            'one' :
20                            'two')
21      if has('float')
22        assert_equal('one', !!0.1 ? 'one' : 'two')
23      endif
24      assert_equal('one', !!'x' ? 'one' : 'two')
25      assert_equal('one', !!'x'
26                            ? 'one'
27                            : 'two')
28      assert_equal('one', !!0z1234 ? 'one' : 'two')
29      assert_equal('one', !![0] ? 'one' : 'two')
30      assert_equal('one', !!{x: 0} ? 'one' : 'two')
31      var name = 1
32      assert_equal('one', name ? 'one' : 'two')
33
34      assert_equal('two', false ? 'one' : 'two')
35      assert_equal('two', 0 ? 'one' : 'two')
36      if has('float')
37        assert_equal('two', !!0.0 ? 'one' : 'two')
38      endif
39      assert_equal('two', !!'' ? 'one' : 'two')
40      assert_equal('two', !!0z ? 'one' : 'two')
41      assert_equal('two', !![] ? 'one' : 'two')
42      assert_equal('two', !!{} ? 'one' : 'two')
43      name = 0
44      assert_equal('two', name ? 'one' : 'two')
45
46      echo ['a'] + (1 ? ['b'] : ['c']
47                )
48      echo ['a'] + (1 ? ['b'] : ['c'] # comment
49                )
50
51      # with constant condition expression is not evaluated
52      assert_equal('one', 1 ? 'one' : xxx)
53
54      var Some: func = function('len')
55      var Other: func = function('winnr')
56      var Res: func = g:atrue ? Some : Other
57      assert_equal(function('len'), Res)
58
59      var RetOne: func(string): number = function('len')
60      var RetTwo: func(string): number = function('winnr')
61      var RetThat: func = g:atrue ? RetOne : RetTwo
62      assert_equal(function('len'), RetThat)
63
64      var X = FuncOne
65      var Y = FuncTwo
66      var Z = g:cond ? FuncOne : FuncTwo
67      assert_equal(123, Z(3))
68  END
69  CheckDefAndScriptSuccess(lines)
70enddef
71
72def Test_expr1_trinary_vimscript()
73  # check line continuation
74  var lines =<< trim END
75      vim9script
76      var name = 1
77      		? 'yes'
78		: 'no'
79      assert_equal('yes', name)
80  END
81  CheckScriptSuccess(lines)
82
83  lines =<< trim END
84      vim9script
85      var name = v:false
86      		? 'yes'
87		: 'no'
88      assert_equal('no', name)
89  END
90  CheckScriptSuccess(lines)
91
92  lines =<< trim END
93      vim9script
94      var name = v:false ?
95      		'yes' :
96		'no'
97      assert_equal('no', name)
98  END
99  CheckScriptSuccess(lines)
100
101  lines =<< trim END
102      vim9script
103      var name = v:false ?  # comment
104      		'yes' :
105                # comment
106		'no' # comment
107      assert_equal('no', name)
108  END
109  CheckScriptSuccess(lines)
110
111  # check white space
112  lines =<< trim END
113      vim9script
114      var name = v:true?1:2
115  END
116  CheckScriptFailure(lines, 'E1004: White space required before and after ''?'' at "?1:2"', 2)
117  lines =<< trim END
118      vim9script
119      var name = v:true? 1 : 2
120  END
121  CheckScriptFailure(lines, 'E1004:', 2)
122  lines =<< trim END
123      vim9script
124      var name = v:true ?1 : 2
125  END
126  CheckScriptFailure(lines, 'E1004:', 2)
127  lines =<< trim END
128      vim9script
129      var name = v:true ? 1: 2
130  END
131  CheckScriptFailure(lines, 'E1004: White space required before and after '':'' at ": 2"', 2)
132  lines =<< trim END
133      vim9script
134      var name = v:true ? 1 :2
135  END
136  CheckScriptFailure(lines, 'E1004:', 2)
137
138  lines =<< trim END
139      vim9script
140      var name = 'x' ? 1 : 2
141  END
142  CheckScriptFailure(lines, 'E1135:', 2)
143
144  lines =<< trim END
145      vim9script
146      var name = [] ? 1 : 2
147  END
148  CheckScriptFailure(lines, 'E745:', 2)
149
150  lines =<< trim END
151      vim9script
152      var name = {} ? 1 : 2
153  END
154  CheckScriptFailure(lines, 'E728:', 2)
155
156  # check after failure eval_flags is reset
157  lines =<< trim END
158      vim9script
159      try
160        eval('0 ? 1: 2')
161      catch
162      endtry
163      assert_equal(v:true, eval(string(v:true)))
164  END
165  CheckScriptSuccess(lines)
166
167  lines =<< trim END
168      vim9script
169      try
170        eval('0 ? 1 :2')
171      catch
172      endtry
173      assert_equal(v:true, eval(string(v:true)))
174  END
175  CheckScriptSuccess(lines)
176enddef
177
178func Test_expr1_trinary_fails()
179  call CheckDefFailure(["var x = 1 ? 'one'"], "Missing ':' after '?'", 1)
180
181  let msg = "White space required before and after '?'"
182  call CheckDefFailure(["var x = 1? 'one' : 'two'"], msg, 1)
183  call CheckDefFailure(["var x = 1 ?'one' : 'two'"], msg, 1)
184  call CheckDefFailure(["var x = 1?'one' : 'two'"], msg, 1)
185
186  let msg = "White space required before and after ':'"
187  call CheckDefFailure(["var x = 1 ? 'one': 'two'"], msg, 1)
188  call CheckDefFailure(["var x = 1 ? 'one' :'two'"], msg, 1)
189  call CheckDefFailure(["var x = 1 ? 'one':'two'"], msg, 1)
190
191  call CheckDefFailure(["var x = 'x' ? 'one' : 'two'"], 'E1135:', 1)
192  call CheckDefFailure(["var x = 0z1234 ? 'one' : 'two'"], 'E974:', 1)
193  call CheckDefExecFailure(["var x = [] ? 'one' : 'two'"], 'E745:', 1)
194  call CheckDefExecFailure(["var x = {} ? 'one' : 'two'"], 'E728:', 1)
195
196  call CheckDefExecFailure(["var x = false ? "], 'E1097:', 3)
197  call CheckDefExecFailure(["var x = false ? 'one' : "], 'E1097:', 3)
198
199  call CheckDefExecFailure(["var x = true ? xxx : 'foo'"], 'E1001:', 1)
200  call CheckDefExecFailure(["var x = false ? 'foo' : xxx"], 'E1001:', 1)
201
202  if has('float')
203    call CheckDefFailure(["var x = 0.1 ? 'one' : 'two'"], 'E805:', 1)
204  endif
205
206  " missing argument detected even when common type is used
207  call CheckDefFailure([
208	\ 'var X = FuncOne',
209	\ 'var Y = FuncTwo',
210	\ 'var Z = g:cond ? FuncOne : FuncTwo',
211	\ 'Z()'], 'E119:', 4)
212endfunc
213
214def Test_expr1_falsy()
215  var lines =<< trim END
216      assert_equal(v:true, v:true ?? 456)
217      assert_equal(123, 123 ?? 456)
218      assert_equal('yes', 'yes' ?? 456)
219      assert_equal([1], [1] ?? 456)
220      assert_equal({one: 1}, {one: 1} ?? 456)
221      if has('float')
222        assert_equal(0.1, 0.1 ?? 456)
223      endif
224
225      assert_equal(456, v:false ?? 456)
226      assert_equal(456, 0 ?? 456)
227      assert_equal(456, '' ?? 456)
228      assert_equal(456, [] ?? 456)
229      assert_equal(456, {} ?? 456)
230      if has('float')
231        assert_equal(456, 0.0 ?? 456)
232      endif
233  END
234  CheckDefAndScriptSuccess(lines)
235
236  var msg = "White space required before and after '??'"
237  call CheckDefFailure(["var x = 1?? 'one' : 'two'"], msg, 1)
238  call CheckDefFailure(["var x = 1 ??'one' : 'two'"], msg, 1)
239  call CheckDefFailure(["var x = 1??'one' : 'two'"], msg, 1)
240enddef
241
242def Record(val: any): any
243  g:vals->add(val)
244  return val
245enddef
246
247" test ||
248def Test_expr2()
249  var lines =<< trim END
250      assert_equal(true, 1 || 0)
251      assert_equal(true, 0 ||
252                        0 ||
253                        1)
254      assert_equal(true, 0 ||
255			0 ||
256			!!7)
257      assert_equal(false, 0 || 0)
258      assert_equal(false, 0
259                        || 0)
260      assert_equal(false, 0 || false)
261
262      g:vals = []
263      assert_equal(true, Record(1) || Record(3))
264      assert_equal([1], g:vals)
265
266      g:vals = []
267      assert_equal(true, Record(0) || Record(1))
268      assert_equal([0, 1], g:vals)
269
270      g:vals = []
271      assert_equal(true, Record(0) || Record(true))
272      assert_equal([0, true], g:vals)
273
274      g:vals = []
275      assert_equal(true, Record(0)
276                          || Record(1)
277                          || Record(0))
278      assert_equal([0, 1], g:vals)
279
280      g:vals = []
281      assert_equal(true, Record(0)
282			  || Record(true)
283			  || Record(0))
284      assert_equal([0, true], g:vals)
285
286      g:vals = []
287      assert_equal(true, Record(true) || Record(false))
288      assert_equal([true], g:vals)
289
290      g:vals = []
291      assert_equal(false, Record(0) || Record(false) || Record(0))
292      assert_equal([0, false, 0], g:vals)
293  END
294  CheckDefAndScriptSuccess(lines)
295enddef
296
297def Test_expr2_vimscript()
298  # check line continuation
299  var lines =<< trim END
300      vim9script
301      var name = 0
302      		|| 1
303      assert_equal(true, name)
304  END
305  CheckScriptSuccess(lines)
306
307  lines =<< trim END
308      vim9script
309      var name = v:false
310      		|| v:true
311      		|| v:false
312      assert_equal(v:true, name)
313  END
314  CheckScriptSuccess(lines)
315
316  lines =<< trim END
317      vim9script
318      var name = v:false ||
319      		v:true ||
320		v:false
321      assert_equal(v:true, name)
322  END
323  CheckScriptSuccess(lines)
324
325  lines =<< trim END
326      vim9script
327      var name = v:false || # comment
328                # comment
329      		v:true ||
330                # comment
331		v:false # comment
332      assert_equal(v:true, name)
333  END
334  CheckScriptSuccess(lines)
335
336  # check white space
337  lines =<< trim END
338      vim9script
339      var name = v:true||v:true
340  END
341  CheckScriptFailure(lines, 'E1004: White space required before and after ''||'' at "||v:true"', 2)
342  lines =<< trim END
343      vim9script
344      var name = v:true ||v:true
345  END
346  CheckScriptFailure(lines, 'E1004:', 2)
347  lines =<< trim END
348      vim9script
349      var name = v:true|| v:true
350  END
351  CheckScriptFailure(lines, 'E1004:', 2)
352enddef
353
354def Test_expr2_fails()
355  var msg = "White space required before and after '||'"
356  call CheckDefFailure(["var x = 1||2"], msg, 1)
357  call CheckDefFailure(["var x = 1 ||2"], msg, 1)
358  call CheckDefFailure(["var x = 1|| 2"], msg, 1)
359
360  call CheckDefFailure(["var x = false || "], 'E1097:', 3)
361
362  call CheckDefFailure(["var x = 1 || xxx"], 'E1001:', 1)
363  call CheckDefFailure(["var x = [] || false"], 'E1012:', 1)
364  call CheckDefFailure(["if 'yes' || 0", 'echo 0', 'endif'], 'E1012: Type mismatch; expected bool but got string', 1)
365
366  # TODO: should fail at compile time
367  call CheckDefExecFailure(["var x = 3 || 7"], 'E1023:', 1)
368  call CheckScriptFailure(["vim9script", "var x = 3 || 7"], 'E1023:', 2)
369  call CheckScriptFailure(["vim9script", "var x = [] || false"], 'E745:', 2)
370enddef
371
372" test &&
373def Test_expr3()
374  var lines =<< trim END
375      assert_equal(false, 1 && 0)
376      assert_equal(false, 0 &&
377                    0 &&
378                    1)
379      assert_equal(true, 1
380                        && true
381                        && 1)
382      assert_equal(false, 0 && 0)
383      assert_equal(false, 0 && false)
384      assert_equal(true, 1 && true)
385
386      g:vals = []
387      assert_equal(true, Record(true) && Record(1))
388      assert_equal([true, 1], g:vals)
389
390      g:vals = []
391      assert_equal(true, Record(1) && Record(true))
392      assert_equal([1, true], g:vals)
393
394      g:vals = []
395      assert_equal(false, Record(0) && Record(1))
396      assert_equal([0], g:vals)
397
398      g:vals = []
399      assert_equal(false, Record(0) && Record(1) && Record(0))
400      assert_equal([0], g:vals)
401
402      g:vals = []
403      assert_equal(false, Record(0) && Record(4) && Record(0))
404      assert_equal([0], g:vals)
405
406      g:vals = []
407      assert_equal(false, Record(1) && Record(true) && Record(0))
408      assert_equal([1, true, 0], g:vals)
409  END
410  CheckDefAndScriptSuccess(lines)
411enddef
412
413def Test_expr3_vimscript()
414  # check line continuation
415  var lines =<< trim END
416      vim9script
417      var name = 0
418      		&& 1
419      assert_equal(false, name)
420  END
421  CheckScriptSuccess(lines)
422
423  lines =<< trim END
424      vim9script
425      var name = v:true
426      		&& v:true
427      		&& v:true
428      assert_equal(v:true, name)
429  END
430  CheckScriptSuccess(lines)
431
432  lines =<< trim END
433      vim9script
434      var name = v:true &&
435      		v:true &&
436      		v:true
437      assert_equal(v:true, name)
438  END
439  CheckScriptSuccess(lines)
440
441  lines =<< trim END
442      vim9script
443      var name = v:true &&  # comment
444                # comment
445      		v:true &&
446                # comment
447      		v:true
448      assert_equal(v:true, name)
449  END
450  CheckScriptSuccess(lines)
451
452  # check white space
453  lines =<< trim END
454      vim9script
455      var name = v:true&&v:true
456  END
457  CheckScriptFailure(lines, 'E1004:', 2)
458  lines =<< trim END
459      vim9script
460      var name = v:true &&v:true
461  END
462  CheckScriptFailure(lines, 'E1004: White space required before and after ''&&'' at "&&v:true"', 2)
463  lines =<< trim END
464      vim9script
465      var name = v:true&& v:true
466  END
467  CheckScriptFailure(lines, 'E1004:', 2)
468enddef
469
470func Test_expr3_fails()
471  let msg = "White space required before and after '&&'"
472  call CheckDefFailure(["var x = 1&&2"], msg, 1)
473  call CheckDefFailure(["var x = 1 &&2"], msg, 1)
474  call CheckDefFailure(["var x = 1&& 2"], msg, 1)
475
476  call CheckDefFailure(["if 'yes' && 0", 'echo 0', 'endif'], 'E1012: Type mismatch; expected bool but got string', 1)
477
478  call CheckDefExecFailure(['assert_equal(false, Record(1) && Record(4) && Record(0))'], 'E1023: Using a Number as a Bool: 4', 1)
479endfunc
480
481" global variables to use for tests with the "any" type
482let atrue = v:true
483let afalse = v:false
484let anone = v:none
485let anull = v:null
486let anint = 10
487let theone = 1
488let thefour = 4
489if has('float')
490  let afloat = 0.1
491endif
492let astring = 'asdf'
493let ablob = 0z01ab
494let alist = [2, 3, 4]
495let adict = #{aaa: 2, bbb: 8}
496
497" test == comperator
498def Test_expr4_equal()
499  var lines =<< trim END
500      var trueVar = true
501      var falseVar = false
502      assert_equal(true, true == true)
503      assert_equal(false, true ==
504                            false)
505      assert_equal(true, true
506                            == trueVar)
507      assert_equal(false, true == falseVar)
508      assert_equal(true, true == g:atrue)
509      assert_equal(false, g:atrue == false)
510
511      assert_equal(true, v:none == v:none)
512      assert_equal(false, v:none == v:null)
513      assert_equal(true, g:anone == v:none)
514      assert_equal(true, null == v:null)
515      assert_equal(true, null == g:anull)
516      assert_equal(false, v:none == g:anull)
517
518      var nr0 = 0
519      var nr61 = 61
520      assert_equal(false, 2 == 0)
521      assert_equal(false, 2 == nr0)
522      assert_equal(true, 61 == 61)
523      assert_equal(true, 61 == nr61)
524      assert_equal(true, g:anint == 10)
525      assert_equal(false, 61 == g:anint)
526
527      if has('float')
528        var ff = 0.3
529        assert_equal(true, ff == 0.3)
530        assert_equal(false, 0.4 == ff)
531        assert_equal(true, 0.1 == g:afloat)
532        assert_equal(false, g:afloat == 0.3)
533
534        ff = 3.0
535        assert_equal(true, ff == 3)
536        assert_equal(true, 3 == ff)
537        ff = 3.1
538        assert_equal(false, ff == 3)
539        assert_equal(false, 3 == ff)
540      endif
541
542      assert_equal(true, 'abc' == 'abc')
543      assert_equal(false, 'xyz' == 'abc')
544      assert_equal(true, g:astring == 'asdf')
545      assert_equal(false, 'xyz' == g:astring)
546
547      assert_equal(false, 'abc' == 'aBc')
548      assert_equal(false, 'abc' ==# 'aBc')
549      assert_equal(true, 'abc' ==? 'aBc')
550
551      assert_equal(false, 'abc' == 'ABC')
552      set ignorecase
553      assert_equal(false, 'abc' == 'ABC')
554      assert_equal(false, 'abc' ==# 'ABC')
555      assert_equal(true, 'abc' ==? 'ABC')
556      set noignorecase
557
558      var bb = 0z3f
559      assert_equal(true, 0z3f == bb)
560      assert_equal(false, bb == 0z4f)
561      assert_equal(true, g:ablob == 0z01ab)
562      assert_equal(false, 0z3f == g:ablob)
563
564      assert_equal(true, [1, 2, 3] == [1, 2, 3])
565      assert_equal(false, [1, 2, 3] == [2, 3, 1])
566      assert_equal(true, [2, 3, 4] == g:alist)
567      assert_equal(false, g:alist == [2, 3, 1])
568      assert_equal(false, [1, 2, 3] == [])
569      assert_equal(false, [1, 2, 3] == ['1', '2', '3'])
570
571      assert_equal(true, {one: 1, two: 2} == {one: 1, two: 2})
572      assert_equal(false, {one: 1, two: 2} == {one: 2, two: 2})
573      assert_equal(false, {one: 1, two: 2} == {two: 2})
574      assert_equal(false, {one: 1, two: 2} == {})
575      assert_equal(true, g:adict == {bbb: 8, aaa: 2})
576      assert_equal(false, {ccc: 9, aaa: 2} == g:adict)
577
578      assert_equal(true, function('g:Test_expr4_equal') == function('g:Test_expr4_equal'))
579      assert_equal(false, function('g:Test_expr4_equal') == function('g:Test_expr4_is'))
580
581      assert_equal(true, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_equal', [123]))
582      assert_equal(false, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_is', [123]))
583      assert_equal(false, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_equal', [999]))
584
585      # TODO: this unexpectedly sometimes fails on Appveyor
586      if !has('win32')
587        var OneFunc: func
588        var TwoFunc: func
589        OneFunc = function('len')
590        TwoFunc = function('len')
591        assert_equal(true, OneFunc('abc') == TwoFunc('123'))
592      endif
593  END
594  CheckDefAndScriptSuccess(lines)
595
596  CheckDefFailure(["var x = 'a' == xxx"], 'E1001:', 1)
597  CheckDefFailure(["var x = 'a' == "], 'E1097:', 3)
598
599  CheckDefExecFailure(['var items: any', 'eval 1', 'eval 2', 'if items == []', 'endif'], 'E691:', 4)
600
601  CheckDefExecFailure(['var x: any = "a"', 'echo x == true'], 'E1072: Cannot compare string with bool', 2)
602  CheckDefExecFailure(["var x: any = true", 'echo x == ""'], 'E1072: Cannot compare bool with string', 2)
603  CheckDefExecFailure(["var x: any = 99", 'echo x == true'], 'E1138', 2)
604  CheckDefExecFailure(["var x: any = 'a'", 'echo x == 99'], 'E1030:', 2)
605
606  for op in ['>', '>=', '<', '<=', '=~', '!~']
607    CheckDefExecFailure([
608        "var a: any = 'a'",
609        'var b: any = true',
610        'echo a ' .. op .. ' b'], 'E1072:', 3)
611  endfor
612enddef
613
614" test != comperator
615def Test_expr4_notequal()
616  var lines =<< trim END
617      var trueVar = true
618      var falseVar = false
619      assert_equal(false, true != true)
620      assert_equal(true, true !=
621                            false)
622      assert_equal(false, true
623                            != trueVar)
624      assert_equal(true, true != falseVar)
625      assert_equal(false, true != g:atrue)
626      assert_equal(true, g:atrue != false)
627
628      assert_equal(false, v:none != v:none)
629      assert_equal(true, v:none != v:null)
630      assert_equal(false, g:anone != v:none)
631      assert_equal(true, v:none != g:anull)
632
633      var nr55 = 55
634      var nr0 = 55
635      assert_equal(true, 2 != 0)
636      assert_equal(true, 2 != nr0)
637      assert_equal(false, 55 != 55)
638      assert_equal(false, 55 != nr55)
639      assert_equal(false, g:anint != 10)
640      assert_equal(true, 61 != g:anint)
641
642      if has('float')
643        var ff = 0.3
644        assert_equal(false, 0.3 != ff)
645        assert_equal(true, 0.4 != ff)
646        assert_equal(false, 0.1 != g:afloat)
647        assert_equal(true, g:afloat != 0.3)
648
649        ff = 3.0
650        assert_equal(false, ff != 3)
651        assert_equal(false, 3 != ff)
652        ff = 3.1
653        assert_equal(true, ff != 3)
654        assert_equal(true, 3 != ff)
655      endif
656
657      assert_equal(false, 'abc' != 'abc')
658      assert_equal(true, 'xyz' != 'abc')
659      assert_equal(false, g:astring != 'asdf')
660      assert_equal(true, 'xyz' != g:astring)
661
662      assert_equal(true, 'abc' != 'ABC')
663      set ignorecase
664      assert_equal(true, 'abc' != 'ABC')
665      assert_equal(true, 'abc' !=# 'ABC')
666      assert_equal(false, 'abc' !=? 'ABC')
667      set noignorecase
668
669      var bb = 0z3f
670      assert_equal(false, 0z3f != bb)
671      assert_equal(true, bb != 0z4f)
672      assert_equal(false, g:ablob != 0z01ab)
673      assert_equal(true, 0z3f != g:ablob)
674
675      assert_equal(false, [1, 2, 3] != [1, 2, 3])
676      assert_equal(true, [1, 2, 3] != [2, 3, 1])
677      assert_equal(false, [2, 3, 4] != g:alist)
678      assert_equal(true, g:alist != [2, 3, 1])
679      assert_equal(true, [1, 2, 3] != [])
680      assert_equal(true, [1, 2, 3] != ['1', '2', '3'])
681
682      assert_equal(false, {one: 1, two: 2} != {one: 1, two: 2})
683      assert_equal(true, {one: 1, two: 2} != {one: 2, two: 2})
684      assert_equal(true, {one: 1, two: 2} != {two: 2})
685      assert_equal(true, {one: 1, two: 2} != {})
686      assert_equal(false, g:adict != {bbb: 8, aaa: 2})
687      assert_equal(true, {ccc: 9, aaa: 2} != g:adict)
688
689      assert_equal(false, function('g:Test_expr4_equal') != function('g:Test_expr4_equal'))
690      assert_equal(true, function('g:Test_expr4_equal') != function('g:Test_expr4_is'))
691
692      assert_equal(false, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_equal', [123]))
693      assert_equal(true, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_is', [123]))
694      assert_equal(true, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_equal', [999]))
695  END
696  CheckDefAndScriptSuccess(lines)
697enddef
698
699" test > comperator
700def Test_expr4_greater()
701  var lines =<< trim END
702      assert_true(2 > 0)
703      assert_true(2 >
704                    1)
705      assert_false(2 > 2)
706      assert_false(2 > 3)
707      var nr2 = 2
708      assert_true(nr2 > 0)
709      assert_true(nr2 >
710                    1)
711      assert_false(nr2 > 2)
712      assert_false(nr2
713                        > 3)
714      if has('float')
715        var ff = 2.0
716        assert_true(ff > 0.0)
717        assert_true(ff > 1.0)
718        assert_false(ff > 2.0)
719        assert_false(ff > 3.0)
720      endif
721  END
722  CheckDefAndScriptSuccess(lines)
723enddef
724
725" test >= comperator
726def Test_expr4_greaterequal()
727  var lines =<< trim END
728      assert_true(2 >= 0)
729      assert_true(2 >=
730                            2)
731      assert_false(2 >= 3)
732      var nr2 = 2
733      assert_true(nr2 >= 0)
734      assert_true(nr2 >= 2)
735      assert_false(nr2 >= 3)
736      if has('float')
737        var ff = 2.0
738        assert_true(ff >= 0.0)
739        assert_true(ff >= 2.0)
740        assert_false(ff >= 3.0)
741      endif
742  END
743  CheckDefAndScriptSuccess(lines)
744enddef
745
746" test < comperator
747def Test_expr4_smaller()
748  var lines =<< trim END
749      assert_false(2 < 0)
750      assert_false(2 <
751                            2)
752      assert_true(2
753                    < 3)
754      var nr2 = 2
755      assert_false(nr2 < 0)
756      assert_false(nr2 < 2)
757      assert_true(nr2 < 3)
758      if has('float')
759        var ff = 2.0
760        assert_false(ff < 0.0)
761        assert_false(ff < 2.0)
762        assert_true(ff < 3.0)
763      endif
764  END
765  CheckDefAndScriptSuccess(lines)
766enddef
767
768" test <= comperator
769def Test_expr4_smallerequal()
770  var lines =<< trim END
771      assert_false(2 <= 0)
772      assert_false(2 <=
773                            1)
774      assert_true(2
775                    <= 2)
776      assert_true(2 <= 3)
777      var nr2 = 2
778      assert_false(nr2 <= 0)
779      assert_false(nr2 <= 1)
780      assert_true(nr2 <= 2)
781      assert_true(nr2 <= 3)
782      if has('float')
783        var ff = 2.0
784        assert_false(ff <= 0.0)
785        assert_false(ff <= 1.0)
786        assert_true(ff <= 2.0)
787        assert_true(ff <= 3.0)
788      endif
789  END
790  CheckDefAndScriptSuccess(lines)
791enddef
792
793" test =~ comperator
794def Test_expr4_match()
795  var lines =<< trim END
796      assert_equal(false, '2' =~ '0')
797      assert_equal(false, ''
798                             =~ '0')
799      assert_equal(true, '2' =~
800                            '[0-9]')
801      set ignorecase
802      assert_equal(false, 'abc' =~ 'ABC')
803      assert_equal(false, 'abc' =~# 'ABC')
804      assert_equal(true, 'abc' =~? 'ABC')
805      set noignorecase
806  END
807  CheckDefAndScriptSuccess(lines)
808enddef
809
810" test !~ comperator
811def Test_expr4_nomatch()
812  var lines =<< trim END
813      assert_equal(true, '2' !~ '0')
814      assert_equal(true, ''
815                            !~ '0')
816      assert_equal(false, '2' !~
817                            '[0-9]')
818  END
819  CheckDefAndScriptSuccess(lines)
820enddef
821
822" test is comperator
823def Test_expr4_is()
824  var lines =<< trim END
825      var mylist = [2]
826      assert_false(mylist is [2])
827      var other = mylist
828      assert_true(mylist is
829                    other)
830
831      var myblob = 0z1234
832      assert_false(myblob
833                            is 0z1234)
834      var otherblob = myblob
835      assert_true(myblob is otherblob)
836  END
837  CheckDefAndScriptSuccess(lines)
838enddef
839
840" test isnot comperator
841def Test_expr4_isnot()
842  var lines =<< trim END
843      var mylist = [2]
844      assert_true('2' isnot '0')
845      assert_true(mylist isnot [2])
846      var other = mylist
847      assert_false(mylist isnot
848                            other)
849
850      var myblob = 0z1234
851      assert_true(myblob
852                    isnot 0z1234)
853      var otherblob = myblob
854      assert_false(myblob isnot otherblob)
855  END
856  CheckDefAndScriptSuccess(lines)
857enddef
858
859def RetVoid()
860  var x = 1
861enddef
862
863def Test_expr4_vim9script()
864  # check line continuation
865  var lines =<< trim END
866      vim9script
867      var name = 0
868      		< 1
869      assert_equal(true, name)
870  END
871  CheckScriptSuccess(lines)
872
873  lines =<< trim END
874      vim9script
875      var name = 123
876                # comment
877      		!= 123
878      assert_equal(false, name)
879  END
880  CheckScriptSuccess(lines)
881
882  lines =<< trim END
883      vim9script
884      var name = 123 ==
885      			123
886      assert_equal(true, name)
887  END
888  CheckScriptSuccess(lines)
889
890  lines =<< trim END
891      vim9script
892      var list = [1, 2, 3]
893      var name = list
894      		is list
895      assert_equal(true, name)
896  END
897  CheckScriptSuccess(lines)
898
899  lines =<< trim END
900      vim9script
901      var list = [1, 2, 3]
902      var name = list # comment
903                 # comment
904      		is list
905      assert_equal(true, name)
906  END
907  CheckScriptSuccess(lines)
908
909  lines =<< trim END
910      vim9script
911      var myblob = 0z1234
912      var name = myblob
913      		isnot 0z11
914      assert_equal(true, name)
915  END
916  CheckScriptSuccess(lines)
917
918  # spot check mismatching types
919  lines =<< trim END
920      vim9script
921      echo '' == 0
922  END
923  CheckScriptFailure(lines, 'E1072:', 2)
924
925  lines =<< trim END
926      vim9script
927      echo v:true > v:false
928  END
929  CheckScriptFailure(lines, 'Cannot compare bool with bool', 2)
930
931  lines =<< trim END
932      vim9script
933      echo 123 is 123
934  END
935  CheckScriptFailure(lines, 'Cannot use "is" with number', 2)
936
937  # check missing white space
938  lines =<< trim END
939    vim9script
940    echo 2>3
941  END
942  CheckScriptFailure(lines, 'E1004: White space required before and after ''>'' at ">3"', 2)
943  lines =<< trim END
944    vim9script
945    echo 2 >3
946  END
947  CheckScriptFailure(lines, 'E1004:', 2)
948  lines =<< trim END
949    vim9script
950    echo 2> 3
951  END
952  CheckScriptFailure(lines, 'E1004:', 2)
953  lines =<< trim END
954    vim9script
955    echo 2!=3
956  END
957  CheckScriptFailure(lines, 'E1004:', 2)
958  lines =<< trim END
959    vim9script
960    echo 2 !=3
961  END
962  CheckScriptFailure(lines, 'E1004: White space required before and after ''!'' at "!=3"', 2)
963  lines =<< trim END
964    vim9script
965    echo 2!= 3
966  END
967  CheckScriptFailure(lines, 'E1004:', 2)
968
969  lines =<< trim END
970    vim9script
971    echo len('xxx') == 3
972  END
973  CheckScriptSuccess(lines)
974
975  lines =<< trim END
976    vim9script
977    var line = 'abc'
978    echo line[1] =~ '\w'
979  END
980  CheckScriptSuccess(lines)
981enddef
982
983func Test_expr4_fails()
984  let msg = "White space required before and after '>'"
985  call CheckDefFailure(["var x = 1>2"], msg, 1)
986  call CheckDefFailure(["var x = 1 >2"], msg, 1)
987  call CheckDefFailure(["var x = 1> 2"], msg, 1)
988
989  let msg = "White space required before and after '=='"
990  call CheckDefFailure(["var x = 1==2"], msg, 1)
991  call CheckDefFailure(["var x = 1 ==2"], msg, 1)
992  call CheckDefFailure(["var x = 1== 2"], msg, 1)
993
994  let msg = "White space required before and after 'is'"
995  call CheckDefFailure(["var x = '1'is'2'"], msg, 1)
996  call CheckDefFailure(["var x = '1' is'2'"], msg, 1)
997  call CheckDefFailure(["var x = '1'is '2'"], msg, 1)
998
999  let msg = "White space required before and after 'isnot'"
1000  call CheckDefFailure(["var x = '1'isnot'2'"], msg, 1)
1001  call CheckDefFailure(["var x = '1' isnot'2'"], msg, 1)
1002  call CheckDefFailure(["var x = '1'isnot '2'"], msg, 1)
1003
1004  call CheckDefFailure(["var x = 1 is# 2"], 'E15:', 1)
1005  call CheckDefFailure(["var x = 1 is? 2"], 'E15:', 1)
1006  call CheckDefFailure(["var x = 1 isnot# 2"], 'E15:', 1)
1007  call CheckDefFailure(["var x = 1 isnot? 2"], 'E15:', 1)
1008
1009  call CheckDefFailure(["var x = 1 == '2'"], 'Cannot compare number with string', 1)
1010  call CheckDefFailure(["var x = '1' == 2"], 'Cannot compare string with number', 1)
1011  call CheckDefFailure(["var x = 1 == RetVoid()"], 'Cannot compare number with void', 1)
1012  call CheckDefFailure(["var x = RetVoid() == 1"], 'Cannot compare void with number', 1)
1013
1014  call CheckDefFailure(["var x = true > false"], 'Cannot compare bool with bool', 1)
1015  call CheckDefFailure(["var x = true >= false"], 'Cannot compare bool with bool', 1)
1016  call CheckDefFailure(["var x = true < false"], 'Cannot compare bool with bool', 1)
1017  call CheckDefFailure(["var x = true <= false"], 'Cannot compare bool with bool', 1)
1018  call CheckDefFailure(["var x = true =~ false"], 'Cannot compare bool with bool', 1)
1019  call CheckDefFailure(["var x = true !~ false"], 'Cannot compare bool with bool', 1)
1020  call CheckDefFailure(["var x = true is false"], 'Cannot use "is" with bool', 1)
1021  call CheckDefFailure(["var x = true isnot false"], 'Cannot use "isnot" with bool', 1)
1022
1023  call CheckDefFailure(["var x = v:none is v:null"], 'Cannot use "is" with special', 1)
1024  call CheckDefFailure(["var x = v:none isnot v:null"], 'Cannot use "isnot" with special', 1)
1025  call CheckDefFailure(["var x = 123 is 123"], 'Cannot use "is" with number', 1)
1026  call CheckDefFailure(["var x = 123 isnot 123"], 'Cannot use "isnot" with number', 1)
1027  if has('float')
1028    call CheckDefFailure(["var x = 1.3 is 1.3"], 'Cannot use "is" with float', 1)
1029    call CheckDefFailure(["var x = 1.3 isnot 1.3"], 'Cannot use "isnot" with float', 1)
1030  endif
1031
1032  call CheckDefFailure(["var x = 0za1 > 0z34"], 'Cannot compare blob with blob', 1)
1033  call CheckDefFailure(["var x = 0za1 >= 0z34"], 'Cannot compare blob with blob', 1)
1034  call CheckDefFailure(["var x = 0za1 < 0z34"], 'Cannot compare blob with blob', 1)
1035  call CheckDefFailure(["var x = 0za1 <= 0z34"], 'Cannot compare blob with blob', 1)
1036  call CheckDefFailure(["var x = 0za1 =~ 0z34"], 'Cannot compare blob with blob', 1)
1037  call CheckDefFailure(["var x = 0za1 !~ 0z34"], 'Cannot compare blob with blob', 1)
1038
1039  call CheckDefFailure(["var x = [13] > [88]"], 'Cannot compare list with list', 1)
1040  call CheckDefFailure(["var x = [13] >= [88]"], 'Cannot compare list with list', 1)
1041  call CheckDefFailure(["var x = [13] < [88]"], 'Cannot compare list with list', 1)
1042  call CheckDefFailure(["var x = [13] <= [88]"], 'Cannot compare list with list', 1)
1043  call CheckDefFailure(["var x = [13] =~ [88]"], 'Cannot compare list with list', 1)
1044  call CheckDefFailure(["var x = [13] !~ [88]"], 'Cannot compare list with list', 1)
1045
1046  call CheckDefFailure(['var j: job', 'var chan: channel', 'var r = j == chan'], 'Cannot compare job with channel', 3)
1047  call CheckDefFailure(['var j: job', 'var x: list<any>', 'var r = j == x'], 'Cannot compare job with list', 3)
1048  call CheckDefFailure(['var j: job', 'var Xx: func', 'var r = j == Xx'], 'Cannot compare job with func', 3)
1049  call CheckDefFailure(['var j: job', 'var Xx: func', 'var r = j == Xx'], 'Cannot compare job with func', 3)
1050endfunc
1051
1052" test addition, subtraction, concatenation
1053def Test_expr5()
1054  var lines =<< trim END
1055      assert_equal(66, 60 + 6)
1056      assert_equal(70, 60 +
1057                            g:anint)
1058      assert_equal(9, g:thefour
1059                            + 5)
1060      assert_equal(14, g:thefour + g:anint)
1061      assert_equal([1, 2, 3, 4], [1] + g:alist)
1062
1063      assert_equal(54, 60 - 6)
1064      assert_equal(50, 60 -
1065                        g:anint)
1066      assert_equal(-1, g:thefour
1067                            - 5)
1068      assert_equal(-6, g:thefour - g:anint)
1069
1070      assert_equal('hello', 'hel' .. 'lo')
1071      assert_equal('hello 123', 'hello ' ..
1072                                            123)
1073      assert_equal('hello 123', 'hello '
1074                                    ..  123)
1075      assert_equal('123 hello', 123 .. ' hello')
1076      assert_equal('123456', 123 .. 456)
1077
1078      assert_equal('atrue', 'a' .. true)
1079      assert_equal('afalse', 'a' .. false)
1080      assert_equal('anull', 'a' .. v:null)
1081      assert_equal('av:none', 'a' .. v:none)
1082      if has('float')
1083        assert_equal('a0.123', 'a' .. 0.123)
1084      endif
1085
1086      set digraph
1087      assert_equal('val: true', 'val: ' .. &digraph)
1088      set nodigraph
1089      assert_equal('val: false', 'val: ' .. &digraph)
1090
1091      assert_equal([1, 2, 3, 4], [1, 2] + [3, 4])
1092      assert_equal(0z11223344, 0z1122 + 0z3344)
1093      assert_equal(0z112201ab, 0z1122
1094                                    + g:ablob)
1095      assert_equal(0z01ab3344, g:ablob + 0z3344)
1096      assert_equal(0z01ab01ab, g:ablob + g:ablob)
1097
1098      # concatenate non-constant to constant
1099      var save_path = &path
1100      &path = 'b'
1101      assert_equal('ab', 'a' .. &path)
1102      &path = save_path
1103
1104      @b = 'b'
1105      assert_equal('ab', 'a' .. @b)
1106
1107      $ENVVAR = 'env'
1108      assert_equal('aenv', 'a' .. $ENVVAR)
1109
1110      assert_equal('val', '' .. {key: 'val'}['key'])
1111  END
1112  CheckDefAndScriptSuccess(lines)
1113enddef
1114
1115def Test_expr5_vim9script()
1116  # check line continuation
1117  var lines =<< trim END
1118      vim9script
1119      var name = 11
1120      		+ 77
1121		- 22
1122      assert_equal(66, name)
1123  END
1124  CheckScriptSuccess(lines)
1125
1126  lines =<< trim END
1127      vim9script
1128      var name = 11 +
1129		  77 -
1130		  22
1131      assert_equal(66, name)
1132  END
1133  CheckScriptSuccess(lines)
1134
1135  lines =<< trim END
1136      vim9script
1137      var name = 11 +  # comment
1138		  77 -
1139                  # comment
1140		  22
1141      assert_equal(66, name)
1142  END
1143  CheckScriptSuccess(lines)
1144
1145  lines =<< trim END
1146      vim9script
1147      var name = 'one'
1148      		.. 'two'
1149      assert_equal('onetwo', name)
1150  END
1151  CheckScriptSuccess(lines)
1152
1153  lines =<< trim END
1154      vim9script
1155      echo 'abc' is# 'abc'
1156  END
1157  CheckScriptFailure(lines, 'E15:', 2)
1158
1159  lines =<< trim END
1160      vim9script
1161      echo {} - 22
1162  END
1163  CheckScriptFailure(lines, 'E728:', 2)
1164
1165  lines =<< trim END
1166      vim9script
1167      echo [] - 33
1168  END
1169  CheckScriptFailure(lines, 'E745:', 2)
1170
1171  lines =<< trim END
1172      vim9script
1173      echo 0z1234 - 44
1174  END
1175  CheckScriptFailure(lines, 'E974:', 2)
1176
1177  lines =<< trim END
1178      vim9script
1179      echo 'abc' is? 'abc'
1180  END
1181  CheckScriptFailure(lines, 'E15:', 2)
1182
1183  lines =<< trim END
1184      vim9script
1185      echo 'abc' isnot# 'abc'
1186  END
1187  CheckScriptFailure(lines, 'E15:', 2)
1188
1189  lines =<< trim END
1190      vim9script
1191      echo 'abc' isnot? 'abc'
1192  END
1193  CheckScriptFailure(lines, 'E15:', 2)
1194
1195  # check white space
1196  lines =<< trim END
1197      vim9script
1198      echo 5+6
1199  END
1200  CheckScriptFailure(lines, 'E1004:', 2)
1201  lines =<< trim END
1202      vim9script
1203      echo 5 +6
1204  END
1205  CheckScriptFailure(lines, 'E1004:', 2)
1206  lines =<< trim END
1207      vim9script
1208      echo 5+ 6
1209  END
1210  CheckScriptFailure(lines, 'E1004:', 2)
1211
1212  lines =<< trim END
1213      vim9script
1214      echo 'a'..'b'
1215  END
1216  CheckScriptFailure(lines, 'E1004: White space required before and after ''..'' at "..''b''"', 2)
1217  lines =<< trim END
1218      vim9script
1219      echo 'a' ..'b'
1220  END
1221  CheckScriptFailure(lines, 'E1004:', 2)
1222  lines =<< trim END
1223      vim9script
1224      echo 'a'.. 'b'
1225  END
1226  CheckScriptFailure(lines, 'E1004:', 2)
1227
1228  # check invalid string concatenation
1229  lines =<< trim END
1230      vim9script
1231      echo 'a' .. [1]
1232  END
1233  CheckScriptFailure(lines, 'E730:', 2)
1234  lines =<< trim END
1235      vim9script
1236      echo 'a' .. {a: 1}
1237  END
1238  CheckScriptFailure(lines, 'E731:', 2)
1239  lines =<< trim END
1240      vim9script
1241      echo 'a' .. test_void()
1242  END
1243  CheckScriptFailure(lines, 'E908:', 2)
1244  lines =<< trim END
1245      vim9script
1246      echo 'a' .. 0z33
1247  END
1248  CheckScriptFailure(lines, 'E976:', 2)
1249  lines =<< trim END
1250      vim9script
1251      echo 'a' .. function('len')
1252  END
1253  CheckScriptFailure(lines, 'E729:', 2)
1254enddef
1255
1256def Test_expr5_vim9script_channel()
1257  if !has('channel')
1258    MissingFeature 'float'
1259  else
1260    var lines =<< trim END
1261        vim9script
1262        echo 'a' .. test_null_job()
1263    END
1264    CheckScriptFailure(lines, 'E908:', 2)
1265    lines =<< trim END
1266        vim9script
1267        echo 'a' .. test_null_channel()
1268    END
1269    CheckScriptFailure(lines, 'E908:', 2)
1270  endif
1271enddef
1272
1273def Test_expr5_float()
1274  if !has('float')
1275    MissingFeature 'float'
1276  else
1277    var lines =<< trim END
1278        assert_equal(66.0, 60.0 + 6.0)
1279        assert_equal(66.0, 60.0 + 6)
1280        assert_equal(66.0, 60 +
1281                             6.0)
1282        assert_equal(5.1, g:afloat
1283                            + 5)
1284        assert_equal(8.1, 8 + g:afloat)
1285        assert_equal(10.1, g:anint + g:afloat)
1286        assert_equal(10.1, g:afloat + g:anint)
1287
1288        assert_equal(54.0, 60.0 - 6.0)
1289        assert_equal(54.0, 60.0
1290                                - 6)
1291        assert_equal(54.0, 60 - 6.0)
1292        assert_equal(-4.9, g:afloat - 5)
1293        assert_equal(7.9, 8 - g:afloat)
1294        assert_equal(9.9, g:anint - g:afloat)
1295        assert_equal(-9.9, g:afloat - g:anint)
1296    END
1297    CheckDefAndScriptSuccess(lines)
1298  endif
1299enddef
1300
1301func Test_expr5_fails()
1302  let msg = "White space required before and after '+'"
1303  call CheckDefFailure(["var x = 1+2"], msg, 1)
1304  call CheckDefFailure(["var x = 1 +2"], msg, 1)
1305  call CheckDefFailure(["var x = 1+ 2"], msg, 1)
1306
1307  let msg = "White space required before and after '-'"
1308  call CheckDefFailure(["var x = 1-2"], msg, 1)
1309  call CheckDefFailure(["var x = 1 -2"], msg, 1)
1310  call CheckDefFailure(["var x = 1- 2"], msg, 1)
1311
1312  let msg = "White space required before and after '..'"
1313  call CheckDefFailure(["var x = '1'..'2'"], msg, 1)
1314  call CheckDefFailure(["var x = '1' ..'2'"], msg, 1)
1315  call CheckDefFailure(["var x = '1'.. '2'"], msg, 1)
1316
1317  call CheckDefFailure(["var x = 0z1122 + 33"], 'E1051:', 1)
1318  call CheckDefFailure(["var x = 0z1122 + [3]"], 'E1051:', 1)
1319  call CheckDefFailure(["var x = 0z1122 + 'asd'"], 'E1051:', 1)
1320  call CheckDefFailure(["var x = 33 + 0z1122"], 'E1051:', 1)
1321  call CheckDefFailure(["var x = [3] + 0z1122"], 'E1051:', 1)
1322  call CheckDefFailure(["var x = 'asdf' + 0z1122"], 'E1051:', 1)
1323  call CheckDefFailure(["var x = 6 + xxx"], 'E1001:', 1)
1324
1325  call CheckDefFailure(["var x = 'a' .. [1]"], 'E1105:', 1)
1326  call CheckDefFailure(["var x = 'a' .. {a: 1}"], 'E1105:', 1)
1327  call CheckDefFailure(["var x = 'a' .. test_void()"], 'E1105:', 1)
1328  call CheckDefFailure(["var x = 'a' .. 0z32"], 'E1105:', 1)
1329  call CheckDefFailure(["var x = 'a' .. function('len')"], 'E1105:', 1)
1330  call CheckDefFailure(["var x = 'a' .. function('len', ['a'])"], 'E1105:', 1)
1331
1332  call CheckScriptFailure(['vim9script', 'var x = 1 + v:none'], 'E611:', 2)
1333  call CheckScriptFailure(['vim9script', 'var x = 1 + v:null'], 'E611:', 2)
1334  call CheckScriptFailure(['vim9script', 'var x = 1 + v:true'], 'E1138:', 2)
1335  call CheckScriptFailure(['vim9script', 'var x = 1 + v:false'], 'E1138:', 2)
1336  call CheckScriptFailure(['vim9script', 'var x = 1 + true'], 'E1138:', 2)
1337  call CheckScriptFailure(['vim9script', 'var x = 1 + false'], 'E1138:', 2)
1338endfunc
1339
1340func Test_expr5_fails_channel()
1341  CheckFeature channel
1342  call CheckDefFailure(["var x = 'a' .. test_null_job()"], 'E1105:', 1)
1343  call CheckDefFailure(["var x = 'a' .. test_null_channel()"], 'E1105:', 1)
1344endfunc
1345
1346def Test_expr5_list_add()
1347  # concatenating two lists with same member types is OK
1348  var d = {}
1349  for i in ['a'] + ['b']
1350    d = {[i]: 0}
1351  endfor
1352
1353  # concatenating two lists with different member types results in "any"
1354  var lines =<< trim END
1355      var d = {}
1356      for i in ['a'] + [0]
1357        d = {[i]: 0}
1358      endfor
1359  END
1360  CheckDefExecFailure(lines, 'E1012:')
1361enddef
1362
1363" test multiply, divide, modulo
1364def Test_expr6()
1365  var lines =<< trim END
1366      assert_equal(36, 6 * 6)
1367      assert_equal(24, 6 *
1368                            g:thefour)
1369      assert_equal(24, g:thefour
1370                            * 6)
1371      assert_equal(40, g:anint * g:thefour)
1372
1373      assert_equal(10, 60 / 6)
1374      assert_equal(6, 60 /
1375                            g:anint)
1376      assert_equal(1, g:anint / 6)
1377      assert_equal(2, g:anint
1378                            / g:thefour)
1379
1380      assert_equal(5, 11 % 6)
1381      assert_equal(4, g:anint % 6)
1382      assert_equal(3, 13 %
1383                            g:anint)
1384      assert_equal(2, g:anint
1385                            % g:thefour)
1386
1387      assert_equal(4, 6 * 4 / 6)
1388
1389      var x = [2]
1390      var y = [3]
1391      assert_equal(5, x[0] + y[0])
1392      assert_equal(6, x[0] * y[0])
1393      if has('float')
1394        var xf = [2.0]
1395        var yf = [3.0]
1396        assert_equal(5.0, xf[0]
1397                            + yf[0])
1398        assert_equal(6.0, xf[0]
1399                            * yf[0])
1400      endif
1401  END
1402  CheckDefAndScriptSuccess(lines)
1403
1404  CheckDefFailure(["var x = 6 * xxx"], 'E1001:', 1)
1405  CheckDefFailure(["var d = 6 * "], 'E1097:', 3)
1406
1407  CheckDefExecAndScriptFailure(['echo 1 / 0'], 'E1154', 1)
1408  CheckDefExecAndScriptFailure(['echo 1 % 0'], 'E1154', 1)
1409enddef
1410
1411def Test_expr6_vim9script()
1412  # check line continuation
1413  var lines =<< trim END
1414      vim9script
1415      var name = 11
1416      		* 22
1417		/ 3
1418      assert_equal(80, name)
1419  END
1420  CheckScriptSuccess(lines)
1421
1422  lines =<< trim END
1423      vim9script
1424      var name = 25
1425      		% 10
1426      assert_equal(5, name)
1427  END
1428  CheckScriptSuccess(lines)
1429
1430  lines =<< trim END
1431      vim9script
1432      var name = 25
1433                # comment
1434
1435                # comment
1436      		% 10
1437      assert_equal(5, name)
1438  END
1439  CheckScriptSuccess(lines)
1440
1441  lines =<< trim END
1442      vim9script
1443      var name = 11 *
1444      		22 /
1445		3
1446      assert_equal(80, name)
1447  END
1448  CheckScriptSuccess(lines)
1449
1450  # check white space
1451  lines =<< trim END
1452      vim9script
1453      echo 5*6
1454  END
1455  CheckScriptFailure(lines, 'E1004:', 2)
1456  lines =<< trim END
1457      vim9script
1458      echo 5 *6
1459  END
1460  CheckScriptFailure(lines, 'E1004:', 2)
1461  lines =<< trim END
1462      vim9script
1463      echo 5* 6
1464  END
1465  CheckScriptFailure(lines, 'E1004:', 2)
1466enddef
1467
1468def Test_expr6_float()
1469  if !has('float')
1470    MissingFeature 'float'
1471  else
1472    var lines =<< trim END
1473        assert_equal(36.0, 6.0 * 6)
1474        assert_equal(36.0, 6 *
1475                               6.0)
1476        assert_equal(36.0, 6.0 * 6.0)
1477        assert_equal(1.0, g:afloat * g:anint)
1478
1479        assert_equal(10.0, 60 / 6.0)
1480        assert_equal(10.0, 60.0 /
1481                            6)
1482        assert_equal(10.0, 60.0 / 6.0)
1483        assert_equal(0.01, g:afloat / g:anint)
1484
1485        assert_equal(4.0, 6.0 * 4 / 6)
1486        assert_equal(4.0, 6 *
1487                            4.0 /
1488                            6)
1489        assert_equal(4.0, 6 * 4 / 6.0)
1490        assert_equal(4.0, 6.0 * 4.0 / 6)
1491        assert_equal(4.0, 6 * 4.0 / 6.0)
1492        assert_equal(4.0, 6.0 * 4 / 6.0)
1493        assert_equal(4.0, 6.0 * 4.0 / 6.0)
1494
1495        assert_equal(4.0, 6.0 * 4.0 / 6.0)
1496    END
1497    CheckDefAndScriptSuccess(lines)
1498  endif
1499enddef
1500
1501func Test_expr6_fails()
1502  let msg = "White space required before and after '*'"
1503  call CheckDefFailure(["var x = 1*2"], msg, 1)
1504  call CheckDefFailure(["var x = 1 *2"], msg, 1)
1505  call CheckDefFailure(["var x = 1* 2"], msg, 1)
1506
1507  let msg = "White space required before and after '/'"
1508  call CheckDefFailure(["var x = 1/2"], msg, 1)
1509  call CheckDefFailure(["var x = 1 /2"], msg, 1)
1510  call CheckDefFailure(["var x = 1/ 2"], msg, 1)
1511
1512  let msg = "White space required before and after '%'"
1513  call CheckDefFailure(["var x = 1%2"], msg, 1)
1514  call CheckDefFailure(["var x = 1 %2"], msg, 1)
1515  call CheckDefFailure(["var x = 1% 2"], msg, 1)
1516
1517  call CheckDefFailure(["var x = '1' * '2'"], 'E1036:', 1)
1518  call CheckDefFailure(["var x = '1' / '2'"], 'E1036:', 1)
1519  call CheckDefFailure(["var x = '1' % '2'"], 'E1035:', 1)
1520
1521  call CheckDefFailure(["var x = 0z01 * 0z12"], 'E1036:', 1)
1522  call CheckDefFailure(["var x = 0z01 / 0z12"], 'E1036:', 1)
1523  call CheckDefFailure(["var x = 0z01 % 0z12"], 'E1035:', 1)
1524
1525  call CheckDefFailure(["var x = [1] * [2]"], 'E1036:', 1)
1526  call CheckDefFailure(["var x = [1] / [2]"], 'E1036:', 1)
1527  call CheckDefFailure(["var x = [1] % [2]"], 'E1035:', 1)
1528
1529  call CheckDefFailure(["var x = {one: 1} * {two: 2}"], 'E1036:', 1)
1530  call CheckDefFailure(["var x = {one: 1} / {two: 2}"], 'E1036:', 1)
1531  call CheckDefFailure(["var x = {one: 1} % {two: 2}"], 'E1035:', 1)
1532
1533  call CheckDefFailure(["var x = 0xff[1]"], 'E1107:', 1)
1534  if has('float')
1535    call CheckDefFailure(["var x = 0.7[1]"], 'E1107:', 1)
1536  endif
1537endfunc
1538
1539func Test_expr6_float_fails()
1540  CheckFeature float
1541  call CheckDefFailure(["var x = 1.0 % 2"], 'E1035:', 1)
1542endfunc
1543
1544" define here to use old style parsing
1545if has('float')
1546  let g:float_zero = 0.0
1547  let g:float_neg = -9.8
1548  let g:float_big = 9.9e99
1549endif
1550let g:blob_empty = 0z
1551let g:blob_one = 0z01
1552let g:blob_long = 0z0102.0304
1553
1554let g:string_empty = ''
1555let g:string_short = 'x'
1556let g:string_long = 'abcdefghijklm'
1557let g:string_special = "ab\ncd\ref\ekk"
1558
1559let g:special_true = v:true
1560let g:special_false = v:false
1561let g:special_null = v:null
1562let g:special_none = v:none
1563
1564let g:list_empty = []
1565let g:list_mixed = [1, 'b', v:false]
1566
1567let g:dict_empty = {}
1568let g:dict_one = #{one: 1}
1569
1570let $TESTVAR = 'testvar'
1571
1572" type casts
1573def Test_expr7t()
1574  var ls: list<string> = ['a', <string>g:string_empty]
1575  var ln: list<number> = [<number>g:anint, <number>g:thefour]
1576  var nr = <number>234
1577  assert_equal(234, nr)
1578
1579  CheckDefFailure(["var x = <nr>123"], 'E1010:', 1)
1580  CheckDefFailure(["var x = <number>"], 'E1097:', 3)
1581  CheckDefFailure(["var x = <number >123"], 'E1068:', 1)
1582  CheckDefFailure(["var x = <number 123"], 'E1104:', 1)
1583enddef
1584
1585" test low level expression
1586def Test_expr7_number()
1587  # number constant
1588  var lines =<< trim END
1589      assert_equal(0, 0)
1590      assert_equal(654, 0654)
1591
1592      assert_equal(6, 0x6)
1593      assert_equal(15, 0xf)
1594      assert_equal(255, 0xff)
1595  END
1596  CheckDefAndScriptSuccess(lines)
1597enddef
1598
1599def Test_expr7_float()
1600  # float constant
1601  if !has('float')
1602    MissingFeature 'float'
1603  else
1604    var lines =<< trim END
1605        assert_equal(g:float_zero, .0)
1606        assert_equal(g:float_zero, 0.0)
1607        assert_equal(g:float_neg, -9.8)
1608        assert_equal(g:float_big, 9.9e99)
1609    END
1610    CheckDefAndScriptSuccess(lines)
1611  endif
1612enddef
1613
1614def Test_expr7_blob()
1615  # blob constant
1616  var lines =<< trim END
1617      assert_equal(g:blob_empty, 0z)
1618      assert_equal(g:blob_one, 0z01)
1619      assert_equal(g:blob_long, 0z0102.0304)
1620  END
1621  CheckDefAndScriptSuccess(lines)
1622
1623  CheckDefFailure(["var x = 0z123"], 'E973:', 1)
1624enddef
1625
1626def Test_expr7_string()
1627  # string constant
1628  var lines =<< trim END
1629      assert_equal(g:string_empty, '')
1630      assert_equal(g:string_empty, "")
1631      assert_equal(g:string_short, 'x')
1632      assert_equal(g:string_short, "x")
1633      assert_equal(g:string_long, 'abcdefghijklm')
1634      assert_equal(g:string_long, "abcdefghijklm")
1635      assert_equal(g:string_special, "ab\ncd\ref\ekk")
1636  END
1637  CheckDefAndScriptSuccess(lines)
1638
1639  CheckDefFailure(['var x = "abc'], 'E114:', 1)
1640  CheckDefFailure(["var x = 'abc"], 'E115:', 1)
1641enddef
1642
1643def Test_expr7_vimvar()
1644  var old: list<string> = v:oldfiles
1645  var compl: dict<any> = v:completed_item
1646
1647  CheckDefFailure(["var old: list<number> = v:oldfiles"], 'E1012: Type mismatch; expected list<number> but got list<string>', 1)
1648  new
1649  exec "normal! afoo fo\<C-N>\<Esc>"
1650  CheckDefExecFailure(["var old: dict<number> = v:completed_item"], 'E1012: Type mismatch; expected dict<number> but got dict<string>', 1)
1651  bwipe!
1652enddef
1653
1654def Test_expr7_special()
1655  # special constant
1656  var lines =<< trim END
1657      assert_equal(g:special_true, true)
1658      assert_equal(g:special_false, false)
1659      assert_equal(g:special_true, v:true)
1660      assert_equal(g:special_false, v:false)
1661      assert_equal(v:true, true)
1662      assert_equal(v:false, false)
1663
1664      assert_equal(true, !false)
1665      assert_equal(false, !true)
1666      assert_equal(true, !0)
1667      assert_equal(false, !1)
1668      assert_equal(false, !!false)
1669      assert_equal(true, !!true)
1670      assert_equal(false, !!0)
1671      assert_equal(true, !!1)
1672
1673      var t = true
1674      var f = false
1675      assert_equal(true, t)
1676      assert_equal(false, f)
1677
1678      assert_equal(g:special_null, v:null)
1679      assert_equal(g:special_null, null)
1680      assert_equal(g:special_none, v:none)
1681  END
1682  CheckDefAndScriptSuccess(lines)
1683
1684  CheckDefFailure(['v:true = true'], 'E46:', 1)
1685  CheckDefFailure(['v:true = false'], 'E46:', 1)
1686  CheckDefFailure(['v:false = true'], 'E46:', 1)
1687  CheckDefFailure(['v:null = 11'], 'E46:', 1)
1688  CheckDefFailure(['v:none = 22'], 'E46:', 1)
1689enddef
1690
1691def Test_expr7_list()
1692  # list
1693  var lines =<< trim END
1694      assert_equal(g:list_empty, [])
1695      assert_equal(g:list_empty, [  ])
1696
1697      var numbers: list<number> = [1, 2, 3]
1698      numbers = [1]
1699      numbers = []
1700
1701      var strings: list<string> = ['a', 'b', 'c']
1702      strings = ['x']
1703      strings = []
1704
1705      var mixed: list<any> = [1, 'b', false,]
1706      assert_equal(g:list_mixed, mixed)
1707      assert_equal('b', mixed[1])
1708
1709      echo [1,
1710            2] [3,
1711                    4]
1712
1713      var llstring: list<list<string>> = [['text'], []]
1714      llstring = [[], ['text']]
1715      llstring = [[], []]
1716  END
1717  CheckDefAndScriptSuccess(lines)
1718
1719  var rangelist: list<number> = range(3)
1720  g:rangelist = range(3)
1721  CheckDefExecFailure(["var x: list<string> = g:rangelist"], 'E1012: Type mismatch; expected list<string> but got list<number>', 1)
1722
1723  CheckDefFailure(["var x = 1234[3]"], 'E1107:', 1)
1724  CheckDefExecFailure(["var x = g:anint[3]"], 'E1062:', 1)
1725
1726  CheckDefFailure(["var x = g:list_mixed[xxx]"], 'E1001:', 1)
1727
1728  CheckDefFailure(["var x = [1,2,3]"], 'E1069:', 1)
1729  CheckDefFailure(["var x = [1 ,2, 3]"], 'E1068:', 1)
1730
1731  CheckDefExecFailure(["echo 1", "var x = [][0]", "echo 3"], 'E684:', 2)
1732
1733  CheckDefExecFailure(["var x = g:list_mixed['xx']"], 'E1012:', 1)
1734  CheckDefFailure(["var x = g:list_mixed["], 'E1097:', 3)
1735  CheckDefFailure(["var x = g:list_mixed[0"], 'E1097:', 3)
1736  CheckDefExecFailure(["var x = g:list_empty[3]"], 'E684:', 1)
1737  CheckDefExecFailure(["var l: list<number> = [234, 'x']"], 'E1012:', 1)
1738  CheckDefExecFailure(["var l: list<number> = ['x', 234]"], 'E1012:', 1)
1739  CheckDefExecFailure(["var l: list<string> = [234, 'x']"], 'E1012:', 1)
1740  CheckDefExecFailure(["var l: list<string> = ['x', 123]"], 'E1012:', 1)
1741
1742  lines =<< trim END
1743      vim9script
1744      var datalist: list<string>
1745      def Main()
1746        datalist += ['x'.
1747      enddef
1748      Main()
1749  END
1750  CheckScriptFailure(lines, 'E1127:')
1751
1752  lines =<< trim END
1753      var numbers = [1, 2, 3, 4]
1754      var a = 1
1755      var b = 2
1756  END
1757  CheckDefAndScriptFailure(lines + ['echo numbers[1:b]'],
1758      'E1004: White space required before and after '':'' at ":b]"', 4)
1759  CheckDefAndScriptFailure(lines + ['echo numbers[1: b]'], 'E1004:', 4)
1760  CheckDefAndScriptFailure(lines + ['echo numbers[a :b]'], 'E1004:', 4)
1761enddef
1762
1763def Test_expr7_list_vim9script()
1764  var lines =<< trim END
1765      vim9script
1766      var l = [
1767		11,
1768		22,
1769		]
1770      assert_equal([11, 22], l)
1771
1772      echo [1,
1773	    2] [3,
1774		    4]
1775
1776      echo [1, # comment
1777            # comment
1778	    2] [3,
1779            # comment
1780		    4]
1781  END
1782  CheckScriptSuccess(lines)
1783
1784  lines =<< trim END
1785      vim9script
1786      var l = [11,
1787		22]
1788      assert_equal([11, 22], l)
1789  END
1790  CheckScriptSuccess(lines)
1791
1792  lines =<< trim END
1793      vim9script
1794      var l = [11,22]
1795  END
1796  CheckScriptFailure(lines, 'E1069:', 2)
1797
1798  lines =<< trim END
1799      vim9script
1800      var l = [11 , 22]
1801  END
1802  CheckScriptFailure(lines, 'E1068:', 2)
1803
1804  lines =<< trim END
1805    vim9script
1806    var l: list<number> = [234, 'x']
1807  END
1808  CheckScriptFailure(lines, 'E1012:', 2)
1809  lines =<< trim END
1810    vim9script
1811    var l: list<number> = ['x', 234]
1812  END
1813  CheckScriptFailure(lines, 'E1012:', 2)
1814  lines =<< trim END
1815    vim9script
1816    var l: list<string> = ['x', 234]
1817  END
1818  CheckScriptFailure(lines, 'E1012:', 2)
1819  lines =<< trim END
1820    vim9script
1821    var l: list<string> = [234, 'x']
1822  END
1823  CheckScriptFailure(lines, 'E1012:', 2)
1824
1825  lines =<< trim END
1826      vim9script
1827      def Failing()
1828        job_stop()
1829      enddef
1830      var list = [Failing]
1831  END
1832  if has('channel')
1833    CheckScriptFailure(lines, 'E119:', 1)
1834  else
1835    CheckScriptFailure(lines, 'E117:', 1)
1836  endif
1837enddef
1838
1839def LambdaWithComments(): func
1840  return (x) =>
1841            # some comment
1842            x == 1
1843            # some comment
1844            ||
1845            x == 2
1846enddef
1847
1848def LambdaUsingArg(x: number): func
1849  return () =>
1850            # some comment
1851            x == 1
1852            # some comment
1853            ||
1854            x == 2
1855enddef
1856
1857def Test_expr7_lambda()
1858  var lines =<< trim END
1859      var La = () => 'result'
1860      assert_equal('result', La())
1861      assert_equal([1, 3, 5], [1, 2, 3]->map((key, val) => key + val))
1862
1863      # line continuation inside lambda with "cond ? expr : expr" works
1864      var ll = range(3)
1865      var dll = mapnew(ll, (k, v) => v % 2 ? {
1866                ['111']: 111 } : {}
1867            )
1868      assert_equal([{}, {111: 111}, {}], dll)
1869
1870      ll = range(3)
1871      map(ll, (k, v) => v == 8 || v
1872                    == 9
1873                    || v % 2 ? 111 : 222
1874            )
1875      assert_equal([222, 111, 222], ll)
1876
1877      ll = range(3)
1878      map(ll, (k, v) => v != 8 && v
1879                    != 9
1880                    && v % 2 == 0 ? 111 : 222
1881            )
1882      assert_equal([111, 222, 111], ll)
1883
1884      var dl = [{key: 0}, {key: 22}]->filter(( _, v) => v['key'] )
1885      assert_equal([{key: 22}], dl)
1886
1887      dl = [{key: 12}, {['foo']: 34}]
1888      assert_equal([{key: 12}], filter(dl,
1889            (_, v) => has_key(v, 'key') ? v['key'] == 12 : 0))
1890
1891      assert_equal(false, LambdaWithComments()(0))
1892      assert_equal(true, LambdaWithComments()(1))
1893      assert_equal(true, LambdaWithComments()(2))
1894      assert_equal(false, LambdaWithComments()(3))
1895
1896      assert_equal(false, LambdaUsingArg(0)())
1897      assert_equal(true, LambdaUsingArg(1)())
1898
1899      var res = map([1, 2, 3], (i: number, v: number) => i + v)
1900      assert_equal([1, 3, 5], res)
1901  END
1902  CheckDefAndScriptSuccess(lines)
1903
1904  CheckDefFailure(["var Ref = (a)=>a + 1"], 'E1004:')
1905  CheckDefFailure(["var Ref = (a)=> a + 1"], 'E1004: White space required before and after ''=>'' at "=> a + 1"')
1906  CheckDefFailure(["var Ref = (a) =>a + 1"], 'E1004:')
1907
1908  CheckDefFailure(["filter([1, 2], (k,v) => 1)"], 'E1069:', 1)
1909  # error is in first line of the lambda
1910  CheckDefFailure(["var L = (a) => a + b"], 'E1001:', 0)
1911
1912  assert_equal('xxxyyy', 'xxx'->((a, b) => a .. b)('yyy'))
1913
1914  CheckDefExecFailure(["var s = 'asdf'->((a) => a)('x')"], 'E118:')
1915  CheckDefExecFailure(["var s = 'asdf'->((a) => a)('x', 'y')"], 'E118:')
1916  CheckDefFailure(["echo 'asdf'->((a) => a)(x)"], 'E1001:', 1)
1917
1918  CheckDefSuccess(['var Fx = (a) => ({k1: 0,', ' k2: 1})'])
1919  CheckDefFailure(['var Fx = (a) => ({k1: 0', ' k2: 1})'], 'E722:', 2)
1920  CheckDefFailure(['var Fx = (a) => ({k1: 0,', ' k2 1})'], 'E720:', 2)
1921
1922  CheckDefSuccess(['var Fx = (a) => [0,', ' 1]'])
1923  CheckDefFailure(['var Fx = (a) => [0', ' 1]'], 'E696:', 2)
1924enddef
1925
1926def NewLambdaWithComments(): func
1927  return (x) =>
1928            # some comment
1929            x == 1
1930            # some comment
1931            ||
1932            x == 2
1933enddef
1934
1935def NewLambdaUsingArg(x: number): func
1936  return () =>
1937            # some comment
1938            x == 1
1939            # some comment
1940            ||
1941            x == 2
1942enddef
1943
1944def Test_expr7_new_lambda()
1945  var lines =<< trim END
1946      var La = () => 'result'
1947      assert_equal('result', La())
1948      assert_equal([1, 3, 5], [1, 2, 3]->map((key, val) => key + val))
1949
1950      # line continuation inside lambda with "cond ? expr : expr" works
1951      var ll = range(3)
1952      var dll = mapnew(ll, (k, v) => v % 2 ? {
1953                ['111']: 111 } : {}
1954            )
1955      assert_equal([{}, {111: 111}, {}], dll)
1956
1957      ll = range(3)
1958      map(ll, (k, v) => v == 8 || v
1959                    == 9
1960                    || v % 2 ? 111 : 222
1961            )
1962      assert_equal([222, 111, 222], ll)
1963
1964      ll = range(3)
1965      map(ll, (k, v) => v != 8 && v
1966                    != 9
1967                    && v % 2 == 0 ? 111 : 222
1968            )
1969      assert_equal([111, 222, 111], ll)
1970
1971      var dl = [{key: 0}, {key: 22}]->filter(( _, v) => v['key'] )
1972      assert_equal([{key: 22}], dl)
1973
1974      dl = [{key: 12}, {['foo']: 34}]
1975      assert_equal([{key: 12}], filter(dl,
1976            (_, v) => has_key(v, 'key') ? v['key'] == 12 : 0))
1977
1978      assert_equal(false, NewLambdaWithComments()(0))
1979      assert_equal(true, NewLambdaWithComments()(1))
1980      assert_equal(true, NewLambdaWithComments()(2))
1981      assert_equal(false, NewLambdaWithComments()(3))
1982
1983      assert_equal(false, NewLambdaUsingArg(0)())
1984      assert_equal(true, NewLambdaUsingArg(1)())
1985
1986      var res = map([1, 2, 3], (i: number, v: number) => i + v)
1987      assert_equal([1, 3, 5], res)
1988
1989      # Lambda returning a dict
1990      var Lmb = () => ({key: 42})
1991      assert_equal({key: 42}, Lmb())
1992
1993      var RefOne: func(number): string = (a: number): string => 'x'
1994      var RefTwo: func(number): any = (a: number): any => 'x'
1995
1996      var Fx = (a) => ({k1: 0,
1997                         k2: 1})
1998      var Fy = (a) => [0,
1999                       1]
2000  END
2001  CheckDefAndScriptSuccess(lines)
2002
2003  CheckDefAndScriptFailure(["var Ref = (a)=>a + 1"], 'E1004:')
2004  CheckDefAndScriptFailure(["var Ref = (a)=> a + 1"], 'E1004:')
2005  CheckDefAndScriptFailure(["var Ref = (a) =>a + 1"],
2006      'E1004: White space required before and after ''=>'' at " =>a + 1"')
2007
2008  CheckDefFailure(["var Ref: func(number): number = (a: number): string => 'x'"], 'E1012:')
2009  CheckDefFailure(["var Ref: func(number): string = (a: number): string => 99"], 'E1012:')
2010
2011  CheckDefFailure(["filter([1, 2], (k,v) => 1)"], 'E1069:', 1)
2012  # error is in first line of the lambda
2013  CheckDefFailure(["var L = (a) -> a + b"], 'E1001:', 1)
2014
2015# TODO: ->(lambda)() doesn't work yet
2016#  assert_equal('xxxyyy', 'xxx'->((a, b) => a .. b)('yyy'))
2017
2018#  CheckDefExecFailure(["var s = 'asdf'->{a -> a}('x')"],
2019#        'E1106: One argument too many')
2020#  CheckDefExecFailure(["var s = 'asdf'->{a -> a}('x', 'y')"],
2021#        'E1106: 2 arguments too many')
2022#  CheckDefFailure(["echo 'asdf'->{a -> a}(x)"], 'E1001:', 1)
2023
2024  CheckDefFailure(['var Fx = (a) => ({k1: 0', ' k2: 1})'], 'E722:', 2)
2025  CheckDefFailure(['var Fx = (a) => ({k1: 0,', ' k2 1})'], 'E720:', 2)
2026
2027  CheckDefFailure(['var Fx = (a) => [0', ' 1]'], 'E696:', 2)
2028enddef
2029
2030def Test_expr7_lambda_vim9script()
2031  var lines =<< trim END
2032      vim9script
2033      var v = 10->((a) =>
2034	    a
2035	      + 2
2036            )()
2037      assert_equal(12, v)
2038  END
2039  CheckScriptSuccess(lines)
2040
2041  # nested lambda with line breaks
2042  lines =<< trim END
2043      vim9script
2044      search('"', 'cW', 0, 0, () =>
2045	synstack('.', col('.'))
2046          ->map((_, v) => synIDattr(v, 'name'))->len())
2047  END
2048  CheckScriptSuccess(lines)
2049enddef
2050
2051def Test_epxr7_funcref()
2052  var lines =<< trim END
2053      def RetNumber(): number
2054        return 123
2055      enddef
2056      var FuncRef = RetNumber
2057      assert_equal(123, FuncRef())
2058  END
2059  CheckDefAndScriptSuccess(lines)
2060enddef
2061
2062let g:test_space_dict = {'': 'empty', ' ': 'space'}
2063let g:test_hash_dict = #{one: 1, two: 2}
2064
2065def Test_expr7_dict()
2066  # dictionary
2067  var lines =<< trim END
2068      assert_equal(g:dict_empty, {})
2069      assert_equal(g:dict_empty, {  })
2070      assert_equal(g:dict_one, {['one']: 1})
2071      var key = 'one'
2072      var val = 1
2073      assert_equal(g:dict_one, {[key]: val})
2074
2075      var numbers: dict<number> = {a: 1, b: 2, c: 3}
2076      numbers = {a: 1}
2077      numbers = {}
2078
2079      var strings: dict<string> = {a: 'a', b: 'b', c: 'c'}
2080      strings = {a: 'x'}
2081      strings = {}
2082
2083      var dash = {xx-x: 8}
2084      assert_equal({['xx-x']: 8}, dash)
2085
2086      var dnr = {8: 8}
2087      assert_equal({['8']: 8}, dnr)
2088
2089      var mixed: dict<any> = {a: 'a', b: 42}
2090      mixed = {a: 'x'}
2091      mixed = {a: 234}
2092      mixed = {}
2093
2094      var dictlist: dict<list<string>> = {absent: [], present: ['hi']}
2095      dictlist = {absent: ['hi'], present: []}
2096      dictlist = {absent: [], present: []}
2097
2098      var dictdict: dict<dict<string>> = {one: {a: 'text'}, two: {}}
2099      dictdict = {one: {}, two: {a: 'text'}}
2100      dictdict = {one: {}, two: {}}
2101
2102      assert_equal({['']: 0}, {[matchstr('string', 'wont match')]: 0})
2103
2104      assert_equal(g:test_space_dict, {['']: 'empty', [' ']: 'space'})
2105      assert_equal(g:test_hash_dict, {one: 1, two: 2})
2106
2107      assert_equal({['a a']: 1, ['b/c']: 2}, {'a a': 1, "b/c": 2})
2108
2109      var d = {a: () => 3, b: () => 7}
2110      assert_equal(3, d.a())
2111      assert_equal(7, d.b())
2112
2113      var cd = { # comment
2114                key: 'val' # comment
2115               }
2116  END
2117  CheckDefAndScriptSuccess(lines)
2118
2119  # legacy syntax doesn't work
2120  CheckDefFailure(["var x = #{key: 8}"], 'E1097:', 3)
2121  CheckDefFailure(["var x = 'a' .. #{a: 1}"], 'E1097:', 3)
2122
2123  CheckDefFailure(["var x = {a:8}"], 'E1069:', 1)
2124  CheckDefFailure(["var x = {a : 8}"], 'E1068:', 1)
2125  CheckDefFailure(["var x = {a :8}"], 'E1068:', 1)
2126  CheckDefFailure(["var x = {a: 8 , b: 9}"], 'E1068:', 1)
2127  CheckDefFailure(["var x = {a: 1,b: 2}"], 'E1069:', 1)
2128
2129  CheckDefFailure(["var x = {xxx}"], 'E720:', 1)
2130  CheckDefFailure(["var x = {xxx: 1", "var y = 2"], 'E722:', 2)
2131  CheckDefFailure(["var x = {xxx: 1,"], 'E723:', 2)
2132  CheckDefFailure(["var x = {['a']: xxx}"], 'E1001:', 1)
2133  CheckDefFailure(["var x = {a: 1, a: 2}"], 'E721:', 1)
2134  CheckDefExecFailure(["var x = g:anint.member"], 'E715:', 1)
2135  CheckDefExecFailure(["var x = g:dict_empty.member"], 'E716:', 1)
2136
2137  CheckDefExecFailure(['var x: dict<number> = {a: 234, b: "1"}'], 'E1012:', 1)
2138  CheckDefExecFailure(['var x: dict<number> = {a: "x", b: 134}'], 'E1012:', 1)
2139  CheckDefExecFailure(['var x: dict<string> = {a: 234, b: "1"}'], 'E1012:', 1)
2140  CheckDefExecFailure(['var x: dict<string> = {a: "x", b: 134}'], 'E1012:', 1)
2141
2142  CheckDefFailure(['var x = ({'], 'E723:', 2)
2143  CheckDefExecFailure(['{}[getftype("file")]'], 'E716: Key not present in Dictionary: ""', 1)
2144
2145  # no automatic conversion from number to string
2146  lines =<< trim END
2147      var n = 123
2148      var d = {[n]: 1}
2149  END
2150  CheckDefFailure(lines, 'E1012:', 2)
2151  CheckScriptFailure(['vim9script'] + lines, 'E928:', 3)
2152enddef
2153
2154def Test_expr7_dict_vim9script()
2155  var lines =<< trim END
2156      vim9script
2157      var d = {
2158		['one']:
2159		   1,
2160		['two']: 2,
2161		   }
2162      assert_equal({one: 1, two: 2}, d)
2163
2164      d = {  # comment
2165		['one']:
2166                # comment
2167
2168		   1,
2169                # comment
2170                # comment
2171		['two']: 2,
2172		   }
2173      assert_equal({one: 1, two: 2}, d)
2174
2175      var dd = {k: 123->len()}
2176      assert_equal(3, dd.k)
2177  END
2178  CheckScriptSuccess(lines)
2179
2180  lines =<< trim END
2181      vim9script
2182      var d = { ["one"]: "one", ["two"]: "two", }
2183      assert_equal({one: 'one', two: 'two'}, d)
2184  END
2185  CheckScriptSuccess(lines)
2186
2187  lines =<< trim END
2188      vim9script
2189      var d = {one: 1,
2190		two: 2,
2191	       }
2192      assert_equal({one: 1, two: 2}, d)
2193  END
2194  CheckScriptSuccess(lines)
2195
2196  lines =<< trim END
2197      vim9script
2198      var d = {one:1, two: 2}
2199  END
2200  CheckScriptFailure(lines, 'E1069:', 2)
2201
2202  lines =<< trim END
2203      vim9script
2204      var d = {one: 1,two: 2}
2205  END
2206  CheckScriptFailure(lines, 'E1069:', 2)
2207
2208  lines =<< trim END
2209      vim9script
2210      var d = {one : 1}
2211  END
2212  CheckScriptFailure(lines, 'E1068:', 2)
2213
2214  lines =<< trim END
2215      vim9script
2216      var d = {one:1}
2217  END
2218  CheckScriptFailure(lines, 'E1069:', 2)
2219
2220  lines =<< trim END
2221      vim9script
2222      var d = {one: 1 , two: 2}
2223  END
2224  CheckScriptFailure(lines, 'E1068:', 2)
2225
2226  lines =<< trim END
2227    vim9script
2228    var l: dict<number> = {a: 234, b: 'x'}
2229  END
2230  CheckScriptFailure(lines, 'E1012:', 2)
2231  lines =<< trim END
2232    vim9script
2233    var l: dict<number> = {a: 'x', b: 234}
2234  END
2235  CheckScriptFailure(lines, 'E1012:', 2)
2236  lines =<< trim END
2237    vim9script
2238    var l: dict<string> = {a: 'x', b: 234}
2239  END
2240  CheckScriptFailure(lines, 'E1012:', 2)
2241  lines =<< trim END
2242    vim9script
2243    var l: dict<string> = {a: 234, b: 'x'}
2244  END
2245  CheckScriptFailure(lines, 'E1012:', 2)
2246
2247  lines =<< trim END
2248    vim9script
2249    var d = {['a']: 234, ['b': 'x'}
2250  END
2251  CheckScriptFailure(lines, 'E1139:', 2)
2252  lines =<< trim END
2253    vim9script
2254    def Func()
2255      var d = {['a']: 234, ['b': 'x'}
2256    enddef
2257    defcompile
2258  END
2259  CheckScriptFailure(lines, 'E1139:', 1)
2260  lines =<< trim END
2261    vim9script
2262    var d = {'a':
2263  END
2264  CheckScriptFailure(lines, 'E15:', 2)
2265  lines =<< trim END
2266    vim9script
2267    def Func()
2268      var d = {'a':
2269    enddef
2270    defcompile
2271  END
2272  CheckScriptFailure(lines, 'E723:', 1)
2273
2274  lines =<< trim END
2275      vim9script
2276      def Failing()
2277        job_stop()
2278      enddef
2279      var dict = {name: Failing}
2280  END
2281  if has('channel')
2282    CheckScriptFailure(lines, 'E119:', 1)
2283  else
2284    CheckScriptFailure(lines, 'E117:', 1)
2285  endif
2286enddef
2287
2288let g:oneString = 'one'
2289
2290def Test_expr_member()
2291  assert_equal(1, g:dict_one.one)
2292  var d: dict<number> = g:dict_one
2293  assert_equal(1, d['one'])
2294  assert_equal(1, d[
2295		  'one'
2296		  ])
2297  assert_equal(1, d
2298  	.one)
2299  d = {1: 1, _: 2}
2300  assert_equal(1, d
2301  	.1)
2302  assert_equal(2, d
2303  	._)
2304
2305  # getting the one member should clear the dict after getting the item
2306  assert_equal('one', {one: 'one'}.one)
2307  assert_equal('one', {one: 'one'}[g:oneString])
2308
2309  CheckDefFailure(["var x = g:dict_one.#$!"], 'E1002:', 1)
2310  CheckDefExecFailure(["var d: dict<any>", "echo d['a']"], 'E716:', 2)
2311  CheckDefExecFailure(["var d: dict<number>", "d = g:list_empty"], 'E1012: Type mismatch; expected dict<number> but got list<unknown>', 2)
2312enddef
2313
2314def Test_expr7_any_index_slice()
2315  var lines =<< trim END
2316    # getting the one member should clear the list only after getting the item
2317    assert_equal('bbb', ['aaa', 'bbb', 'ccc'][1])
2318
2319    # string is permissive, index out of range accepted
2320    g:teststring = 'abcdef'
2321    assert_equal('b', g:teststring[1])
2322    assert_equal('f', g:teststring[-1])
2323    assert_equal('', g:teststring[99])
2324
2325    assert_equal('b', g:teststring[1 : 1])
2326    assert_equal('bcdef', g:teststring[1 :])
2327    assert_equal('abcd', g:teststring[: 3])
2328    assert_equal('cdef', g:teststring[-4 :])
2329    assert_equal('abcdef', g:teststring[-9 :])
2330    assert_equal('abcd', g:teststring[: -3])
2331    assert_equal('', g:teststring[: -9])
2332
2333    # blob index cannot be out of range
2334    g:testblob = 0z01ab
2335    assert_equal(0x01, g:testblob[0])
2336    assert_equal(0xab, g:testblob[1])
2337    assert_equal(0xab, g:testblob[-1])
2338    assert_equal(0x01, g:testblob[-2])
2339
2340    # blob slice accepts out of range
2341    assert_equal(0z01ab, g:testblob[0 : 1])
2342    assert_equal(0z01, g:testblob[0 : 0])
2343    assert_equal(0z01, g:testblob[-2 : -2])
2344    assert_equal(0zab, g:testblob[1 : 1])
2345    assert_equal(0zab, g:testblob[-1 : -1])
2346    assert_equal(0z, g:testblob[2 : 2])
2347    assert_equal(0z, g:testblob[0 : -3])
2348
2349    # list index cannot be out of range
2350    g:testlist = [0, 1, 2, 3]
2351    assert_equal(0, g:testlist[0])
2352    assert_equal(1, g:testlist[1])
2353    assert_equal(3, g:testlist[3])
2354    assert_equal(3, g:testlist[-1])
2355    assert_equal(0, g:testlist[-4])
2356    assert_equal(1, g:testlist[g:theone])
2357
2358    # list slice accepts out of range
2359    assert_equal([0], g:testlist[0 : 0])
2360    assert_equal([3], g:testlist[3 : 3])
2361    assert_equal([0, 1], g:testlist[0 : 1])
2362    assert_equal([0, 1, 2, 3], g:testlist[0 : 3])
2363    assert_equal([0, 1, 2, 3], g:testlist[0 : 9])
2364    assert_equal([], g:testlist[-1 : 1])
2365    assert_equal([1], g:testlist[-3 : 1])
2366    assert_equal([0, 1], g:testlist[-4 : 1])
2367    assert_equal([0, 1], g:testlist[-9 : 1])
2368    assert_equal([1, 2, 3], g:testlist[1 : -1])
2369    assert_equal([1], g:testlist[1 : -3])
2370    assert_equal([], g:testlist[1 : -4])
2371    assert_equal([], g:testlist[1 : -9])
2372
2373    g:testdict = {a: 1, b: 2}
2374    assert_equal(1, g:testdict['a'])
2375    assert_equal(2, g:testdict['b'])
2376  END
2377
2378  CheckDefSuccess(lines)
2379  CheckScriptSuccess(['vim9script'] + lines)
2380
2381  CheckDefExecFailure(['echo g:testblob[2]'], 'E979:', 1)
2382  CheckScriptFailure(['vim9script', 'echo g:testblob[2]'], 'E979:', 2)
2383  CheckDefExecFailure(['echo g:testblob[-3]'], 'E979:', 1)
2384  CheckScriptFailure(['vim9script', 'echo g:testblob[-3]'], 'E979:', 2)
2385
2386  CheckDefExecFailure(['echo g:testlist[4]'], 'E684: list index out of range: 4', 1)
2387  CheckScriptFailure(['vim9script', 'echo g:testlist[4]'], 'E684:', 2)
2388  CheckDefExecFailure(['echo g:testlist[-5]'], 'E684:', 1)
2389  CheckScriptFailure(['vim9script', 'echo g:testlist[-5]'], 'E684: list index out of range: -5', 2)
2390
2391  CheckDefExecFailure(['echo g:testdict["a" : "b"]'], 'E719:', 1)
2392  CheckScriptFailure(['vim9script', 'echo g:testdict["a" : "b"]'], 'E719:', 2)
2393  CheckDefExecFailure(['echo g:testdict[1]'], 'E716:', 1)
2394  CheckScriptFailure(['vim9script', 'echo g:testdict[1]'], 'E716:', 2)
2395
2396  unlet g:teststring
2397  unlet g:testblob
2398  unlet g:testlist
2399enddef
2400
2401def Test_expr_member_vim9script()
2402  var lines =<< trim END
2403      vim9script
2404      var d = {one:
2405      		'one',
2406		two: 'two',
2407		1: 1,
2408		_: 2}
2409      assert_equal('one', d.one)
2410      assert_equal('one', d
2411                            .one)
2412      assert_equal(1, d
2413                            .1)
2414      assert_equal(2, d
2415                            ._)
2416      assert_equal('one', d[
2417			    'one'
2418			    ])
2419  END
2420  CheckScriptSuccess(lines)
2421
2422  lines =<< trim END
2423      vim9script
2424      var l = [1,
2425		  2,
2426		  3, 4
2427		  ]
2428      assert_equal(2, l[
2429			    1
2430			    ])
2431      assert_equal([2, 3], l[1 : 2])
2432      assert_equal([1, 2, 3], l[
2433				:
2434				2
2435				])
2436      assert_equal([3, 4], l[
2437				2
2438				:
2439				])
2440  END
2441  CheckScriptSuccess(lines)
2442enddef
2443
2444def SetSomeVar()
2445  b:someVar = &fdm
2446enddef
2447
2448def Test_expr7_option()
2449  # option
2450  set ts=11
2451  assert_equal(11, &ts)
2452  &ts = 9
2453  assert_equal(9, &ts)
2454  set ts=8
2455  set grepprg=some\ text
2456  assert_equal('some text', &grepprg)
2457  &grepprg = test_null_string()
2458  assert_equal('', &grepprg)
2459  set grepprg&
2460
2461  # check matching type
2462  var bval: bool = &tgc
2463  var nval: number = &ts
2464  var sval: string = &path
2465
2466  # check v_lock is cleared (requires using valgrind, doesn't always show)
2467  SetSomeVar()
2468  b:someVar = 0
2469  unlet b:someVar
2470enddef
2471
2472def Test_expr7_environment()
2473  # environment variable
2474  assert_equal('testvar', $TESTVAR)
2475  assert_equal('', $ASDF_ASD_XXX)
2476
2477  CheckDefFailure(["var x = $$$"], 'E1002:', 1)
2478enddef
2479
2480def Test_expr7_register()
2481  @a = 'register a'
2482  assert_equal('register a', @a)
2483
2484  var fname = expand('%')
2485  assert_equal(fname, @%)
2486
2487  feedkeys(":echo 'some'\<CR>", "xt")
2488  assert_equal("echo 'some'", @:)
2489
2490  normal axyz
2491  assert_equal("xyz", @.)
2492  CheckDefFailure(["@. = 'yes'"], 'E354:', 1)
2493
2494  @/ = 'slash'
2495  assert_equal('slash', @/)
2496
2497  @= = 'equal'
2498  assert_equal('equal', @=)
2499enddef
2500
2501def Test_expr7_namespace()
2502  g:some_var = 'some'
2503  assert_equal('some', get(g:, 'some_var'))
2504  assert_equal('some', get(g:, 'some_var', 'xxx'))
2505  assert_equal('xxx', get(g:, 'no_var', 'xxx'))
2506  unlet g:some_var
2507
2508  b:some_var = 'some'
2509  assert_equal('some', get(b:, 'some_var'))
2510  assert_equal('some', get(b:, 'some_var', 'xxx'))
2511  assert_equal('xxx', get(b:, 'no_var', 'xxx'))
2512  unlet b:some_var
2513
2514  w:some_var = 'some'
2515  assert_equal('some', get(w:, 'some_var'))
2516  assert_equal('some', get(w:, 'some_var', 'xxx'))
2517  assert_equal('xxx', get(w:, 'no_var', 'xxx'))
2518  unlet w:some_var
2519
2520  t:some_var = 'some'
2521  assert_equal('some', get(t:, 'some_var'))
2522  assert_equal('some', get(t:, 'some_var', 'xxx'))
2523  assert_equal('xxx', get(t:, 'no_var', 'xxx'))
2524  unlet t:some_var
2525enddef
2526
2527def Test_expr7_parens()
2528  # (expr)
2529  var lines =<< trim END
2530      assert_equal(4, (6 * 4) / 6)
2531      assert_equal(0, 6 * ( 4 / 6 ))
2532
2533      assert_equal(6, +6)
2534      assert_equal(-6, -6)
2535      assert_equal(false, !-3)
2536      assert_equal(true, !+0)
2537
2538      assert_equal(7, 5 + (
2539                    2))
2540      assert_equal(7, 5 + (
2541                    2
2542                    ))
2543      assert_equal(7, 5 + ( # comment
2544                    2))
2545      assert_equal(7, 5 + ( # comment
2546                    # comment
2547                    2))
2548
2549      var s = (
2550		'one'
2551		..
2552		'two'
2553		)
2554      assert_equal('onetwo', s)
2555  END
2556  CheckDefAndScriptSuccess(lines)
2557enddef
2558
2559def Test_expr7_negate_add()
2560  assert_equal(-99, -99)
2561  assert_equal(-99, - 99)
2562  assert_equal(99, +99)
2563
2564  var nr = 88
2565  assert_equal(-88, -nr)
2566  assert_equal(-88, - nr)
2567  assert_equal(88, + nr)
2568
2569  var lines =<< trim END
2570    var n = 12
2571    echo ++n
2572  END
2573  CheckDefAndScriptFailure(lines, 'E15:')
2574  lines =<< trim END
2575    var n = 12
2576    echo --n
2577  END
2578  CheckDefAndScriptFailure(lines, 'E15:')
2579  lines =<< trim END
2580    var n = 12
2581    echo +-n
2582  END
2583  CheckDefAndScriptFailure(lines, 'E15:')
2584  lines =<< trim END
2585    var n = 12
2586    echo -+n
2587  END
2588  CheckDefAndScriptFailure(lines, 'E15:')
2589  lines =<< trim END
2590    var n = 12
2591    echo - -n
2592  END
2593  CheckDefAndScriptFailure(lines, 'E15:')
2594  lines =<< trim END
2595    var n = 12
2596    echo + +n
2597  END
2598  CheckDefAndScriptFailure(lines, 'E15:')
2599
2600  lines =<< trim END
2601    var n = 12
2602    :1
2603    ++n
2604  END
2605  CheckDefAndScriptFailure(lines, 'E1050:')
2606  lines =<< trim END
2607    var n = 12
2608    :1
2609    --n
2610  END
2611  CheckDefAndScriptFailure(lines, 'E1050:')
2612enddef
2613
2614def Echo(arg: any): string
2615  return arg
2616enddef
2617
2618def s:Echo4Arg(arg: any): string
2619  return arg
2620enddef
2621
2622def Test_expr7_call()
2623  var lines =<< trim END
2624      assert_equal('yes', 'yes'->Echo())
2625      assert_equal(true, !range(5)->empty())
2626      assert_equal([0, 1, 2], 3->range())
2627  END
2628  CheckDefAndScriptSuccess(lines)
2629
2630  assert_equal('yes', 'yes'
2631                        ->s:Echo4Arg())
2632
2633  CheckDefFailure(["var x = 'yes'->Echo"], 'E107:', 1)
2634  CheckScriptFailure([
2635   "vim9script",
2636   "var x = substitute ('x', 'x', 'x', 'x')"
2637   ], 'E121:', 2)
2638  CheckDefFailure(["var Ref = function('len' [1, 2])"], 'E1123:', 1)
2639
2640  var auto_lines =<< trim END
2641      def g:some#func(): string
2642	return 'found'
2643      enddef
2644  END
2645  mkdir('Xruntime/autoload', 'p')
2646  writefile(auto_lines, 'Xruntime/autoload/some.vim')
2647  var save_rtp = &rtp
2648  &rtp = getcwd() .. '/Xruntime,' .. &rtp
2649  assert_equal('found', g:some#func())
2650  assert_equal('found', some#func())
2651
2652  &rtp = save_rtp
2653  delete('Xruntime', 'rf')
2654enddef
2655
2656def Test_expr7_method_call()
2657  new
2658  setline(1, ['first', 'last'])
2659  'second'->append(1)
2660  "third"->append(2)
2661  assert_equal(['first', 'second', 'third', 'last'], getline(1, '$'))
2662  bwipe!
2663
2664  var bufnr = bufnr()
2665  var loclist = [{bufnr: bufnr, lnum: 42, col: 17, text: 'wrong'}]
2666  loclist->setloclist(0)
2667  assert_equal([{bufnr: bufnr,
2668  		lnum: 42,
2669		col: 17,
2670		text: 'wrong',
2671		pattern: '',
2672		valid: 1,
2673		vcol: 0,
2674		nr: 0,
2675		type: '',
2676		module: ''}
2677		], getloclist(0))
2678
2679  var result: bool = get({n: 0}, 'n', 0)
2680  assert_equal(false, result)
2681
2682  assert_equal('+string+', 'string'->((s) => '+' .. s .. '+')())
2683  assert_equal('-text-', 'text'->((s, c) => c .. s .. c)('-'))
2684
2685  var Join = (l) => join(l, 'x')
2686  assert_equal('axb', ['a', 'b']->(Join)())
2687enddef
2688
2689
2690def Test_expr7_not()
2691  var lines =<< trim END
2692      assert_equal(true, !'')
2693      assert_equal(true, ![])
2694      assert_equal(false, !'asdf')
2695      assert_equal(false, ![2])
2696      assert_equal(true, !!'asdf')
2697      assert_equal(true, !![2])
2698
2699      assert_equal(true, ! false)
2700      assert_equal(true, !! true)
2701      assert_equal(true, ! ! true)
2702      assert_equal(true, !!! false)
2703      assert_equal(true, ! ! ! false)
2704
2705      g:true = true
2706      g:false = false
2707      assert_equal(true, ! g:false)
2708      assert_equal(true, !! g:true)
2709      assert_equal(true, ! ! g:true)
2710      assert_equal(true, !!! g:false)
2711      assert_equal(true, ! ! ! g:false)
2712      unlet g:true
2713      unlet g:false
2714
2715      assert_equal(true, !test_null_partial())
2716      assert_equal(false, !() => 'yes')
2717
2718      assert_equal(true, !test_null_dict())
2719      assert_equal(true, !{})
2720      assert_equal(false, !{yes: 'no'})
2721
2722      if has('channel')
2723	assert_equal(true, !test_null_job())
2724	assert_equal(true, !test_null_channel())
2725      endif
2726
2727      assert_equal(true, !test_null_blob())
2728      assert_equal(true, !0z)
2729      assert_equal(false, !0z01)
2730
2731      assert_equal(true, !test_void())
2732      assert_equal(true, !test_unknown())
2733
2734      assert_equal(false, ![1, 2, 3]->reverse())
2735      assert_equal(true, ![]->reverse())
2736  END
2737  CheckDefAndScriptSuccess(lines)
2738enddef
2739
2740func Test_expr7_fails()
2741  call CheckDefFailure(["var x = (12"], "E1097:", 3)
2742
2743  call CheckDefFailure(["var x = -'xx'"], "E1030:", 1)
2744  call CheckDefFailure(["var x = +'xx'"], "E1030:", 1)
2745  call CheckDefFailure(["var x = -0z12"], "E974:", 1)
2746  call CheckDefExecFailure(["var x = -[8]"], "E39:", 1)
2747  call CheckDefExecFailure(["var x = -{a: 1}"], "E39:", 1)
2748
2749  call CheckDefFailure(["var x = @"], "E1002:", 1)
2750  call CheckDefFailure(["var x = @<"], "E354:", 1)
2751
2752  call CheckDefFailure(["var x = [1, 2"], "E697:", 2)
2753  call CheckDefFailure(["var x = [notfound]"], "E1001:", 1)
2754
2755  call CheckDefFailure(["var X = () => 123)"], "E488:", 1)
2756  call CheckDefFailure(["var x = 123->((x) => x + 5)"], "E107:", 1)
2757
2758  call CheckDefFailure(["var x = &notexist"], 'E113:', 1)
2759  call CheckDefFailure(["&grepprg = [343]"], 'E1012:', 1)
2760
2761  call CheckDefExecFailure(["echo s:doesnt_exist"], 'E121:', 1)
2762  call CheckDefExecFailure(["echo g:doesnt_exist"], 'E121:', 1)
2763
2764  call CheckDefFailure(["echo a:somevar"], 'E1075:', 1)
2765  call CheckDefFailure(["echo l:somevar"], 'E1075:', 1)
2766  call CheckDefFailure(["echo x:somevar"], 'E1075:', 1)
2767
2768  call CheckDefExecFailure(["var x = +g:astring"], 'E1030:', 1)
2769  call CheckDefExecFailure(["var x = +g:ablob"], 'E974:', 1)
2770  call CheckDefExecFailure(["var x = +g:alist"], 'E745:', 1)
2771  call CheckDefExecFailure(["var x = +g:adict"], 'E728:', 1)
2772
2773  call CheckDefFailure(["var x = ''", "var y = x.memb"], 'E715:', 2)
2774
2775  call CheckDefFailure(["'yes'->", "Echo()"], 'E488: Trailing characters: ->', 1)
2776
2777  call CheckDefExecFailure(["[1, 2->len()"], 'E697:', 2)
2778  call CheckDefExecFailure(["{a: 1->len()"], 'E723:', 2)
2779  call CheckDefExecFailure(["{['a']: 1->len()"], 'E723:', 2)
2780endfunc
2781
2782let g:Funcrefs = [function('add')]
2783
2784func CallMe(arg)
2785  return a:arg
2786endfunc
2787
2788func CallMe2(one, two)
2789  return a:one .. a:two
2790endfunc
2791
2792def Test_expr7_trailing()
2793  # user function call
2794  assert_equal(123, g:CallMe(123))
2795  assert_equal(123, g:CallMe(  123))
2796  assert_equal(123, g:CallMe(123  ))
2797  assert_equal('yesno', g:CallMe2('yes', 'no'))
2798  assert_equal('yesno', g:CallMe2( 'yes', 'no' ))
2799  assert_equal('nothing', g:CallMe('nothing'))
2800
2801  # partial call
2802  var Part = function('g:CallMe')
2803  assert_equal('yes', Part('yes'))
2804
2805  # funcref call, using list index
2806  var l = []
2807  g:Funcrefs[0](l, 2)
2808  assert_equal([2], l)
2809
2810  # method call
2811  l = [2, 5, 6]
2812  l->map((k, v) => k + v)
2813  assert_equal([2, 6, 8], l)
2814
2815  # lambda method call
2816  l = [2, 5]
2817  l->((l) => add(l, 8))()
2818  assert_equal([2, 5, 8], l)
2819
2820  # dict member
2821  var d = {key: 123}
2822  assert_equal(123, d.key)
2823enddef
2824
2825def Test_expr7_string_subscript()
2826  var lines =<< trim END
2827    var text = 'abcdef'
2828    assert_equal('f', text[-1])
2829    assert_equal('a', text[0])
2830    assert_equal('e', text[4])
2831    assert_equal('f', text[5])
2832    assert_equal('', text[6])
2833
2834    text = 'ábçdë'
2835    assert_equal('ë', text[-1])
2836    assert_equal('d', text[-2])
2837    assert_equal('ç', text[-3])
2838    assert_equal('b', text[-4])
2839    assert_equal('á', text[-5])
2840    assert_equal('', text[-6])
2841
2842    text = 'ábçdëf'
2843    assert_equal('', text[-999])
2844    assert_equal('f', text[-1])
2845    assert_equal('á', text[0])
2846    assert_equal('b', text[1])
2847    assert_equal('ç', text[2])
2848    assert_equal('d', text[3])
2849    assert_equal('ë', text[4])
2850    assert_equal('f', text[5])
2851    assert_equal('', text[6])
2852    assert_equal('', text[999])
2853
2854    assert_equal('ábçdëf', text[0 : -1])
2855    assert_equal('ábçdëf', text[0 : -1])
2856    assert_equal('ábçdëf', text[0 : -1])
2857    assert_equal('ábçdëf', text[0 : -1])
2858    assert_equal('ábçdëf', text[0
2859                  : -1])
2860    assert_equal('ábçdëf', text[0 :
2861                  -1])
2862    assert_equal('ábçdëf', text[0 : -1
2863                  ])
2864    assert_equal('bçdëf', text[1 : -1])
2865    assert_equal('çdëf', text[2 : -1])
2866    assert_equal('dëf', text[3 : -1])
2867    assert_equal('ëf', text[4 : -1])
2868    assert_equal('f', text[5 : -1])
2869    assert_equal('', text[6 : -1])
2870    assert_equal('', text[999 : -1])
2871
2872    assert_equal('ábçd', text[: 3])
2873    assert_equal('bçdëf', text[1 :])
2874    assert_equal('ábçdëf', text[:])
2875  END
2876  CheckDefSuccess(lines)
2877  CheckScriptSuccess(['vim9script'] + lines)
2878
2879  lines =<< trim END
2880      var d = 'asdf'[1 :
2881  END
2882  CheckDefFailure(lines, 'E1097:', 3)
2883  lines =<< trim END
2884      var d = 'asdf'[1 : xxx]
2885  END
2886  CheckDefFailure(lines, 'E1001:', 1)
2887  lines =<< trim END
2888      var d = 'asdf'[1 : 2
2889  END
2890  CheckDefFailure(lines, 'E1097:', 3)
2891  lines =<< trim END
2892      var d = 'asdf'[1 : 2
2893      echo d
2894  END
2895  CheckDefFailure(lines, 'E111:', 2)
2896  lines =<< trim END
2897      var d = 'asdf'['1']
2898      echo d
2899  END
2900  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2901  lines =<< trim END
2902      var d = 'asdf'['1' : 2]
2903      echo d
2904  END
2905  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2906  lines =<< trim END
2907      var d = 'asdf'[1 : '2']
2908      echo d
2909  END
2910  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2911enddef
2912
2913def Test_expr7_list_subscript()
2914  var lines =<< trim END
2915    var list = [0, 1, 2, 3, 4]
2916    assert_equal(0, list[0])
2917    assert_equal(4, list[4])
2918    assert_equal(4, list[-1])
2919    assert_equal(0, list[-5])
2920
2921    assert_equal([0, 1, 2, 3, 4], list[0 : 4])
2922    assert_equal([0, 1, 2, 3, 4], list[:])
2923    assert_equal([1, 2, 3, 4], list[1 :])
2924    assert_equal([2, 3, 4], list[2 : -1])
2925    assert_equal([4], list[4 : -1])
2926    assert_equal([], list[5 : -1])
2927    assert_equal([], list[999 : -1])
2928    assert_equal([1, 2, 3, 4], list[g:theone : g:thefour])
2929
2930    assert_equal([0, 1, 2, 3], list[0 : 3])
2931    assert_equal([0], list[0 : 0])
2932    assert_equal([0, 1, 2, 3, 4], list[0 : -1])
2933    assert_equal([0, 1, 2], list[0 : -3])
2934    assert_equal([0], list[0 : -5])
2935    assert_equal([], list[0 : -6])
2936    assert_equal([], list[0 : -99])
2937  END
2938  CheckDefAndScriptSuccess(lines)
2939
2940  lines = ['var l = [0, 1, 2]', 'echo l[g:astring : g:theone]']
2941  CheckDefExecFailure(lines, 'E1012:')
2942  CheckScriptFailure(['vim9script'] + lines, 'E1030:', 3)
2943
2944  lines =<< trim END
2945      vim9script
2946      var ld = []
2947      def Func()
2948        eval ld[0].key
2949      enddef
2950      defcompile
2951  END
2952  CheckScriptSuccess(lines)
2953enddef
2954
2955def Test_expr7_dict_subscript()
2956  var lines =<< trim END
2957      vim9script
2958      var l = [{lnum: 2}, {lnum: 1}]
2959      var res = l[0].lnum > l[1].lnum
2960      assert_true(res)
2961
2962      var dd = {}
2963      def Func1()
2964        eval dd.key1.key2
2965      enddef
2966      def Func2()
2967        eval dd['key1'].key2
2968      enddef
2969      defcompile
2970  END
2971  CheckScriptSuccess(lines)
2972enddef
2973
2974def Test_expr7_subscript_linebreak()
2975  var range = range(
2976  		3)
2977  var l = range
2978	->mapnew('string(v:key)')
2979  assert_equal(['0', '1', '2'], l)
2980
2981  l = range
2982  	->mapnew('string(v:key)')
2983  assert_equal(['0', '1', '2'], l)
2984
2985  l = range # comment
2986  	->mapnew('string(v:key)')
2987  assert_equal(['0', '1', '2'], l)
2988
2989  l = range
2990
2991  	->mapnew('string(v:key)')
2992  assert_equal(['0', '1', '2'], l)
2993
2994  l = range
2995	# comment
2996  	->mapnew('string(v:key)')
2997  assert_equal(['0', '1', '2'], l)
2998
2999  assert_equal('1', l[
3000	1])
3001
3002  var d = {one: 33}
3003  assert_equal(33, d.
3004	one)
3005enddef
3006
3007func Test_expr7_trailing_fails()
3008  call CheckDefFailure(['var l = [2]', 'l->((l) => add(l, 8))'], 'E107:', 2)
3009  call CheckDefFailure(['var l = [2]', 'l->((l) => add(l, 8)) ()'], 'E274:', 2)
3010endfunc
3011
3012func Test_expr_fails()
3013  call CheckDefFailure(["var x = '1'is2"], 'E488:', 1)
3014  call CheckDefFailure(["var x = '1'isnot2"], 'E488:', 1)
3015
3016  call CheckDefFailure(["CallMe ('yes')"], 'E476:', 1)
3017  call CheckScriptFailure(["CallMe ('yes')"], 'E492:', 1)
3018  call CheckDefAndScriptFailure(["CallMe2('yes','no')"], 'E1069:', 1)
3019  call CheckDefFailure(["CallMe2('yes' , 'no')"], 'E1068:', 1)
3020
3021  call CheckDefFailure(["v:nosuch += 3"], 'E1001:', 1)
3022  call CheckDefFailure(["var v:statusmsg = ''"], 'E1016: Cannot declare a v: variable:', 1)
3023  call CheckDefFailure(["var asdf = v:nosuch"], 'E1001:', 1)
3024
3025  call CheckDefFailure(["echo len('asdf'"], 'E110:', 2)
3026  call CheckDefFailure(["echo Func0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789()"], 'E1011:', 1)
3027  call CheckDefFailure(["echo doesnotexist()"], 'E117:', 1)
3028endfunc
3029
3030" vim: shiftwidth=2 sts=2 expandtab
3031