1" Test for the search command 2 3source shared.vim 4source screendump.vim 5 6func Test_search_cmdline() 7 if !exists('+incsearch') 8 return 9 endif 10 " need to disable char_avail, 11 " so that expansion of commandline works 12 call test_override("char_avail", 1) 13 new 14 call setline(1, [' 1', ' 2 these', ' 3 the', ' 4 their', ' 5 there', ' 6 their', ' 7 the', ' 8 them', ' 9 these', ' 10 foobar']) 15 " Test 1 16 " CTRL-N / CTRL-P skips through the previous search history 17 set noincsearch 18 :1 19 call feedkeys("/foobar\<cr>", 'tx') 20 call feedkeys("/the\<cr>",'tx') 21 call assert_equal('the', @/) 22 call feedkeys("/thes\<C-P>\<C-P>\<cr>",'tx') 23 call assert_equal('foobar', @/) 24 25 " Test 2 26 " Ctrl-G goes from one match to the next 27 " until the end of the buffer 28 set incsearch nowrapscan 29 :1 30 " first match 31 call feedkeys("/the\<cr>", 'tx') 32 call assert_equal(' 2 these', getline('.')) 33 :1 34 " second match 35 call feedkeys("/the\<C-G>\<cr>", 'tx') 36 call assert_equal(' 3 the', getline('.')) 37 call assert_equal([0, 0, 0, 0], getpos('"')) 38 :1 39 " third match 40 call feedkeys("/the".repeat("\<C-G>", 2)."\<cr>", 'tx') 41 call assert_equal(' 4 their', getline('.')) 42 :1 43 " fourth match 44 call feedkeys("/the".repeat("\<C-G>", 3)."\<cr>", 'tx') 45 call assert_equal(' 5 there', getline('.')) 46 :1 47 " fifth match 48 call feedkeys("/the".repeat("\<C-G>", 4)."\<cr>", 'tx') 49 call assert_equal(' 6 their', getline('.')) 50 :1 51 " sixth match 52 call feedkeys("/the".repeat("\<C-G>", 5)."\<cr>", 'tx') 53 call assert_equal(' 7 the', getline('.')) 54 :1 55 " seventh match 56 call feedkeys("/the".repeat("\<C-G>", 6)."\<cr>", 'tx') 57 call assert_equal(' 8 them', getline('.')) 58 :1 59 " eigth match 60 call feedkeys("/the".repeat("\<C-G>", 7)."\<cr>", 'tx') 61 call assert_equal(' 9 these', getline('.')) 62 :1 63 " no further match 64 call feedkeys("/the".repeat("\<C-G>", 8)."\<cr>", 'tx') 65 call assert_equal(' 9 these', getline('.')) 66 call assert_equal([0, 0, 0, 0], getpos('"')) 67 68 " Test 3 69 " Ctrl-G goes from one match to the next 70 " and continues back at the top 71 set incsearch wrapscan 72 :1 73 " first match 74 call feedkeys("/the\<cr>", 'tx') 75 call assert_equal(' 2 these', getline('.')) 76 :1 77 " second match 78 call feedkeys("/the\<C-G>\<cr>", 'tx') 79 call assert_equal(' 3 the', getline('.')) 80 :1 81 " third match 82 call feedkeys("/the".repeat("\<C-G>", 2)."\<cr>", 'tx') 83 call assert_equal(' 4 their', getline('.')) 84 :1 85 " fourth match 86 call feedkeys("/the".repeat("\<C-G>", 3)."\<cr>", 'tx') 87 call assert_equal(' 5 there', getline('.')) 88 :1 89 " fifth match 90 call feedkeys("/the".repeat("\<C-G>", 4)."\<cr>", 'tx') 91 call assert_equal(' 6 their', getline('.')) 92 :1 93 " sixth match 94 call feedkeys("/the".repeat("\<C-G>", 5)."\<cr>", 'tx') 95 call assert_equal(' 7 the', getline('.')) 96 :1 97 " seventh match 98 call feedkeys("/the".repeat("\<C-G>", 6)."\<cr>", 'tx') 99 call assert_equal(' 8 them', getline('.')) 100 :1 101 " eigth match 102 call feedkeys("/the".repeat("\<C-G>", 7)."\<cr>", 'tx') 103 call assert_equal(' 9 these', getline('.')) 104 :1 105 " back at first match 106 call feedkeys("/the".repeat("\<C-G>", 8)."\<cr>", 'tx') 107 call assert_equal(' 2 these', getline('.')) 108 109 " Test 4 110 " CTRL-T goes to the previous match 111 set incsearch nowrapscan 112 $ 113 " first match 114 call feedkeys("?the\<cr>", 'tx') 115 call assert_equal(' 9 these', getline('.')) 116 $ 117 " first match 118 call feedkeys("?the\<C-G>\<cr>", 'tx') 119 call assert_equal(' 9 these', getline('.')) 120 $ 121 " second match 122 call feedkeys("?the".repeat("\<C-T>", 1)."\<cr>", 'tx') 123 call assert_equal(' 8 them', getline('.')) 124 $ 125 " last match 126 call feedkeys("?the".repeat("\<C-T>", 7)."\<cr>", 'tx') 127 call assert_equal(' 2 these', getline('.')) 128 $ 129 " last match 130 call feedkeys("?the".repeat("\<C-T>", 8)."\<cr>", 'tx') 131 call assert_equal(' 2 these', getline('.')) 132 133 " Test 5 134 " CTRL-T goes to the previous match 135 set incsearch wrapscan 136 $ 137 " first match 138 call feedkeys("?the\<cr>", 'tx') 139 call assert_equal(' 9 these', getline('.')) 140 $ 141 " first match at the top 142 call feedkeys("?the\<C-G>\<cr>", 'tx') 143 call assert_equal(' 2 these', getline('.')) 144 $ 145 " second match 146 call feedkeys("?the".repeat("\<C-T>", 1)."\<cr>", 'tx') 147 call assert_equal(' 8 them', getline('.')) 148 $ 149 " last match 150 call feedkeys("?the".repeat("\<C-T>", 7)."\<cr>", 'tx') 151 call assert_equal(' 2 these', getline('.')) 152 $ 153 " back at the bottom of the buffer 154 call feedkeys("?the".repeat("\<C-T>", 8)."\<cr>", 'tx') 155 call assert_equal(' 9 these', getline('.')) 156 157 " Test 6 158 " CTRL-L adds to the search pattern 159 set incsearch wrapscan 160 1 161 " first match 162 call feedkeys("/the\<c-l>\<cr>", 'tx') 163 call assert_equal(' 2 these', getline('.')) 164 1 165 " go to next match of 'thes' 166 call feedkeys("/the\<c-l>\<C-G>\<cr>", 'tx') 167 call assert_equal(' 9 these', getline('.')) 168 1 169 " wrap around 170 call feedkeys("/the\<c-l>\<C-G>\<C-G>\<cr>", 'tx') 171 call assert_equal(' 2 these', getline('.')) 172 1 173 " wrap around 174 set nowrapscan 175 call feedkeys("/the\<c-l>\<C-G>\<C-G>\<cr>", 'tx') 176 call assert_equal(' 9 these', getline('.')) 177 178 " Test 7 179 " <bs> remove from match, but stay at current match 180 set incsearch wrapscan 181 1 182 " first match 183 call feedkeys("/thei\<cr>", 'tx') 184 call assert_equal(' 4 their', getline('.')) 185 1 186 " delete one char, add another 187 call feedkeys("/thei\<bs>s\<cr>", 'tx') 188 call assert_equal(' 2 these', getline('.')) 189 1 190 " delete one char, add another, go to previous match, add one char 191 call feedkeys("/thei\<bs>s\<bs>\<C-T>\<c-l>\<cr>", 'tx') 192 call assert_equal(' 9 these', getline('.')) 193 1 194 " delete all chars, start from the beginning again 195 call feedkeys("/them". repeat("\<bs>",4).'the\>'."\<cr>", 'tx') 196 call assert_equal(' 3 the', getline('.')) 197 198 " clean up 199 call test_override("char_avail", 0) 200 bw! 201endfunc 202 203func Test_search_cmdline2() 204 if !exists('+incsearch') 205 return 206 endif 207 " need to disable char_avail, 208 " so that expansion of commandline works 209 call test_override("char_avail", 1) 210 new 211 call setline(1, [' 1', ' 2 these', ' 3 the theother']) 212 " Test 1 213 " Ctrl-T goes correctly back and forth 214 set incsearch 215 1 216 " first match 217 call feedkeys("/the\<cr>", 'tx') 218 call assert_equal(' 2 these', getline('.')) 219 1 220 " go to next match (on next line) 221 call feedkeys("/the\<C-G>\<cr>", 'tx') 222 call assert_equal(' 3 the theother', getline('.')) 223 1 224 " go to next match (still on line 3) 225 call feedkeys("/the\<C-G>\<C-G>\<cr>", 'tx') 226 call assert_equal(' 3 the theother', getline('.')) 227 1 228 " go to next match (still on line 3) 229 call feedkeys("/the\<C-G>\<C-G>\<C-G>\<cr>", 'tx') 230 call assert_equal(' 3 the theother', getline('.')) 231 1 232 " go to previous match (on line 3) 233 call feedkeys("/the\<C-G>\<C-G>\<C-G>\<C-T>\<cr>", 'tx') 234 call assert_equal(' 3 the theother', getline('.')) 235 1 236 " go to previous match (on line 3) 237 call feedkeys("/the\<C-G>\<C-G>\<C-G>\<C-T>\<C-T>\<cr>", 'tx') 238 call assert_equal(' 3 the theother', getline('.')) 239 1 240 " go to previous match (on line 2) 241 call feedkeys("/the\<C-G>\<C-G>\<C-G>\<C-T>\<C-T>\<C-T>\<cr>", 'tx') 242 call assert_equal(' 2 these', getline('.')) 243 244 " Test 2: keep the view, 245 " after deleting a character from the search cmd 246 call setline(1, [' 1', ' 2 these', ' 3 the', ' 4 their', ' 5 there', ' 6 their', ' 7 the', ' 8 them', ' 9 these', ' 10 foobar']) 247 resize 5 248 1 249 call feedkeys("/foo\<bs>\<cr>", 'tx') 250 redraw 251 call assert_equal({'lnum': 10, 'leftcol': 0, 'col': 4, 'topfill': 0, 'topline': 6, 'coladd': 0, 'skipcol': 0, 'curswant': 4}, winsaveview()) 252 253 " remove all history entries 254 for i in range(10) 255 call histdel('/') 256 endfor 257 258 " Test 3: reset the view, 259 " after deleting all characters from the search cmd 260 norm! 1gg0 261 " unfortunately, neither "/foo\<c-w>\<cr>", nor "/foo\<bs>\<bs>\<bs>\<cr>", 262 " nor "/foo\<c-u>\<cr>" works to delete the commandline. 263 " In that case Vim should return "E35 no previous regular expression", 264 " but it looks like Vim still sees /foo and therefore the test fails. 265 " Therefore, disableing this test 266 "call assert_fails(feedkeys("/foo\<c-w>\<cr>", 'tx'), 'E35') 267 "call assert_equal({'lnum': 1, 'leftcol': 0, 'col': 0, 'topfill': 0, 'topline': 1, 'coladd': 0, 'skipcol': 0, 'curswant': 0}, winsaveview()) 268 269 " clean up 270 set noincsearch 271 call test_override("char_avail", 0) 272 bw! 273endfunc 274 275func Test_use_sub_pat() 276 split 277 let @/ = '' 278 func X() 279 s/^/a/ 280 / 281 endfunc 282 call X() 283 bwipe! 284endfunc 285 286func Test_searchpair() 287 new 288 call setline(1, ['other code here', '', '[', '" cursor here', ']']) 289 4 290 let a = searchpair('\[','',']','bW') 291 call assert_equal(3, a) 292 set nomagic 293 4 294 let a = searchpair('\[','',']','bW') 295 call assert_equal(3, a) 296 set magic 297 q! 298endfunc 299 300func Test_searchpair_errors() 301 call assert_fails("call searchpair([0], 'middle', 'end', 'bW', 'skip', 99, 100)", 'E730: using List as a String') 302 call assert_fails("call searchpair('start', {-> 0}, 'end', 'bW', 'skip', 99, 100)", 'E729: using Funcref as a String') 303 call assert_fails("call searchpair('start', 'middle', {'one': 1}, 'bW', 'skip', 99, 100)", 'E731: using Dictionary as a String') 304 call assert_fails("call searchpair('start', 'middle', 'end', 'flags', 'skip', 99, 100)", 'E475: Invalid argument: flags') 305 call assert_fails("call searchpair('start', 'middle', 'end', 'bW', 0, 99, 100)", 'E475: Invalid argument: 0') 306 call assert_fails("call searchpair('start', 'middle', 'end', 'bW', 'func', -99, 100)", 'E475: Invalid argument: -99') 307 call assert_fails("call searchpair('start', 'middle', 'end', 'bW', 'func', 99, -100)", 'E475: Invalid argument: -100') 308endfunc 309 310func Test_searchpair_skip() 311 func Zero() 312 return 0 313 endfunc 314 func Partial(x) 315 return a:x 316 endfunc 317 new 318 call setline(1, ['{', 'foo', 'foo', 'foo', '}']) 319 3 | call assert_equal(1, searchpair('{', '', '}', 'bWn', '')) 320 3 | call assert_equal(1, searchpair('{', '', '}', 'bWn', '0')) 321 3 | call assert_equal(1, searchpair('{', '', '}', 'bWn', {-> 0})) 322 3 | call assert_equal(1, searchpair('{', '', '}', 'bWn', function('Zero'))) 323 3 | call assert_equal(1, searchpair('{', '', '}', 'bWn', function('Partial', [0]))) 324 bw! 325endfunc 326 327func Test_searchpair_leak() 328 new 329 call setline(1, 'if one else another endif') 330 331 " The error in the skip expression caused memory to leak. 332 call assert_fails("call searchpair('\\<if\\>', '\\<else\\>', '\\<endif\\>', '', '\"foo\" 2')", 'E15:') 333 334 bwipe! 335endfunc 336 337func Test_searchc() 338 " These commands used to cause memory overflow in searchc(). 339 new 340 norm ixx 341 exe "norm 0t\u93cf" 342 bw! 343endfunc 344 345func Cmdline3_prep() 346 " need to disable char_avail, 347 " so that expansion of commandline works 348 call test_override("char_avail", 1) 349 new 350 call setline(1, [' 1', ' 2 the~e', ' 3 the theother']) 351 set incsearch 352endfunc 353 354func Incsearch_cleanup() 355 set noincsearch 356 call test_override("char_avail", 0) 357 bw! 358endfunc 359 360func Test_search_cmdline3() 361 if !exists('+incsearch') 362 return 363 endif 364 call Cmdline3_prep() 365 1 366 " first match 367 call feedkeys("/the\<c-l>\<cr>", 'tx') 368 call assert_equal(' 2 the~e', getline('.')) 369 370 call Incsearch_cleanup() 371endfunc 372 373func Test_search_cmdline3s() 374 if !exists('+incsearch') 375 return 376 endif 377 call Cmdline3_prep() 378 1 379 call feedkeys(":%s/the\<c-l>/xxx\<cr>", 'tx') 380 call assert_equal(' 2 xxxe', getline('.')) 381 undo 382 call feedkeys(":%subs/the\<c-l>/xxx\<cr>", 'tx') 383 call assert_equal(' 2 xxxe', getline('.')) 384 undo 385 call feedkeys(":%substitute/the\<c-l>/xxx\<cr>", 'tx') 386 call assert_equal(' 2 xxxe', getline('.')) 387 undo 388 call feedkeys(":%smagic/the.e/xxx\<cr>", 'tx') 389 call assert_equal(' 2 xxx', getline('.')) 390 undo 391 call assert_fails(":%snomagic/the.e/xxx\<cr>", 'E486') 392 " 393 call feedkeys(":%snomagic/the\\.e/xxx\<cr>", 'tx') 394 call assert_equal(' 2 xxx', getline('.')) 395 396 call Incsearch_cleanup() 397endfunc 398 399func Test_search_cmdline3g() 400 if !exists('+incsearch') 401 return 402 endif 403 call Cmdline3_prep() 404 1 405 call feedkeys(":g/the\<c-l>/d\<cr>", 'tx') 406 call assert_equal(' 3 the theother', getline(2)) 407 undo 408 call feedkeys(":global/the\<c-l>/d\<cr>", 'tx') 409 call assert_equal(' 3 the theother', getline(2)) 410 undo 411 call feedkeys(":g!/the\<c-l>/d\<cr>", 'tx') 412 call assert_equal(1, line('$')) 413 call assert_equal(' 2 the~e', getline(1)) 414 undo 415 call feedkeys(":global!/the\<c-l>/d\<cr>", 'tx') 416 call assert_equal(1, line('$')) 417 call assert_equal(' 2 the~e', getline(1)) 418 419 call Incsearch_cleanup() 420endfunc 421 422func Test_search_cmdline3v() 423 if !exists('+incsearch') 424 return 425 endif 426 call Cmdline3_prep() 427 1 428 call feedkeys(":v/the\<c-l>/d\<cr>", 'tx') 429 call assert_equal(1, line('$')) 430 call assert_equal(' 2 the~e', getline(1)) 431 undo 432 call feedkeys(":vglobal/the\<c-l>/d\<cr>", 'tx') 433 call assert_equal(1, line('$')) 434 call assert_equal(' 2 the~e', getline(1)) 435 436 call Incsearch_cleanup() 437endfunc 438 439func Test_search_cmdline4() 440 if !exists('+incsearch') 441 return 442 endif 443 " need to disable char_avail, 444 " so that expansion of commandline works 445 call test_override("char_avail", 1) 446 new 447 call setline(1, [' 1 the first', ' 2 the second', ' 3 the third']) 448 set incsearch 449 $ 450 call feedkeys("?the\<c-g>\<cr>", 'tx') 451 call assert_equal(' 3 the third', getline('.')) 452 $ 453 call feedkeys("?the\<c-g>\<c-g>\<cr>", 'tx') 454 call assert_equal(' 1 the first', getline('.')) 455 $ 456 call feedkeys("?the\<c-g>\<c-g>\<c-g>\<cr>", 'tx') 457 call assert_equal(' 2 the second', getline('.')) 458 $ 459 call feedkeys("?the\<c-t>\<cr>", 'tx') 460 call assert_equal(' 1 the first', getline('.')) 461 $ 462 call feedkeys("?the\<c-t>\<c-t>\<cr>", 'tx') 463 call assert_equal(' 3 the third', getline('.')) 464 $ 465 call feedkeys("?the\<c-t>\<c-t>\<c-t>\<cr>", 'tx') 466 call assert_equal(' 2 the second', getline('.')) 467 " clean up 468 set noincsearch 469 call test_override("char_avail", 0) 470 bw! 471endfunc 472 473func Test_search_cmdline5() 474 if !exists('+incsearch') 475 return 476 endif 477 " Do not call test_override("char_avail", 1) so that <C-g> and <C-t> work 478 " regardless char_avail. 479 new 480 call setline(1, [' 1 the first', ' 2 the second', ' 3 the third']) 481 set incsearch 482 1 483 call feedkeys("/the\<c-g>\<c-g>\<cr>", 'tx') 484 call assert_equal(' 3 the third', getline('.')) 485 $ 486 call feedkeys("?the\<c-t>\<c-t>\<c-t>\<cr>", 'tx') 487 call assert_equal(' 2 the second', getline('.')) 488 " clean up 489 set noincsearch 490 bw! 491endfunc 492 493func Test_search_cmdline6() 494 " Test that consecutive matches 495 " are caught by <c-g>/<c-t> 496 if !exists('+incsearch') 497 return 498 endif 499 " need to disable char_avail, 500 " so that expansion of commandline works 501 call test_override("char_avail", 1) 502 new 503 call setline(1, [' bbvimb', '']) 504 set incsearch 505 " first match 506 norm! gg0 507 call feedkeys("/b\<cr>", 'tx') 508 call assert_equal([0,1,2,0], getpos('.')) 509 " second match 510 norm! gg0 511 call feedkeys("/b\<c-g>\<cr>", 'tx') 512 call assert_equal([0,1,3,0], getpos('.')) 513 " third match 514 norm! gg0 515 call feedkeys("/b\<c-g>\<c-g>\<cr>", 'tx') 516 call assert_equal([0,1,7,0], getpos('.')) 517 " first match again 518 norm! gg0 519 call feedkeys("/b\<c-g>\<c-g>\<c-g>\<cr>", 'tx') 520 call assert_equal([0,1,2,0], getpos('.')) 521 set nowrapscan 522 " last match 523 norm! gg0 524 call feedkeys("/b\<c-g>\<c-g>\<c-g>\<cr>", 'tx') 525 call assert_equal([0,1,7,0], getpos('.')) 526 " clean up 527 set wrapscan&vim 528 set noincsearch 529 call test_override("char_avail", 0) 530 bw! 531endfunc 532 533func Test_search_cmdline7() 534 " Test that an pressing <c-g> in an empty command line 535 " does not move the cursor 536 if !exists('+incsearch') 537 return 538 endif 539 " need to disable char_avail, 540 " so that expansion of commandline works 541 call test_override("char_avail", 1) 542 new 543 let @/ = 'b' 544 call setline(1, [' bbvimb', '']) 545 set incsearch 546 " first match 547 norm! gg0 548 " moves to next match of previous search pattern, just like /<cr> 549 call feedkeys("/\<c-g>\<cr>", 'tx') 550 call assert_equal([0,1,2,0], getpos('.')) 551 " moves to next match of previous search pattern, just like /<cr> 552 call feedkeys("/\<cr>", 'tx') 553 call assert_equal([0,1,3,0], getpos('.')) 554 " moves to next match of previous search pattern, just like /<cr> 555 call feedkeys("/\<c-t>\<cr>", 'tx') 556 call assert_equal([0,1,7,0], getpos('.')) 557 558 " using an offset uses the last search pattern 559 call cursor(1, 1) 560 call setline(1, ['1 bbvimb', ' 2 bbvimb']) 561 let @/ = 'b' 562 call feedkeys("//e\<c-g>\<cr>", 'tx') 563 call assert_equal('1 bbvimb', getline('.')) 564 call assert_equal(4, col('.')) 565 566 set noincsearch 567 call test_override("char_avail", 0) 568 bw! 569endfunc 570 571func Test_search_cmdline8() 572 " Highlighting is cleared in all windows 573 " since hls applies to all windows 574 if !exists('+incsearch') || !has('terminal') || has('gui_running') || winwidth(0) < 30 575 return 576 endif 577 if has("win32") 578 throw "Skipped: Bug with sending <ESC> to terminal window not fixed yet" 579 endif 580 let h = winheight(0) 581 if h < 3 582 return 583 endif 584 " Prepare buffer text 585 let lines = ['abb vim vim vi', 'vimvivim'] 586 call writefile(lines, 'Xsearch.txt') 587 let buf = term_start([GetVimProg(), '--clean', '-c', 'set noswapfile', 'Xsearch.txt'], {'term_rows': 3}) 588 589 call WaitForAssert({-> assert_equal(lines, [term_getline(buf, 1), term_getline(buf, 2)])}) 590 591 call term_sendkeys(buf, ":set incsearch hlsearch\<cr>") 592 call term_sendkeys(buf, ":14vsp\<cr>") 593 call term_sendkeys(buf, "/vim\<cr>") 594 call term_sendkeys(buf, "/b\<esc>") 595 call term_sendkeys(buf, "gg0") 596 call term_wait(buf, 500) 597 let screen_line = term_scrape(buf, 1) 598 let [a0,a1,a2,a3] = [screen_line[3].attr, screen_line[4].attr, 599 \ screen_line[18].attr, screen_line[19].attr] 600 call assert_notequal(a0, a1) 601 call assert_notequal(a0, a3) 602 call assert_notequal(a1, a2) 603 call assert_equal(a0, a2) 604 call assert_equal(a1, a3) 605 " clean up 606 call delete('Xsearch.txt') 607 608 bwipe! 609endfunc 610 611" Tests for regexp with various magic settings 612func Test_search_regexp() 613 enew! 614 615 put ='1 a aa abb abbccc' 616 exe 'normal! /a*b\{2}c\+/e' . "\<CR>" 617 call assert_equal([0, 2, 17, 0], getpos('.')) 618 619 put ='2 d dd dee deefff' 620 exe 'normal! /\Md\*e\{2}f\+/e' . "\<CR>" 621 call assert_equal([0, 3, 17, 0], getpos('.')) 622 623 set nomagic 624 put ='3 g gg ghh ghhiii' 625 exe 'normal! /g\*h\{2}i\+/e' . "\<CR>" 626 call assert_equal([0, 4, 17, 0], getpos('.')) 627 628 put ='4 j jj jkk jkklll' 629 exe 'normal! /\mj*k\{2}l\+/e' . "\<CR>" 630 call assert_equal([0, 5, 17, 0], getpos('.')) 631 632 put ='5 m mm mnn mnnooo' 633 exe 'normal! /\vm*n{2}o+/e' . "\<CR>" 634 call assert_equal([0, 6, 17, 0], getpos('.')) 635 636 put ='6 x ^aa$ x' 637 exe 'normal! /\V^aa$' . "\<CR>" 638 call assert_equal([0, 7, 5, 0], getpos('.')) 639 640 set magic 641 put ='7 (a)(b) abbaa' 642 exe 'normal! /\v(a)(b)\2\1\1/e' . "\<CR>" 643 call assert_equal([0, 8, 14, 0], getpos('.')) 644 645 put ='8 axx [ab]xx' 646 exe 'normal! /\V[ab]\(\[xy]\)\1' . "\<CR>" 647 call assert_equal([0, 9, 7, 0], getpos('.')) 648 649 set undolevels=100 650 put ='9 foobar' 651 put ='' 652 exe "normal! a\<C-G>u\<Esc>" 653 normal G 654 exe 'normal! dv?bar?' . "\<CR>" 655 call assert_equal('9 foo', getline('.')) 656 call assert_equal([0, 10, 5, 0], getpos('.')) 657 call assert_equal(10, line('$')) 658 normal u 659 call assert_equal('9 foobar', getline('.')) 660 call assert_equal([0, 10, 6, 0], getpos('.')) 661 call assert_equal(11, line('$')) 662 663 set undolevels& 664 enew! 665endfunc 666 667func Test_search_cmdline_incsearch_highlight() 668 if !exists('+incsearch') 669 return 670 endif 671 set incsearch hlsearch 672 " need to disable char_avail, 673 " so that expansion of commandline works 674 call test_override("char_avail", 1) 675 new 676 call setline(1, ['aaa 1 the first', ' 2 the second', ' 3 the third']) 677 678 1 679 call feedkeys("/second\<cr>", 'tx') 680 call assert_equal('second', @/) 681 call assert_equal(' 2 the second', getline('.')) 682 683 " Canceling search won't change @/ 684 1 685 let @/ = 'last pattern' 686 call feedkeys("/third\<C-c>", 'tx') 687 call assert_equal('last pattern', @/) 688 call feedkeys("/third\<Esc>", 'tx') 689 call assert_equal('last pattern', @/) 690 call feedkeys("/3\<bs>\<bs>", 'tx') 691 call assert_equal('last pattern', @/) 692 call feedkeys("/third\<c-g>\<c-t>\<Esc>", 'tx') 693 call assert_equal('last pattern', @/) 694 695 " clean up 696 set noincsearch nohlsearch 697 bw! 698endfunc 699 700func Test_search_cmdline_incsearch_highlight_attr() 701 if !exists('+incsearch') || !has('terminal') || has('gui_running') 702 return 703 endif 704 let h = winheight(0) 705 if h < 3 706 return 707 endif 708 709 " Prepare buffer text 710 let lines = ['abb vim vim vi', 'vimvivim'] 711 call writefile(lines, 'Xsearch.txt') 712 let buf = term_start([GetVimProg(), '--clean', '-c', 'set noswapfile', 'Xsearch.txt'], {'term_rows': 3}) 713 714 call WaitForAssert({-> assert_equal(lines, [term_getline(buf, 1), term_getline(buf, 2)])}) 715 " wait for vim to complete initialization 716 call term_wait(buf) 717 718 " Get attr of normal(a0), incsearch(a1), hlsearch(a2) highlight 719 call term_sendkeys(buf, ":set incsearch hlsearch\<cr>") 720 call term_sendkeys(buf, '/b') 721 call term_wait(buf, 200) 722 let screen_line1 = term_scrape(buf, 1) 723 call assert_true(len(screen_line1) > 2) 724 " a0: attr_normal 725 let a0 = screen_line1[0].attr 726 " a1: attr_incsearch 727 let a1 = screen_line1[1].attr 728 " a2: attr_hlsearch 729 let a2 = screen_line1[2].attr 730 call assert_notequal(a0, a1) 731 call assert_notequal(a0, a2) 732 call assert_notequal(a1, a2) 733 call term_sendkeys(buf, "\<cr>gg0") 734 735 " Test incremental highlight search 736 call term_sendkeys(buf, "/vim") 737 call term_wait(buf, 200) 738 " Buffer: 739 " abb vim vim vi 740 " vimvivim 741 " Search: /vim 742 let attr_line1 = [a0,a0,a0,a0,a1,a1,a1,a0,a2,a2,a2,a0,a0,a0] 743 let attr_line2 = [a2,a2,a2,a0,a0,a2,a2,a2] 744 call assert_equal(attr_line1, map(term_scrape(buf, 1)[:len(attr_line1)-1], 'v:val.attr')) 745 call assert_equal(attr_line2, map(term_scrape(buf, 2)[:len(attr_line2)-1], 'v:val.attr')) 746 747 " Test <C-g> 748 call term_sendkeys(buf, "\<C-g>\<C-g>") 749 call term_wait(buf, 200) 750 let attr_line1 = [a0,a0,a0,a0,a2,a2,a2,a0,a2,a2,a2,a0,a0,a0] 751 let attr_line2 = [a1,a1,a1,a0,a0,a2,a2,a2] 752 call assert_equal(attr_line1, map(term_scrape(buf, 1)[:len(attr_line1)-1], 'v:val.attr')) 753 call assert_equal(attr_line2, map(term_scrape(buf, 2)[:len(attr_line2)-1], 'v:val.attr')) 754 755 " Test <C-t> 756 call term_sendkeys(buf, "\<C-t>") 757 call term_wait(buf, 200) 758 let attr_line1 = [a0,a0,a0,a0,a2,a2,a2,a0,a1,a1,a1,a0,a0,a0] 759 let attr_line2 = [a2,a2,a2,a0,a0,a2,a2,a2] 760 call assert_equal(attr_line1, map(term_scrape(buf, 1)[:len(attr_line1)-1], 'v:val.attr')) 761 call assert_equal(attr_line2, map(term_scrape(buf, 2)[:len(attr_line2)-1], 'v:val.attr')) 762 763 " Type Enter and a1(incsearch highlight) should become a2(hlsearch highlight) 764 call term_sendkeys(buf, "\<cr>") 765 call term_wait(buf, 200) 766 let attr_line1 = [a0,a0,a0,a0,a2,a2,a2,a0,a2,a2,a2,a0,a0,a0] 767 let attr_line2 = [a2,a2,a2,a0,a0,a2,a2,a2] 768 call assert_equal(attr_line1, map(term_scrape(buf, 1)[:len(attr_line1)-1], 'v:val.attr')) 769 call assert_equal(attr_line2, map(term_scrape(buf, 2)[:len(attr_line2)-1], 'v:val.attr')) 770 771 " Test nohlsearch. a2(hlsearch highlight) should become a0(normal highlight) 772 call term_sendkeys(buf, ":1\<cr>") 773 call term_sendkeys(buf, ":set nohlsearch\<cr>") 774 call term_sendkeys(buf, "/vim") 775 call term_wait(buf, 200) 776 let attr_line1 = [a0,a0,a0,a0,a1,a1,a1,a0,a0,a0,a0,a0,a0,a0] 777 let attr_line2 = [a0,a0,a0,a0,a0,a0,a0,a0] 778 call assert_equal(attr_line1, map(term_scrape(buf, 1)[:len(attr_line1)-1], 'v:val.attr')) 779 call assert_equal(attr_line2, map(term_scrape(buf, 2)[:len(attr_line2)-1], 'v:val.attr')) 780 call delete('Xsearch.txt') 781 782 call delete('Xsearch.txt') 783 bwipe! 784endfunc 785 786func Test_incsearch_cmdline_modifier() 787 if !exists('+incsearch') 788 return 789 endif 790 call test_override("char_avail", 1) 791 new 792 call setline(1, ['foo']) 793 set incsearch 794 " Test that error E14 does not occur in parsing command modifier. 795 call feedkeys("V:tab", 'tx') 796 797 call Incsearch_cleanup() 798endfunc 799 800func Test_incsearch_scrolling() 801 if !CanRunVimInTerminal() 802 return 803 endif 804 call assert_equal(0, &scrolloff) 805 call writefile([ 806 \ 'let dots = repeat(".", 120)', 807 \ 'set incsearch cmdheight=2 scrolloff=0', 808 \ 'call setline(1, [dots, dots, dots, "", "target", dots, dots])', 809 \ 'normal gg', 810 \ 'redraw', 811 \ ], 'Xscript') 812 let buf = RunVimInTerminal('-S Xscript', {'rows': 9, 'cols': 70}) 813 " Need to send one key at a time to force a redraw 814 call term_sendkeys(buf, '/') 815 sleep 100m 816 call term_sendkeys(buf, 't') 817 sleep 100m 818 call term_sendkeys(buf, 'a') 819 sleep 100m 820 call term_sendkeys(buf, 'r') 821 sleep 100m 822 call term_sendkeys(buf, 'g') 823 call VerifyScreenDump(buf, 'Test_incsearch_scrolling_01', {}) 824 825 call term_sendkeys(buf, "\<Esc>") 826 call StopVimInTerminal(buf) 827 call delete('Xscript') 828endfunc 829 830func Test_incsearch_search_dump() 831 if !exists('+incsearch') 832 return 833 endif 834 if !CanRunVimInTerminal() 835 return 836 endif 837 call writefile([ 838 \ 'set incsearch hlsearch scrolloff=0', 839 \ 'for n in range(1, 8)', 840 \ ' call setline(n, "foo " . n)', 841 \ 'endfor', 842 \ '3', 843 \ ], 'Xis_search_script') 844 let buf = RunVimInTerminal('-S Xis_search_script', {'rows': 9, 'cols': 70}) 845 " Give Vim a chance to redraw to get rid of the spaces in line 2 caused by 846 " the 'ambiwidth' check. 847 sleep 100m 848 849 " Need to send one key at a time to force a redraw. 850 call term_sendkeys(buf, '/fo') 851 call VerifyScreenDump(buf, 'Test_incsearch_search_01', {}) 852 call term_sendkeys(buf, "\<Esc>") 853 sleep 100m 854 855 call term_sendkeys(buf, '/\v') 856 call VerifyScreenDump(buf, 'Test_incsearch_search_02', {}) 857 call term_sendkeys(buf, "\<Esc>") 858 859 call StopVimInTerminal(buf) 860 call delete('Xis_search_script') 861endfunc 862 863func Test_incsearch_substitute() 864 if !exists('+incsearch') 865 return 866 endif 867 call test_override("char_avail", 1) 868 new 869 set incsearch 870 for n in range(1, 10) 871 call setline(n, 'foo ' . n) 872 endfor 873 4 874 call feedkeys(":.,.+2s/foo\<BS>o\<BS>o/xxx\<cr>", 'tx') 875 call assert_equal('foo 3', getline(3)) 876 call assert_equal('xxx 4', getline(4)) 877 call assert_equal('xxx 5', getline(5)) 878 call assert_equal('xxx 6', getline(6)) 879 call assert_equal('foo 7', getline(7)) 880 881 call Incsearch_cleanup() 882endfunc 883 884" Similar to Test_incsearch_substitute() but with a screendump halfway. 885func Test_incsearch_substitute_dump() 886 if !exists('+incsearch') 887 return 888 endif 889 if !CanRunVimInTerminal() 890 return 891 endif 892 call writefile([ 893 \ 'set incsearch hlsearch scrolloff=0', 894 \ 'for n in range(1, 10)', 895 \ ' call setline(n, "foo " . n)', 896 \ 'endfor', 897 \ 'call setline(11, "bar 11")', 898 \ '3', 899 \ ], 'Xis_subst_script') 900 let buf = RunVimInTerminal('-S Xis_subst_script', {'rows': 9, 'cols': 70}) 901 " Give Vim a chance to redraw to get rid of the spaces in line 2 caused by 902 " the 'ambiwidth' check. 903 sleep 100m 904 905 " Need to send one key at a time to force a redraw. 906 " Select three lines at the cursor with typed pattern. 907 call term_sendkeys(buf, ':.,.+2s/') 908 sleep 100m 909 call term_sendkeys(buf, 'f') 910 sleep 100m 911 call term_sendkeys(buf, 'o') 912 sleep 100m 913 call term_sendkeys(buf, 'o') 914 call VerifyScreenDump(buf, 'Test_incsearch_substitute_01', {}) 915 call term_sendkeys(buf, "\<Esc>") 916 917 " Select three lines at the cursor using previous pattern. 918 call term_sendkeys(buf, "/foo\<CR>") 919 sleep 100m 920 call term_sendkeys(buf, ':.,.+2s//') 921 call VerifyScreenDump(buf, 'Test_incsearch_substitute_02', {}) 922 923 " Deleting last slash should remove the match. 924 call term_sendkeys(buf, "\<BS>") 925 call VerifyScreenDump(buf, 'Test_incsearch_substitute_03', {}) 926 call term_sendkeys(buf, "\<Esc>") 927 928 " Reverse range is accepted 929 call term_sendkeys(buf, ':5,2s/foo') 930 call VerifyScreenDump(buf, 'Test_incsearch_substitute_04', {}) 931 call term_sendkeys(buf, "\<Esc>") 932 933 " White space after the command is skipped 934 call term_sendkeys(buf, ':2,3sub /fo') 935 call VerifyScreenDump(buf, 'Test_incsearch_substitute_05', {}) 936 call term_sendkeys(buf, "\<Esc>") 937 938 " Command modifiers are skipped 939 call term_sendkeys(buf, ':above below browse botr confirm keepmar keepalt keeppat keepjum filter xxx hide lockm leftabove noau noswap rightbel sandbox silent silent! $tab top unsil vert verbose 4,5s/fo.') 940 call VerifyScreenDump(buf, 'Test_incsearch_substitute_06', {}) 941 call term_sendkeys(buf, "\<Esc>") 942 943 " Cursorline highlighting at match 944 call term_sendkeys(buf, ":set cursorline\<CR>") 945 call term_sendkeys(buf, 'G9G') 946 call term_sendkeys(buf, ':9,11s/bar') 947 call VerifyScreenDump(buf, 'Test_incsearch_substitute_07', {}) 948 call term_sendkeys(buf, "\<Esc>") 949 950 " Cursorline highlighting at cursor when no match 951 call term_sendkeys(buf, ':9,10s/bar') 952 call VerifyScreenDump(buf, 'Test_incsearch_substitute_08', {}) 953 call term_sendkeys(buf, "\<Esc>") 954 955 " Only \v handled as empty pattern, does not move cursor 956 call term_sendkeys(buf, '3G4G') 957 call term_sendkeys(buf, ":nohlsearch\<CR>") 958 call term_sendkeys(buf, ':6,7s/\v') 959 call VerifyScreenDump(buf, 'Test_incsearch_substitute_09', {}) 960 call term_sendkeys(buf, "\<Esc>") 961 962 call term_sendkeys(buf, ":set nocursorline\<CR>") 963 964 " All matches are highlighted for 'hlsearch' after the incsearch canceled 965 call term_sendkeys(buf, "1G*") 966 call term_sendkeys(buf, ":2,5s/foo") 967 sleep 100m 968 call term_sendkeys(buf, "\<Esc>") 969 call VerifyScreenDump(buf, 'Test_incsearch_substitute_10', {}) 970 971 call term_sendkeys(buf, ":split\<CR>") 972 call term_sendkeys(buf, ":let @/ = 'xyz'\<CR>") 973 call term_sendkeys(buf, ":%s/.") 974 call VerifyScreenDump(buf, 'Test_incsearch_substitute_11', {}) 975 call term_sendkeys(buf, "\<BS>") 976 call VerifyScreenDump(buf, 'Test_incsearch_substitute_12', {}) 977 call term_sendkeys(buf, "\<Esc>") 978 call VerifyScreenDump(buf, 'Test_incsearch_substitute_13', {}) 979 980 call StopVimInTerminal(buf) 981 call delete('Xis_subst_script') 982endfunc 983 984func Test_incsearch_with_change() 985 if !has('timers') || !exists('+incsearch') || !CanRunVimInTerminal() 986 return 987 endif 988 989 call writefile([ 990 \ 'set incsearch hlsearch scrolloff=0', 991 \ 'call setline(1, ["one", "two ------ X", "three"])', 992 \ 'call timer_start(200, { _ -> setline(2, "x")})', 993 \ ], 'Xis_change_script') 994 let buf = RunVimInTerminal('-S Xis_change_script', {'rows': 9, 'cols': 70}) 995 " Give Vim a chance to redraw to get rid of the spaces in line 2 caused by 996 " the 'ambiwidth' check. 997 sleep 300m 998 999 " Highlight X, it will be deleted by the timer callback. 1000 call term_sendkeys(buf, ':%s/X') 1001 call VerifyScreenDump(buf, 'Test_incsearch_change_01', {}) 1002 call term_sendkeys(buf, "\<Esc>") 1003 1004 call StopVimInTerminal(buf) 1005 call delete('Xis_change_script') 1006endfunc 1007 1008" Similar to Test_incsearch_substitute_dump() for :sort 1009func Test_incsearch_sort_dump() 1010 if !exists('+incsearch') 1011 return 1012 endif 1013 if !CanRunVimInTerminal() 1014 return 1015 endif 1016 call writefile([ 1017 \ 'set incsearch hlsearch scrolloff=0', 1018 \ 'call setline(1, ["another one 2", "that one 3", "the one 1"])', 1019 \ ], 'Xis_sort_script') 1020 let buf = RunVimInTerminal('-S Xis_sort_script', {'rows': 9, 'cols': 70}) 1021 " Give Vim a chance to redraw to get rid of the spaces in line 2 caused by 1022 " the 'ambiwidth' check. 1023 sleep 100m 1024 1025 " Need to send one key at a time to force a redraw. 1026 call term_sendkeys(buf, ':sort ni u /on') 1027 call VerifyScreenDump(buf, 'Test_incsearch_sort_01', {}) 1028 call term_sendkeys(buf, "\<Esc>") 1029 1030 call StopVimInTerminal(buf) 1031 call delete('Xis_sort_script') 1032endfunc 1033 1034" Similar to Test_incsearch_substitute_dump() for :vimgrep famiry 1035func Test_incsearch_vimgrep_dump() 1036 if !exists('+incsearch') 1037 return 1038 endif 1039 if !CanRunVimInTerminal() 1040 return 1041 endif 1042 call writefile([ 1043 \ 'set incsearch hlsearch scrolloff=0', 1044 \ 'call setline(1, ["another one 2", "that one 3", "the one 1"])', 1045 \ ], 'Xis_vimgrep_script') 1046 let buf = RunVimInTerminal('-S Xis_vimgrep_script', {'rows': 9, 'cols': 70}) 1047 " Give Vim a chance to redraw to get rid of the spaces in line 2 caused by 1048 " the 'ambiwidth' check. 1049 sleep 100m 1050 1051 " Need to send one key at a time to force a redraw. 1052 call term_sendkeys(buf, ':vimgrep on') 1053 call VerifyScreenDump(buf, 'Test_incsearch_vimgrep_01', {}) 1054 call term_sendkeys(buf, "\<Esc>") 1055 1056 call term_sendkeys(buf, ':vimg /on/ *.txt') 1057 call VerifyScreenDump(buf, 'Test_incsearch_vimgrep_02', {}) 1058 call term_sendkeys(buf, "\<Esc>") 1059 1060 call term_sendkeys(buf, ':vimgrepadd "\<on') 1061 call VerifyScreenDump(buf, 'Test_incsearch_vimgrep_03', {}) 1062 call term_sendkeys(buf, "\<Esc>") 1063 1064 call term_sendkeys(buf, ':lv "tha') 1065 call VerifyScreenDump(buf, 'Test_incsearch_vimgrep_04', {}) 1066 call term_sendkeys(buf, "\<Esc>") 1067 1068 call term_sendkeys(buf, ':lvimgrepa "the" **/*.txt') 1069 call VerifyScreenDump(buf, 'Test_incsearch_vimgrep_05', {}) 1070 call term_sendkeys(buf, "\<Esc>") 1071 1072 call StopVimInTerminal(buf) 1073 call delete('Xis_vimgrep_script') 1074endfunc 1075 1076func Test_keep_last_search_pattern() 1077 if !exists('+incsearch') 1078 return 1079 endif 1080 new 1081 call setline(1, ['foo', 'foo', 'foo']) 1082 set incsearch 1083 call test_override("char_avail", 1) 1084 let @/ = 'bar' 1085 call feedkeys(":/foo/s//\<Esc>", 'ntx') 1086 call assert_equal('bar', @/) 1087 1088 " no error message if pattern not found 1089 call feedkeys(":/xyz/s//\<Esc>", 'ntx') 1090 call assert_equal('bar', @/) 1091 1092 bwipe! 1093 call test_override("ALL", 0) 1094 set noincsearch 1095endfunc 1096 1097func Test_word_under_cursor_after_match() 1098 if !exists('+incsearch') 1099 return 1100 endif 1101 new 1102 call setline(1, 'foo bar') 1103 set incsearch 1104 call test_override("char_avail", 1) 1105 try 1106 call feedkeys("/foo\<C-R>\<C-W>\<CR>", 'ntx') 1107 catch /E486:/ 1108 endtry 1109 call assert_equal('foobar', @/) 1110 1111 bwipe! 1112 call test_override("ALL", 0) 1113 set noincsearch 1114endfunc 1115 1116func Test_subst_word_under_cursor() 1117 if !exists('+incsearch') 1118 return 1119 endif 1120 new 1121 call setline(1, ['int SomeLongName;', 'for (xxx = 1; xxx < len; ++xxx)']) 1122 set incsearch 1123 call test_override("char_avail", 1) 1124 call feedkeys("/LongName\<CR>", 'ntx') 1125 call feedkeys(":%s/xxx/\<C-R>\<C-W>/g\<CR>", 'ntx') 1126 call assert_equal('for (SomeLongName = 1; SomeLongName < len; ++SomeLongName)', getline(2)) 1127 1128 bwipe! 1129 call test_override("ALL", 0) 1130 set noincsearch 1131endfunc 1132 1133func Test_search_undefined_behaviour() 1134 if !has("terminal") 1135 return 1136 endif 1137 let h = winheight(0) 1138 if h < 3 1139 return 1140 endif 1141 " did cause an undefined left shift 1142 let g:buf = term_start([GetVimProg(), '--clean', '-e', '-s', '-c', 'call search(getline("."))', 'samples/test000'], {'term_rows': 3}) 1143 call assert_equal([''], getline(1, '$')) 1144 call term_sendkeys(g:buf, ":qa!\<cr>") 1145 bwipe! 1146endfunc 1147 1148func Test_search_undefined_behaviour2() 1149 call search("\%UC0000000") 1150endfunc 1151 1152" Test for search('multi-byte char', 'bce') 1153func Test_search_multibyte() 1154 let save_enc = &encoding 1155 set encoding=utf8 1156 enew! 1157 call append('$', 'Ａ') 1158 call cursor(2, 1) 1159 call assert_equal(2, search('Ａ', 'bce', line('.'))) 1160 enew! 1161 let &encoding = save_enc 1162endfunc 1163 1164" This was causing E874. Also causes an invalid read? 1165func Test_look_behind() 1166 new 1167 call setline(1, '0\|\&\n\@<=') 1168 call search(getline(".")) 1169 bwipe! 1170endfunc 1171 1172func Test_search_sentence() 1173 new 1174 " this used to cause a crash 1175 call assert_fails("/\\%')", 'E486') 1176 call assert_fails("/", 'E486') 1177 /\%'( 1178 / 1179endfunc 1180 1181" Test that there is no crash when there is a last search pattern but no last 1182" substitute pattern. 1183func Test_no_last_substitute_pat() 1184 " Use viminfo to set the last search pattern to a string and make the last 1185 " substitute pattern the most recent used and make it empty (NULL). 1186 call writefile(['~MSle0/bar', '~MSle0~&'], 'Xviminfo') 1187 rviminfo! Xviminfo 1188 call assert_fails('normal n', 'E35:') 1189 1190 call delete('Xviminfo') 1191endfunc 1192 1193func Test_search_Ctrl_L_combining() 1194 " Make sure, that Ctrl-L works correctly with combining characters. 1195 " It uses an artificial example of an 'a' with 4 combining chars: 1196 " 'a' U+0061 Dec:97 LATIN SMALL LETTER A a /\%u61\Z "\u0061" 1197 " ' ̀' U+0300 Dec:768 COMBINING GRAVE ACCENT ̀ /\%u300\Z "\u0300" 1198 " ' ́' U+0301 Dec:769 COMBINING ACUTE ACCENT ́ /\%u301\Z "\u0301" 1199 " ' ̇' U+0307 Dec:775 COMBINING DOT ABOVE ̇ /\%u307\Z "\u0307" 1200 " ' ̣' U+0323 Dec:803 COMBINING DOT BELOW ̣ /\%u323 "\u0323" 1201 " Those should also appear on the commandline 1202 if !exists('+incsearch') 1203 return 1204 endif 1205 call Cmdline3_prep() 1206 1 1207 let bufcontent = ['', 'Miạ̀́̇m'] 1208 call append('$', bufcontent) 1209 call feedkeys("/Mi\<c-l>\<c-l>\<cr>", 'tx') 1210 call assert_equal(5, line('.')) 1211 call assert_equal(bufcontent[1], @/) 1212 call Incsearch_cleanup() 1213endfunc 1214 1215func Test_large_hex_chars1() 1216 " This used to cause a crash, the character becomes an NFA state. 1217 try 1218 /\%Ufffffc23 1219 catch 1220 call assert_match('E678:', v:exception) 1221 endtry 1222 try 1223 set re=1 1224 /\%Ufffffc23 1225 catch 1226 call assert_match('E678:', v:exception) 1227 endtry 1228 set re& 1229endfunc 1230 1231func Test_large_hex_chars2() 1232 " This used to cause a crash, the character becomes an NFA state. 1233 try 1234 /[\Ufffffc1f] 1235 catch 1236 call assert_match('E486:', v:exception) 1237 endtry 1238 try 1239 set re=1 1240 /[\Ufffffc1f] 1241 catch 1242 call assert_match('E486:', v:exception) 1243 endtry 1244 set re& 1245endfunc 1246 1247func Test_one_error_msg() 1248 " This was also giving an internal error 1249 call assert_fails('call search(" \\((\\v[[=P=]]){185}+ ")', 'E871:') 1250endfunc 1251