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)
1406enddef
1407
1408def Test_expr6_vim9script()
1409  # check line continuation
1410  var lines =<< trim END
1411      vim9script
1412      var name = 11
1413      		* 22
1414		/ 3
1415      assert_equal(80, name)
1416  END
1417  CheckScriptSuccess(lines)
1418
1419  lines =<< trim END
1420      vim9script
1421      var name = 25
1422      		% 10
1423      assert_equal(5, name)
1424  END
1425  CheckScriptSuccess(lines)
1426
1427  lines =<< trim END
1428      vim9script
1429      var name = 25
1430                # comment
1431
1432                # comment
1433      		% 10
1434      assert_equal(5, name)
1435  END
1436  CheckScriptSuccess(lines)
1437
1438  lines =<< trim END
1439      vim9script
1440      var name = 11 *
1441      		22 /
1442		3
1443      assert_equal(80, name)
1444  END
1445  CheckScriptSuccess(lines)
1446
1447  # check white space
1448  lines =<< trim END
1449      vim9script
1450      echo 5*6
1451  END
1452  CheckScriptFailure(lines, 'E1004:', 2)
1453  lines =<< trim END
1454      vim9script
1455      echo 5 *6
1456  END
1457  CheckScriptFailure(lines, 'E1004:', 2)
1458  lines =<< trim END
1459      vim9script
1460      echo 5* 6
1461  END
1462  CheckScriptFailure(lines, 'E1004:', 2)
1463enddef
1464
1465def Test_expr6_float()
1466  if !has('float')
1467    MissingFeature 'float'
1468  else
1469    var lines =<< trim END
1470        assert_equal(36.0, 6.0 * 6)
1471        assert_equal(36.0, 6 *
1472                               6.0)
1473        assert_equal(36.0, 6.0 * 6.0)
1474        assert_equal(1.0, g:afloat * g:anint)
1475
1476        assert_equal(10.0, 60 / 6.0)
1477        assert_equal(10.0, 60.0 /
1478                            6)
1479        assert_equal(10.0, 60.0 / 6.0)
1480        assert_equal(0.01, g:afloat / g:anint)
1481
1482        assert_equal(4.0, 6.0 * 4 / 6)
1483        assert_equal(4.0, 6 *
1484                            4.0 /
1485                            6)
1486        assert_equal(4.0, 6 * 4 / 6.0)
1487        assert_equal(4.0, 6.0 * 4.0 / 6)
1488        assert_equal(4.0, 6 * 4.0 / 6.0)
1489        assert_equal(4.0, 6.0 * 4 / 6.0)
1490        assert_equal(4.0, 6.0 * 4.0 / 6.0)
1491
1492        assert_equal(4.0, 6.0 * 4.0 / 6.0)
1493    END
1494    CheckDefAndScriptSuccess(lines)
1495  endif
1496enddef
1497
1498func Test_expr6_fails()
1499  let msg = "White space required before and after '*'"
1500  call CheckDefFailure(["var x = 1*2"], msg, 1)
1501  call CheckDefFailure(["var x = 1 *2"], msg, 1)
1502  call CheckDefFailure(["var x = 1* 2"], msg, 1)
1503
1504  let msg = "White space required before and after '/'"
1505  call CheckDefFailure(["var x = 1/2"], msg, 1)
1506  call CheckDefFailure(["var x = 1 /2"], msg, 1)
1507  call CheckDefFailure(["var x = 1/ 2"], msg, 1)
1508
1509  let msg = "White space required before and after '%'"
1510  call CheckDefFailure(["var x = 1%2"], msg, 1)
1511  call CheckDefFailure(["var x = 1 %2"], msg, 1)
1512  call CheckDefFailure(["var x = 1% 2"], msg, 1)
1513
1514  call CheckDefFailure(["var x = '1' * '2'"], 'E1036:', 1)
1515  call CheckDefFailure(["var x = '1' / '2'"], 'E1036:', 1)
1516  call CheckDefFailure(["var x = '1' % '2'"], 'E1035:', 1)
1517
1518  call CheckDefFailure(["var x = 0z01 * 0z12"], 'E1036:', 1)
1519  call CheckDefFailure(["var x = 0z01 / 0z12"], 'E1036:', 1)
1520  call CheckDefFailure(["var x = 0z01 % 0z12"], 'E1035:', 1)
1521
1522  call CheckDefFailure(["var x = [1] * [2]"], 'E1036:', 1)
1523  call CheckDefFailure(["var x = [1] / [2]"], 'E1036:', 1)
1524  call CheckDefFailure(["var x = [1] % [2]"], 'E1035:', 1)
1525
1526  call CheckDefFailure(["var x = {one: 1} * {two: 2}"], 'E1036:', 1)
1527  call CheckDefFailure(["var x = {one: 1} / {two: 2}"], 'E1036:', 1)
1528  call CheckDefFailure(["var x = {one: 1} % {two: 2}"], 'E1035:', 1)
1529
1530  call CheckDefFailure(["var x = 0xff[1]"], 'E1107:', 1)
1531  if has('float')
1532    call CheckDefFailure(["var x = 0.7[1]"], 'E1107:', 1)
1533  endif
1534endfunc
1535
1536func Test_expr6_float_fails()
1537  CheckFeature float
1538  call CheckDefFailure(["var x = 1.0 % 2"], 'E1035:', 1)
1539endfunc
1540
1541" define here to use old style parsing
1542if has('float')
1543  let g:float_zero = 0.0
1544  let g:float_neg = -9.8
1545  let g:float_big = 9.9e99
1546endif
1547let g:blob_empty = 0z
1548let g:blob_one = 0z01
1549let g:blob_long = 0z0102.0304
1550
1551let g:string_empty = ''
1552let g:string_short = 'x'
1553let g:string_long = 'abcdefghijklm'
1554let g:string_special = "ab\ncd\ref\ekk"
1555
1556let g:special_true = v:true
1557let g:special_false = v:false
1558let g:special_null = v:null
1559let g:special_none = v:none
1560
1561let g:list_empty = []
1562let g:list_mixed = [1, 'b', v:false]
1563
1564let g:dict_empty = {}
1565let g:dict_one = #{one: 1}
1566
1567let $TESTVAR = 'testvar'
1568
1569" type casts
1570def Test_expr7t()
1571  var ls: list<string> = ['a', <string>g:string_empty]
1572  var ln: list<number> = [<number>g:anint, <number>g:thefour]
1573  var nr = <number>234
1574  assert_equal(234, nr)
1575
1576  CheckDefFailure(["var x = <nr>123"], 'E1010:', 1)
1577  CheckDefFailure(["var x = <number>"], 'E1097:', 3)
1578  CheckDefFailure(["var x = <number >123"], 'E1068:', 1)
1579  CheckDefFailure(["var x = <number 123"], 'E1104:', 1)
1580enddef
1581
1582" test low level expression
1583def Test_expr7_number()
1584  # number constant
1585  var lines =<< trim END
1586      assert_equal(0, 0)
1587      assert_equal(654, 0654)
1588
1589      assert_equal(6, 0x6)
1590      assert_equal(15, 0xf)
1591      assert_equal(255, 0xff)
1592  END
1593  CheckDefAndScriptSuccess(lines)
1594enddef
1595
1596def Test_expr7_float()
1597  # float constant
1598  if !has('float')
1599    MissingFeature 'float'
1600  else
1601    var lines =<< trim END
1602        assert_equal(g:float_zero, .0)
1603        assert_equal(g:float_zero, 0.0)
1604        assert_equal(g:float_neg, -9.8)
1605        assert_equal(g:float_big, 9.9e99)
1606    END
1607    CheckDefAndScriptSuccess(lines)
1608  endif
1609enddef
1610
1611def Test_expr7_blob()
1612  # blob constant
1613  var lines =<< trim END
1614      assert_equal(g:blob_empty, 0z)
1615      assert_equal(g:blob_one, 0z01)
1616      assert_equal(g:blob_long, 0z0102.0304)
1617  END
1618  CheckDefAndScriptSuccess(lines)
1619
1620  CheckDefFailure(["var x = 0z123"], 'E973:', 1)
1621enddef
1622
1623def Test_expr7_string()
1624  # string constant
1625  var lines =<< trim END
1626      assert_equal(g:string_empty, '')
1627      assert_equal(g:string_empty, "")
1628      assert_equal(g:string_short, 'x')
1629      assert_equal(g:string_short, "x")
1630      assert_equal(g:string_long, 'abcdefghijklm')
1631      assert_equal(g:string_long, "abcdefghijklm")
1632      assert_equal(g:string_special, "ab\ncd\ref\ekk")
1633  END
1634  CheckDefAndScriptSuccess(lines)
1635
1636  CheckDefFailure(['var x = "abc'], 'E114:', 1)
1637  CheckDefFailure(["var x = 'abc"], 'E115:', 1)
1638enddef
1639
1640def Test_expr7_vimvar()
1641  var old: list<string> = v:oldfiles
1642  var compl: dict<any> = v:completed_item
1643
1644  CheckDefFailure(["var old: list<number> = v:oldfiles"], 'E1012: Type mismatch; expected list<number> but got list<string>', 1)
1645  new
1646  exec "normal! afoo fo\<C-N>\<Esc>"
1647  CheckDefExecFailure(["var old: dict<number> = v:completed_item"], 'E1012: Type mismatch; expected dict<number> but got dict<string>', 1)
1648  bwipe!
1649enddef
1650
1651def Test_expr7_special()
1652  # special constant
1653  var lines =<< trim END
1654      assert_equal(g:special_true, true)
1655      assert_equal(g:special_false, false)
1656      assert_equal(g:special_true, v:true)
1657      assert_equal(g:special_false, v:false)
1658      assert_equal(v:true, true)
1659      assert_equal(v:false, false)
1660
1661      assert_equal(true, !false)
1662      assert_equal(false, !true)
1663      assert_equal(true, !0)
1664      assert_equal(false, !1)
1665      assert_equal(false, !!false)
1666      assert_equal(true, !!true)
1667      assert_equal(false, !!0)
1668      assert_equal(true, !!1)
1669
1670      var t = true
1671      var f = false
1672      assert_equal(true, t)
1673      assert_equal(false, f)
1674
1675      assert_equal(g:special_null, v:null)
1676      assert_equal(g:special_null, null)
1677      assert_equal(g:special_none, v:none)
1678  END
1679  CheckDefAndScriptSuccess(lines)
1680
1681  CheckDefFailure(['v:true = true'], 'E46:', 1)
1682  CheckDefFailure(['v:true = false'], 'E46:', 1)
1683  CheckDefFailure(['v:false = true'], 'E46:', 1)
1684  CheckDefFailure(['v:null = 11'], 'E46:', 1)
1685  CheckDefFailure(['v:none = 22'], 'E46:', 1)
1686enddef
1687
1688def Test_expr7_list()
1689  # list
1690  var lines =<< trim END
1691      assert_equal(g:list_empty, [])
1692      assert_equal(g:list_empty, [  ])
1693
1694      var numbers: list<number> = [1, 2, 3]
1695      numbers = [1]
1696      numbers = []
1697
1698      var strings: list<string> = ['a', 'b', 'c']
1699      strings = ['x']
1700      strings = []
1701
1702      var mixed: list<any> = [1, 'b', false,]
1703      assert_equal(g:list_mixed, mixed)
1704      assert_equal('b', mixed[1])
1705
1706      echo [1,
1707            2] [3,
1708                    4]
1709
1710      var llstring: list<list<string>> = [['text'], []]
1711      llstring = [[], ['text']]
1712      llstring = [[], []]
1713  END
1714  CheckDefAndScriptSuccess(lines)
1715
1716  var rangelist: list<number> = range(3)
1717  g:rangelist = range(3)
1718  CheckDefExecFailure(["var x: list<string> = g:rangelist"], 'E1012: Type mismatch; expected list<string> but got list<number>', 1)
1719
1720  CheckDefFailure(["var x = 1234[3]"], 'E1107:', 1)
1721  CheckDefExecFailure(["var x = g:anint[3]"], 'E1062:', 1)
1722
1723  CheckDefFailure(["var x = g:list_mixed[xxx]"], 'E1001:', 1)
1724
1725  CheckDefFailure(["var x = [1,2,3]"], 'E1069:', 1)
1726  CheckDefFailure(["var x = [1 ,2, 3]"], 'E1068:', 1)
1727
1728  CheckDefExecFailure(["echo 1", "var x = [][0]", "echo 3"], 'E684:', 2)
1729
1730  CheckDefExecFailure(["var x = g:list_mixed['xx']"], 'E1012:', 1)
1731  CheckDefFailure(["var x = g:list_mixed["], 'E1097:', 3)
1732  CheckDefFailure(["var x = g:list_mixed[0"], 'E1097:', 3)
1733  CheckDefExecFailure(["var x = g:list_empty[3]"], 'E684:', 1)
1734  CheckDefExecFailure(["var l: list<number> = [234, 'x']"], 'E1012:', 1)
1735  CheckDefExecFailure(["var l: list<number> = ['x', 234]"], 'E1012:', 1)
1736  CheckDefExecFailure(["var l: list<string> = [234, 'x']"], 'E1012:', 1)
1737  CheckDefExecFailure(["var l: list<string> = ['x', 123]"], 'E1012:', 1)
1738
1739  lines =<< trim END
1740      vim9script
1741      var datalist: list<string>
1742      def Main()
1743        datalist += ['x'.
1744      enddef
1745      Main()
1746  END
1747  CheckScriptFailure(lines, 'E1127:')
1748
1749  lines =<< trim END
1750      var numbers = [1, 2, 3, 4]
1751      var a = 1
1752      var b = 2
1753  END
1754  CheckDefAndScriptFailure(lines + ['echo numbers[1:b]'],
1755      'E1004: White space required before and after '':'' at ":b]"', 4)
1756  CheckDefAndScriptFailure(lines + ['echo numbers[1: b]'], 'E1004:', 4)
1757  CheckDefAndScriptFailure(lines + ['echo numbers[a :b]'], 'E1004:', 4)
1758enddef
1759
1760def Test_expr7_list_vim9script()
1761  var lines =<< trim END
1762      vim9script
1763      var l = [
1764		11,
1765		22,
1766		]
1767      assert_equal([11, 22], l)
1768
1769      echo [1,
1770	    2] [3,
1771		    4]
1772
1773      echo [1, # comment
1774            # comment
1775	    2] [3,
1776            # comment
1777		    4]
1778  END
1779  CheckScriptSuccess(lines)
1780
1781  lines =<< trim END
1782      vim9script
1783      var l = [11,
1784		22]
1785      assert_equal([11, 22], l)
1786  END
1787  CheckScriptSuccess(lines)
1788
1789  lines =<< trim END
1790      vim9script
1791      var l = [11,22]
1792  END
1793  CheckScriptFailure(lines, 'E1069:', 2)
1794
1795  lines =<< trim END
1796      vim9script
1797      var l = [11 , 22]
1798  END
1799  CheckScriptFailure(lines, 'E1068:', 2)
1800
1801  lines =<< trim END
1802    vim9script
1803    var l: list<number> = [234, 'x']
1804  END
1805  CheckScriptFailure(lines, 'E1012:', 2)
1806  lines =<< trim END
1807    vim9script
1808    var l: list<number> = ['x', 234]
1809  END
1810  CheckScriptFailure(lines, 'E1012:', 2)
1811  lines =<< trim END
1812    vim9script
1813    var l: list<string> = ['x', 234]
1814  END
1815  CheckScriptFailure(lines, 'E1012:', 2)
1816  lines =<< trim END
1817    vim9script
1818    var l: list<string> = [234, 'x']
1819  END
1820  CheckScriptFailure(lines, 'E1012:', 2)
1821
1822  lines =<< trim END
1823      vim9script
1824      def Failing()
1825        job_stop()
1826      enddef
1827      var list = [Failing]
1828  END
1829  if has('channel')
1830    CheckScriptFailure(lines, 'E119:', 1)
1831  else
1832    CheckScriptFailure(lines, 'E117:', 1)
1833  endif
1834enddef
1835
1836def LambdaWithComments(): func
1837  return (x) =>
1838            # some comment
1839            x == 1
1840            # some comment
1841            ||
1842            x == 2
1843enddef
1844
1845def LambdaUsingArg(x: number): func
1846  return () =>
1847            # some comment
1848            x == 1
1849            # some comment
1850            ||
1851            x == 2
1852enddef
1853
1854def Test_expr7_lambda()
1855  var lines =<< trim END
1856      var La = () => 'result'
1857      assert_equal('result', La())
1858      assert_equal([1, 3, 5], [1, 2, 3]->map((key, val) => key + val))
1859
1860      # line continuation inside lambda with "cond ? expr : expr" works
1861      var ll = range(3)
1862      var dll = mapnew(ll, (k, v) => v % 2 ? {
1863                ['111']: 111 } : {}
1864            )
1865      assert_equal([{}, {111: 111}, {}], dll)
1866
1867      ll = range(3)
1868      map(ll, (k, v) => v == 8 || v
1869                    == 9
1870                    || v % 2 ? 111 : 222
1871            )
1872      assert_equal([222, 111, 222], ll)
1873
1874      ll = range(3)
1875      map(ll, (k, v) => v != 8 && v
1876                    != 9
1877                    && v % 2 == 0 ? 111 : 222
1878            )
1879      assert_equal([111, 222, 111], ll)
1880
1881      var dl = [{key: 0}, {key: 22}]->filter(( _, v) => v['key'] )
1882      assert_equal([{key: 22}], dl)
1883
1884      dl = [{key: 12}, {['foo']: 34}]
1885      assert_equal([{key: 12}], filter(dl,
1886            (_, v) => has_key(v, 'key') ? v['key'] == 12 : 0))
1887
1888      assert_equal(false, LambdaWithComments()(0))
1889      assert_equal(true, LambdaWithComments()(1))
1890      assert_equal(true, LambdaWithComments()(2))
1891      assert_equal(false, LambdaWithComments()(3))
1892
1893      assert_equal(false, LambdaUsingArg(0)())
1894      assert_equal(true, LambdaUsingArg(1)())
1895
1896      var res = map([1, 2, 3], (i: number, v: number) => i + v)
1897      assert_equal([1, 3, 5], res)
1898  END
1899  CheckDefAndScriptSuccess(lines)
1900
1901  CheckDefFailure(["var Ref = (a)=>a + 1"], 'E1004:')
1902  CheckDefFailure(["var Ref = (a)=> a + 1"], 'E1004: White space required before and after ''=>'' at "=> a + 1"')
1903  CheckDefFailure(["var Ref = (a) =>a + 1"], 'E1004:')
1904
1905  CheckDefFailure(["filter([1, 2], (k,v) => 1)"], 'E1069:', 1)
1906  # error is in first line of the lambda
1907  CheckDefFailure(["var L = (a) => a + b"], 'E1001:', 0)
1908
1909  assert_equal('xxxyyy', 'xxx'->((a, b) => a .. b)('yyy'))
1910
1911  CheckDefExecFailure(["var s = 'asdf'->((a) => a)('x')"], 'E118:')
1912  CheckDefExecFailure(["var s = 'asdf'->((a) => a)('x', 'y')"], 'E118:')
1913  CheckDefFailure(["echo 'asdf'->((a) => a)(x)"], 'E1001:', 1)
1914
1915  CheckDefSuccess(['var Fx = (a) => ({k1: 0,', ' k2: 1})'])
1916  CheckDefFailure(['var Fx = (a) => ({k1: 0', ' k2: 1})'], 'E722:', 2)
1917  CheckDefFailure(['var Fx = (a) => ({k1: 0,', ' k2 1})'], 'E720:', 2)
1918
1919  CheckDefSuccess(['var Fx = (a) => [0,', ' 1]'])
1920  CheckDefFailure(['var Fx = (a) => [0', ' 1]'], 'E696:', 2)
1921enddef
1922
1923def NewLambdaWithComments(): func
1924  return (x) =>
1925            # some comment
1926            x == 1
1927            # some comment
1928            ||
1929            x == 2
1930enddef
1931
1932def NewLambdaUsingArg(x: number): func
1933  return () =>
1934            # some comment
1935            x == 1
1936            # some comment
1937            ||
1938            x == 2
1939enddef
1940
1941def Test_expr7_new_lambda()
1942  var lines =<< trim END
1943      var La = () => 'result'
1944      assert_equal('result', La())
1945      assert_equal([1, 3, 5], [1, 2, 3]->map((key, val) => key + val))
1946
1947      # line continuation inside lambda with "cond ? expr : expr" works
1948      var ll = range(3)
1949      var dll = mapnew(ll, (k, v) => v % 2 ? {
1950                ['111']: 111 } : {}
1951            )
1952      assert_equal([{}, {111: 111}, {}], dll)
1953
1954      ll = range(3)
1955      map(ll, (k, v) => v == 8 || v
1956                    == 9
1957                    || v % 2 ? 111 : 222
1958            )
1959      assert_equal([222, 111, 222], ll)
1960
1961      ll = range(3)
1962      map(ll, (k, v) => v != 8 && v
1963                    != 9
1964                    && v % 2 == 0 ? 111 : 222
1965            )
1966      assert_equal([111, 222, 111], ll)
1967
1968      var dl = [{key: 0}, {key: 22}]->filter(( _, v) => v['key'] )
1969      assert_equal([{key: 22}], dl)
1970
1971      dl = [{key: 12}, {['foo']: 34}]
1972      assert_equal([{key: 12}], filter(dl,
1973            (_, v) => has_key(v, 'key') ? v['key'] == 12 : 0))
1974
1975      assert_equal(false, NewLambdaWithComments()(0))
1976      assert_equal(true, NewLambdaWithComments()(1))
1977      assert_equal(true, NewLambdaWithComments()(2))
1978      assert_equal(false, NewLambdaWithComments()(3))
1979
1980      assert_equal(false, NewLambdaUsingArg(0)())
1981      assert_equal(true, NewLambdaUsingArg(1)())
1982
1983      var res = map([1, 2, 3], (i: number, v: number) => i + v)
1984      assert_equal([1, 3, 5], res)
1985
1986      # Lambda returning a dict
1987      var Lmb = () => ({key: 42})
1988      assert_equal({key: 42}, Lmb())
1989
1990      var RefOne: func(number): string = (a: number): string => 'x'
1991      var RefTwo: func(number): any = (a: number): any => 'x'
1992
1993      var Fx = (a) => ({k1: 0,
1994                         k2: 1})
1995      var Fy = (a) => [0,
1996                       1]
1997  END
1998  CheckDefAndScriptSuccess(lines)
1999
2000  CheckDefAndScriptFailure(["var Ref = (a)=>a + 1"], 'E1004:')
2001  CheckDefAndScriptFailure(["var Ref = (a)=> a + 1"], 'E1004:')
2002  CheckDefAndScriptFailure(["var Ref = (a) =>a + 1"],
2003      'E1004: White space required before and after ''=>'' at " =>a + 1"')
2004
2005  CheckDefFailure(["var Ref: func(number): number = (a: number): string => 'x'"], 'E1012:')
2006  CheckDefFailure(["var Ref: func(number): string = (a: number): string => 99"], 'E1012:')
2007
2008  CheckDefFailure(["filter([1, 2], (k,v) => 1)"], 'E1069:', 1)
2009  # error is in first line of the lambda
2010  CheckDefFailure(["var L = (a) -> a + b"], 'E1001:', 1)
2011
2012# TODO: ->(lambda)() doesn't work yet
2013#  assert_equal('xxxyyy', 'xxx'->((a, b) => a .. b)('yyy'))
2014
2015#  CheckDefExecFailure(["var s = 'asdf'->{a -> a}('x')"],
2016#        'E1106: One argument too many')
2017#  CheckDefExecFailure(["var s = 'asdf'->{a -> a}('x', 'y')"],
2018#        'E1106: 2 arguments too many')
2019#  CheckDefFailure(["echo 'asdf'->{a -> a}(x)"], 'E1001:', 1)
2020
2021  CheckDefFailure(['var Fx = (a) => ({k1: 0', ' k2: 1})'], 'E722:', 2)
2022  CheckDefFailure(['var Fx = (a) => ({k1: 0,', ' k2 1})'], 'E720:', 2)
2023
2024  CheckDefFailure(['var Fx = (a) => [0', ' 1]'], 'E696:', 2)
2025enddef
2026
2027def Test_expr7_lambda_vim9script()
2028  var lines =<< trim END
2029      vim9script
2030      var v = 10->((a) =>
2031	    a
2032	      + 2
2033            )()
2034      assert_equal(12, v)
2035  END
2036  CheckScriptSuccess(lines)
2037
2038  # nested lambda with line breaks
2039  lines =<< trim END
2040      vim9script
2041      search('"', 'cW', 0, 0, () =>
2042	synstack('.', col('.'))
2043          ->map((_, v) => synIDattr(v, 'name'))->len())
2044  END
2045  CheckScriptSuccess(lines)
2046enddef
2047
2048def Test_epxr7_funcref()
2049  var lines =<< trim END
2050      def RetNumber(): number
2051        return 123
2052      enddef
2053      var FuncRef = RetNumber
2054      assert_equal(123, FuncRef())
2055  END
2056  CheckDefAndScriptSuccess(lines)
2057enddef
2058
2059let g:test_space_dict = {'': 'empty', ' ': 'space'}
2060let g:test_hash_dict = #{one: 1, two: 2}
2061
2062def Test_expr7_dict()
2063  # dictionary
2064  var lines =<< trim END
2065      assert_equal(g:dict_empty, {})
2066      assert_equal(g:dict_empty, {  })
2067      assert_equal(g:dict_one, {['one']: 1})
2068      var key = 'one'
2069      var val = 1
2070      assert_equal(g:dict_one, {[key]: val})
2071
2072      var numbers: dict<number> = {a: 1, b: 2, c: 3}
2073      numbers = {a: 1}
2074      numbers = {}
2075
2076      var strings: dict<string> = {a: 'a', b: 'b', c: 'c'}
2077      strings = {a: 'x'}
2078      strings = {}
2079
2080      var dash = {xx-x: 8}
2081      assert_equal({['xx-x']: 8}, dash)
2082
2083      var dnr = {8: 8}
2084      assert_equal({['8']: 8}, dnr)
2085
2086      var mixed: dict<any> = {a: 'a', b: 42}
2087      mixed = {a: 'x'}
2088      mixed = {a: 234}
2089      mixed = {}
2090
2091      var dictlist: dict<list<string>> = {absent: [], present: ['hi']}
2092      dictlist = {absent: ['hi'], present: []}
2093      dictlist = {absent: [], present: []}
2094
2095      var dictdict: dict<dict<string>> = {one: {a: 'text'}, two: {}}
2096      dictdict = {one: {}, two: {a: 'text'}}
2097      dictdict = {one: {}, two: {}}
2098
2099      assert_equal({['']: 0}, {[matchstr('string', 'wont match')]: 0})
2100
2101      assert_equal(g:test_space_dict, {['']: 'empty', [' ']: 'space'})
2102      assert_equal(g:test_hash_dict, {one: 1, two: 2})
2103
2104      assert_equal({['a a']: 1, ['b/c']: 2}, {'a a': 1, "b/c": 2})
2105
2106      var d = {a: () => 3, b: () => 7}
2107      assert_equal(3, d.a())
2108      assert_equal(7, d.b())
2109
2110      var cd = { # comment
2111                key: 'val' # comment
2112               }
2113  END
2114  CheckDefAndScriptSuccess(lines)
2115
2116  # legacy syntax doesn't work
2117  CheckDefFailure(["var x = #{key: 8}"], 'E1097:', 3)
2118  CheckDefFailure(["var x = 'a' .. #{a: 1}"], 'E1097:', 3)
2119
2120  CheckDefFailure(["var x = {a:8}"], 'E1069:', 1)
2121  CheckDefFailure(["var x = {a : 8}"], 'E1068:', 1)
2122  CheckDefFailure(["var x = {a :8}"], 'E1068:', 1)
2123  CheckDefFailure(["var x = {a: 8 , b: 9}"], 'E1068:', 1)
2124  CheckDefFailure(["var x = {a: 1,b: 2}"], 'E1069:', 1)
2125
2126  CheckDefFailure(["var x = {xxx}"], 'E720:', 1)
2127  CheckDefFailure(["var x = {xxx: 1", "var y = 2"], 'E722:', 2)
2128  CheckDefFailure(["var x = {xxx: 1,"], 'E723:', 2)
2129  CheckDefFailure(["var x = {['a']: xxx}"], 'E1001:', 1)
2130  CheckDefFailure(["var x = {a: 1, a: 2}"], 'E721:', 1)
2131  CheckDefExecFailure(["var x = g:anint.member"], 'E715:', 1)
2132  CheckDefExecFailure(["var x = g:dict_empty.member"], 'E716:', 1)
2133
2134  CheckDefExecFailure(['var x: dict<number> = {a: 234, b: "1"}'], 'E1012:', 1)
2135  CheckDefExecFailure(['var x: dict<number> = {a: "x", b: 134}'], 'E1012:', 1)
2136  CheckDefExecFailure(['var x: dict<string> = {a: 234, b: "1"}'], 'E1012:', 1)
2137  CheckDefExecFailure(['var x: dict<string> = {a: "x", b: 134}'], 'E1012:', 1)
2138
2139  CheckDefFailure(['var x = ({'], 'E723:', 2)
2140  CheckDefExecFailure(['{}[getftype("file")]'], 'E716: Key not present in Dictionary: ""', 1)
2141
2142  # no automatic conversion from number to string
2143  lines =<< trim END
2144      var n = 123
2145      var d = {[n]: 1}
2146  END
2147  CheckDefFailure(lines, 'E1012:', 2)
2148  CheckScriptFailure(['vim9script'] + lines, 'E928:', 3)
2149enddef
2150
2151def Test_expr7_dict_vim9script()
2152  var lines =<< trim END
2153      vim9script
2154      var d = {
2155		['one']:
2156		   1,
2157		['two']: 2,
2158		   }
2159      assert_equal({one: 1, two: 2}, d)
2160
2161      d = {  # comment
2162		['one']:
2163                # comment
2164
2165		   1,
2166                # comment
2167                # comment
2168		['two']: 2,
2169		   }
2170      assert_equal({one: 1, two: 2}, d)
2171
2172      var dd = {k: 123->len()}
2173      assert_equal(3, dd.k)
2174  END
2175  CheckScriptSuccess(lines)
2176
2177  lines =<< trim END
2178      vim9script
2179      var d = { ["one"]: "one", ["two"]: "two", }
2180      assert_equal({one: 'one', two: 'two'}, d)
2181  END
2182  CheckScriptSuccess(lines)
2183
2184  lines =<< trim END
2185      vim9script
2186      var d = {one: 1,
2187		two: 2,
2188	       }
2189      assert_equal({one: 1, two: 2}, d)
2190  END
2191  CheckScriptSuccess(lines)
2192
2193  lines =<< trim END
2194      vim9script
2195      var d = {one:1, two: 2}
2196  END
2197  CheckScriptFailure(lines, 'E1069:', 2)
2198
2199  lines =<< trim END
2200      vim9script
2201      var d = {one: 1,two: 2}
2202  END
2203  CheckScriptFailure(lines, 'E1069:', 2)
2204
2205  lines =<< trim END
2206      vim9script
2207      var d = {one : 1}
2208  END
2209  CheckScriptFailure(lines, 'E1068:', 2)
2210
2211  lines =<< trim END
2212      vim9script
2213      var d = {one:1}
2214  END
2215  CheckScriptFailure(lines, 'E1069:', 2)
2216
2217  lines =<< trim END
2218      vim9script
2219      var d = {one: 1 , two: 2}
2220  END
2221  CheckScriptFailure(lines, 'E1068:', 2)
2222
2223  lines =<< trim END
2224    vim9script
2225    var l: dict<number> = {a: 234, b: 'x'}
2226  END
2227  CheckScriptFailure(lines, 'E1012:', 2)
2228  lines =<< trim END
2229    vim9script
2230    var l: dict<number> = {a: 'x', b: 234}
2231  END
2232  CheckScriptFailure(lines, 'E1012:', 2)
2233  lines =<< trim END
2234    vim9script
2235    var l: dict<string> = {a: 'x', b: 234}
2236  END
2237  CheckScriptFailure(lines, 'E1012:', 2)
2238  lines =<< trim END
2239    vim9script
2240    var l: dict<string> = {a: 234, b: 'x'}
2241  END
2242  CheckScriptFailure(lines, 'E1012:', 2)
2243
2244  lines =<< trim END
2245    vim9script
2246    var d = {['a']: 234, ['b': 'x'}
2247  END
2248  CheckScriptFailure(lines, 'E1139:', 2)
2249  lines =<< trim END
2250    vim9script
2251    def Func()
2252      var d = {['a']: 234, ['b': 'x'}
2253    enddef
2254    defcompile
2255  END
2256  CheckScriptFailure(lines, 'E1139:', 1)
2257  lines =<< trim END
2258    vim9script
2259    var d = {'a':
2260  END
2261  CheckScriptFailure(lines, 'E15:', 2)
2262  lines =<< trim END
2263    vim9script
2264    def Func()
2265      var d = {'a':
2266    enddef
2267    defcompile
2268  END
2269  CheckScriptFailure(lines, 'E723:', 1)
2270
2271  lines =<< trim END
2272      vim9script
2273      def Failing()
2274        job_stop()
2275      enddef
2276      var dict = {name: Failing}
2277  END
2278  if has('channel')
2279    CheckScriptFailure(lines, 'E119:', 1)
2280  else
2281    CheckScriptFailure(lines, 'E117:', 1)
2282  endif
2283enddef
2284
2285let g:oneString = 'one'
2286
2287def Test_expr_member()
2288  assert_equal(1, g:dict_one.one)
2289  var d: dict<number> = g:dict_one
2290  assert_equal(1, d['one'])
2291  assert_equal(1, d[
2292		  'one'
2293		  ])
2294  assert_equal(1, d
2295  	.one)
2296  d = {1: 1, _: 2}
2297  assert_equal(1, d
2298  	.1)
2299  assert_equal(2, d
2300  	._)
2301
2302  # getting the one member should clear the dict after getting the item
2303  assert_equal('one', {one: 'one'}.one)
2304  assert_equal('one', {one: 'one'}[g:oneString])
2305
2306  CheckDefFailure(["var x = g:dict_one.#$!"], 'E1002:', 1)
2307  CheckDefExecFailure(["var d: dict<any>", "echo d['a']"], 'E716:', 2)
2308  CheckDefExecFailure(["var d: dict<number>", "d = g:list_empty"], 'E1012: Type mismatch; expected dict<number> but got list<unknown>', 2)
2309enddef
2310
2311def Test_expr7_any_index_slice()
2312  var lines =<< trim END
2313    # getting the one member should clear the list only after getting the item
2314    assert_equal('bbb', ['aaa', 'bbb', 'ccc'][1])
2315
2316    # string is permissive, index out of range accepted
2317    g:teststring = 'abcdef'
2318    assert_equal('b', g:teststring[1])
2319    assert_equal('f', g:teststring[-1])
2320    assert_equal('', g:teststring[99])
2321
2322    assert_equal('b', g:teststring[1 : 1])
2323    assert_equal('bcdef', g:teststring[1 :])
2324    assert_equal('abcd', g:teststring[: 3])
2325    assert_equal('cdef', g:teststring[-4 :])
2326    assert_equal('abcdef', g:teststring[-9 :])
2327    assert_equal('abcd', g:teststring[: -3])
2328    assert_equal('', g:teststring[: -9])
2329
2330    # blob index cannot be out of range
2331    g:testblob = 0z01ab
2332    assert_equal(0x01, g:testblob[0])
2333    assert_equal(0xab, g:testblob[1])
2334    assert_equal(0xab, g:testblob[-1])
2335    assert_equal(0x01, g:testblob[-2])
2336
2337    # blob slice accepts out of range
2338    assert_equal(0z01ab, g:testblob[0 : 1])
2339    assert_equal(0z01, g:testblob[0 : 0])
2340    assert_equal(0z01, g:testblob[-2 : -2])
2341    assert_equal(0zab, g:testblob[1 : 1])
2342    assert_equal(0zab, g:testblob[-1 : -1])
2343    assert_equal(0z, g:testblob[2 : 2])
2344    assert_equal(0z, g:testblob[0 : -3])
2345
2346    # list index cannot be out of range
2347    g:testlist = [0, 1, 2, 3]
2348    assert_equal(0, g:testlist[0])
2349    assert_equal(1, g:testlist[1])
2350    assert_equal(3, g:testlist[3])
2351    assert_equal(3, g:testlist[-1])
2352    assert_equal(0, g:testlist[-4])
2353    assert_equal(1, g:testlist[g:theone])
2354
2355    # list slice accepts out of range
2356    assert_equal([0], g:testlist[0 : 0])
2357    assert_equal([3], g:testlist[3 : 3])
2358    assert_equal([0, 1], g:testlist[0 : 1])
2359    assert_equal([0, 1, 2, 3], g:testlist[0 : 3])
2360    assert_equal([0, 1, 2, 3], g:testlist[0 : 9])
2361    assert_equal([], g:testlist[-1 : 1])
2362    assert_equal([1], g:testlist[-3 : 1])
2363    assert_equal([0, 1], g:testlist[-4 : 1])
2364    assert_equal([0, 1], g:testlist[-9 : 1])
2365    assert_equal([1, 2, 3], g:testlist[1 : -1])
2366    assert_equal([1], g:testlist[1 : -3])
2367    assert_equal([], g:testlist[1 : -4])
2368    assert_equal([], g:testlist[1 : -9])
2369
2370    g:testdict = {a: 1, b: 2}
2371    assert_equal(1, g:testdict['a'])
2372    assert_equal(2, g:testdict['b'])
2373  END
2374
2375  CheckDefSuccess(lines)
2376  CheckScriptSuccess(['vim9script'] + lines)
2377
2378  CheckDefExecFailure(['echo g:testblob[2]'], 'E979:', 1)
2379  CheckScriptFailure(['vim9script', 'echo g:testblob[2]'], 'E979:', 2)
2380  CheckDefExecFailure(['echo g:testblob[-3]'], 'E979:', 1)
2381  CheckScriptFailure(['vim9script', 'echo g:testblob[-3]'], 'E979:', 2)
2382
2383  CheckDefExecFailure(['echo g:testlist[4]'], 'E684: list index out of range: 4', 1)
2384  CheckScriptFailure(['vim9script', 'echo g:testlist[4]'], 'E684:', 2)
2385  CheckDefExecFailure(['echo g:testlist[-5]'], 'E684:', 1)
2386  CheckScriptFailure(['vim9script', 'echo g:testlist[-5]'], 'E684: list index out of range: -5', 2)
2387
2388  CheckDefExecFailure(['echo g:testdict["a" : "b"]'], 'E719:', 1)
2389  CheckScriptFailure(['vim9script', 'echo g:testdict["a" : "b"]'], 'E719:', 2)
2390  CheckDefExecFailure(['echo g:testdict[1]'], 'E716:', 1)
2391  CheckScriptFailure(['vim9script', 'echo g:testdict[1]'], 'E716:', 2)
2392
2393  unlet g:teststring
2394  unlet g:testblob
2395  unlet g:testlist
2396enddef
2397
2398def Test_expr_member_vim9script()
2399  var lines =<< trim END
2400      vim9script
2401      var d = {one:
2402      		'one',
2403		two: 'two',
2404		1: 1,
2405		_: 2}
2406      assert_equal('one', d.one)
2407      assert_equal('one', d
2408                            .one)
2409      assert_equal(1, d
2410                            .1)
2411      assert_equal(2, d
2412                            ._)
2413      assert_equal('one', d[
2414			    'one'
2415			    ])
2416  END
2417  CheckScriptSuccess(lines)
2418
2419  lines =<< trim END
2420      vim9script
2421      var l = [1,
2422		  2,
2423		  3, 4
2424		  ]
2425      assert_equal(2, l[
2426			    1
2427			    ])
2428      assert_equal([2, 3], l[1 : 2])
2429      assert_equal([1, 2, 3], l[
2430				:
2431				2
2432				])
2433      assert_equal([3, 4], l[
2434				2
2435				:
2436				])
2437  END
2438  CheckScriptSuccess(lines)
2439enddef
2440
2441def SetSomeVar()
2442  b:someVar = &fdm
2443enddef
2444
2445def Test_expr7_option()
2446  # option
2447  set ts=11
2448  assert_equal(11, &ts)
2449  &ts = 9
2450  assert_equal(9, &ts)
2451  set ts=8
2452  set grepprg=some\ text
2453  assert_equal('some text', &grepprg)
2454  &grepprg = test_null_string()
2455  assert_equal('', &grepprg)
2456  set grepprg&
2457
2458  # check matching type
2459  var bval: bool = &tgc
2460  var nval: number = &ts
2461  var sval: string = &path
2462
2463  # check v_lock is cleared (requires using valgrind, doesn't always show)
2464  SetSomeVar()
2465  b:someVar = 0
2466  unlet b:someVar
2467enddef
2468
2469def Test_expr7_environment()
2470  # environment variable
2471  assert_equal('testvar', $TESTVAR)
2472  assert_equal('', $ASDF_ASD_XXX)
2473
2474  CheckDefFailure(["var x = $$$"], 'E1002:', 1)
2475enddef
2476
2477def Test_expr7_register()
2478  @a = 'register a'
2479  assert_equal('register a', @a)
2480
2481  var fname = expand('%')
2482  assert_equal(fname, @%)
2483
2484  feedkeys(":echo 'some'\<CR>", "xt")
2485  assert_equal("echo 'some'", @:)
2486
2487  normal axyz
2488  assert_equal("xyz", @.)
2489  CheckDefFailure(["@. = 'yes'"], 'E354:', 1)
2490
2491  @/ = 'slash'
2492  assert_equal('slash', @/)
2493
2494  @= = 'equal'
2495  assert_equal('equal', @=)
2496enddef
2497
2498def Test_expr7_namespace()
2499  g:some_var = 'some'
2500  assert_equal('some', get(g:, 'some_var'))
2501  assert_equal('some', get(g:, 'some_var', 'xxx'))
2502  assert_equal('xxx', get(g:, 'no_var', 'xxx'))
2503  unlet g:some_var
2504
2505  b:some_var = 'some'
2506  assert_equal('some', get(b:, 'some_var'))
2507  assert_equal('some', get(b:, 'some_var', 'xxx'))
2508  assert_equal('xxx', get(b:, 'no_var', 'xxx'))
2509  unlet b:some_var
2510
2511  w:some_var = 'some'
2512  assert_equal('some', get(w:, 'some_var'))
2513  assert_equal('some', get(w:, 'some_var', 'xxx'))
2514  assert_equal('xxx', get(w:, 'no_var', 'xxx'))
2515  unlet w:some_var
2516
2517  t:some_var = 'some'
2518  assert_equal('some', get(t:, 'some_var'))
2519  assert_equal('some', get(t:, 'some_var', 'xxx'))
2520  assert_equal('xxx', get(t:, 'no_var', 'xxx'))
2521  unlet t:some_var
2522enddef
2523
2524def Test_expr7_parens()
2525  # (expr)
2526  assert_equal(4, (6 * 4) / 6)
2527  assert_equal(0, 6 * ( 4 / 6 ))
2528
2529  assert_equal(6, +6)
2530  assert_equal(-6, -6)
2531  assert_equal(false, !-3)
2532  assert_equal(true, !+0)
2533enddef
2534
2535def Test_expr7_parens_vim9script()
2536  var lines =<< trim END
2537      vim9script
2538      var s = (
2539		'one'
2540		..
2541		'two'
2542		)
2543      assert_equal('onetwo', s)
2544  END
2545  CheckScriptSuccess(lines)
2546enddef
2547
2548def Test_expr7_negate_add()
2549  assert_equal(-99, -99)
2550  assert_equal(-99, - 99)
2551  assert_equal(99, +99)
2552
2553  var nr = 88
2554  assert_equal(-88, -nr)
2555  assert_equal(-88, - nr)
2556  assert_equal(88, + nr)
2557
2558  var lines =<< trim END
2559    var n = 12
2560    echo ++n
2561  END
2562  CheckDefAndScriptFailure(lines, 'E15:')
2563  lines =<< trim END
2564    var n = 12
2565    echo --n
2566  END
2567  CheckDefAndScriptFailure(lines, 'E15:')
2568  lines =<< trim END
2569    var n = 12
2570    echo +-n
2571  END
2572  CheckDefAndScriptFailure(lines, 'E15:')
2573  lines =<< trim END
2574    var n = 12
2575    echo -+n
2576  END
2577  CheckDefAndScriptFailure(lines, 'E15:')
2578  lines =<< trim END
2579    var n = 12
2580    echo - -n
2581  END
2582  CheckDefAndScriptFailure(lines, 'E15:')
2583  lines =<< trim END
2584    var n = 12
2585    echo + +n
2586  END
2587  CheckDefAndScriptFailure(lines, 'E15:')
2588
2589  lines =<< trim END
2590    var n = 12
2591    :1
2592    ++n
2593  END
2594  CheckDefAndScriptFailure(lines, 'E1050:')
2595  lines =<< trim END
2596    var n = 12
2597    :1
2598    --n
2599  END
2600  CheckDefAndScriptFailure(lines, 'E1050:')
2601enddef
2602
2603def Echo(arg: any): string
2604  return arg
2605enddef
2606
2607def s:Echo4Arg(arg: any): string
2608  return arg
2609enddef
2610
2611def Test_expr7_call()
2612  var lines =<< trim END
2613      assert_equal('yes', 'yes'->Echo())
2614      assert_equal(true, !range(5)->empty())
2615      assert_equal([0, 1, 2], 3->range())
2616  END
2617  CheckDefAndScriptSuccess(lines)
2618
2619  assert_equal('yes', 'yes'
2620                        ->s:Echo4Arg())
2621
2622  CheckDefFailure(["var x = 'yes'->Echo"], 'E107:', 1)
2623  CheckScriptFailure([
2624   "vim9script",
2625   "var x = substitute ('x', 'x', 'x', 'x')"
2626   ], 'E121:', 2)
2627  CheckDefFailure(["var Ref = function('len' [1, 2])"], 'E1123:', 1)
2628
2629  var auto_lines =<< trim END
2630      def g:some#func(): string
2631	return 'found'
2632      enddef
2633  END
2634  mkdir('Xruntime/autoload', 'p')
2635  writefile(auto_lines, 'Xruntime/autoload/some.vim')
2636  var save_rtp = &rtp
2637  &rtp = getcwd() .. '/Xruntime,' .. &rtp
2638  assert_equal('found', g:some#func())
2639  assert_equal('found', some#func())
2640
2641  &rtp = save_rtp
2642  delete('Xruntime', 'rf')
2643enddef
2644
2645def Test_expr7_method_call()
2646  new
2647  setline(1, ['first', 'last'])
2648  'second'->append(1)
2649  "third"->append(2)
2650  assert_equal(['first', 'second', 'third', 'last'], getline(1, '$'))
2651  bwipe!
2652
2653  var bufnr = bufnr()
2654  var loclist = [{bufnr: bufnr, lnum: 42, col: 17, text: 'wrong'}]
2655  loclist->setloclist(0)
2656  assert_equal([{bufnr: bufnr,
2657  		lnum: 42,
2658		col: 17,
2659		text: 'wrong',
2660		pattern: '',
2661		valid: 1,
2662		vcol: 0,
2663		nr: 0,
2664		type: '',
2665		module: ''}
2666		], getloclist(0))
2667
2668  var result: bool = get({n: 0}, 'n', 0)
2669  assert_equal(false, result)
2670
2671  assert_equal('+string+', 'string'->((s) => '+' .. s .. '+')())
2672  assert_equal('-text-', 'text'->((s, c) => c .. s .. c)('-'))
2673
2674  var Join = (l) => join(l, 'x')
2675  assert_equal('axb', ['a', 'b']->(Join)())
2676enddef
2677
2678
2679def Test_expr7_not()
2680  var lines =<< trim END
2681      assert_equal(true, !'')
2682      assert_equal(true, ![])
2683      assert_equal(false, !'asdf')
2684      assert_equal(false, ![2])
2685      assert_equal(true, !!'asdf')
2686      assert_equal(true, !![2])
2687
2688      assert_equal(true, ! false)
2689      assert_equal(true, !! true)
2690      assert_equal(true, ! ! true)
2691      assert_equal(true, !!! false)
2692      assert_equal(true, ! ! ! false)
2693
2694      g:true = true
2695      g:false = false
2696      assert_equal(true, ! g:false)
2697      assert_equal(true, !! g:true)
2698      assert_equal(true, ! ! g:true)
2699      assert_equal(true, !!! g:false)
2700      assert_equal(true, ! ! ! g:false)
2701      unlet g:true
2702      unlet g:false
2703
2704      assert_equal(true, !test_null_partial())
2705      assert_equal(false, !() => 'yes')
2706
2707      assert_equal(true, !test_null_dict())
2708      assert_equal(true, !{})
2709      assert_equal(false, !{yes: 'no'})
2710
2711      if has('channel')
2712	assert_equal(true, !test_null_job())
2713	assert_equal(true, !test_null_channel())
2714      endif
2715
2716      assert_equal(true, !test_null_blob())
2717      assert_equal(true, !0z)
2718      assert_equal(false, !0z01)
2719
2720      assert_equal(true, !test_void())
2721      assert_equal(true, !test_unknown())
2722
2723      assert_equal(false, ![1, 2, 3]->reverse())
2724      assert_equal(true, ![]->reverse())
2725  END
2726  CheckDefAndScriptSuccess(lines)
2727enddef
2728
2729func Test_expr7_fails()
2730  call CheckDefFailure(["var x = (12"], "E1097:", 3)
2731
2732  call CheckDefFailure(["var x = -'xx'"], "E1030:", 1)
2733  call CheckDefFailure(["var x = +'xx'"], "E1030:", 1)
2734  call CheckDefFailure(["var x = -0z12"], "E974:", 1)
2735  call CheckDefExecFailure(["var x = -[8]"], "E39:", 1)
2736  call CheckDefExecFailure(["var x = -{a: 1}"], "E39:", 1)
2737
2738  call CheckDefFailure(["var x = @"], "E1002:", 1)
2739  call CheckDefFailure(["var x = @<"], "E354:", 1)
2740
2741  call CheckDefFailure(["var x = [1, 2"], "E697:", 2)
2742  call CheckDefFailure(["var x = [notfound]"], "E1001:", 1)
2743
2744  call CheckDefFailure(["var X = () => 123)"], "E488:", 1)
2745  call CheckDefFailure(["var x = 123->((x) => x + 5)"], "E107:", 1)
2746
2747  call CheckDefFailure(["var x = &notexist"], 'E113:', 1)
2748  call CheckDefFailure(["&grepprg = [343]"], 'E1012:', 1)
2749
2750  call CheckDefExecFailure(["echo s:doesnt_exist"], 'E121:', 1)
2751  call CheckDefExecFailure(["echo g:doesnt_exist"], 'E121:', 1)
2752
2753  call CheckDefFailure(["echo a:somevar"], 'E1075:', 1)
2754  call CheckDefFailure(["echo l:somevar"], 'E1075:', 1)
2755  call CheckDefFailure(["echo x:somevar"], 'E1075:', 1)
2756
2757  call CheckDefExecFailure(["var x = +g:astring"], 'E1030:', 1)
2758  call CheckDefExecFailure(["var x = +g:ablob"], 'E974:', 1)
2759  call CheckDefExecFailure(["var x = +g:alist"], 'E745:', 1)
2760  call CheckDefExecFailure(["var x = +g:adict"], 'E728:', 1)
2761
2762  call CheckDefFailure(["var x = ''", "var y = x.memb"], 'E715:', 2)
2763
2764  call CheckDefFailure(["'yes'->", "Echo()"], 'E488: Trailing characters: ->', 1)
2765
2766  call CheckDefExecFailure(["[1, 2->len()"], 'E697:', 2)
2767  call CheckDefExecFailure(["{a: 1->len()"], 'E723:', 2)
2768  call CheckDefExecFailure(["{['a']: 1->len()"], 'E723:', 2)
2769endfunc
2770
2771let g:Funcrefs = [function('add')]
2772
2773func CallMe(arg)
2774  return a:arg
2775endfunc
2776
2777func CallMe2(one, two)
2778  return a:one .. a:two
2779endfunc
2780
2781def Test_expr7_trailing()
2782  # user function call
2783  assert_equal(123, g:CallMe(123))
2784  assert_equal(123, g:CallMe(  123))
2785  assert_equal(123, g:CallMe(123  ))
2786  assert_equal('yesno', g:CallMe2('yes', 'no'))
2787  assert_equal('yesno', g:CallMe2( 'yes', 'no' ))
2788  assert_equal('nothing', g:CallMe('nothing'))
2789
2790  # partial call
2791  var Part = function('g:CallMe')
2792  assert_equal('yes', Part('yes'))
2793
2794  # funcref call, using list index
2795  var l = []
2796  g:Funcrefs[0](l, 2)
2797  assert_equal([2], l)
2798
2799  # method call
2800  l = [2, 5, 6]
2801  l->map((k, v) => k + v)
2802  assert_equal([2, 6, 8], l)
2803
2804  # lambda method call
2805  l = [2, 5]
2806  l->((l) => add(l, 8))()
2807  assert_equal([2, 5, 8], l)
2808
2809  # dict member
2810  var d = {key: 123}
2811  assert_equal(123, d.key)
2812enddef
2813
2814def Test_expr7_string_subscript()
2815  var lines =<< trim END
2816    var text = 'abcdef'
2817    assert_equal('f', text[-1])
2818    assert_equal('a', text[0])
2819    assert_equal('e', text[4])
2820    assert_equal('f', text[5])
2821    assert_equal('', text[6])
2822
2823    text = 'ábçdë'
2824    assert_equal('ë', text[-1])
2825    assert_equal('d', text[-2])
2826    assert_equal('ç', text[-3])
2827    assert_equal('b', text[-4])
2828    assert_equal('á', text[-5])
2829    assert_equal('', text[-6])
2830
2831    text = 'ábçdëf'
2832    assert_equal('', text[-999])
2833    assert_equal('f', text[-1])
2834    assert_equal('á', text[0])
2835    assert_equal('b', text[1])
2836    assert_equal('ç', text[2])
2837    assert_equal('d', text[3])
2838    assert_equal('ë', text[4])
2839    assert_equal('f', text[5])
2840    assert_equal('', text[6])
2841    assert_equal('', text[999])
2842
2843    assert_equal('ábçdëf', text[0 : -1])
2844    assert_equal('ábçdëf', text[0 : -1])
2845    assert_equal('ábçdëf', text[0 : -1])
2846    assert_equal('ábçdëf', text[0 : -1])
2847    assert_equal('ábçdëf', text[0
2848                  : -1])
2849    assert_equal('ábçdëf', text[0 :
2850                  -1])
2851    assert_equal('ábçdëf', text[0 : -1
2852                  ])
2853    assert_equal('bçdëf', text[1 : -1])
2854    assert_equal('çdëf', text[2 : -1])
2855    assert_equal('dëf', text[3 : -1])
2856    assert_equal('ëf', text[4 : -1])
2857    assert_equal('f', text[5 : -1])
2858    assert_equal('', text[6 : -1])
2859    assert_equal('', text[999 : -1])
2860
2861    assert_equal('ábçd', text[: 3])
2862    assert_equal('bçdëf', text[1 :])
2863    assert_equal('ábçdëf', text[:])
2864  END
2865  CheckDefSuccess(lines)
2866  CheckScriptSuccess(['vim9script'] + lines)
2867
2868  lines =<< trim END
2869      var d = 'asdf'[1 :
2870  END
2871  CheckDefFailure(lines, 'E1097:', 3)
2872  lines =<< trim END
2873      var d = 'asdf'[1 : xxx]
2874  END
2875  CheckDefFailure(lines, 'E1001:', 1)
2876  lines =<< trim END
2877      var d = 'asdf'[1 : 2
2878  END
2879  CheckDefFailure(lines, 'E1097:', 3)
2880  lines =<< trim END
2881      var d = 'asdf'[1 : 2
2882      echo d
2883  END
2884  CheckDefFailure(lines, 'E111:', 2)
2885  lines =<< trim END
2886      var d = 'asdf'['1']
2887      echo d
2888  END
2889  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2890  lines =<< trim END
2891      var d = 'asdf'['1' : 2]
2892      echo d
2893  END
2894  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2895  lines =<< trim END
2896      var d = 'asdf'[1 : '2']
2897      echo d
2898  END
2899  CheckDefFailure(lines, 'E1012: Type mismatch; expected number but got string', 1)
2900enddef
2901
2902def Test_expr7_list_subscript()
2903  var lines =<< trim END
2904    var list = [0, 1, 2, 3, 4]
2905    assert_equal(0, list[0])
2906    assert_equal(4, list[4])
2907    assert_equal(4, list[-1])
2908    assert_equal(0, list[-5])
2909
2910    assert_equal([0, 1, 2, 3, 4], list[0 : 4])
2911    assert_equal([0, 1, 2, 3, 4], list[:])
2912    assert_equal([1, 2, 3, 4], list[1 :])
2913    assert_equal([2, 3, 4], list[2 : -1])
2914    assert_equal([4], list[4 : -1])
2915    assert_equal([], list[5 : -1])
2916    assert_equal([], list[999 : -1])
2917    assert_equal([1, 2, 3, 4], list[g:theone : g:thefour])
2918
2919    assert_equal([0, 1, 2, 3], list[0 : 3])
2920    assert_equal([0], list[0 : 0])
2921    assert_equal([0, 1, 2, 3, 4], list[0 : -1])
2922    assert_equal([0, 1, 2], list[0 : -3])
2923    assert_equal([0], list[0 : -5])
2924    assert_equal([], list[0 : -6])
2925    assert_equal([], list[0 : -99])
2926  END
2927  CheckDefAndScriptSuccess(lines)
2928
2929  lines = ['var l = [0, 1, 2]', 'echo l[g:astring : g:theone]']
2930  CheckDefExecFailure(lines, 'E1012:')
2931  CheckScriptFailure(['vim9script'] + lines, 'E1030:', 3)
2932
2933  lines =<< trim END
2934      vim9script
2935      var ld = []
2936      def Func()
2937        eval ld[0].key
2938      enddef
2939      defcompile
2940  END
2941  CheckScriptSuccess(lines)
2942enddef
2943
2944def Test_expr7_dict_subscript()
2945  var lines =<< trim END
2946      vim9script
2947      var l = [{lnum: 2}, {lnum: 1}]
2948      var res = l[0].lnum > l[1].lnum
2949      assert_true(res)
2950
2951      var dd = {}
2952      def Func1()
2953        eval dd.key1.key2
2954      enddef
2955      def Func2()
2956        eval dd['key1'].key2
2957      enddef
2958      defcompile
2959  END
2960  CheckScriptSuccess(lines)
2961enddef
2962
2963def Test_expr7_subscript_linebreak()
2964  var range = range(
2965  		3)
2966  var l = range
2967	->mapnew('string(v:key)')
2968  assert_equal(['0', '1', '2'], l)
2969
2970  l = range
2971  	->mapnew('string(v:key)')
2972  assert_equal(['0', '1', '2'], l)
2973
2974  l = range # comment
2975  	->mapnew('string(v:key)')
2976  assert_equal(['0', '1', '2'], l)
2977
2978  l = range
2979
2980  	->mapnew('string(v:key)')
2981  assert_equal(['0', '1', '2'], l)
2982
2983  l = range
2984	# comment
2985  	->mapnew('string(v:key)')
2986  assert_equal(['0', '1', '2'], l)
2987
2988  assert_equal('1', l[
2989	1])
2990
2991  var d = {one: 33}
2992  assert_equal(33, d.
2993	one)
2994enddef
2995
2996func Test_expr7_trailing_fails()
2997  call CheckDefFailure(['var l = [2]', 'l->((l) => add(l, 8))'], 'E107:', 2)
2998  call CheckDefFailure(['var l = [2]', 'l->((l) => add(l, 8)) ()'], 'E274:', 2)
2999endfunc
3000
3001func Test_expr_fails()
3002  call CheckDefFailure(["var x = '1'is2"], 'E488:', 1)
3003  call CheckDefFailure(["var x = '1'isnot2"], 'E488:', 1)
3004
3005  call CheckDefFailure(["CallMe ('yes')"], 'E476:', 1)
3006  call CheckScriptFailure(["CallMe ('yes')"], 'E492:', 1)
3007  call CheckDefAndScriptFailure(["CallMe2('yes','no')"], 'E1069:', 1)
3008  call CheckDefFailure(["CallMe2('yes' , 'no')"], 'E1068:', 1)
3009
3010  call CheckDefFailure(["v:nosuch += 3"], 'E1001:', 1)
3011  call CheckDefFailure(["var v:statusmsg = ''"], 'E1016: Cannot declare a v: variable:', 1)
3012  call CheckDefFailure(["var asdf = v:nosuch"], 'E1001:', 1)
3013
3014  call CheckDefFailure(["echo len('asdf'"], 'E110:', 2)
3015  call CheckDefFailure(["echo Func0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789()"], 'E1011:', 1)
3016  call CheckDefFailure(["echo doesnotexist()"], 'E117:', 1)
3017endfunc
3018
3019" vim: shiftwidth=2 sts=2 expandtab
3020