1" Tests for Vim9 script expressions 2 3source check.vim 4source vim9.vim 5 6 7let g:cond = v:false 8def FuncOne(arg: number): string 9 return 'yes' 10enddef 11def FuncTwo(arg: number): number 12 return 123 13enddef 14 15" test cond ? expr : expr 16def Test_expr1() 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 let var = 1 32 assert_equal('one', var ? '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 var = 0 44 assert_equal('two', var ? 'one' : 'two') 45 46 let Some: func = function('len') 47 let Other: func = function('winnr') 48 let Res: func = g:atrue ? Some : Other 49 assert_equal(function('len'), Res) 50 51 let RetOne: func(string): number = function('len') 52 let RetTwo: func(string): number = function('winnr') 53 let RetThat: func = g:atrue ? RetOne : RetTwo 54 assert_equal(function('len'), RetThat) 55 56 let x = FuncOne 57 let y = FuncTwo 58 let Z = g:cond ? FuncOne : FuncTwo 59 assert_equal(123, Z(3)) 60enddef 61 62def Test_expr1_vimscript() 63 # check line continuation 64 let lines =<< trim END 65 vim9script 66 let var = 1 67 ? 'yes' 68 : 'no' 69 assert_equal('yes', var) 70 END 71 CheckScriptSuccess(lines) 72 73 lines =<< trim END 74 vim9script 75 let var = v:false 76 ? 'yes' 77 : 'no' 78 assert_equal('no', var) 79 END 80 CheckScriptSuccess(lines) 81 82 lines =<< trim END 83 vim9script 84 let var = v:false ? 85 'yes' : 86 'no' 87 assert_equal('no', var) 88 END 89 CheckScriptSuccess(lines) 90 91 # check white space 92 lines =<< trim END 93 vim9script 94 let var = v:true?1:2 95 END 96 CheckScriptFailure(lines, 'E1004:') 97 lines =<< trim END 98 vim9script 99 let var = v:true? 1 : 2 100 END 101 CheckScriptFailure(lines, 'E1004:') 102 lines =<< trim END 103 vim9script 104 let var = v:true ?1 : 2 105 END 106 CheckScriptFailure(lines, 'E1004:') 107 lines =<< trim END 108 vim9script 109 let var = v:true ? 1: 2 110 END 111 CheckScriptFailure(lines, 'E1004:') 112 lines =<< trim END 113 vim9script 114 let var = v:true ? 1 :2 115 END 116 CheckScriptFailure(lines, 'E1004:') 117enddef 118 119func Test_expr1_fails() 120 call CheckDefFailure(["let x = 1 ? 'one'"], "Missing ':' after '?'") 121 call CheckDefFailure(["let x = 1 ? 'one' : xxx"], "E1001:") 122 123 let msg = "white space required before and after '?'" 124 call CheckDefFailure(["let x = 1? 'one' : 'two'"], msg) 125 call CheckDefFailure(["let x = 1 ?'one' : 'two'"], msg) 126 call CheckDefFailure(["let x = 1?'one' : 'two'"], msg) 127 128 let msg = "white space required before and after ':'" 129 call CheckDefFailure(["let x = 1 ? 'one': 'two'"], msg) 130 call CheckDefFailure(["let x = 1 ? 'one' :'two'"], msg) 131 call CheckDefFailure(["let x = 1 ? 'one':'two'"], msg) 132 133 " missing argument detected even when common type is used 134 call CheckDefFailure([ 135 \ 'let x = FuncOne', 136 \ 'let y = FuncTwo', 137 \ 'let Z = g:cond ? FuncOne : FuncTwo', 138 \ 'Z()'], 'E119:') 139endfunc 140 141" TODO: define inside test function 142def Record(val: any): any 143 g:vals->add(val) 144 return val 145enddef 146 147" test || 148def Test_expr2() 149 assert_equal(2, 2 || 0) 150 assert_equal(7, 0 || 151 0 || 152 7) 153 assert_equal(0, 0 || 0) 154 assert_equal(0, 0 155 || 0) 156 assert_equal('', 0 || '') 157 158 g:vals = [] 159 assert_equal(3, Record(3) || Record(1)) 160 assert_equal([3], g:vals) 161 162 g:vals = [] 163 assert_equal(5, Record(0) || Record(5)) 164 assert_equal([0, 5], g:vals) 165 166 g:vals = [] 167 assert_equal(4, Record(0) 168 || Record(4) 169 || Record(0)) 170 assert_equal([0, 4], g:vals) 171 172 g:vals = [] 173 assert_equal(0, Record([]) || Record('') || Record(0)) 174 assert_equal([[], '', 0], g:vals) 175enddef 176 177def Test_expr2_vimscript() 178 # check line continuation 179 let lines =<< trim END 180 vim9script 181 let var = 0 182 || 1 183 assert_equal(1, var) 184 END 185 CheckScriptSuccess(lines) 186 187 lines =<< trim END 188 vim9script 189 let var = v:false 190 || v:true 191 || v:false 192 assert_equal(v:true, var) 193 END 194 CheckScriptSuccess(lines) 195 196 lines =<< trim END 197 vim9script 198 let var = v:false || 199 v:true || 200 v:false 201 assert_equal(v:true, var) 202 END 203 CheckScriptSuccess(lines) 204 205 # check white space 206 lines =<< trim END 207 vim9script 208 let var = v:true||v:true 209 END 210 CheckScriptFailure(lines, 'E1004:') 211 lines =<< trim END 212 vim9script 213 let var = v:true ||v:true 214 END 215 CheckScriptFailure(lines, 'E1004:') 216 lines =<< trim END 217 vim9script 218 let var = v:true|| v:true 219 END 220 CheckScriptFailure(lines, 'E1004:') 221 222 # check keeping the value 223 lines =<< trim END 224 vim9script 225 assert_equal(2, 2 || 0) 226 assert_equal(7, 0 || 227 0 || 228 7) 229 assert_equal(0, 0 || 0) 230 assert_equal(0, 0 231 || 0) 232 assert_equal('', 0 || '') 233 234 g:vals = [] 235 assert_equal(3, Record(3) || Record(1)) 236 assert_equal([3], g:vals) 237 238 g:vals = [] 239 assert_equal(5, Record(0) || Record(5)) 240 assert_equal([0, 5], g:vals) 241 242 g:vals = [] 243 assert_equal(4, Record(0) 244 || Record(4) 245 || Record(0)) 246 assert_equal([0, 4], g:vals) 247 248 g:vals = [] 249 assert_equal(0, Record([]) || Record('') || Record(0)) 250 assert_equal([[], '', 0], g:vals) 251 END 252 CheckScriptSuccess(lines) 253enddef 254 255func Test_expr2_fails() 256 let msg = "white space required before and after '||'" 257 call CheckDefFailure(["let x = 1||2"], msg) 258 call CheckDefFailure(["let x = 1 ||2"], msg) 259 call CheckDefFailure(["let x = 1|| 2"], msg) 260 261 call CheckDefFailure(["let x = 1 || xxx"], 'E1001:') 262endfunc 263 264" test && 265def Test_expr3() 266 assert_equal(0, 2 && 0) 267 assert_equal(0, 0 && 268 0 && 269 7) 270 assert_equal(7, 2 271 && 3 272 && 7) 273 assert_equal(0, 0 && 0) 274 assert_equal(0, 0 && '') 275 assert_equal('', 8 && '') 276 277 g:vals = [] 278 assert_equal(1, Record(3) && Record(1)) 279 assert_equal([3, 1], g:vals) 280 281 g:vals = [] 282 assert_equal(0, Record(0) && Record(5)) 283 assert_equal([0], g:vals) 284 285 g:vals = [] 286 assert_equal(0, Record(0) && Record(4) && Record(0)) 287 assert_equal([0], g:vals) 288 289 g:vals = [] 290 assert_equal(0, Record(8) && Record(4) && Record(0)) 291 assert_equal([8, 4, 0], g:vals) 292 293 g:vals = [] 294 assert_equal(0, Record([1]) && Record('z') && Record(0)) 295 assert_equal([[1], 'z', 0], g:vals) 296enddef 297 298def Test_expr3_vimscript() 299 # check line continuation 300 let lines =<< trim END 301 vim9script 302 let var = 0 303 && 1 304 assert_equal(0, var) 305 END 306 CheckScriptSuccess(lines) 307 308 lines =<< trim END 309 vim9script 310 let var = v:true 311 && v:true 312 && v:true 313 assert_equal(v:true, var) 314 END 315 CheckScriptSuccess(lines) 316 317 lines =<< trim END 318 vim9script 319 let var = v:true && 320 v:true && 321 v:true 322 assert_equal(v:true, var) 323 END 324 CheckScriptSuccess(lines) 325 326 # check white space 327 lines =<< trim END 328 vim9script 329 let var = v:true&&v:true 330 END 331 CheckScriptFailure(lines, 'E1004:') 332 lines =<< trim END 333 vim9script 334 let var = v:true &&v:true 335 END 336 CheckScriptFailure(lines, 'E1004:') 337 lines =<< trim END 338 vim9script 339 let var = v:true&& v:true 340 END 341 CheckScriptFailure(lines, 'E1004:') 342 343 # check keeping the value 344 lines =<< trim END 345 vim9script 346 assert_equal(0, 2 && 0) 347 assert_equal(0, 0 && 348 0 && 349 7) 350 assert_equal(7, 2 351 && 3 352 && 7) 353 assert_equal(0, 0 && 0) 354 assert_equal(0, 0 && '') 355 assert_equal('', 8 && '') 356 357 g:vals = [] 358 assert_equal(1, Record(3) && Record(1)) 359 assert_equal([3, 1], g:vals) 360 361 g:vals = [] 362 assert_equal(0, Record(0) && Record(5)) 363 assert_equal([0], g:vals) 364 365 g:vals = [] 366 assert_equal(0, Record(0) && Record(4) && Record(0)) 367 assert_equal([0], g:vals) 368 369 g:vals = [] 370 assert_equal(0, Record(8) && Record(4) && Record(0)) 371 assert_equal([8, 4, 0], g:vals) 372 373 g:vals = [] 374 assert_equal(0, Record([1]) && Record('z') && Record(0)) 375 assert_equal([[1], 'z', 0], g:vals) 376 END 377 CheckScriptSuccess(lines) 378enddef 379 380func Test_expr3_fails() 381 let msg = "white space required before and after '&&'" 382 call CheckDefFailure(["let x = 1&&2"], msg) 383 call CheckDefFailure(["let x = 1 &&2"], msg) 384 call CheckDefFailure(["let x = 1&& 2"], msg) 385endfunc 386 387let atrue = v:true 388let afalse = v:false 389let anone = v:none 390let anull = v:null 391let anint = 10 392let alsoint = 4 393if has('float') 394 let afloat = 0.1 395endif 396let astring = 'asdf' 397let ablob = 0z01ab 398let alist = [2, 3, 4] 399let adict = #{aaa: 2, bbb: 8} 400 401" test == comperator 402def Test_expr4_equal() 403 let trueVar = true 404 let falseVar = false 405 assert_equal(true, true == true) 406 assert_equal(false, true == 407 false) 408 assert_equal(true, true 409 == trueVar) 410 assert_equal(false, true == falseVar) 411 assert_equal(true, true == g:atrue) 412 assert_equal(false, g:atrue == false) 413 414 assert_equal(true, v:none == v:none) 415 assert_equal(false, v:none == v:null) 416 assert_equal(true, g:anone == v:none) 417 assert_equal(false, v:none == g:anull) 418 419 let nr0 = 0 420 let nr61 = 61 421 assert_equal(false, 2 == 0) 422 assert_equal(false, 2 == nr0) 423 assert_equal(true, 61 == 61) 424 assert_equal(true, 61 == nr61) 425 assert_equal(true, g:anint == 10) 426 assert_equal(false, 61 == g:anint) 427 428 if has('float') 429 let ff = 0.3 430 assert_equal(true, ff == 0.3) 431 assert_equal(false, 0.4 == ff) 432 assert_equal(true, 0.1 == g:afloat) 433 assert_equal(false, g:afloat == 0.3) 434 435 ff = 3.0 436 assert_equal(true, ff == 3) 437 assert_equal(true, 3 == ff) 438 ff = 3.1 439 assert_equal(false, ff == 3) 440 assert_equal(false, 3 == ff) 441 endif 442 443 assert_equal(true, 'abc' == 'abc') 444 assert_equal(false, 'xyz' == 'abc') 445 assert_equal(true, g:astring == 'asdf') 446 assert_equal(false, 'xyz' == g:astring) 447 448 assert_equal(false, 'abc' == 'aBc') 449 assert_equal(false, 'abc' ==# 'aBc') 450 assert_equal(true, 'abc' ==? 'aBc') 451 452 assert_equal(false, 'abc' == 'ABC') 453 set ignorecase 454 assert_equal(false, 'abc' == 'ABC') 455 assert_equal(false, 'abc' ==# 'ABC') 456 set noignorecase 457 458 call CheckDefFailure(["let x = 'a' == xxx"], 'E1001:') 459 460 let bb = 0z3f 461 assert_equal(true, 0z3f == bb) 462 assert_equal(false, bb == 0z4f) 463 assert_equal(true, g:ablob == 0z01ab) 464 assert_equal(false, 0z3f == g:ablob) 465 466 assert_equal(true, [1, 2, 3] == [1, 2, 3]) 467 assert_equal(false, [1, 2, 3] == [2, 3, 1]) 468 assert_equal(true, [2, 3, 4] == g:alist) 469 assert_equal(false, g:alist == [2, 3, 1]) 470 assert_equal(false, [1, 2, 3] == []) 471 assert_equal(false, [1, 2, 3] == ['1', '2', '3']) 472 473 assert_equal(true, #{one: 1, two: 2} == #{one: 1, two: 2}) 474 assert_equal(false, #{one: 1, two: 2} == #{one: 2, two: 2}) 475 assert_equal(false, #{one: 1, two: 2} == #{two: 2}) 476 assert_equal(false, #{one: 1, two: 2} == #{}) 477 assert_equal(true, g:adict == #{bbb: 8, aaa: 2}) 478 assert_equal(false, #{ccc: 9, aaa: 2} == g:adict) 479 480 assert_equal(true, function('g:Test_expr4_equal') == function('g:Test_expr4_equal')) 481 assert_equal(false, function('g:Test_expr4_equal') == function('g:Test_expr4_is')) 482 483 assert_equal(true, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_equal', [123])) 484 assert_equal(false, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_is', [123])) 485 assert_equal(false, function('g:Test_expr4_equal', [123]) == function('g:Test_expr4_equal', [999])) 486 487 let OneFunc: func 488 let TwoFunc: func 489 OneFunc = function('len') 490 TwoFunc = function('len') 491 assert_equal(true, OneFunc('abc') == TwoFunc('123')) 492enddef 493 494" test != comperator 495def Test_expr4_notequal() 496 let trueVar = true 497 let falseVar = false 498 assert_equal(false, true != true) 499 assert_equal(true, true != 500 false) 501 assert_equal(false, true 502 != trueVar) 503 assert_equal(true, true != falseVar) 504 assert_equal(false, true != g:atrue) 505 assert_equal(true, g:atrue != false) 506 507 assert_equal(false, v:none != v:none) 508 assert_equal(true, v:none != v:null) 509 assert_equal(false, g:anone != v:none) 510 assert_equal(true, v:none != g:anull) 511 512 let nr55 = 55 513 let nr0 = 55 514 assert_equal(true, 2 != 0) 515 assert_equal(true, 2 != nr0) 516 assert_equal(false, 55 != 55) 517 assert_equal(false, 55 != nr55) 518 assert_equal(false, g:anint != 10) 519 assert_equal(true, 61 != g:anint) 520 521 if has('float') 522 let ff = 0.3 523 assert_equal(false, 0.3 != ff) 524 assert_equal(true, 0.4 != ff) 525 assert_equal(false, 0.1 != g:afloat) 526 assert_equal(true, g:afloat != 0.3) 527 528 ff = 3.0 529 assert_equal(false, ff != 3) 530 assert_equal(false, 3 != ff) 531 ff = 3.1 532 assert_equal(true, ff != 3) 533 assert_equal(true, 3 != ff) 534 endif 535 536 assert_equal(false, 'abc' != 'abc') 537 assert_equal(true, 'xyz' != 'abc') 538 assert_equal(false, g:astring != 'asdf') 539 assert_equal(true, 'xyz' != g:astring) 540 541 assert_equal(true, 'abc' != 'ABC') 542 set ignorecase 543 assert_equal(true, 'abc' != 'ABC') 544 set noignorecase 545 546 let bb = 0z3f 547 assert_equal(false, 0z3f != bb) 548 assert_equal(true, bb != 0z4f) 549 assert_equal(false, g:ablob != 0z01ab) 550 assert_equal(true, 0z3f != g:ablob) 551 552 assert_equal(false, [1, 2, 3] != [1, 2, 3]) 553 assert_equal(true, [1, 2, 3] != [2, 3, 1]) 554 assert_equal(false, [2, 3, 4] != g:alist) 555 assert_equal(true, g:alist != [2, 3, 1]) 556 assert_equal(true, [1, 2, 3] != []) 557 assert_equal(true, [1, 2, 3] != ['1', '2', '3']) 558 559 assert_equal(false, #{one: 1, two: 2} != #{one: 1, two: 2}) 560 assert_equal(true, #{one: 1, two: 2} != #{one: 2, two: 2}) 561 assert_equal(true, #{one: 1, two: 2} != #{two: 2}) 562 assert_equal(true, #{one: 1, two: 2} != #{}) 563 assert_equal(false, g:adict != #{bbb: 8, aaa: 2}) 564 assert_equal(true, #{ccc: 9, aaa: 2} != g:adict) 565 566 assert_equal(false, function('g:Test_expr4_equal') != function('g:Test_expr4_equal')) 567 assert_equal(true, function('g:Test_expr4_equal') != function('g:Test_expr4_is')) 568 569 assert_equal(false, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_equal', [123])) 570 assert_equal(true, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_is', [123])) 571 assert_equal(true, function('g:Test_expr4_equal', [123]) != function('g:Test_expr4_equal', [999])) 572enddef 573 574" test > comperator 575def Test_expr4_greater() 576 assert_true(2 > 0) 577 assert_true(2 > 578 1) 579 assert_false(2 > 2) 580 assert_false(2 > 3) 581 let nr2 = 2 582 assert_true(nr2 > 0) 583 assert_true(nr2 > 584 1) 585 assert_false(nr2 > 2) 586 assert_false(nr2 587 > 3) 588 if has('float') 589 let ff = 2.0 590 assert_true(ff > 0.0) 591 assert_true(ff > 1.0) 592 assert_false(ff > 2.0) 593 assert_false(ff > 3.0) 594 endif 595enddef 596 597" test >= comperator 598def Test_expr4_greaterequal() 599 assert_true(2 >= 0) 600 assert_true(2 >= 601 2) 602 assert_false(2 >= 3) 603 let nr2 = 2 604 assert_true(nr2 >= 0) 605 assert_true(nr2 >= 2) 606 assert_false(nr2 >= 3) 607 if has('float') 608 let ff = 2.0 609 assert_true(ff >= 0.0) 610 assert_true(ff >= 2.0) 611 assert_false(ff >= 3.0) 612 endif 613enddef 614 615" test < comperator 616def Test_expr4_smaller() 617 assert_false(2 < 0) 618 assert_false(2 < 619 2) 620 assert_true(2 621 < 3) 622 let nr2 = 2 623 assert_false(nr2 < 0) 624 assert_false(nr2 < 2) 625 assert_true(nr2 < 3) 626 if has('float') 627 let ff = 2.0 628 assert_false(ff < 0.0) 629 assert_false(ff < 2.0) 630 assert_true(ff < 3.0) 631 endif 632enddef 633 634" test <= comperator 635def Test_expr4_smallerequal() 636 assert_false(2 <= 0) 637 assert_false(2 <= 638 1) 639 assert_true(2 640 <= 2) 641 assert_true(2 <= 3) 642 let nr2 = 2 643 assert_false(nr2 <= 0) 644 assert_false(nr2 <= 1) 645 assert_true(nr2 <= 2) 646 assert_true(nr2 <= 3) 647 if has('float') 648 let ff = 2.0 649 assert_false(ff <= 0.0) 650 assert_false(ff <= 1.0) 651 assert_true(ff <= 2.0) 652 assert_true(ff <= 3.0) 653 endif 654enddef 655 656" test =~ comperator 657def Test_expr4_match() 658 assert_equal(false, '2' =~ '0') 659 assert_equal(false, '' 660 =~ '0') 661 assert_equal(true, '2' =~ 662 '[0-9]') 663enddef 664 665" test !~ comperator 666def Test_expr4_nomatch() 667 assert_equal(true, '2' !~ '0') 668 assert_equal(true, '' 669 !~ '0') 670 assert_equal(false, '2' !~ 671 '[0-9]') 672enddef 673 674" test is comperator 675def Test_expr4_is() 676 let mylist = [2] 677 assert_false(mylist is [2]) 678 let other = mylist 679 assert_true(mylist is 680 other) 681 682 let myblob = 0z1234 683 assert_false(myblob 684 is 0z1234) 685 let otherblob = myblob 686 assert_true(myblob is otherblob) 687enddef 688 689" test isnot comperator 690def Test_expr4_isnot() 691 let mylist = [2] 692 assert_true('2' isnot '0') 693 assert_true(mylist isnot [2]) 694 let other = mylist 695 assert_false(mylist isnot 696 other) 697 698 let myblob = 0z1234 699 assert_true(myblob 700 isnot 0z1234) 701 let otherblob = myblob 702 assert_false(myblob isnot otherblob) 703enddef 704 705def RetVoid() 706 let x = 1 707enddef 708 709def Test_expr4_vimscript() 710 # check line continuation 711 let lines =<< trim END 712 vim9script 713 let var = 0 714 < 1 715 assert_equal(true, var) 716 END 717 CheckScriptSuccess(lines) 718 719 lines =<< trim END 720 vim9script 721 let var = 123 722 != 123 723 assert_equal(false, var) 724 END 725 CheckScriptSuccess(lines) 726 727 lines =<< trim END 728 vim9script 729 let var = 123 == 730 123 731 assert_equal(true, var) 732 END 733 CheckScriptSuccess(lines) 734 735 lines =<< trim END 736 vim9script 737 let list = [1, 2, 3] 738 let var = list 739 is list 740 assert_equal(true, var) 741 END 742 CheckScriptSuccess(lines) 743 744 lines =<< trim END 745 vim9script 746 let myblob = 0z1234 747 let var = myblob 748 isnot 0z11 749 assert_equal(true, var) 750 END 751 CheckScriptSuccess(lines) 752 753 # spot check mismatching types 754 lines =<< trim END 755 vim9script 756 echo '' == 0 757 END 758 CheckScriptFailure(lines, 'E1072:') 759 760 lines =<< trim END 761 vim9script 762 echo v:true > v:false 763 END 764 CheckScriptFailure(lines, 'Cannot compare bool with bool') 765 766 lines =<< trim END 767 vim9script 768 echo 123 is 123 769 END 770 CheckScriptFailure(lines, 'Cannot use "is" with number') 771 772 # check 'ignorecase' not being used 773 lines =<< trim END 774 vim9script 775 set ignorecase 776 assert_equal(false, 'abc' == 'ABC') 777 assert_equal(false, 'abc' ==# 'ABC') 778 assert_equal(true, 'abc' ==? 'ABC') 779 780 assert_equal(true, 'abc' != 'ABC') 781 assert_equal(true, 'abc' !=# 'ABC') 782 assert_equal(false, 'abc' !=? 'ABC') 783 784 assert_equal(false, 'abc' =~ 'ABC') 785 assert_equal(false, 'abc' =~# 'ABC') 786 assert_equal(true, 'abc' =~? 'ABC') 787 set noignorecase 788 END 789 CheckScriptSuccess(lines) 790 791 # check missing white space 792 lines =<< trim END 793 vim9script 794 echo 2>3 795 END 796 CheckScriptFailure(lines, 'E1004:') 797 lines =<< trim END 798 vim9script 799 echo 2 >3 800 END 801 CheckScriptFailure(lines, 'E1004:') 802 lines =<< trim END 803 vim9script 804 echo 2> 3 805 END 806 CheckScriptFailure(lines, 'E1004:') 807 lines =<< trim END 808 vim9script 809 echo 2!=3 810 END 811 CheckScriptFailure(lines, 'E1004:') 812 lines =<< trim END 813 vim9script 814 echo 2 !=3 815 END 816 CheckScriptFailure(lines, 'E1004:') 817 lines =<< trim END 818 vim9script 819 echo 2!= 3 820 END 821 CheckScriptFailure(lines, 'E1004:') 822enddef 823 824func Test_expr4_fails() 825 let msg = "white space required before and after '>'" 826 call CheckDefFailure(["let x = 1>2"], msg) 827 call CheckDefFailure(["let x = 1 >2"], msg) 828 call CheckDefFailure(["let x = 1> 2"], msg) 829 830 let msg = "white space required before and after '=='" 831 call CheckDefFailure(["let x = 1==2"], msg) 832 call CheckDefFailure(["let x = 1 ==2"], msg) 833 call CheckDefFailure(["let x = 1== 2"], msg) 834 835 let msg = "white space required before and after 'is'" 836 call CheckDefFailure(["let x = '1'is'2'"], msg) 837 call CheckDefFailure(["let x = '1' is'2'"], msg) 838 call CheckDefFailure(["let x = '1'is '2'"], msg) 839 840 let msg = "white space required before and after 'isnot'" 841 call CheckDefFailure(["let x = '1'isnot'2'"], msg) 842 call CheckDefFailure(["let x = '1' isnot'2'"], msg) 843 call CheckDefFailure(["let x = '1'isnot '2'"], msg) 844 845 call CheckDefFailure(["let x = 1 is# 2"], 'E15:') 846 call CheckDefFailure(["let x = 1 is? 2"], 'E15:') 847 call CheckDefFailure(["let x = 1 isnot# 2"], 'E15:') 848 call CheckDefFailure(["let x = 1 isnot? 2"], 'E15:') 849 850 call CheckDefFailure(["let x = 1 == '2'"], 'Cannot compare number with string') 851 call CheckDefFailure(["let x = '1' == 2"], 'Cannot compare string with number') 852 call CheckDefFailure(["let x = 1 == RetVoid()"], 'Cannot compare number with void') 853 call CheckDefFailure(["let x = RetVoid() == 1"], 'Cannot compare void with number') 854 855 call CheckDefFailure(["let x = true > false"], 'Cannot compare bool with bool') 856 call CheckDefFailure(["let x = true >= false"], 'Cannot compare bool with bool') 857 call CheckDefFailure(["let x = true < false"], 'Cannot compare bool with bool') 858 call CheckDefFailure(["let x = true <= false"], 'Cannot compare bool with bool') 859 call CheckDefFailure(["let x = true =~ false"], 'Cannot compare bool with bool') 860 call CheckDefFailure(["let x = true !~ false"], 'Cannot compare bool with bool') 861 call CheckDefFailure(["let x = true is false"], 'Cannot use "is" with bool') 862 call CheckDefFailure(["let x = true isnot false"], 'Cannot use "isnot" with bool') 863 864 call CheckDefFailure(["let x = v:none is v:null"], 'Cannot use "is" with special') 865 call CheckDefFailure(["let x = v:none isnot v:null"], 'Cannot use "isnot" with special') 866 call CheckDefFailure(["let x = 123 is 123"], 'Cannot use "is" with number') 867 call CheckDefFailure(["let x = 123 isnot 123"], 'Cannot use "isnot" with number') 868 if has('float') 869 call CheckDefFailure(["let x = 1.3 is 1.3"], 'Cannot use "is" with float') 870 call CheckDefFailure(["let x = 1.3 isnot 1.3"], 'Cannot use "isnot" with float') 871 endif 872 873 call CheckDefFailure(["let x = 0za1 > 0z34"], 'Cannot compare blob with blob') 874 call CheckDefFailure(["let x = 0za1 >= 0z34"], 'Cannot compare blob with blob') 875 call CheckDefFailure(["let x = 0za1 < 0z34"], 'Cannot compare blob with blob') 876 call CheckDefFailure(["let x = 0za1 <= 0z34"], 'Cannot compare blob with blob') 877 call CheckDefFailure(["let x = 0za1 =~ 0z34"], 'Cannot compare blob with blob') 878 call CheckDefFailure(["let x = 0za1 !~ 0z34"], 'Cannot compare blob with blob') 879 880 call CheckDefFailure(["let x = [13] > [88]"], 'Cannot compare list with list') 881 call CheckDefFailure(["let x = [13] >= [88]"], 'Cannot compare list with list') 882 call CheckDefFailure(["let x = [13] < [88]"], 'Cannot compare list with list') 883 call CheckDefFailure(["let x = [13] <= [88]"], 'Cannot compare list with list') 884 call CheckDefFailure(["let x = [13] =~ [88]"], 'Cannot compare list with list') 885 call CheckDefFailure(["let x = [13] !~ [88]"], 'Cannot compare list with list') 886 887 call CheckDefFailure(['let j: job', 'let chan: channel', 'let r = j == chan'], 'Cannot compare job with channel') 888 call CheckDefFailure(['let j: job', 'let x: list<any>', 'let r = j == x'], 'Cannot compare job with list') 889 call CheckDefFailure(['let j: job', 'let Xx: func', 'let r = j == Xx'], 'Cannot compare job with func') 890 call CheckDefFailure(['let j: job', 'let Xx: func', 'let r = j == Xx'], 'Cannot compare job with func') 891endfunc 892 893" test addition, subtraction, concatenation 894def Test_expr5() 895 assert_equal(66, 60 + 6) 896 assert_equal(70, 60 + 897 g:anint) 898 assert_equal(9, g:alsoint 899 + 5) 900 assert_equal(14, g:alsoint + g:anint) 901 assert_equal([1, 2, 3, 4], [1] + g:alist) 902 903 assert_equal(54, 60 - 6) 904 assert_equal(50, 60 - 905 g:anint) 906 assert_equal(-1, g:alsoint 907 - 5) 908 assert_equal(-6, g:alsoint - g:anint) 909 910 assert_equal('hello', 'hel' .. 'lo') 911 assert_equal('hello 123', 'hello ' .. 912 123) 913 assert_equal('hello 123', 'hello ' 914 .. 123) 915 assert_equal('123 hello', 123 .. ' hello') 916 assert_equal('123456', 123 .. 456) 917 918 assert_equal([1, 2, 3, 4], [1, 2] + [3, 4]) 919 assert_equal(0z11223344, 0z1122 + 0z3344) 920 assert_equal(0z112201ab, 0z1122 921 + g:ablob) 922 assert_equal(0z01ab3344, g:ablob + 0z3344) 923 assert_equal(0z01ab01ab, g:ablob + g:ablob) 924enddef 925 926def Test_expr5_vim9script() 927 # check line continuation 928 let lines =<< trim END 929 vim9script 930 let var = 11 931 + 77 932 - 22 933 assert_equal(66, var) 934 END 935 CheckScriptSuccess(lines) 936 937 lines =<< trim END 938 vim9script 939 let var = 11 + 940 77 - 941 22 942 assert_equal(66, var) 943 END 944 CheckScriptSuccess(lines) 945 946 lines =<< trim END 947 vim9script 948 let var = 'one' 949 .. 'two' 950 assert_equal('onetwo', var) 951 END 952 CheckScriptSuccess(lines) 953 954 lines =<< trim END 955 vim9script 956 echo 'abc' is# 'abc' 957 END 958 CheckScriptFailure(lines, 'E15:') 959 960 lines =<< trim END 961 vim9script 962 echo 'abc' is? 'abc' 963 END 964 CheckScriptFailure(lines, 'E15:') 965 966 lines =<< trim END 967 vim9script 968 echo 'abc' isnot# 'abc' 969 END 970 CheckScriptFailure(lines, 'E15:') 971 972 lines =<< trim END 973 vim9script 974 echo 'abc' isnot? 'abc' 975 END 976 CheckScriptFailure(lines, 'E15:') 977 978 # check white space 979 lines =<< trim END 980 vim9script 981 echo 5+6 982 END 983 CheckScriptFailure(lines, 'E1004:') 984 lines =<< trim END 985 vim9script 986 echo 5 +6 987 END 988 CheckScriptFailure(lines, 'E1004:') 989 lines =<< trim END 990 vim9script 991 echo 5+ 6 992 END 993 CheckScriptFailure(lines, 'E1004:') 994 995 lines =<< trim END 996 vim9script 997 echo 'a'..'b' 998 END 999 CheckScriptFailure(lines, 'E1004:') 1000 lines =<< trim END 1001 vim9script 1002 echo 'a' ..'b' 1003 END 1004 CheckScriptFailure(lines, 'E1004:') 1005 lines =<< trim END 1006 vim9script 1007 echo 'a'.. 'b' 1008 END 1009 CheckScriptFailure(lines, 'E1004:') 1010enddef 1011 1012def Test_expr5_float() 1013 if !has('float') 1014 MissingFeature 'float' 1015 else 1016 assert_equal(66.0, 60.0 + 6.0) 1017 assert_equal(66.0, 60.0 + 6) 1018 assert_equal(66.0, 60 + 1019 6.0) 1020 assert_equal(5.1, g:afloat 1021 + 5) 1022 assert_equal(8.1, 8 + g:afloat) 1023 assert_equal(10.1, g:anint + g:afloat) 1024 assert_equal(10.1, g:afloat + g:anint) 1025 1026 assert_equal(54.0, 60.0 - 6.0) 1027 assert_equal(54.0, 60.0 1028 - 6) 1029 assert_equal(54.0, 60 - 6.0) 1030 assert_equal(-4.9, g:afloat - 5) 1031 assert_equal(7.9, 8 - g:afloat) 1032 assert_equal(9.9, g:anint - g:afloat) 1033 assert_equal(-9.9, g:afloat - g:anint) 1034 endif 1035enddef 1036 1037func Test_expr5_fails() 1038 let msg = "white space required before and after '+'" 1039 call CheckDefFailure(["let x = 1+2"], msg) 1040 call CheckDefFailure(["let x = 1 +2"], msg) 1041 call CheckDefFailure(["let x = 1+ 2"], msg) 1042 1043 let msg = "white space required before and after '-'" 1044 call CheckDefFailure(["let x = 1-2"], msg) 1045 call CheckDefFailure(["let x = 1 -2"], msg) 1046 call CheckDefFailure(["let x = 1- 2"], msg) 1047 1048 let msg = "white space required before and after '..'" 1049 call CheckDefFailure(["let x = '1'..'2'"], msg) 1050 call CheckDefFailure(["let x = '1' ..'2'"], msg) 1051 call CheckDefFailure(["let x = '1'.. '2'"], msg) 1052 1053 call CheckDefFailure(["let x = 0z1122 + 33"], 'E1051') 1054 call CheckDefFailure(["let x = 0z1122 + [3]"], 'E1051') 1055 call CheckDefFailure(["let x = 0z1122 + 'asd'"], 'E1051') 1056 call CheckDefFailure(["let x = 33 + 0z1122"], 'E1051') 1057 call CheckDefFailure(["let x = [3] + 0z1122"], 'E1051') 1058 call CheckDefFailure(["let x = 'asdf' + 0z1122"], 'E1051') 1059 call CheckDefFailure(["let x = 6 + xxx"], 'E1001') 1060endfunc 1061 1062" test multiply, divide, modulo 1063def Test_expr6() 1064 assert_equal(36, 6 * 6) 1065 assert_equal(24, 6 * 1066 g:alsoint) 1067 assert_equal(24, g:alsoint 1068 * 6) 1069 assert_equal(40, g:anint * g:alsoint) 1070 1071 assert_equal(10, 60 / 6) 1072 assert_equal(6, 60 / 1073 g:anint) 1074 assert_equal(1, g:anint / 6) 1075 assert_equal(2, g:anint 1076 / g:alsoint) 1077 1078 assert_equal(5, 11 % 6) 1079 assert_equal(4, g:anint % 6) 1080 assert_equal(3, 13 % 1081 g:anint) 1082 assert_equal(2, g:anint 1083 % g:alsoint) 1084 1085 assert_equal(4, 6 * 4 / 6) 1086 1087 let x = [2] 1088 let y = [3] 1089 assert_equal(5, x[0] + y[0]) 1090 assert_equal(6, x[0] * y[0]) 1091 if has('float') 1092 let xf = [2.0] 1093 let yf = [3.0] 1094 assert_equal(5.0, xf[0] 1095 + yf[0]) 1096 assert_equal(6.0, xf[0] 1097 * yf[0]) 1098 endif 1099 1100 call CheckDefFailure(["let x = 6 * xxx"], 'E1001') 1101enddef 1102 1103def Test_expr6_vim9script() 1104 # check line continuation 1105 let lines =<< trim END 1106 vim9script 1107 let var = 11 1108 * 22 1109 / 3 1110 assert_equal(80, var) 1111 END 1112 CheckScriptSuccess(lines) 1113 1114 lines =<< trim END 1115 vim9script 1116 let var = 25 1117 % 10 1118 assert_equal(5, var) 1119 END 1120 CheckScriptSuccess(lines) 1121 1122 lines =<< trim END 1123 vim9script 1124 let var = 11 * 1125 22 / 1126 3 1127 assert_equal(80, var) 1128 END 1129 CheckScriptSuccess(lines) 1130 1131 # check white space 1132 lines =<< trim END 1133 vim9script 1134 echo 5*6 1135 END 1136 CheckScriptFailure(lines, 'E1004:') 1137 lines =<< trim END 1138 vim9script 1139 echo 5 *6 1140 END 1141 CheckScriptFailure(lines, 'E1004:') 1142 lines =<< trim END 1143 vim9script 1144 echo 5* 6 1145 END 1146 CheckScriptFailure(lines, 'E1004:') 1147enddef 1148 1149def Test_expr6_float() 1150 if !has('float') 1151 MissingFeature 'float' 1152 else 1153 assert_equal(36.0, 6.0 * 6) 1154 assert_equal(36.0, 6 * 1155 6.0) 1156 assert_equal(36.0, 6.0 * 6.0) 1157 assert_equal(1.0, g:afloat * g:anint) 1158 1159 assert_equal(10.0, 60 / 6.0) 1160 assert_equal(10.0, 60.0 / 1161 6) 1162 assert_equal(10.0, 60.0 / 6.0) 1163 assert_equal(0.01, g:afloat / g:anint) 1164 1165 assert_equal(4.0, 6.0 * 4 / 6) 1166 assert_equal(4.0, 6 * 1167 4.0 / 1168 6) 1169 assert_equal(4.0, 6 * 4 / 6.0) 1170 assert_equal(4.0, 6.0 * 4.0 / 6) 1171 assert_equal(4.0, 6 * 4.0 / 6.0) 1172 assert_equal(4.0, 6.0 * 4 / 6.0) 1173 assert_equal(4.0, 6.0 * 4.0 / 6.0) 1174 1175 assert_equal(4.0, 6.0 * 4.0 / 6.0) 1176 endif 1177enddef 1178 1179func Test_expr6_fails() 1180 let msg = "white space required before and after '*'" 1181 call CheckDefFailure(["let x = 1*2"], msg) 1182 call CheckDefFailure(["let x = 1 *2"], msg) 1183 call CheckDefFailure(["let x = 1* 2"], msg) 1184 1185 let msg = "white space required before and after '/'" 1186 call CheckDefFailure(["let x = 1/2"], msg) 1187 call CheckDefFailure(["let x = 1 /2"], msg) 1188 call CheckDefFailure(["let x = 1/ 2"], msg) 1189 1190 let msg = "white space required before and after '%'" 1191 call CheckDefFailure(["let x = 1%2"], msg) 1192 call CheckDefFailure(["let x = 1 %2"], msg) 1193 call CheckDefFailure(["let x = 1% 2"], msg) 1194 1195 call CheckDefFailure(["let x = '1' * '2'"], 'E1036:') 1196 call CheckDefFailure(["let x = '1' / '2'"], 'E1036:') 1197 call CheckDefFailure(["let x = '1' % '2'"], 'E1035:') 1198 1199 call CheckDefFailure(["let x = 0z01 * 0z12"], 'E1036:') 1200 call CheckDefFailure(["let x = 0z01 / 0z12"], 'E1036:') 1201 call CheckDefFailure(["let x = 0z01 % 0z12"], 'E1035:') 1202 1203 call CheckDefFailure(["let x = [1] * [2]"], 'E1036:') 1204 call CheckDefFailure(["let x = [1] / [2]"], 'E1036:') 1205 call CheckDefFailure(["let x = [1] % [2]"], 'E1035:') 1206 1207 call CheckDefFailure(["let x = #{one: 1} * #{two: 2}"], 'E1036:') 1208 call CheckDefFailure(["let x = #{one: 1} / #{two: 2}"], 'E1036:') 1209 call CheckDefFailure(["let x = #{one: 1} % #{two: 2}"], 'E1035:') 1210 1211 call CheckDefFailure(["let x = 0xff[1]"], 'E1090:') 1212 if has('float') 1213 call CheckDefFailure(["let x = 0.7[1]"], 'E1090:') 1214 endif 1215endfunc 1216 1217func Test_expr6_float_fails() 1218 CheckFeature float 1219 call CheckDefFailure(["let x = 1.0 % 2"], 'E1035:') 1220endfunc 1221 1222" define here to use old style parsing 1223if has('float') 1224 let g:float_zero = 0.0 1225 let g:float_neg = -9.8 1226 let g:float_big = 9.9e99 1227endif 1228let g:blob_empty = 0z 1229let g:blob_one = 0z01 1230let g:blob_long = 0z0102.0304 1231 1232let g:string_empty = '' 1233let g:string_short = 'x' 1234let g:string_long = 'abcdefghijklm' 1235let g:string_special = "ab\ncd\ref\ekk" 1236 1237let g:special_true = v:true 1238let g:special_false = v:false 1239let g:special_null = v:null 1240let g:special_none = v:none 1241 1242let g:list_empty = [] 1243let g:list_mixed = [1, 'b', v:false] 1244 1245let g:dict_empty = {} 1246let g:dict_one = #{one: 1} 1247 1248let $TESTVAR = 'testvar' 1249 1250" test low level expression 1251def Test_expr7_number() 1252 # number constant 1253 assert_equal(0, 0) 1254 assert_equal(654, 0654) 1255 1256 assert_equal(6, 0x6) 1257 assert_equal(15, 0xf) 1258 assert_equal(255, 0xff) 1259enddef 1260 1261def Test_expr7_float() 1262 # float constant 1263 if !has('float') 1264 MissingFeature 'float' 1265 else 1266 assert_equal(g:float_zero, .0) 1267 assert_equal(g:float_zero, 0.0) 1268 assert_equal(g:float_neg, -9.8) 1269 assert_equal(g:float_big, 9.9e99) 1270 endif 1271enddef 1272 1273def Test_expr7_blob() 1274 # blob constant 1275 assert_equal(g:blob_empty, 0z) 1276 assert_equal(g:blob_one, 0z01) 1277 assert_equal(g:blob_long, 0z0102.0304) 1278 1279 call CheckDefFailure(["let x = 0z123"], 'E973:') 1280enddef 1281 1282def Test_expr7_string() 1283 # string constant 1284 assert_equal(g:string_empty, '') 1285 assert_equal(g:string_empty, "") 1286 assert_equal(g:string_short, 'x') 1287 assert_equal(g:string_short, "x") 1288 assert_equal(g:string_long, 'abcdefghijklm') 1289 assert_equal(g:string_long, "abcdefghijklm") 1290 assert_equal(g:string_special, "ab\ncd\ref\ekk") 1291 1292 call CheckDefFailure(['let x = "abc'], 'E114:') 1293 call CheckDefFailure(["let x = 'abc"], 'E115:') 1294enddef 1295 1296def Test_expr7_vimvar() 1297 let old: list<string> = v:oldfiles 1298 let compl: dict<any> = v:completed_item 1299 1300 call CheckDefFailure(["let old: list<number> = v:oldfiles"], 'E1013: type mismatch, expected list<number> but got list<string>') 1301 call CheckDefFailure(["let old: dict<number> = v:completed_item"], 'E1013: type mismatch, expected dict<number> but got dict<any>') 1302enddef 1303 1304def Test_expr7_special() 1305 # special constant 1306 assert_equal(g:special_true, true) 1307 assert_equal(g:special_false, false) 1308 assert_equal(g:special_true, v:true) 1309 assert_equal(g:special_false, v:false) 1310 assert_equal(g:special_null, v:null) 1311 assert_equal(g:special_none, v:none) 1312 1313 call CheckDefFailure(['v:true = true'], 'E46:') 1314 call CheckDefFailure(['v:true = false'], 'E46:') 1315 call CheckDefFailure(['v:false = true'], 'E46:') 1316 call CheckDefFailure(['v:null = 11'], 'E46:') 1317 call CheckDefFailure(['v:none = 22'], 'E46:') 1318enddef 1319 1320def Test_expr7_special_vim9script() 1321 let lines =<< trim END 1322 vim9script 1323 let t = true 1324 let f = false 1325 assert_equal(v:true, true) 1326 assert_equal(true, t) 1327 assert_equal(v:false, false) 1328 assert_equal(false, f) 1329 END 1330 CheckScriptSuccess(lines) 1331enddef 1332 1333def Test_expr7_list() 1334 # list 1335 assert_equal(g:list_empty, []) 1336 assert_equal(g:list_empty, [ ]) 1337 assert_equal(g:list_mixed, [1, 'b', false,]) 1338 assert_equal('b', g:list_mixed[1]) 1339 1340 echo [1, 1341 2] [3, 1342 4] 1343 1344 call CheckDefExecFailure(["let x = g:anint[3]"], 'E714:') 1345 call CheckDefFailure(["let x = g:list_mixed[xxx]"], 'E1001:') 1346 call CheckDefFailure(["let x = [1,2,3]"], 'E1069:') 1347 call CheckDefExecFailure(["let x = g:list_mixed['xx']"], 'E1029:') 1348 call CheckDefFailure(["let x = g:list_mixed["], 'E1097:') 1349 call CheckDefFailure(["let x = g:list_mixed[0"], 'E1097:') 1350 call CheckDefExecFailure(["let x = g:list_empty[3]"], 'E684:') 1351enddef 1352 1353def Test_expr7_list_vim9script() 1354 let lines =<< trim END 1355 vim9script 1356 let l = [ 1357 11, 1358 22, 1359 ] 1360 assert_equal([11, 22], l) 1361 1362 echo [1, 1363 2] [3, 1364 4] 1365 END 1366 CheckScriptSuccess(lines) 1367 1368 lines =<< trim END 1369 vim9script 1370 let l = [11, 1371 22] 1372 assert_equal([11, 22], l) 1373 END 1374 CheckScriptSuccess(lines) 1375 1376 lines =<< trim END 1377 vim9script 1378 let l = [11,22] 1379 END 1380 CheckScriptFailure(lines, 'E1069:') 1381enddef 1382 1383def Test_expr7_lambda() 1384 let La = { -> 'result'} 1385 assert_equal('result', La()) 1386 assert_equal([1, 3, 5], [1, 2, 3]->map({key, val -> key + val})) 1387 1388 # line continuation inside lambda with "cond ? expr : expr" works 1389 let ll = range(3) 1390 map(ll, {k, v -> v % 2 ? { 1391 '111': 111 } : {} 1392 }) 1393 assert_equal([{}, {'111': 111}, {}], ll) 1394 1395 ll = range(3) 1396 map(ll, {k, v -> v == 8 || v 1397 == 9 1398 || v % 2 ? 111 : 222 1399 }) 1400 assert_equal([222, 111, 222], ll) 1401 1402 ll = range(3) 1403 map(ll, {k, v -> v != 8 && v 1404 != 9 1405 && v % 2 == 0 ? 111 : 222 1406 }) 1407 assert_equal([111, 222, 111], ll) 1408 1409 let dl = [{'key': 0}, {'key': 22}]->filter({ _, v -> v['key'] }) 1410 assert_equal([{'key': 22}], dl) 1411 1412 dl = [{'key': 12}, {'foo': 34}] 1413 assert_equal([{'key': 12}], filter(dl, 1414 {_, v -> has_key(v, 'key') ? v['key'] == 12 : 0})) 1415 1416 call CheckDefFailure(["filter([1, 2], {k,v -> 1})"], 'E1069:') 1417enddef 1418 1419def Test_expr7_lambda_vim9script() 1420 let lines =<< trim END 1421 vim9script 1422 let v = 10->{a -> 1423 a 1424 + 2 1425 }() 1426 assert_equal(12, v) 1427 END 1428 CheckScriptSuccess(lines) 1429enddef 1430 1431def Test_expr7_dict() 1432 # dictionary 1433 assert_equal(g:dict_empty, {}) 1434 assert_equal(g:dict_empty, { }) 1435 assert_equal(g:dict_one, {'one': 1}) 1436 let key = 'one' 1437 let val = 1 1438 assert_equal(g:dict_one, {key: val}) 1439 1440 call CheckDefFailure(["let x = #{8: 8}"], 'E1014:') 1441 call CheckDefFailure(["let x = #{xxx}"], 'E720:') 1442 call CheckDefFailure(["let x = #{xxx: 1", "let y = 2"], 'E722:') 1443 call CheckDefFailure(["let x = #{xxx: 1,"], 'E723:') 1444 call CheckDefFailure(["let x = {'a': xxx}"], 'E1001:') 1445 call CheckDefFailure(["let x = {xxx: 8}"], 'E1001:') 1446 call CheckDefFailure(["let x = #{a: 1, a: 2}"], 'E721:') 1447 call CheckDefFailure(["let x = #"], 'E1015:') 1448 call CheckDefFailure(["let x += 1"], 'E1020:') 1449 call CheckDefFailure(["let x = x + 1"], 'E1001:') 1450 call CheckDefExecFailure(["let x = g:anint.member"], 'E715:') 1451 call CheckDefExecFailure(["let x = g:dict_empty.member"], 'E716:') 1452enddef 1453 1454def Test_expr7_dict_vim9script() 1455 let lines =<< trim END 1456 vim9script 1457 let d = { 1458 'one': 1459 1, 1460 'two': 2, 1461 } 1462 assert_equal({'one': 1, 'two': 2}, d) 1463 END 1464 CheckScriptSuccess(lines) 1465 1466 lines =<< trim END 1467 vim9script 1468 let d = { "one": "one", "two": "two", } 1469 assert_equal({'one': 'one', 'two': 'two'}, d) 1470 END 1471 CheckScriptSuccess(lines) 1472 1473 lines =<< trim END 1474 vim9script 1475 let d = #{one: 1, 1476 two: 2, 1477 } 1478 assert_equal({'one': 1, 'two': 2}, d) 1479 END 1480 CheckScriptSuccess(lines) 1481 1482 lines =<< trim END 1483 vim9script 1484 let d = #{one:1, two: 2} 1485 END 1486 CheckScriptFailure(lines, 'E1069:') 1487 1488 lines =<< trim END 1489 vim9script 1490 let d = #{one: 1,two: 2} 1491 END 1492 CheckScriptFailure(lines, 'E1069:') 1493enddef 1494 1495let g:oneString = 'one' 1496 1497def Test_expr_member() 1498 assert_equal(1, g:dict_one.one) 1499 let d: dict<number> = g:dict_one 1500 assert_equal(1, d['one']) 1501 assert_equal(1, d[ 1502 'one' 1503 ]) 1504 assert_equal(1, d 1505 .one) 1506 d = {'1': 1, '_': 2} 1507 assert_equal(1, d 1508 .1) 1509 assert_equal(2, d 1510 ._) 1511 1512 # getting the one member should clear the dict after getting the item 1513 assert_equal('one', #{one: 'one'}.one) 1514 assert_equal('one', #{one: 'one'}[g:oneString]) 1515 1516 call CheckDefFailure(["let x = g:dict_one.#$!"], 'E1002:') 1517 call CheckDefExecFailure(["let d: dict<any>", "echo d['a']"], 'E716:') 1518 call CheckDefExecFailure(["let d: dict<number>", "d = g:list_empty"], 'E1029: Expected dict but got list') 1519enddef 1520 1521def Test_expr_index() 1522 # getting the one member should clear the list only after getting the item 1523 assert_equal('bbb', ['aaa', 'bbb', 'ccc'][1]) 1524enddef 1525 1526def Test_expr_member_vim9script() 1527 let lines =<< trim END 1528 vim9script 1529 let d = #{one: 1530 'one', 1531 two: 'two', 1532 1: 1, 1533 _: 2} 1534 assert_equal('one', d.one) 1535 assert_equal('one', d 1536 .one) 1537 assert_equal(1, d 1538 .1) 1539 assert_equal(2, d 1540 ._) 1541 assert_equal('one', d[ 1542 'one' 1543 ]) 1544 END 1545 CheckScriptSuccess(lines) 1546 1547 lines =<< trim END 1548 vim9script 1549 let l = [1, 1550 2, 1551 3, 4 1552 ] 1553 assert_equal(2, l[ 1554 1 1555 ]) 1556 assert_equal([2, 3], l[1 : 2]) 1557 assert_equal([1, 2, 3], l[ 1558 : 1559 2 1560 ]) 1561 assert_equal([3, 4], l[ 1562 2 1563 : 1564 ]) 1565 END 1566 CheckScriptSuccess(lines) 1567enddef 1568 1569def Test_expr7_option() 1570 # option 1571 set ts=11 1572 assert_equal(11, &ts) 1573 &ts = 9 1574 assert_equal(9, &ts) 1575 set ts=8 1576 set grepprg=some\ text 1577 assert_equal('some text', &grepprg) 1578 &grepprg = test_null_string() 1579 assert_equal('', &grepprg) 1580 set grepprg& 1581enddef 1582 1583def Test_expr7_environment() 1584 # environment variable 1585 assert_equal('testvar', $TESTVAR) 1586 assert_equal('', $ASDF_ASD_XXX) 1587 1588 call CheckDefFailure(["let x = $$$"], 'E1002:') 1589enddef 1590 1591def Test_expr7_register() 1592 @a = 'register a' 1593 assert_equal('register a', @a) 1594 1595 let fname = expand('%') 1596 assert_equal(fname, @%) 1597 1598 feedkeys(":echo 'some'\<CR>", "xt") 1599 assert_equal("echo 'some'", @:) 1600 1601 normal axyz 1602 assert_equal("xyz", @.) 1603 call CheckDefFailure(["@. = 'yes'"], 'E354:') 1604 1605 @/ = 'slash' 1606 assert_equal('slash', @/) 1607 1608 @= = 'equal' 1609 assert_equal('equal', @=) 1610enddef 1611 1612def Test_expr7_namespace() 1613 g:some_var = 'some' 1614 assert_equal('some', get(g:, 'some_var')) 1615 assert_equal('some', get(g:, 'some_var', 'xxx')) 1616 assert_equal('xxx', get(g:, 'no_var', 'xxx')) 1617 unlet g:some_var 1618 1619 b:some_var = 'some' 1620 assert_equal('some', get(b:, 'some_var')) 1621 assert_equal('some', get(b:, 'some_var', 'xxx')) 1622 assert_equal('xxx', get(b:, 'no_var', 'xxx')) 1623 unlet b:some_var 1624 1625 w:some_var = 'some' 1626 assert_equal('some', get(w:, 'some_var')) 1627 assert_equal('some', get(w:, 'some_var', 'xxx')) 1628 assert_equal('xxx', get(w:, 'no_var', 'xxx')) 1629 unlet w:some_var 1630 1631 t:some_var = 'some' 1632 assert_equal('some', get(t:, 'some_var')) 1633 assert_equal('some', get(t:, 'some_var', 'xxx')) 1634 assert_equal('xxx', get(t:, 'no_var', 'xxx')) 1635 unlet t:some_var 1636enddef 1637 1638def Test_expr7_parens() 1639 # (expr) 1640 assert_equal(4, (6 * 4) / 6) 1641 assert_equal(0, 6 * ( 4 / 6 )) 1642 1643 assert_equal(6, +6) 1644 assert_equal(-6, -6) 1645 assert_equal(6, --6) 1646 assert_equal(6, -+-6) 1647 assert_equal(-6, ---6) 1648 assert_equal(false, !-3) 1649 assert_equal(true, !+-+0) 1650enddef 1651 1652def Test_expr7_parens_vim9script() 1653 let lines =<< trim END 1654 vim9script 1655 let s = ( 1656 'one' 1657 .. 1658 'two' 1659 ) 1660 assert_equal('onetwo', s) 1661 END 1662 CheckScriptSuccess(lines) 1663enddef 1664 1665def Test_expr7_negate() 1666 assert_equal(-99, -99) 1667 assert_equal(99, --99) 1668 let nr = 88 1669 assert_equal(-88, -nr) 1670 assert_equal(88, --nr) 1671enddef 1672 1673def Echo(arg: any): string 1674 return arg 1675enddef 1676 1677def s:Echo4Arg(arg: any): string 1678 return arg 1679enddef 1680 1681def Test_expr7_call() 1682 assert_equal('yes', 'yes'->Echo()) 1683 assert_equal('yes', 'yes' 1684 ->s:Echo4Arg()) 1685 assert_equal(1, !range(5)->empty()) 1686 assert_equal([0, 1, 2], --3->range()) 1687 1688 call CheckDefFailure(["let x = 'yes'->Echo"], 'E107:') 1689 call CheckScriptFailure([ 1690 "vim9script", 1691 "let x = substitute ('x', 'x', 'x', 'x')" 1692 ], 'E121:') 1693enddef 1694 1695 1696def Test_expr7_not() 1697 assert_equal(true, !'') 1698 assert_equal(true, ![]) 1699 assert_equal(false, !'asdf') 1700 assert_equal(false, ![2]) 1701 assert_equal(true, !!'asdf') 1702 assert_equal(true, !![2]) 1703 1704 assert_equal(true, !test_null_partial()) 1705 assert_equal(false, !{-> 'yes'}) 1706 1707 assert_equal(true, !test_null_dict()) 1708 assert_equal(true, !{}) 1709 assert_equal(false, !{'yes': 'no'}) 1710 1711 if has('channel') 1712 assert_equal(true, !test_null_job()) 1713 assert_equal(true, !test_null_channel()) 1714 endif 1715 1716 assert_equal(true, !test_null_blob()) 1717 assert_equal(true, !0z) 1718 assert_equal(false, !0z01) 1719 1720 assert_equal(true, !test_void()) 1721 assert_equal(true, !test_unknown()) 1722enddef 1723 1724func Test_expr7_fails() 1725 call CheckDefFailure(["let x = (12"], "E110:") 1726 1727 call CheckDefFailure(["let x = -'xx'"], "E1030:") 1728 call CheckDefFailure(["let x = +'xx'"], "E1030:") 1729 call CheckDefFailure(["let x = -0z12"], "E974:") 1730 call CheckDefExecFailure(["let x = -[8]"], "E39:") 1731 call CheckDefExecFailure(["let x = -{'a': 1}"], "E39:") 1732 1733 call CheckDefFailure(["let x = @"], "E1002:") 1734 call CheckDefFailure(["let x = @<"], "E354:") 1735 1736 call CheckDefFailure(["let x = [1, 2"], "E697:") 1737 call CheckDefFailure(["let x = [notfound]"], "E1001:") 1738 1739 call CheckDefFailure(["let x = { -> 123) }"], "E451:") 1740 call CheckDefFailure(["let x = 123->{x -> x + 5) }"], "E451:") 1741 1742 call CheckDefFailure(["let x = ¬exist"], 'E113:') 1743 call CheckDefFailure(["&grepprg = [343]"], 'E1013:') 1744 1745 call CheckDefExecFailure(["echo s:doesnt_exist"], 'E121:') 1746 call CheckDefExecFailure(["echo g:doesnt_exist"], 'E121:') 1747 1748 call CheckDefFailure(["echo a:somevar"], 'E1075:') 1749 call CheckDefFailure(["echo l:somevar"], 'E1075:') 1750 call CheckDefFailure(["echo x:somevar"], 'E1075:') 1751 1752 call CheckDefExecFailure(["let x = +g:astring"], 'E1030:') 1753 call CheckDefExecFailure(["let x = +g:ablob"], 'E974:') 1754 call CheckDefExecFailure(["let x = +g:alist"], 'E745:') 1755 call CheckDefExecFailure(["let x = +g:adict"], 'E728:') 1756 1757 call CheckDefFailure(["let x = ''", "let y = x.memb"], 'E715:') 1758 1759 call CheckDefFailure(["'yes'->", "Echo()"], 'E488: Trailing characters: ->') 1760 1761 call CheckDefExecFailure(["[1, 2->len()"], 'E697:') 1762 call CheckDefExecFailure(["#{a: 1->len()"], 'E488:') 1763 call CheckDefExecFailure(["{'a': 1->len()"], 'E723:') 1764endfunc 1765 1766let g:Funcrefs = [function('add')] 1767 1768func CallMe(arg) 1769 return a:arg 1770endfunc 1771 1772func CallMe2(one, two) 1773 return a:one .. a:two 1774endfunc 1775 1776def Test_expr7_trailing() 1777 # user function call 1778 assert_equal(123, g:CallMe(123)) 1779 assert_equal(123, g:CallMe( 123)) 1780 assert_equal(123, g:CallMe(123 )) 1781 assert_equal('yesno', g:CallMe2('yes', 'no')) 1782 assert_equal('yesno', g:CallMe2( 'yes', 'no' )) 1783 assert_equal('nothing', g:CallMe('nothing')) 1784 1785 # partial call 1786 let Part = function('g:CallMe') 1787 assert_equal('yes', Part('yes')) 1788 1789 # funcref call, using list index 1790 let l = [] 1791 g:Funcrefs[0](l, 2) 1792 assert_equal([2], l) 1793 1794 # method call 1795 l = [2, 5, 6] 1796 l->map({k, v -> k + v}) 1797 assert_equal([2, 6, 8], l) 1798 1799 # lambda method call 1800 l = [2, 5] 1801 l->{l -> add(l, 8)}() 1802 assert_equal([2, 5, 8], l) 1803 1804 # dict member 1805 let d = #{key: 123} 1806 assert_equal(123, d.key) 1807enddef 1808 1809def Test_expr7_subscript() 1810 let text = 'abcdef' 1811 assert_equal('', text[-1]) 1812 assert_equal('a', text[0]) 1813 assert_equal('e', text[4]) 1814 assert_equal('f', text[5]) 1815 assert_equal('', text[6]) 1816enddef 1817 1818def Test_expr7_subscript_linebreak() 1819 let range = range( 1820 3) 1821 let l = range 1822 ->map('string(v:key)') 1823 assert_equal(['0', '1', '2'], l) 1824 1825 l = range 1826 ->map('string(v:key)') 1827 assert_equal(['0', '1', '2'], l) 1828 1829 l = range # comment 1830 ->map('string(v:key)') 1831 assert_equal(['0', '1', '2'], l) 1832 1833 l = range 1834 1835 ->map('string(v:key)') 1836 assert_equal(['0', '1', '2'], l) 1837 1838 l = range 1839 # comment 1840 ->map('string(v:key)') 1841 assert_equal(['0', '1', '2'], l) 1842 1843 assert_equal('1', l[ 1844 1]) 1845 1846 let d = #{one: 33} 1847 assert_equal(33, d. 1848 one) 1849enddef 1850 1851def Test_expr7_method_call() 1852 new 1853 setline(1, ['first', 'last']) 1854 'second'->append(1) 1855 "third"->append(2) 1856 assert_equal(['first', 'second', 'third', 'last'], getline(1, '$')) 1857 bwipe! 1858 1859 let bufnr = bufnr() 1860 let loclist = [#{bufnr: bufnr, lnum: 42, col: 17, text: 'wrong'}] 1861 loclist->setloclist(0) 1862 assert_equal([#{bufnr: bufnr, 1863 lnum: 42, 1864 col: 17, 1865 text: 'wrong', 1866 pattern: '', 1867 valid: 1, 1868 vcol: 0, 1869 nr: 0, 1870 type: '', 1871 module: ''} 1872 ], getloclist(0)) 1873enddef 1874 1875func Test_expr7_trailing_fails() 1876 call CheckDefFailure(['let l = [2]', 'l->{l -> add(l, 8)}'], 'E107') 1877 call CheckDefFailure(['let l = [2]', 'l->{l -> add(l, 8)} ()'], 'E274') 1878endfunc 1879 1880func Test_expr_fails() 1881 call CheckDefFailure(["let x = '1'is2"], 'E488:') 1882 call CheckDefFailure(["let x = '1'isnot2"], 'E488:') 1883 1884 call CheckDefFailure(["CallMe ('yes')"], 'E476:') 1885 call CheckDefFailure(["CallMe2('yes','no')"], 'E1069:') 1886 call CheckDefFailure(["CallMe2('yes' , 'no')"], 'E1068:') 1887 1888 call CheckDefFailure(["v:nosuch += 3"], 'E1001:') 1889 call CheckDefFailure(["let v:statusmsg = ''"], 'E1016: Cannot declare a v: variable:') 1890 call CheckDefFailure(["let asdf = v:nosuch"], 'E1001:') 1891 1892 call CheckDefFailure(["echo len('asdf'"], 'E110:') 1893 call CheckDefFailure(["echo Func0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789()"], 'E1011:') 1894 call CheckDefFailure(["echo doesnotexist()"], 'E117:') 1895endfunc 1896