xref: /vim-8.2.3635/src/testdir/test_normal.vim (revision 01a6c216) 
1" Test for various Normal mode commands
2
3func Setup_NewWindow()
4  10new
5  call setline(1, range(1,100))
6endfunc
7
8func MyFormatExpr()
9  " Adds '->$' at lines having numbers followed by trailing whitespace
10  for ln in range(v:lnum, v:lnum+v:count-1)
11    let line = getline(ln)
12    if getline(ln) =~# '\d\s\+$'
13      call setline(ln, substitute(line, '\s\+$', '', '') . '->$')
14    endif
15  endfor
16endfunc
17
18func CountSpaces(type, ...)
19  " for testing operatorfunc
20  " will count the number of spaces
21  " and return the result in g:a
22  let sel_save = &selection
23  let &selection = "inclusive"
24  let reg_save = @@
25
26  if a:0  " Invoked from Visual mode, use gv command.
27    silent exe "normal! gvy"
28  elseif a:type == 'line'
29    silent exe "normal! '[V']y"
30  else
31    silent exe "normal! `[v`]y"
32  endif
33  let g:a=strlen(substitute(@@, '[^ ]', '', 'g'))
34  let &selection = sel_save
35  let @@ = reg_save
36endfunc
37
38func OpfuncDummy(type, ...)
39  " for testing operatorfunc
40  let g:opt=&linebreak
41
42  if a:0  " Invoked from Visual mode, use gv command.
43    silent exe "normal! gvy"
44  elseif a:type == 'line'
45    silent exe "normal! '[V']y"
46  else
47    silent exe "normal! `[v`]y"
48  endif
49  " Create a new dummy window
50  new
51  let g:bufnr=bufnr('%')
52endfunc
53
54fun! Test_normal00_optrans()
55  new
56  call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line'])
57  1
58  exe "norm! Sfoobar\<esc>"
59  call assert_equal(['foobar', '2 This is the second line', '3 this is the third line', ''], getline(1,'$'))
60  2
61  exe "norm! $vbsone"
62  call assert_equal(['foobar', '2 This is the second one', '3 this is the third line', ''], getline(1,'$'))
63  norm! VS Second line here
64  call assert_equal(['foobar', ' Second line here', '3 this is the third line', ''], getline(1, '$'))
65  %d
66  call append(0, ['4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line'])
67  call append(0, ['1 This is a simple test: abcd', '2 This is the second line', '3 this is the third line'])
68
69  1
70  norm! 2D
71  call assert_equal(['3 this is the third line', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$'))
72  set cpo+=#
73  norm! 4D
74  call assert_equal(['', '4 This is a simple test: abcd', '5 This is the second line', '6 this is the third line', ''], getline(1,'$'))
75
76  " clean up
77  set cpo-=#
78  bw!
79endfunc
80
81func Test_normal01_keymodel()
82  call Setup_NewWindow()
83  " Test 1: depending on 'keymodel' <s-down> does something different
84  50
85  call feedkeys("V\<S-Up>y", 'tx')
86  call assert_equal(['47', '48', '49', '50'], getline("'<", "'>"))
87  set keymodel=startsel
88  50
89  call feedkeys("V\<S-Up>y", 'tx')
90  call assert_equal(['49', '50'], getline("'<", "'>"))
91  " Start visual mode when keymodel = startsel
92  50
93  call feedkeys("\<S-Up>y", 'tx')
94  call assert_equal(['49', '5'], getreg(0, 0, 1))
95  " Do not start visual mode when keymodel=
96  set keymodel=
97  50
98  call feedkeys("\<S-Up>y$", 'tx')
99  call assert_equal(['42'], getreg(0, 0, 1))
100  " Stop visual mode when keymodel=stopsel
101  set keymodel=stopsel
102  50
103  call feedkeys("Vkk\<Up>yy", 'tx')
104  call assert_equal(['47'], getreg(0, 0, 1))
105
106  set keymodel=
107  50
108  call feedkeys("Vkk\<Up>yy", 'tx')
109  call assert_equal(['47', '48', '49', '50'], getreg(0, 0, 1))
110
111  " clean up
112  bw!
113endfunc
114
115func Test_normal02_selectmode()
116  " some basic select mode tests
117  call Setup_NewWindow()
118  50
119  norm! gHy
120  call assert_equal('y51', getline('.'))
121  call setline(1, range(1,100))
122  50
123  exe ":norm! V9jo\<c-g>y"
124  call assert_equal('y60', getline('.'))
125  " clean up
126  bw!
127endfunc
128
129func Test_normal02_selectmode2()
130  " some basic select mode tests
131  call Setup_NewWindow()
132  50
133  call feedkeys(":set im\n\<c-o>gHc\<c-o>:set noim\n", 'tx')
134  call assert_equal('c51', getline('.'))
135  " clean up
136  bw!
137endfunc
138
139func Test_normal03_join()
140  " basic join test
141  call Setup_NewWindow()
142  50
143  norm! VJ
144  call assert_equal('50 51', getline('.'))
145  $
146  norm! J
147  call assert_equal('100', getline('.'))
148  $
149  norm! V9-gJ
150  call assert_equal('919293949596979899100', getline('.'))
151  call setline(1, range(1,100))
152  $
153  :j 10
154  call assert_equal('100', getline('.'))
155  " clean up
156  bw!
157endfunc
158
159func Test_normal04_filter()
160  " basic filter test
161  " only test on non windows platform
162  if has('win32')
163    return
164  endif
165  call Setup_NewWindow()
166  1
167  call feedkeys("!!sed -e 's/^/|    /'\n", 'tx')
168  call assert_equal('|    1', getline('.'))
169  90
170  :sil :!echo one
171  call feedkeys('.', 'tx')
172  call assert_equal('|    90', getline('.'))
173  95
174  set cpo+=!
175  " 2 <CR>, 1: for executing the command,
176  "         2: clear hit-enter-prompt
177  call feedkeys("!!\n", 'tx')
178  call feedkeys(":!echo one\n\n", 'tx')
179  call feedkeys(".", 'tx')
180  call assert_equal('one', getline('.'))
181  set cpo-=!
182  bw!
183endfunc
184
185func Test_normal05_formatexpr()
186  " basic formatexpr test
187  call Setup_NewWindow()
188  %d_
189  call setline(1, ['here: 1   ', '2', 'here: 3   ', '4', 'not here:   '])
190  1
191  set formatexpr=MyFormatExpr()
192  norm! gqG
193  call assert_equal(['here: 1->$', '2', 'here: 3->$', '4', 'not here:   '], getline(1,'$'))
194  set formatexpr=
195  bw!
196endfunc
197
198func Test_normal05_formatexpr_newbuf()
199  " Edit another buffer in the 'formatexpr' function
200  new
201  func! Format()
202    edit another
203  endfunc
204  set formatexpr=Format()
205  norm gqG
206  bw!
207  set formatexpr=
208endfunc
209
210func Test_normal05_formatexpr_setopt()
211  " Change the 'formatexpr' value in the function
212  new
213  func! Format()
214    set formatexpr=
215  endfunc
216  set formatexpr=Format()
217  norm gqG
218  bw!
219  set formatexpr=
220endfunc
221
222func Test_normal06_formatprg()
223  " basic test for formatprg
224  " only test on non windows platform
225  if has('win32')
226    return
227  endif
228
229  " uses sed to number non-empty lines
230  call writefile(['#!/bin/sh', 'sed ''/./=''|sed ''/./{', 'N', 's/\n/    /', '}'''], 'Xsed_format.sh')
231  call system('chmod +x ./Xsed_format.sh')
232  let text = ['a', '', 'c', '', ' ', 'd', 'e']
233  let expected = ['1    a', '', '3    c', '', '5     ', '6    d', '7    e']
234
235  10new
236  call setline(1, text)
237  set formatprg=./Xsed_format.sh
238  norm! gggqG
239  call assert_equal(expected, getline(1, '$'))
240  bw!
241
242  10new
243  call setline(1, text)
244  set formatprg=donothing
245  setlocal formatprg=./Xsed_format.sh
246  norm! gggqG
247  call assert_equal(expected, getline(1, '$'))
248  bw!
249
250  " clean up
251  set formatprg=
252  setlocal formatprg=
253  call delete('Xsed_format.sh')
254endfunc
255
256func Test_normal07_internalfmt()
257  " basic test for internal formmatter to textwidth of 12
258  let list=range(1,11)
259  call map(list, 'v:val."    "')
260  10new
261  call setline(1, list)
262  set tw=12
263  norm! gggqG
264  call assert_equal(['1    2    3', '4    5    6', '7    8    9', '10    11    '], getline(1, '$'))
265  " clean up
266  set tw=0
267  bw!
268endfunc
269
270func Test_normal08_fold()
271  " basic tests for foldopen/folddelete
272  if !has("folding")
273    return
274  endif
275  call Setup_NewWindow()
276  50
277  setl foldenable fdm=marker
278  " First fold
279  norm! V4jzf
280  " check that folds have been created
281  call assert_equal(['50/*{{{*/', '51', '52', '53', '54/*}}}*/'], getline(50,54))
282  " Second fold
283  46
284  norm! V10jzf
285  " check that folds have been created
286  call assert_equal('46/*{{{*/', getline(46))
287  call assert_equal('60/*}}}*/', getline(60))
288  norm! k
289  call assert_equal('45', getline('.'))
290  norm! j
291  call assert_equal('46/*{{{*/', getline('.'))
292  norm! j
293  call assert_equal('61', getline('.'))
294  norm! k
295  " open a fold
296  norm! Vzo
297  norm! k
298  call assert_equal('45', getline('.'))
299  norm! j
300  call assert_equal('46/*{{{*/', getline('.'))
301  norm! j
302  call assert_equal('47', getline('.'))
303  norm! k
304  norm! zcVzO
305  call assert_equal('46/*{{{*/', getline('.'))
306  norm! j
307  call assert_equal('47', getline('.'))
308  norm! j
309  call assert_equal('48', getline('.'))
310  norm! j
311  call assert_equal('49', getline('.'))
312  norm! j
313  call assert_equal('50/*{{{*/', getline('.'))
314  norm! j
315  call assert_equal('51', getline('.'))
316  " delete folds
317  :46
318  " collapse fold
319  norm! V14jzC
320  " delete all folds recursively
321  norm! VzD
322  call assert_equal(['46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60'], getline(46,60))
323
324  " clean up
325  setl nofoldenable fdm=marker
326  bw!
327endfunc
328
329func Test_normal09_operatorfunc()
330  " Test operatorfunc
331  call Setup_NewWindow()
332  " Add some spaces for counting
333  50,60s/$/  /
334  unlet! g:a
335  let g:a=0
336  nmap <buffer><silent> ,, :set opfunc=CountSpaces<CR>g@
337  vmap <buffer><silent> ,, :<C-U>call CountSpaces(visualmode(), 1)<CR>
338  50
339  norm V2j,,
340  call assert_equal(6, g:a)
341  norm V,,
342  call assert_equal(2, g:a)
343  norm ,,l
344  call assert_equal(0, g:a)
345  50
346  exe "norm 0\<c-v>10j2l,,"
347  call assert_equal(11, g:a)
348  50
349  norm V10j,,
350  call assert_equal(22, g:a)
351
352  " clean up
353  unmap <buffer> ,,
354  set opfunc=
355  unlet! g:a
356  bw!
357endfunc
358
359func Test_normal09a_operatorfunc()
360  " Test operatorfunc
361  call Setup_NewWindow()
362  " Add some spaces for counting
363  50,60s/$/  /
364  unlet! g:opt
365  set linebreak
366  nmap <buffer><silent> ,, :set opfunc=OpfuncDummy<CR>g@
367  50
368  norm ,,j
369  exe "bd!" g:bufnr
370  call assert_true(&linebreak)
371  call assert_equal(g:opt, &linebreak)
372  set nolinebreak
373  norm ,,j
374  exe "bd!" g:bufnr
375  call assert_false(&linebreak)
376  call assert_equal(g:opt, &linebreak)
377
378  " clean up
379  unmap <buffer> ,,
380  set opfunc=
381  bw!
382  unlet! g:opt
383endfunc
384
385func Test_normal10_expand()
386  " Test for expand()
387  10new
388  call setline(1, ['1', 'ifooar,,cbar'])
389  2
390  norm! $
391  call assert_equal('cbar', expand('<cword>'))
392  call assert_equal('ifooar,,cbar', expand('<cWORD>'))
393
394  call setline(1, ['prx = list[idx];'])
395  1
396  let expected = ['', 'prx', 'prx', 'prx',
397	\ 'list', 'list', 'list', 'list', 'list', 'list', 'list',
398	\ 'idx', 'idx', 'idx', 'idx',
399	\ 'list[idx]',
400	\ '];',
401	\ ]
402  for i in range(1, 16)
403    exe 'norm ' . i . '|'
404    call assert_equal(expected[i], expand('<cexpr>'), 'i == ' . i)
405  endfor
406
407  if executable('echo')
408    " Test expand(`...`) i.e. backticks command expansion.
409    " MS-Windows has a trailing space.
410    call assert_match('^abcde *$', expand('`echo abcde`'))
411  endif
412
413  " Test expand(`=...`) i.e. backticks expression expansion
414  call assert_equal('5', expand('`=2+3`'))
415
416  " clean up
417  bw!
418endfunc
419
420func Test_normal11_showcmd()
421  " test for 'showcmd'
422  10new
423  exe "norm! ofoobar\<esc>"
424  call assert_equal(2, line('$'))
425  set showcmd
426  exe "norm! ofoobar2\<esc>"
427  call assert_equal(3, line('$'))
428  exe "norm! VAfoobar3\<esc>"
429  call assert_equal(3, line('$'))
430  exe "norm! 0d3\<del>2l"
431  call assert_equal('obar2foobar3', getline('.'))
432  bw!
433endfunc
434
435func Test_normal12_nv_error()
436  " Test for nv_error
437  10new
438  call setline(1, range(1,5))
439  " should not do anything, just beep
440  exe "norm! <c-k>"
441  call assert_equal(map(range(1,5), 'string(v:val)'), getline(1,'$'))
442  bw!
443endfunc
444
445func Test_normal13_help()
446  " Test for F1
447  call assert_equal(1, winnr())
448  call feedkeys("\<f1>", 'txi')
449  call assert_match('help\.txt', bufname('%'))
450  call assert_equal(2, winnr('$'))
451  bw!
452endfunc
453
454func Test_normal14_page()
455  " basic test for Ctrl-F and Ctrl-B
456  call Setup_NewWindow()
457  exe "norm! \<c-f>"
458  call assert_equal('9', getline('.'))
459  exe "norm! 2\<c-f>"
460  call assert_equal('25', getline('.'))
461  exe "norm! 2\<c-b>"
462  call assert_equal('18', getline('.'))
463  1
464  set scrolloff=5
465  exe "norm! 2\<c-f>"
466  call assert_equal('21', getline('.'))
467  exe "norm! \<c-b>"
468  call assert_equal('13', getline('.'))
469  1
470  set scrolloff=99
471  exe "norm! \<c-f>"
472  call assert_equal('13', getline('.'))
473  set scrolloff=0
474  100
475  exe "norm! $\<c-b>"
476  call assert_equal('92', getline('.'))
477  call assert_equal([0, 92, 1, 0, 1], getcurpos())
478  100
479  set nostartofline
480  exe "norm! $\<c-b>"
481  call assert_equal('92', getline('.'))
482  call assert_equal([0, 92, 2, 0, 2147483647], getcurpos())
483  " cleanup
484  set startofline
485  bw!
486endfunc
487
488func Test_normal14_page_eol()
489  10new
490  norm oxxxxxxx
491  exe "norm 2\<c-f>"
492  " check with valgrind that cursor is put back in column 1
493  exe "norm 2\<c-b>"
494  bw!
495endfunc
496
497func Test_normal15_z_scroll_vert()
498  " basic test for z commands that scroll the window
499  call Setup_NewWindow()
500  100
501  norm! >>
502  " Test for z<cr>
503  exe "norm! z\<cr>"
504  call assert_equal('	100', getline('.'))
505  call assert_equal(100, winsaveview()['topline'])
506  call assert_equal([0, 100, 2, 0, 9], getcurpos())
507
508  " Test for zt
509  21
510  norm! >>0zt
511  call assert_equal('	21', getline('.'))
512  call assert_equal(21, winsaveview()['topline'])
513  call assert_equal([0, 21, 1, 0, 8], getcurpos())
514
515  " Test for zb
516  30
517  norm! >>$ztzb
518  call assert_equal('	30', getline('.'))
519  call assert_equal(30, winsaveview()['topline']+winheight(0)-1)
520  call assert_equal([0, 30, 3, 0, 2147483647], getcurpos())
521
522  " Test for z-
523  1
524  30
525  norm! 0z-
526  call assert_equal('	30', getline('.'))
527  call assert_equal(30, winsaveview()['topline']+winheight(0)-1)
528  call assert_equal([0, 30, 2, 0, 9], getcurpos())
529
530  " Test for z{height}<cr>
531  call assert_equal(10, winheight(0))
532  exe "norm! z12\<cr>"
533  call assert_equal(12, winheight(0))
534  exe "norm! z10\<cr>"
535  call assert_equal(10, winheight(0))
536
537  " Test for z.
538  1
539  21
540  norm! 0z.
541  call assert_equal('	21', getline('.'))
542  call assert_equal(17, winsaveview()['topline'])
543  call assert_equal([0, 21, 2, 0, 9], getcurpos())
544
545  " Test for zz
546  1
547  21
548  norm! 0zz
549  call assert_equal('	21', getline('.'))
550  call assert_equal(17, winsaveview()['topline'])
551  call assert_equal([0, 21, 1, 0, 8], getcurpos())
552
553  " Test for z+
554  11
555  norm! zt
556  norm! z+
557  call assert_equal('	21', getline('.'))
558  call assert_equal(21, winsaveview()['topline'])
559  call assert_equal([0, 21, 2, 0, 9], getcurpos())
560
561  " Test for [count]z+
562  1
563  norm! 21z+
564  call assert_equal('	21', getline('.'))
565  call assert_equal(21, winsaveview()['topline'])
566  call assert_equal([0, 21, 2, 0, 9], getcurpos())
567
568  " Test for z^
569  norm! 22z+0
570  norm! z^
571  call assert_equal('	21', getline('.'))
572  call assert_equal(12, winsaveview()['topline'])
573  call assert_equal([0, 21, 2, 0, 9], getcurpos())
574
575  " Test for [count]z^
576  1
577  norm! 30z^
578  call assert_equal('	21', getline('.'))
579  call assert_equal(12, winsaveview()['topline'])
580  call assert_equal([0, 21, 2, 0, 9], getcurpos())
581
582  " cleanup
583  bw!
584endfunc
585
586func Test_normal16_z_scroll_hor()
587  " basic test for z commands that scroll the window
588  10new
589  15vsp
590  set nowrap listchars=
591  let lineA='abcdefghijklmnopqrstuvwxyz'
592  let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
593  $put =lineA
594  $put =lineB
595  1d
596
597  " Test for zl
598  1
599  norm! 5zl
600  call assert_equal(lineA, getline('.'))
601  call assert_equal(6, col('.'))
602  call assert_equal(5, winsaveview()['leftcol'])
603  norm! yl
604  call assert_equal('f', @0)
605
606  " Test for zh
607  norm! 2zh
608  call assert_equal(lineA, getline('.'))
609  call assert_equal(6, col('.'))
610  norm! yl
611  call assert_equal('f', @0)
612  call assert_equal(3, winsaveview()['leftcol'])
613
614  " Test for zL
615  norm! zL
616  call assert_equal(11, col('.'))
617  norm! yl
618  call assert_equal('k', @0)
619  call assert_equal(10, winsaveview()['leftcol'])
620  norm! 2zL
621  call assert_equal(25, col('.'))
622  norm! yl
623  call assert_equal('y', @0)
624  call assert_equal(24, winsaveview()['leftcol'])
625
626  " Test for zH
627  norm! 2zH
628  call assert_equal(25, col('.'))
629  call assert_equal(10, winsaveview()['leftcol'])
630  norm! yl
631  call assert_equal('y', @0)
632
633  " Test for zs
634  norm! $zs
635  call assert_equal(26, col('.'))
636  call assert_equal(25, winsaveview()['leftcol'])
637  norm! yl
638  call assert_equal('z', @0)
639
640  " Test for ze
641  norm! ze
642  call assert_equal(26, col('.'))
643  call assert_equal(11, winsaveview()['leftcol'])
644  norm! yl
645  call assert_equal('z', @0)
646
647  " cleanup
648  set wrap listchars=eol:$
649  bw!
650endfunc
651
652func Test_normal17_z_scroll_hor2()
653  " basic test for z commands that scroll the window
654  " using 'sidescrolloff' setting
655  10new
656  20vsp
657  set nowrap listchars= sidescrolloff=5
658  let lineA='abcdefghijklmnopqrstuvwxyz'
659  let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
660  $put =lineA
661  $put =lineB
662  1d
663
664  " Test for zl
665  1
666  norm! 5zl
667  call assert_equal(lineA, getline('.'))
668  call assert_equal(11, col('.'))
669  call assert_equal(5, winsaveview()['leftcol'])
670  norm! yl
671  call assert_equal('k', @0)
672
673  " Test for zh
674  norm! 2zh
675  call assert_equal(lineA, getline('.'))
676  call assert_equal(11, col('.'))
677  norm! yl
678  call assert_equal('k', @0)
679  call assert_equal(3, winsaveview()['leftcol'])
680
681  " Test for zL
682  norm! 0zL
683  call assert_equal(16, col('.'))
684  norm! yl
685  call assert_equal('p', @0)
686  call assert_equal(10, winsaveview()['leftcol'])
687  norm! 2zL
688  call assert_equal(26, col('.'))
689  norm! yl
690  call assert_equal('z', @0)
691  call assert_equal(15, winsaveview()['leftcol'])
692
693  " Test for zH
694  norm! 2zH
695  call assert_equal(15, col('.'))
696  call assert_equal(0, winsaveview()['leftcol'])
697  norm! yl
698  call assert_equal('o', @0)
699
700  " Test for zs
701  norm! $zs
702  call assert_equal(26, col('.'))
703  call assert_equal(20, winsaveview()['leftcol'])
704  norm! yl
705  call assert_equal('z', @0)
706
707  " Test for ze
708  norm! ze
709  call assert_equal(26, col('.'))
710  call assert_equal(11, winsaveview()['leftcol'])
711  norm! yl
712  call assert_equal('z', @0)
713
714  " cleanup
715  set wrap listchars=eol:$ sidescrolloff=0
716  bw!
717endfunc
718
719func Test_normal18_z_fold()
720  " basic tests for foldopen/folddelete
721  if !has("folding")
722    return
723  endif
724  call Setup_NewWindow()
725  50
726  setl foldenable fdm=marker foldlevel=5
727
728  " Test for zF
729  " First fold
730  norm! 4zF
731  " check that folds have been created
732  call assert_equal(['50/*{{{*/', '51', '52', '53/*}}}*/'], getline(50,53))
733
734  " Test for zd
735  51
736  norm! 2zF
737  call assert_equal(2, foldlevel('.'))
738  norm! kzd
739  call assert_equal(['50', '51/*{{{*/', '52/*}}}*/', '53'], getline(50,53))
740  norm! j
741  call assert_equal(1, foldlevel('.'))
742
743  " Test for zD
744  " also deletes partially selected folds recursively
745  51
746  norm! zF
747  call assert_equal(2, foldlevel('.'))
748  norm! kV2jzD
749  call assert_equal(['50', '51', '52', '53'], getline(50,53))
750
751  " Test for zE
752  85
753  norm! 4zF
754  86
755  norm! 2zF
756  90
757  norm! 4zF
758  call assert_equal(['85/*{{{*/', '86/*{{{*/', '87/*}}}*/', '88/*}}}*/', '89', '90/*{{{*/', '91', '92', '93/*}}}*/'], getline(85,93))
759  norm! zE
760  call assert_equal(['85', '86', '87', '88', '89', '90', '91', '92', '93'], getline(85,93))
761
762  " Test for zn
763  50
764  set foldlevel=0
765  norm! 2zF
766  norm! zn
767  norm! k
768  call assert_equal('49', getline('.'))
769  norm! j
770  call assert_equal('50/*{{{*/', getline('.'))
771  norm! j
772  call assert_equal('51/*}}}*/', getline('.'))
773  norm! j
774  call assert_equal('52', getline('.'))
775  call assert_equal(0, &foldenable)
776
777  " Test for zN
778  49
779  norm! zN
780  call assert_equal('49', getline('.'))
781  norm! j
782  call assert_equal('50/*{{{*/', getline('.'))
783  norm! j
784  call assert_equal('52', getline('.'))
785  call assert_equal(1, &foldenable)
786
787  " Test for zi
788  norm! zi
789  call assert_equal(0, &foldenable)
790  norm! zi
791  call assert_equal(1, &foldenable)
792  norm! zi
793  call assert_equal(0, &foldenable)
794  norm! zi
795  call assert_equal(1, &foldenable)
796
797  " Test for za
798  50
799  norm! za
800  norm! k
801  call assert_equal('49', getline('.'))
802  norm! j
803  call assert_equal('50/*{{{*/', getline('.'))
804  norm! j
805  call assert_equal('51/*}}}*/', getline('.'))
806  norm! j
807  call assert_equal('52', getline('.'))
808  50
809  norm! za
810  norm! k
811  call assert_equal('49', getline('.'))
812  norm! j
813  call assert_equal('50/*{{{*/', getline('.'))
814  norm! j
815  call assert_equal('52', getline('.'))
816
817  49
818  norm! 5zF
819  norm! k
820  call assert_equal('48', getline('.'))
821  norm! j
822  call assert_equal('49/*{{{*/', getline('.'))
823  norm! j
824  call assert_equal('55', getline('.'))
825  49
826  norm! za
827  call assert_equal('49/*{{{*/', getline('.'))
828  norm! j
829  call assert_equal('50/*{{{*/', getline('.'))
830  norm! j
831  call assert_equal('52', getline('.'))
832  set nofoldenable
833  " close fold and set foldenable
834  norm! za
835  call assert_equal(1, &foldenable)
836
837  50
838  " have to use {count}za to open all folds and make the cursor visible
839  norm! 2za
840  norm! 2k
841  call assert_equal('48', getline('.'))
842  norm! j
843  call assert_equal('49/*{{{*/', getline('.'))
844  norm! j
845  call assert_equal('50/*{{{*/', getline('.'))
846  norm! j
847  call assert_equal('51/*}}}*/', getline('.'))
848  norm! j
849  call assert_equal('52', getline('.'))
850
851  " Test for zA
852  49
853  set foldlevel=0
854  50
855  norm! zA
856  norm! 2k
857  call assert_equal('48', getline('.'))
858  norm! j
859  call assert_equal('49/*{{{*/', getline('.'))
860  norm! j
861  call assert_equal('50/*{{{*/', getline('.'))
862  norm! j
863  call assert_equal('51/*}}}*/', getline('.'))
864  norm! j
865  call assert_equal('52', getline('.'))
866
867  " zA on a opened fold when foldenable is not set
868  50
869  set nofoldenable
870  norm! zA
871  call assert_equal(1, &foldenable)
872  norm! k
873  call assert_equal('48', getline('.'))
874  norm! j
875  call assert_equal('49/*{{{*/', getline('.'))
876  norm! j
877  call assert_equal('55', getline('.'))
878
879  " Test for zc
880  norm! zE
881  50
882  norm! 2zF
883  49
884  norm! 5zF
885  set nofoldenable
886  50
887  " There most likely is a bug somewhere:
888  " https://groups.google.com/d/msg/vim_dev/v2EkfJ_KQjI/u-Cvv94uCAAJ
889  " TODO: Should this only close the inner most fold or both folds?
890  norm! zc
891  call assert_equal(1, &foldenable)
892  norm! k
893  call assert_equal('48', getline('.'))
894  norm! j
895  call assert_equal('49/*{{{*/', getline('.'))
896  norm! j
897  call assert_equal('55', getline('.'))
898  set nofoldenable
899  50
900  norm! Vjzc
901  norm! k
902  call assert_equal('48', getline('.'))
903  norm! j
904  call assert_equal('49/*{{{*/', getline('.'))
905  norm! j
906  call assert_equal('55', getline('.'))
907
908  " Test for zC
909  set nofoldenable
910  50
911  norm! zCk
912  call assert_equal('48', getline('.'))
913  norm! j
914  call assert_equal('49/*{{{*/', getline('.'))
915  norm! j
916  call assert_equal('55', getline('.'))
917
918  " Test for zx
919  " 1) close folds at line 49-54
920  set nofoldenable
921  48
922  norm! zx
923  call assert_equal(1, &foldenable)
924  norm! j
925  call assert_equal('49/*{{{*/', getline('.'))
926  norm! j
927  call assert_equal('55', getline('.'))
928
929  " 2) do not close fold under cursor
930  51
931  set nofoldenable
932  norm! zx
933  call assert_equal(1, &foldenable)
934  norm! 3k
935  call assert_equal('48', getline('.'))
936  norm! j
937  call assert_equal('49/*{{{*/', getline('.'))
938  norm! j
939  call assert_equal('50/*{{{*/', getline('.'))
940  norm! j
941  call assert_equal('51/*}}}*/', getline('.'))
942  norm! j
943  call assert_equal('52', getline('.'))
944  norm! j
945  call assert_equal('53', getline('.'))
946  norm! j
947  call assert_equal('54/*}}}*/', getline('.'))
948  norm! j
949  call assert_equal('55', getline('.'))
950
951  " 3) close one level of folds
952  48
953  set nofoldenable
954  set foldlevel=1
955  norm! zx
956  call assert_equal(1, &foldenable)
957  call assert_equal('48', getline('.'))
958  norm! j
959  call assert_equal('49/*{{{*/', getline('.'))
960  norm! j
961  call assert_equal('50/*{{{*/', getline('.'))
962  norm! j
963  call assert_equal('52', getline('.'))
964  norm! j
965  call assert_equal('53', getline('.'))
966  norm! j
967  call assert_equal('54/*}}}*/', getline('.'))
968  norm! j
969  call assert_equal('55', getline('.'))
970
971  " Test for zX
972  " Close all folds
973  set foldlevel=0 nofoldenable
974  50
975  norm! zX
976  call assert_equal(1, &foldenable)
977  norm! k
978  call assert_equal('48', getline('.'))
979  norm! j
980  call assert_equal('49/*{{{*/', getline('.'))
981  norm! j
982  call assert_equal('55', getline('.'))
983
984  " Test for zm
985  50
986  set nofoldenable foldlevel=2
987  norm! zm
988  call assert_equal(1, &foldenable)
989  call assert_equal(1, &foldlevel)
990  norm! zm
991  call assert_equal(0, &foldlevel)
992  norm! zm
993  call assert_equal(0, &foldlevel)
994  norm! k
995  call assert_equal('48', getline('.'))
996  norm! j
997  call assert_equal('49/*{{{*/', getline('.'))
998  norm! j
999  call assert_equal('55', getline('.'))
1000
1001  " Test for zM
1002  48
1003  set nofoldenable foldlevel=99
1004  norm! zM
1005  call assert_equal(1, &foldenable)
1006  call assert_equal(0, &foldlevel)
1007  call assert_equal('48', getline('.'))
1008  norm! j
1009  call assert_equal('49/*{{{*/', getline('.'))
1010  norm! j
1011  call assert_equal('55', getline('.'))
1012
1013  " Test for zr
1014  48
1015  set nofoldenable foldlevel=0
1016  norm! zr
1017  call assert_equal(0, &foldenable)
1018  call assert_equal(1, &foldlevel)
1019  set foldlevel=0 foldenable
1020  norm! zr
1021  call assert_equal(1, &foldenable)
1022  call assert_equal(1, &foldlevel)
1023  norm! zr
1024  call assert_equal(2, &foldlevel)
1025  call assert_equal('48', getline('.'))
1026  norm! j
1027  call assert_equal('49/*{{{*/', getline('.'))
1028  norm! j
1029  call assert_equal('50/*{{{*/', getline('.'))
1030  norm! j
1031  call assert_equal('51/*}}}*/', getline('.'))
1032  norm! j
1033  call assert_equal('52', getline('.'))
1034
1035  " Test for zR
1036  48
1037  set nofoldenable foldlevel=0
1038  norm! zR
1039  call assert_equal(0, &foldenable)
1040  call assert_equal(2, &foldlevel)
1041  set foldenable foldlevel=0
1042  norm! zR
1043  call assert_equal(1, &foldenable)
1044  call assert_equal(2, &foldlevel)
1045  call assert_equal('48', getline('.'))
1046  norm! j
1047  call assert_equal('49/*{{{*/', getline('.'))
1048  norm! j
1049  call assert_equal('50/*{{{*/', getline('.'))
1050  norm! j
1051  call assert_equal('51/*}}}*/', getline('.'))
1052  norm! j
1053  call assert_equal('52', getline('.'))
1054  call append(50, ['a /*{{{*/', 'b /*}}}*/'])
1055  48
1056  call assert_equal('48', getline('.'))
1057  norm! j
1058  call assert_equal('49/*{{{*/', getline('.'))
1059  norm! j
1060  call assert_equal('50/*{{{*/', getline('.'))
1061  norm! j
1062  call assert_equal('a /*{{{*/', getline('.'))
1063  norm! j
1064  call assert_equal('51/*}}}*/', getline('.'))
1065  norm! j
1066  call assert_equal('52', getline('.'))
1067  48
1068  norm! zR
1069  call assert_equal(1, &foldenable)
1070  call assert_equal(3, &foldlevel)
1071  call assert_equal('48', getline('.'))
1072  norm! j
1073  call assert_equal('49/*{{{*/', getline('.'))
1074  norm! j
1075  call assert_equal('50/*{{{*/', getline('.'))
1076  norm! j
1077  call assert_equal('a /*{{{*/', getline('.'))
1078  norm! j
1079  call assert_equal('b /*}}}*/', getline('.'))
1080  norm! j
1081  call assert_equal('51/*}}}*/', getline('.'))
1082  norm! j
1083  call assert_equal('52', getline('.'))
1084
1085  " clean up
1086  setl nofoldenable fdm=marker foldlevel=0
1087  bw!
1088endfunc
1089
1090func Test_normal19_z_spell()
1091  if !has("spell") || !has('syntax')
1092    return
1093  endif
1094  new
1095  call append(0, ['1 good', '2 goood', '3 goood'])
1096  set spell spellfile=./Xspellfile.add spelllang=en
1097  let oldlang=v:lang
1098  lang C
1099
1100  " Test for zg
1101  1
1102  norm! ]s
1103  call assert_equal('2 goood', getline('.'))
1104  norm! zg
1105  1
1106  let a=execute('unsilent :norm! ]s')
1107  call assert_equal('1 good', getline('.'))
1108  call assert_equal('search hit BOTTOM, continuing at TOP', a[1:])
1109  let cnt=readfile('./Xspellfile.add')
1110  call assert_equal('goood', cnt[0])
1111
1112  " Test for zw
1113  2
1114  norm! $zw
1115  1
1116  norm! ]s
1117  call assert_equal('2 goood', getline('.'))
1118  let cnt=readfile('./Xspellfile.add')
1119  call assert_equal('#oood', cnt[0])
1120  call assert_equal('goood/!', cnt[1])
1121
1122  " Test for zg in visual mode
1123  let a=execute('unsilent :norm! V$zg')
1124  call assert_equal("Word '2 goood' added to ./Xspellfile.add", a[1:])
1125  1
1126  norm! ]s
1127  call assert_equal('3 goood', getline('.'))
1128  let cnt=readfile('./Xspellfile.add')
1129  call assert_equal('2 goood', cnt[2])
1130  " Remove "2 good" from spellfile
1131  2
1132  let a=execute('unsilent norm! V$zw')
1133  call assert_equal("Word '2 goood' added to ./Xspellfile.add", a[1:])
1134  let cnt=readfile('./Xspellfile.add')
1135  call assert_equal('2 goood/!', cnt[3])
1136
1137  " Test for zG
1138  let a=execute('unsilent norm! V$zG')
1139  call assert_match("Word '2 goood' added to .*", a)
1140  let fname=matchstr(a, 'to\s\+\zs\f\+$')
1141  let cnt=readfile(fname)
1142  call assert_equal('2 goood', cnt[0])
1143
1144  " Test for zW
1145  let a=execute('unsilent norm! V$zW')
1146  call assert_match("Word '2 goood' added to .*", a)
1147  let cnt=readfile(fname)
1148  call assert_equal('# goood', cnt[0])
1149  call assert_equal('2 goood/!', cnt[1])
1150
1151  " Test for zuW
1152  let a=execute('unsilent norm! V$zuW')
1153  call assert_match("Word '2 goood' removed from .*", a)
1154  let cnt=readfile(fname)
1155  call assert_equal('# goood', cnt[0])
1156  call assert_equal('# goood/!', cnt[1])
1157
1158  " Test for zuG
1159  let a=execute('unsilent norm! $zG')
1160  call assert_match("Word 'goood' added to .*", a)
1161  let cnt=readfile(fname)
1162  call assert_equal('# goood', cnt[0])
1163  call assert_equal('# goood/!', cnt[1])
1164  call assert_equal('goood', cnt[2])
1165  let a=execute('unsilent norm! $zuG')
1166  let cnt=readfile(fname)
1167  call assert_match("Word 'goood' removed from .*", a)
1168  call assert_equal('# goood', cnt[0])
1169  call assert_equal('# goood/!', cnt[1])
1170  call assert_equal('#oood', cnt[2])
1171  " word not found in wordlist
1172  let a=execute('unsilent norm! V$zuG')
1173  let cnt=readfile(fname)
1174  call assert_match("", a)
1175  call assert_equal('# goood', cnt[0])
1176  call assert_equal('# goood/!', cnt[1])
1177  call assert_equal('#oood', cnt[2])
1178
1179  " Test for zug
1180  call delete('./Xspellfile.add')
1181  2
1182  let a=execute('unsilent norm! $zg')
1183  let cnt=readfile('./Xspellfile.add')
1184  call assert_equal('goood', cnt[0])
1185  let a=execute('unsilent norm! $zug')
1186  call assert_match("Word 'goood' removed from \./Xspellfile.add", a)
1187  let cnt=readfile('./Xspellfile.add')
1188  call assert_equal('#oood', cnt[0])
1189  " word not in wordlist
1190  let a=execute('unsilent norm! V$zug')
1191  call assert_match('', a)
1192  let cnt=readfile('./Xspellfile.add')
1193  call assert_equal('#oood', cnt[0])
1194
1195  " Test for zuw
1196  call delete('./Xspellfile.add')
1197  2
1198  let a=execute('unsilent norm! Vzw')
1199  let cnt=readfile('./Xspellfile.add')
1200  call assert_equal('2 goood/!', cnt[0])
1201  let a=execute('unsilent norm! Vzuw')
1202  call assert_match("Word '2 goood' removed from \./Xspellfile.add", a)
1203  let cnt=readfile('./Xspellfile.add')
1204  call assert_equal('# goood/!', cnt[0])
1205  " word not in wordlist
1206  let a=execute('unsilent norm! $zug')
1207  call assert_match('', a)
1208  let cnt=readfile('./Xspellfile.add')
1209  call assert_equal('# goood/!', cnt[0])
1210
1211  " add second entry to spellfile setting
1212  set spellfile=./Xspellfile.add,./Xspellfile2.add
1213  call delete('./Xspellfile.add')
1214  2
1215  let a=execute('unsilent norm! $2zg')
1216  let cnt=readfile('./Xspellfile2.add')
1217  call assert_match("Word 'goood' added to ./Xspellfile2.add", a)
1218  call assert_equal('goood', cnt[0])
1219
1220  " Test for :spellgood!
1221  let temp = execute(':spe!0/0')
1222  call assert_match('Invalid region', temp)
1223  let spellfile = matchstr(temp, 'Invalid region nr in \zs.*\ze line \d: 0')
1224  call assert_equal(['# goood', '# goood/!', '#oood', '0/0'], readfile(spellfile))
1225  call delete(spellfile)
1226
1227  " clean up
1228  exe "lang" oldlang
1229  call delete("./Xspellfile.add")
1230  call delete("./Xspellfile2.add")
1231  call delete("./Xspellfile.add.spl")
1232  call delete("./Xspellfile2.add.spl")
1233
1234  " zux -> no-op
1235  2
1236  norm! $zux
1237  call assert_equal([], glob('Xspellfile.add',0,1))
1238  call assert_equal([], glob('Xspellfile2.add',0,1))
1239
1240  set spellfile=
1241  bw!
1242endfunc
1243
1244func Test_normal20_exmode()
1245  if !has("unix")
1246    " Reading from redirected file doesn't work on MS-Windows
1247    return
1248  endif
1249  call writefile(['1a', 'foo', 'bar', '.', 'w! Xfile2', 'q!'], 'Xscript')
1250  call writefile(['1', '2'], 'Xfile')
1251  call system(v:progpath .' -e -s < Xscript Xfile')
1252  let a=readfile('Xfile2')
1253  call assert_equal(['1', 'foo', 'bar', '2'], a)
1254
1255  " clean up
1256  for file in ['Xfile', 'Xfile2', 'Xscript']
1257    call delete(file)
1258  endfor
1259  bw!
1260endfunc
1261
1262func Test_normal21_nv_hat()
1263
1264  " Edit a fresh file and wipe the buffer list so that there is no alternate
1265  " file present.  Next, check for the expected command failures.
1266  edit Xfoo | %bw
1267  call assert_fails(':buffer #', 'E86')
1268  call assert_fails(':execute "normal! \<C-^>"', 'E23')
1269
1270  " Test for the expected behavior when switching between two named buffers.
1271  edit Xfoo | edit Xbar
1272  call feedkeys("\<C-^>", 'tx')
1273  call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
1274  call feedkeys("\<C-^>", 'tx')
1275  call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
1276
1277  " Test for the expected behavior when only one buffer is named.
1278  enew | let l:nr = bufnr('%')
1279  call feedkeys("\<C-^>", 'tx')
1280  call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
1281  call feedkeys("\<C-^>", 'tx')
1282  call assert_equal('', bufname('%'))
1283  call assert_equal(l:nr, bufnr('%'))
1284
1285  " Test that no action is taken by "<C-^>" when an operator is pending.
1286  edit Xfoo
1287  call feedkeys("ci\<C-^>", 'tx')
1288  call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
1289
1290  %bw!
1291endfunc
1292
1293func Test_normal22_zet()
1294  " Test for ZZ
1295  " let shell = &shell
1296  " let &shell = 'sh'
1297  call writefile(['1', '2'], 'Xfile')
1298  let args = ' -u NONE -N -U NONE -i NONE --noplugins -X --not-a-term'
1299  call system(v:progpath . args . ' -c "%d" -c ":norm! ZZ" Xfile')
1300  let a = readfile('Xfile')
1301  call assert_equal([], a)
1302  " Test for ZQ
1303  call writefile(['1', '2'], 'Xfile')
1304  call system(v:progpath . args . ' -c "%d" -c ":norm! ZQ" Xfile')
1305  let a = readfile('Xfile')
1306  call assert_equal(['1', '2'], a)
1307
1308  " clean up
1309  for file in ['Xfile']
1310    call delete(file)
1311  endfor
1312  " let &shell = shell
1313endfunc
1314
1315func Test_normal23_K()
1316  " Test for K command
1317  new
1318  call append(0, ['version8.txt', 'man', 'aa%bb', 'cc|dd'])
1319  let k = &keywordprg
1320  set keywordprg=:help
1321  1
1322  norm! VK
1323  call assert_equal('version8.txt', fnamemodify(bufname('%'), ':t'))
1324  call assert_equal('help', &ft)
1325  call assert_match('\*version8.txt\*', getline('.'))
1326  helpclose
1327  norm! 0K
1328  call assert_equal('version8.txt', fnamemodify(bufname('%'), ':t'))
1329  call assert_equal('help', &ft)
1330  call assert_match('\*version8\.\d\*', getline('.'))
1331  helpclose
1332
1333  set keywordprg=:new
1334  set iskeyword+=%
1335  set iskeyword+=\|
1336  2
1337  norm! K
1338  call assert_equal('man', fnamemodify(bufname('%'), ':t'))
1339  bwipe!
1340  3
1341  norm! K
1342  call assert_equal('aa%bb', fnamemodify(bufname('%'), ':t'))
1343  bwipe!
1344  if !has('win32')
1345    4
1346    norm! K
1347    call assert_equal('cc|dd', fnamemodify(bufname('%'), ':t'))
1348    bwipe!
1349  endif
1350  set iskeyword-=%
1351  set iskeyword-=\|
1352
1353  " Only expect "man" to work on Unix
1354  if !has("unix")
1355    let &keywordprg = k
1356    bw!
1357    return
1358  endif
1359  set keywordprg=man\ --pager=cat
1360  " Test for using man
1361  2
1362  let a = execute('unsilent norm! K')
1363  call assert_match("man --pager=cat 'man'", a)
1364
1365  " clean up
1366  let &keywordprg = k
1367  bw!
1368endfunc
1369
1370func Test_normal24_rot13()
1371  " Testing for g?? g?g?
1372  new
1373  call append(0, 'abcdefghijklmnopqrstuvwxyzäüö')
1374  1
1375  norm! g??
1376  call assert_equal('nopqrstuvwxyzabcdefghijklmäüö', getline('.'))
1377  norm! g?g?
1378  call assert_equal('abcdefghijklmnopqrstuvwxyzäüö', getline('.'))
1379
1380  " clean up
1381  bw!
1382endfunc
1383
1384func Test_normal25_tag()
1385  " Testing for CTRL-] g CTRL-] g]
1386  " CTRL-W g] CTRL-W CTRL-] CTRL-W g CTRL-]
1387  h
1388  " Test for CTRL-]
1389  call search('\<x\>$')
1390  exe "norm! \<c-]>"
1391  call assert_equal("change.txt", fnamemodify(bufname('%'), ':t'))
1392  norm! yiW
1393  call assert_equal("*x*", @0)
1394  exe ":norm \<c-o>"
1395
1396  " Test for g_CTRL-]
1397  call search('\<v_u\>$')
1398  exe "norm! g\<c-]>"
1399  call assert_equal("change.txt", fnamemodify(bufname('%'), ':t'))
1400  norm! yiW
1401  call assert_equal("*v_u*", @0)
1402  exe ":norm \<c-o>"
1403
1404  " Test for g]
1405  call search('\<i_<Esc>$')
1406  let a = execute(":norm! g]")
1407  call assert_match('i_<Esc>.*insert.txt', a)
1408
1409  if !empty(exepath('cscope')) && has('cscope')
1410    " setting cscopetag changes how g] works
1411    set cst
1412    exe "norm! g]"
1413    call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
1414    norm! yiW
1415    call assert_equal("*i_<Esc>*", @0)
1416    exe ":norm \<c-o>"
1417    " Test for CTRL-W g]
1418    exe "norm! \<C-W>g]"
1419    call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
1420    norm! yiW
1421    call assert_equal("*i_<Esc>*", @0)
1422    call assert_equal(3, winnr('$'))
1423    helpclose
1424    set nocst
1425  endif
1426
1427  " Test for CTRL-W g]
1428  let a = execute("norm! \<C-W>g]")
1429  call assert_match('i_<Esc>.*insert.txt', a)
1430
1431  " Test for CTRL-W CTRL-]
1432  exe "norm! \<C-W>\<C-]>"
1433  call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
1434  norm! yiW
1435  call assert_equal("*i_<Esc>*", @0)
1436  call assert_equal(3, winnr('$'))
1437  helpclose
1438
1439  " Test for CTRL-W g CTRL-]
1440  exe "norm! \<C-W>g\<C-]>"
1441  call assert_equal("insert.txt", fnamemodify(bufname('%'), ':t'))
1442  norm! yiW
1443  call assert_equal("*i_<Esc>*", @0)
1444  call assert_equal(3, winnr('$'))
1445  helpclose
1446
1447  " clean up
1448  helpclose
1449endfunc
1450
1451func Test_normal26_put()
1452  " Test for ]p ]P [p and [P
1453  new
1454  call append(0, ['while read LINE', 'do', '  ((count++))', '  if [ $? -ne 0 ]; then', "    echo 'Error writing file'", '  fi', 'done'])
1455  1
1456  /Error/y a
1457  2
1458  norm! "a]pj"a[p
1459  call assert_equal(['do', "echo 'Error writing file'", "  echo 'Error writing file'", '  ((count++))'], getline(2,5))
1460  1
1461  /^\s\{4}/
1462  exe "norm!  \"a]P3Eldt'"
1463  exe "norm! j\"a[P2Eldt'"
1464  call assert_equal(['  if [ $? -ne 0 ]; then', "    echo 'Error writing'", "    echo 'Error'", "    echo 'Error writing file'", '  fi'], getline(6,10))
1465
1466  " clean up
1467  bw!
1468endfunc
1469
1470func Test_normal27_bracket()
1471  " Test for [' [` ]' ]`
1472  call Setup_NewWindow()
1473  1,21s/.\+/  &   b/
1474  1
1475  norm! $ma
1476  5
1477  norm! $mb
1478  10
1479  norm! $mc
1480  15
1481  norm! $md
1482  20
1483  norm! $me
1484
1485  " Test for ['
1486  9
1487  norm! 2['
1488  call assert_equal('  1   b', getline('.'))
1489  call assert_equal(1, line('.'))
1490  call assert_equal(3, col('.'))
1491
1492  " Test for ]'
1493  norm! ]'
1494  call assert_equal('  5   b', getline('.'))
1495  call assert_equal(5, line('.'))
1496  call assert_equal(3, col('.'))
1497
1498  " No mark after line 21, cursor moves to first non blank on current line
1499  21
1500  norm! $]'
1501  call assert_equal('  21   b', getline('.'))
1502  call assert_equal(21, line('.'))
1503  call assert_equal(3, col('.'))
1504
1505  " Test for [`
1506  norm! 2[`
1507  call assert_equal('  15   b', getline('.'))
1508  call assert_equal(15, line('.'))
1509  call assert_equal(8, col('.'))
1510
1511  " Test for ]`
1512  norm! ]`
1513  call assert_equal('  20   b', getline('.'))
1514  call assert_equal(20, line('.'))
1515  call assert_equal(8, col('.'))
1516
1517  " clean up
1518  bw!
1519endfunc
1520
1521func Test_normal28_parenthesis()
1522  " basic testing for ( and )
1523  new
1524  call append(0, ['This is a test. With some sentences!', '', 'Even with a question? And one more. And no sentence here'])
1525
1526  $
1527  norm! d(
1528  call assert_equal(['This is a test. With some sentences!', '', 'Even with a question? And one more. ', ''], getline(1, '$'))
1529  norm! 2d(
1530  call assert_equal(['This is a test. With some sentences!', '', ' ', ''], getline(1, '$'))
1531  1
1532  norm! 0d)
1533  call assert_equal(['With some sentences!', '', ' ', ''], getline(1, '$'))
1534
1535  call append('$', ['This is a long sentence', '', 'spanning', 'over several lines. '])
1536  $
1537  norm! $d(
1538  call assert_equal(['With some sentences!', '', ' ', '', 'This is a long sentence', ''], getline(1, '$'))
1539
1540  " clean up
1541  bw!
1542endfunc
1543
1544fun! Test_normal29_brace()
1545  " basic test for { and } movements
1546  let text= ['A paragraph begins after each empty line, and also at each of a set of',
1547  \ 'paragraph macros, specified by the pairs of characters in the ''paragraphs''',
1548  \ 'option.  The default is "IPLPPPQPP TPHPLIPpLpItpplpipbp", which corresponds to',
1549  \ 'the macros ".IP", ".LP", etc.  (These are nroff macros, so the dot must be in',
1550  \ 'the first column).  A section boundary is also a paragraph boundary.',
1551  \ 'Note that a blank line (only containing white space) is NOT a paragraph',
1552  \ 'boundary.',
1553  \ '',
1554  \ '',
1555  \ 'Also note that this does not include a ''{'' or ''}'' in the first column.  When',
1556  \ 'the ''{'' flag is in ''cpoptions'' then ''{'' in the first column is used as a',
1557  \ 'paragraph boundary |posix|.',
1558  \ '{',
1559  \ 'This is no paragraph',
1560  \ 'unless the ''{'' is set',
1561  \ 'in ''cpoptions''',
1562  \ '}',
1563  \ '.IP',
1564  \ 'The nroff macros IP separates a paragraph',
1565  \ 'That means, it must be a ''.''',
1566  \ 'followed by IP',
1567  \ '.LPIt does not matter, if afterwards some',
1568  \ 'more characters follow.',
1569  \ '.SHAlso section boundaries from the nroff',
1570  \ 'macros terminate a paragraph. That means',
1571  \ 'a character like this:',
1572  \ '.NH',
1573  \ 'End of text here']
1574  new
1575  call append(0, text)
1576  1
1577  norm! 0d2}
1578  call assert_equal(['.IP',
1579    \  'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''', 'followed by IP',
1580    \ '.LPIt does not matter, if afterwards some', 'more characters follow.', '.SHAlso section boundaries from the nroff',
1581    \  'macros terminate a paragraph. That means', 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$'))
1582  norm! 0d}
1583  call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.',
1584    \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means',
1585    \ 'a character like this:', '.NH', 'End of text here', ''], getline(1, '$'))
1586  $
1587  norm! d{
1588  call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.',
1589	\ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means', 'a character like this:', ''], getline(1, '$'))
1590  norm! d{
1591  call assert_equal(['.LPIt does not matter, if afterwards some', 'more characters follow.', ''], getline(1,'$'))
1592  " Test with { in cpooptions
1593  %d
1594  call append(0, text)
1595  set cpo+={
1596  1
1597  norm! 0d2}
1598  call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}',
1599    \ '.IP', 'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''',
1600    \ 'followed by IP', '.LPIt does not matter, if afterwards some', 'more characters follow.',
1601    \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means',
1602    \ 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$'))
1603  $
1604  norm! d}
1605  call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}',
1606    \ '.IP', 'The nroff macros IP separates a paragraph', 'That means, it must be a ''.''',
1607    \ 'followed by IP', '.LPIt does not matter, if afterwards some', 'more characters follow.',
1608    \ '.SHAlso section boundaries from the nroff', 'macros terminate a paragraph. That means',
1609    \ 'a character like this:', '.NH', 'End of text here', ''], getline(1,'$'))
1610  norm! gg}
1611  norm! d5}
1612  call assert_equal(['{', 'This is no paragraph', 'unless the ''{'' is set', 'in ''cpoptions''', '}', ''], getline(1,'$'))
1613
1614  " clean up
1615  set cpo-={
1616  bw!
1617endfunc
1618
1619fun! Test_normal30_changecase()
1620  new
1621  call append(0, 'This is a simple test: äüöß')
1622  norm! 1ggVu
1623  call assert_equal('this is a simple test: äüöß', getline('.'))
1624  norm! VU
1625  call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
1626  norm! guu
1627  call assert_equal('this is a simple test: äüöss', getline('.'))
1628  norm! gUgU
1629  call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
1630  norm! gugu
1631  call assert_equal('this is a simple test: äüöss', getline('.'))
1632  norm! gUU
1633  call assert_equal('THIS IS A SIMPLE TEST: ÄÜÖSS', getline('.'))
1634  norm! 010~
1635  call assert_equal('this is a SIMPLE TEST: ÄÜÖSS', getline('.'))
1636  norm! V~
1637  call assert_equal('THIS IS A simple test: äüöss', getline('.'))
1638
1639  " Turkish ASCII turns to multi-byte.  On some systems Turkish locale
1640  " is available but toupper()/tolower() don't do the right thing.
1641  try
1642    lang tr_TR.UTF-8
1643    set casemap=
1644    let iupper = toupper('i')
1645    if iupper == "\u0130"
1646      call setline(1, 'iI')
1647      1normal gUU
1648      call assert_equal("\u0130I", getline(1))
1649      call assert_equal("\u0130I", toupper("iI"))
1650
1651      call setline(1, 'iI')
1652      1normal guu
1653      call assert_equal("i\u0131", getline(1))
1654      call assert_equal("i\u0131", tolower("iI"))
1655    elseif iupper == "I"
1656      call setline(1, 'iI')
1657      1normal gUU
1658      call assert_equal("II", getline(1))
1659      call assert_equal("II", toupper("iI"))
1660
1661      call setline(1, 'iI')
1662      1normal guu
1663      call assert_equal("ii", getline(1))
1664      call assert_equal("ii", tolower("iI"))
1665    else
1666      call assert_true(false, "expected toupper('i') to be either 'I' or '\u0130'")
1667    endif
1668    set casemap&
1669    call setline(1, 'iI')
1670    1normal gUU
1671    call assert_equal("II", getline(1))
1672    call assert_equal("II", toupper("iI"))
1673
1674    call setline(1, 'iI')
1675    1normal guu
1676    call assert_equal("ii", getline(1))
1677    call assert_equal("ii", tolower("iI"))
1678
1679    lang en_US.UTF-8
1680  catch /E197:/
1681    " can't use Turkish locale
1682    throw 'Skipped: Turkish locale not available'
1683  endtry
1684
1685  " clean up
1686  bw!
1687endfunc
1688
1689fun! Test_normal31_r_cmd()
1690  " Test for r command
1691  new
1692  call append(0, 'This is a simple test: abcd')
1693  exe "norm! 1gg$r\<cr>"
1694  call assert_equal(['This is a simple test: abc', '', ''], getline(1,'$'))
1695  exe "norm! 1gg2wlr\<cr>"
1696  call assert_equal(['This is a', 'simple test: abc', '', ''], getline(1,'$'))
1697  exe "norm! 2gg0W5r\<cr>"
1698  call assert_equal(['This is a', 'simple ', ' abc', '', ''], getline('1', '$'))
1699  set autoindent
1700  call setline(2, ['simple test: abc', ''])
1701  exe "norm! 2gg0W5r\<cr>"
1702  call assert_equal(['This is a', 'simple ', 'abc', '', '', ''], getline('1', '$'))
1703  exe "norm! 1ggVr\<cr>"
1704  call assert_equal('^M^M^M^M^M^M^M^M^M', strtrans(getline(1)))
1705  call setline(1, 'This is a')
1706  exe "norm! 1gg05rf"
1707  call assert_equal('fffffis a', getline(1))
1708
1709  " clean up
1710  set noautoindent
1711  bw!
1712endfunc
1713
1714func Test_normal32_g_cmd1()
1715  " Test for g*, g#
1716  new
1717  call append(0, ['abc.x_foo', 'x_foobar.abc'])
1718  1
1719  norm! $g*
1720  call assert_equal('x_foo', @/)
1721  call assert_equal('x_foobar.abc', getline('.'))
1722  norm! $g#
1723  call assert_equal('abc', @/)
1724  call assert_equal('abc.x_foo', getline('.'))
1725
1726  " clean up
1727  bw!
1728endfunc
1729
1730fun! Test_normal33_g_cmd2()
1731  if !has("jumplist")
1732    return
1733  endif
1734  " Tests for g cmds
1735  call Setup_NewWindow()
1736  " Test for g`
1737  clearjumps
1738  norm! ma10j
1739  let a=execute(':jumps')
1740  " empty jumplist
1741  call assert_equal('>', a[-1:])
1742  norm! g`a
1743  call assert_equal('>', a[-1:])
1744  call assert_equal(1, line('.'))
1745  call assert_equal('1', getline('.'))
1746
1747  " Test for g; and g,
1748  norm! g;
1749  " there is only one change in the changelist
1750  " currently, when we setup the window
1751  call assert_equal(2, line('.'))
1752  call assert_fails(':norm! g;', 'E662')
1753  call assert_fails(':norm! g,', 'E663')
1754  let &ul=&ul
1755  call append('$', ['a', 'b', 'c', 'd'])
1756  let &ul=&ul
1757  call append('$', ['Z', 'Y', 'X', 'W'])
1758  let a = execute(':changes')
1759  call assert_match('2\s\+0\s\+2', a)
1760  call assert_match('101\s\+0\s\+a', a)
1761  call assert_match('105\s\+0\s\+Z', a)
1762  norm! 3g;
1763  call assert_equal(2, line('.'))
1764  norm! 2g,
1765  call assert_equal(105, line('.'))
1766
1767  " Test for g& - global substitute
1768  %d
1769  call setline(1, range(1,10))
1770  call append('$', ['a', 'b', 'c', 'd'])
1771  $s/\w/&&/g
1772  exe "norm! /[1-8]\<cr>"
1773  norm! g&
1774  call assert_equal(['11', '22', '33', '44', '55', '66', '77', '88', '9', '110', 'a', 'b', 'c', 'dd'], getline(1, '$'))
1775
1776  " Test for gv
1777  %d
1778  call append('$', repeat(['abcdefgh'], 8))
1779  exe "norm! 2gg02l\<c-v>2j2ly"
1780  call assert_equal(['cde', 'cde', 'cde'], getreg(0, 1, 1))
1781  " in visual mode, gv swaps current and last selected region
1782  exe "norm! G0\<c-v>4k4lgvd"
1783  call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh', 'abcdefgh'], getline(1,'$'))
1784  exe "norm! G0\<c-v>4k4ly"
1785  exe "norm! gvood"
1786  call assert_equal(['', 'abfgh', 'abfgh', 'abfgh', 'fgh', 'fgh', 'fgh', 'fgh', 'fgh'], getline(1,'$'))
1787
1788  " Test for gk/gj
1789  %d
1790  15vsp
1791  set wrap listchars= sbr=
1792  let lineA='abcdefghijklmnopqrstuvwxyz'
1793  let lineB='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
1794  $put =lineA
1795  $put =lineB
1796
1797  norm! 3gg0dgk
1798  call assert_equal(['', 'abcdefghijklmno', '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'], getline(1, '$'))
1799  set nu
1800  norm! 3gg0gjdgj
1801  call assert_equal(['', 'abcdefghijklmno', '0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
1802
1803  " Test for gJ
1804  norm! 2gggJ
1805  call assert_equal(['', 'abcdefghijklmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
1806  call assert_equal(16, col('.'))
1807  " shouldn't do anything
1808  norm! 10gJ
1809  call assert_equal(1, col('.'))
1810
1811  " Test for g0 g^ gm g$
1812  exe "norm! 2gg0gji   "
1813  call assert_equal(['', 'abcdefghijk   lmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
1814  norm! g0yl
1815  call assert_equal(12, col('.'))
1816  call assert_equal(' ', getreg(0))
1817  norm! g$yl
1818  call assert_equal(22, col('.'))
1819  call assert_equal('3', getreg(0))
1820  norm! gmyl
1821  call assert_equal(17, col('.'))
1822  call assert_equal('n', getreg(0))
1823  norm! g^yl
1824  call assert_equal(15, col('.'))
1825  call assert_equal('l', getreg(0))
1826
1827  " Test for gI
1828  norm! gIfoo
1829  call assert_equal(['', 'fooabcdefghijk   lmno0123456789AMNOPQRSTUVWXYZ'], getline(1,'$'))
1830
1831  " Test for gi
1832  wincmd c
1833  %d
1834  set tw=0
1835  call setline(1, ['foobar', 'new line'])
1836  norm! A next word
1837  $put ='third line'
1838  norm! gi another word
1839  call assert_equal(['foobar next word another word', 'new line', 'third line'], getline(1,'$'))
1840
1841  " clean up
1842  bw!
1843endfunc
1844
1845func Test_g_ctrl_g()
1846  new
1847
1848  let a = execute(":norm! g\<c-g>")
1849  call assert_equal("\n--No lines in buffer--", a)
1850
1851  call setline(1, ['first line', 'second line'])
1852
1853  " Test g CTRL-g with dos, mac and unix file type.
1854  norm! gojll
1855  set ff=dos
1856  let a = execute(":norm! g\<c-g>")
1857  call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 15 of 25", a)
1858
1859  set ff=mac
1860  let a = execute(":norm! g\<c-g>")
1861  call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 14 of 23", a)
1862
1863  set ff=unix
1864  let a = execute(":norm! g\<c-g>")
1865  call assert_equal("\nCol 3 of 11; Line 2 of 2; Word 3 of 4; Byte 14 of 23", a)
1866
1867  " Test g CTRL-g in visual mode (v)
1868  let a = execute(":norm! gojllvlg\<c-g>")
1869  call assert_equal("\nSelected 1 of 2 Lines; 1 of 4 Words; 2 of 23 Bytes", a)
1870
1871  " Test g CTRL-g in visual mode (CTRL-V) with end col > start col
1872  let a = execute(":norm! \<Esc>gojll\<C-V>kllg\<c-g>")
1873  call assert_equal("\nSelected 3 Cols; 2 of 2 Lines; 2 of 4 Words; 6 of 23 Bytes", a)
1874
1875  " Test g_CTRL-g in visual mode (CTRL-V) with end col < start col
1876  let a = execute(":norm! \<Esc>goll\<C-V>jhhg\<c-g>")
1877  call assert_equal("\nSelected 3 Cols; 2 of 2 Lines; 2 of 4 Words; 6 of 23 Bytes", a)
1878
1879  " Test g CTRL-g in visual mode (CTRL-V) with end_vcol being MAXCOL
1880  let a = execute(":norm! \<Esc>gojll\<C-V>k$g\<c-g>")
1881  call assert_equal("\nSelected 2 of 2 Lines; 4 of 4 Words; 17 of 23 Bytes", a)
1882
1883  " There should be one byte less with noeol
1884  set bin noeol
1885  let a = execute(":norm! \<Esc>gog\<c-g>")
1886  call assert_equal("\nCol 1 of 10; Line 1 of 2; Word 1 of 4; Char 1 of 23; Byte 1 of 22", a)
1887  set bin & eol&
1888
1889  call setline(1, ['Français', '日本語'])
1890
1891  let a = execute(":norm! \<Esc>gojlg\<c-g>")
1892  call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20", a)
1893
1894  let a = execute(":norm! \<Esc>gojvlg\<c-g>")
1895  call assert_equal("\nSelected 1 of 2 Lines; 1 of 2 Words; 2 of 13 Chars; 6 of 20 Bytes", a)
1896
1897  let a = execute(":norm! \<Esc>goll\<c-v>jlg\<c-g>")
1898  call assert_equal("\nSelected 4 Cols; 2 of 2 Lines; 2 of 2 Words; 6 of 13 Chars; 11 of 20 Bytes", a)
1899
1900  set fenc=utf8 bomb
1901  let a = execute(":norm! \<Esc>gojlg\<c-g>")
1902  call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+3 for BOM)", a)
1903
1904  set fenc=utf16 bomb
1905  let a = execute(":norm! g\<c-g>")
1906  call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+2 for BOM)", a)
1907
1908  set fenc=utf32 bomb
1909  let a = execute(":norm! g\<c-g>")
1910  call assert_equal("\nCol 4-3 of 9-6; Line 2 of 2; Word 2 of 2; Char 11 of 13; Byte 16 of 20(+4 for BOM)", a)
1911
1912  set fenc& bomb&
1913
1914  set ff&
1915  bwipe!
1916endfunc
1917
1918fun! Test_normal34_g_cmd3()
1919  " Test for g8
1920  new
1921  let a=execute(':norm! 1G0g8')
1922  call assert_equal("\nNUL", a)
1923
1924  call setline(1, 'abcdefghijklmnopqrstuvwxyzäüö')
1925  let a=execute(':norm! 1G$g8')
1926  call assert_equal("\nc3 b6 ", a)
1927
1928  call setline(1, "a\u0302")
1929  let a=execute(':norm! 1G0g8')
1930  call assert_equal("\n61 + cc 82 ", a)
1931
1932  " clean up
1933  bw!
1934endfunc
1935
1936func Test_normal_8g8()
1937  new
1938
1939  " Test 8g8 which finds invalid utf8 at or after the cursor.
1940
1941  " With invalid byte.
1942  call setline(1, "___\xff___")
1943  norm! 1G08g8g
1944  call assert_equal([0, 1, 4, 0, 1], getcurpos())
1945
1946  " With invalid byte before the cursor.
1947  call setline(1, "___\xff___")
1948  norm! 1G$h8g8g
1949  call assert_equal([0, 1, 6, 0, 9], getcurpos())
1950
1951  " With truncated sequence.
1952  call setline(1, "___\xE2\x82___")
1953  norm! 1G08g8g
1954  call assert_equal([0, 1, 4, 0, 1], getcurpos())
1955
1956  " With overlong sequence.
1957  call setline(1, "___\xF0\x82\x82\xAC___")
1958  norm! 1G08g8g
1959  call assert_equal([0, 1, 4, 0, 1], getcurpos())
1960
1961  " With valid utf8.
1962  call setline(1, "café")
1963  norm! 1G08g8
1964  call assert_equal([0, 1, 1, 0, 1], getcurpos())
1965
1966  bw!
1967endfunc
1968
1969fun! Test_normal35_g_cmd4()
1970  " Test for g<
1971  " Cannot capture its output,
1972  " probably a bug, therefore, test disabled:
1973  throw "Skipped: output of g< can't be tested currently"
1974  echo "a\nb\nc\nd"
1975  let b=execute(':norm! g<')
1976  call assert_true(!empty(b), 'failed `execute(g<)`')
1977endfunc
1978
1979fun! Test_normal36_g_cmd5()
1980  new
1981  call append(0, 'abcdefghijklmnopqrstuvwxyz')
1982  set ff=unix
1983  " Test for gp gP
1984  call append(1, range(1,10))
1985  1
1986  norm! 1yy
1987  3
1988  norm! gp
1989  call assert_equal([0, 5, 1, 0, 1], getcurpos())
1990  $
1991  norm! gP
1992  call assert_equal([0, 14, 1, 0, 1], getcurpos())
1993
1994  " Test for go
1995  norm! 26go
1996  call assert_equal([0, 1, 26, 0, 26], getcurpos())
1997  norm! 27go
1998  call assert_equal([0, 1, 26, 0, 26], getcurpos())
1999  norm! 28go
2000  call assert_equal([0, 2, 1, 0, 1], getcurpos())
2001  set ff=dos
2002  norm! 29go
2003  call assert_equal([0, 2, 1, 0, 1], getcurpos())
2004  set ff=unix
2005  norm! gg0
2006  norm! 101go
2007  call assert_equal([0, 13, 26, 0, 26], getcurpos())
2008  norm! 103go
2009  call assert_equal([0, 14, 1, 0, 1], getcurpos())
2010  " count > buffer content
2011  norm! 120go
2012  call assert_equal([0, 14, 1, 0, 2147483647], getcurpos())
2013  " clean up
2014  bw!
2015endfunc
2016
2017fun! Test_normal37_g_cmd6()
2018  " basic test for gt and gT
2019  tabnew 1.txt
2020  tabnew 2.txt
2021  tabnew 3.txt
2022  norm! 1gt
2023  call assert_equal(1, tabpagenr())
2024  norm! 3gt
2025  call assert_equal(3, tabpagenr())
2026  norm! 1gT
2027  " count gT goes not to the absolute tabpagenumber
2028  " but, but goes to the count previous tabpagenumber
2029  call assert_equal(2, tabpagenr())
2030  " wrap around
2031  norm! 3gT
2032  call assert_equal(3, tabpagenr())
2033  " gt does not wrap around
2034  norm! 5gt
2035  call assert_equal(3, tabpagenr())
2036
2037  for i in range(3)
2038    tabclose
2039  endfor
2040  " clean up
2041  call assert_fails(':tabclose', 'E784')
2042endfunc
2043
2044fun! Test_normal38_nvhome()
2045  " Test for <Home> and <C-Home> key
2046  new
2047  call setline(1, range(10))
2048  $
2049  setl et sw=2
2050  norm! V10>$
2051  " count is ignored
2052  exe "norm! 10\<home>"
2053  call assert_equal(1, col('.'))
2054  exe "norm! \<home>"
2055  call assert_equal([0, 10, 1, 0, 1], getcurpos())
2056  exe "norm! 5\<c-home>"
2057  call assert_equal([0, 5, 1, 0, 1], getcurpos())
2058  exe "norm! \<c-home>"
2059  call assert_equal([0, 1, 1, 0, 1], getcurpos())
2060
2061  " clean up
2062  bw!
2063endfunc
2064
2065fun! Test_normal39_cw()
2066  " Test for cw and cW on whitespace
2067  " and cpo+=w setting
2068  new
2069  set tw=0
2070  call append(0, 'here      are   some words')
2071  norm! 1gg0elcwZZZ
2072  call assert_equal('hereZZZare   some words', getline('.'))
2073  norm! 1gg0elcWYYY
2074  call assert_equal('hereZZZareYYYsome words', getline('.'))
2075  set cpo+=w
2076  call setline(1, 'here      are   some words')
2077  norm! 1gg0elcwZZZ
2078  call assert_equal('hereZZZ     are   some words', getline('.'))
2079  norm! 1gg2elcWYYY
2080  call assert_equal('hereZZZ     areYYY  some words', getline('.'))
2081  set cpo-=w
2082  norm! 2gg0cwfoo
2083  call assert_equal('foo', getline('.'))
2084
2085  " clean up
2086  bw!
2087endfunc
2088
2089fun! Test_normal40_ctrl_bsl()
2090  " Basic test for CTRL-\ commands
2091  new
2092  call append(0, 'here      are   some words')
2093  exe "norm! 1gg0a\<C-\>\<C-N>"
2094  call assert_equal('n', mode())
2095  call assert_equal(1, col('.'))
2096  call assert_equal('', visualmode())
2097  exe "norm! 1gg0viw\<C-\>\<C-N>"
2098  call assert_equal('n', mode())
2099  call assert_equal(4, col('.'))
2100  exe "norm! 1gg0a\<C-\>\<C-G>"
2101  call assert_equal('n', mode())
2102  call assert_equal(1, col('.'))
2103  "imap <buffer> , <c-\><c-n>
2104  set im
2105  exe ":norm! \<c-\>\<c-n>dw"
2106  set noim
2107  call assert_equal('are   some words', getline(1))
2108  call assert_false(&insertmode)
2109
2110  " clean up
2111  bw!
2112endfunc
2113
2114fun! Test_normal41_insert_reg()
2115  " Test for <c-r>=, <c-r><c-r>= and <c-r><c-o>=
2116  " in insert mode
2117  new
2118  set sts=2 sw=2 ts=8 tw=0
2119  call append(0, ["aaa\tbbb\tccc", '', '', ''])
2120  let a=getline(1)
2121  norm! 2gg0
2122  exe "norm! a\<c-r>=a\<cr>"
2123  norm! 3gg0
2124  exe "norm! a\<c-r>\<c-r>=a\<cr>"
2125  norm! 4gg0
2126  exe "norm! a\<c-r>\<c-o>=a\<cr>"
2127  call assert_equal(['aaa	bbb	ccc', 'aaa bbb	ccc', 'aaa bbb	ccc', 'aaa	bbb	ccc', ''], getline(1, '$'))
2128
2129  " clean up
2130  set sts=0 sw=8 ts=8
2131  bw!
2132endfunc
2133
2134func Test_normal42_halfpage()
2135  " basic test for Ctrl-D and Ctrl-U
2136  call Setup_NewWindow()
2137  call assert_equal(5, &scroll)
2138  exe "norm! \<c-d>"
2139  call assert_equal('6', getline('.'))
2140  exe "norm! 2\<c-d>"
2141  call assert_equal('8', getline('.'))
2142  call assert_equal(2, &scroll)
2143  set scroll=5
2144  exe "norm! \<c-u>"
2145  call assert_equal('3', getline('.'))
2146  1
2147  set scrolloff=5
2148  exe "norm! \<c-d>"
2149  call assert_equal('10', getline('.'))
2150  exe "norm! \<c-u>"
2151  call assert_equal('5', getline('.'))
2152  1
2153  set scrolloff=99
2154  exe "norm! \<c-d>"
2155  call assert_equal('10', getline('.'))
2156  set scrolloff=0
2157  100
2158  exe "norm! $\<c-u>"
2159  call assert_equal('95', getline('.'))
2160  call assert_equal([0, 95, 1, 0, 1], getcurpos())
2161  100
2162  set nostartofline
2163  exe "norm! $\<c-u>"
2164  call assert_equal('95', getline('.'))
2165  call assert_equal([0, 95, 2, 0, 2147483647], getcurpos())
2166  " cleanup
2167  set startofline
2168  bw!
2169endfunc
2170
2171fun! Test_normal43_textobject1()
2172  " basic tests for text object aw
2173  new
2174  call append(0, ['foobar,eins,foobar', 'foo,zwei,foo    '])
2175  " diw
2176  norm! 1gg0diw
2177  call assert_equal([',eins,foobar', 'foo,zwei,foo    ', ''], getline(1,'$'))
2178  " daw
2179  norm! 2ggEdaw
2180  call assert_equal([',eins,foobar', 'foo,zwei,', ''], getline(1, '$'))
2181  %d
2182  call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo   "])
2183  " diW
2184  norm! 2ggwd2iW
2185  call assert_equal(['foo	eins	foobar', 'foo	foo   ', ''], getline(1,'$'))
2186  " daW
2187  norm! 1ggd2aW
2188  call assert_equal(['foobar', 'foo	foo   ', ''], getline(1,'$'))
2189
2190  %d
2191  call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo   "])
2192  " aw in visual line mode switches to characterwise mode
2193  norm! 2gg$Vawd
2194  call assert_equal(['foo	eins	foobar', 'foo	zwei	foo'], getline(1,'$'))
2195  norm! 1gg$Viwd
2196  call assert_equal(['foo	eins	', 'foo	zwei	foo'], getline(1,'$'))
2197
2198  " clean up
2199  bw!
2200endfunc
2201
2202func Test_normal44_textobjects2()
2203  " basic testing for is and as text objects
2204  new
2205  call append(0, ['This is a test. With some sentences!', '', 'Even with a question? And one more. And no sentence here'])
2206  " Test for dis - does not remove trailing whitespace
2207  norm! 1gg0dis
2208  call assert_equal([' With some sentences!', '', 'Even with a question? And one more. And no sentence here', ''], getline(1,'$'))
2209  " Test for das - removes leading whitespace
2210  norm! 3ggf?ldas
2211  call assert_equal([' With some sentences!', '', 'Even with a question? And no sentence here', ''], getline(1,'$'))
2212  " when used in visual mode, is made characterwise
2213  norm! 3gg$Visy
2214  call assert_equal('v', visualmode())
2215  " reset visualmode()
2216  norm! 3ggVy
2217  norm! 3gg$Vasy
2218  call assert_equal('v', visualmode())
2219  " basic testing for textobjects a< and at
2220  %d
2221  call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>','    </div>', ' '])
2222  " a<
2223  norm! 1gg0da<
2224  call assert_equal([' ', '<a href="foobar" class="foo">xyz</a>', '    </div>', ' '], getline(1,'$'))
2225  norm! 1pj
2226  call assert_equal([' <div>', '<a href="foobar" class="foo">xyz</a>', '    </div>', ' '], getline(1,'$'))
2227  " at
2228  norm! d2at
2229  call assert_equal([' '], getline(1,'$'))
2230  %d
2231  call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>','    </div>', ' '])
2232  " i<
2233  norm! 1gg0di<
2234  call assert_equal(['<> ', '<a href="foobar" class="foo">xyz</a>', '    </div>', ' '], getline(1,'$'))
2235  norm! 1Pj
2236  call assert_equal(['<div> ', '<a href="foobar" class="foo">xyz</a>', '    </div>', ' '], getline(1,'$'))
2237  norm! d2it
2238  call assert_equal(['<div></div>',' '], getline(1,'$'))
2239  " basic testing for a[ and i[ text object
2240  %d
2241  call setline(1, [' ', '[', 'one [two]', 'thre', ']'])
2242  norm! 3gg0di[
2243  call assert_equal([' ', '[', ']'], getline(1,'$'))
2244  call setline(1, [' ', '[', 'one [two]', 'thre', ']'])
2245  norm! 3gg0ftd2a[
2246  call assert_equal([' '], getline(1,'$'))
2247  %d
2248  " Test for i" when cursor is in front of a quoted object
2249  call append(0, 'foo "bar"')
2250  norm! 1gg0di"
2251  call assert_equal(['foo ""', ''], getline(1,'$'))
2252
2253  " clean up
2254  bw!
2255endfunc
2256
2257func Test_normal45_drop()
2258  if !has('dnd')
2259    " The ~ register does not exist
2260    call assert_beeps('norm! "~')
2261    return
2262  endif
2263
2264  " basic test for drag-n-drop
2265  " unfortunately, without a gui, we can't really test much here,
2266  " so simply test that ~p fails (which uses the drop register)
2267  new
2268  call assert_fails(':norm! "~p', 'E353')
2269  call assert_equal([],  getreg('~', 1, 1))
2270  " the ~ register is read only
2271  call assert_fails(':let @~="1"', 'E354')
2272  bw!
2273endfunc
2274
2275func Test_normal46_ignore()
2276  new
2277  " How to test this?
2278  " let's just for now test, that the buffer
2279  " does not change
2280  call feedkeys("\<c-s>", 't')
2281  call assert_equal([''], getline(1,'$'))
2282
2283  " no valid commands
2284  exe "norm! \<char-0x100>"
2285  call assert_equal([''], getline(1,'$'))
2286
2287  exe "norm! ä"
2288  call assert_equal([''], getline(1,'$'))
2289
2290  " clean up
2291  bw!
2292endfunc
2293
2294func Test_normal47_visual_buf_wipe()
2295  " This was causing a crash or ml_get error.
2296  enew!
2297  call setline(1,'xxx')
2298  normal $
2299  new
2300  call setline(1, range(1,2))
2301  2
2302  exe "norm \<C-V>$"
2303  bw!
2304  norm yp
2305  set nomodified
2306endfunc
2307
2308func Test_normal47_autocmd()
2309  " disabled, does not seem to be possible currently
2310  throw "Skipped: not possible to test cursorhold autocmd while waiting for input in normal_cmd"
2311  new
2312  call append(0, repeat('-',20))
2313  au CursorHold * call feedkeys('2l', '')
2314  1
2315  set updatetime=20
2316  " should delete 12 chars (d12l)
2317  call feedkeys('d1', '!')
2318  call assert_equal('--------', getline(1))
2319
2320  " clean up
2321  au! CursorHold
2322  set updatetime=4000
2323  bw!
2324endfunc
2325
2326func Test_normal48_wincmd()
2327  new
2328  exe "norm! \<c-w>c"
2329  call assert_equal(1, winnr('$'))
2330  call assert_fails(":norm! \<c-w>c", "E444")
2331endfunc
2332
2333func Test_normal49_counts()
2334  new
2335  call setline(1, 'one two three four five six seven eight nine ten')
2336  1
2337  norm! 3d2w
2338  call assert_equal('seven eight nine ten', getline(1))
2339  bw!
2340endfunc
2341
2342func Test_normal50_commandline()
2343  if !has("timers") || !has("cmdline_hist")
2344    return
2345  endif
2346  func! DoTimerWork(id)
2347    call assert_equal('[Command Line]', bufname(''))
2348    " should fail, with E11, but does fail with E23?
2349    "call feedkeys("\<c-^>", 'tm')
2350
2351    " should also fail with E11
2352    call assert_fails(":wincmd p", 'E11')
2353    " return from commandline window
2354    call feedkeys("\<cr>")
2355  endfunc
2356
2357  let oldlang=v:lang
2358  lang C
2359  set updatetime=20
2360  call timer_start(100, 'DoTimerWork')
2361  try
2362    " throws E23, for whatever reason...
2363    call feedkeys('q:', 'x!')
2364  catch /E23/
2365    " no-op
2366  endtry
2367  " clean up
2368  set updatetime=4000
2369  exe "lang" oldlang
2370  bw!
2371endfunc
2372
2373func Test_normal51_FileChangedRO()
2374  if !has("autocmd")
2375    return
2376  endif
2377  " Don't sleep after the warning message.
2378  call test_settime(1)
2379  call writefile(['foo'], 'Xreadonly.log')
2380  new Xreadonly.log
2381  setl ro
2382  au FileChangedRO <buffer> :call feedkeys("\<c-^>", 'tix')
2383  call assert_fails(":norm! Af", 'E788')
2384  call assert_equal(['foo'], getline(1,'$'))
2385  call assert_equal('Xreadonly.log', bufname(''))
2386
2387  " cleanup
2388  call test_settime(0)
2389  bw!
2390  call delete("Xreadonly.log")
2391endfunc
2392
2393func Test_normal52_rl()
2394  if !has("rightleft")
2395    return
2396  endif
2397  new
2398  call setline(1, 'abcde fghij klmnopq')
2399  norm! 1gg$
2400  set rl
2401  call assert_equal(19, col('.'))
2402  call feedkeys('l', 'tx')
2403  call assert_equal(18, col('.'))
2404  call feedkeys('h', 'tx')
2405  call assert_equal(19, col('.'))
2406  call feedkeys("\<right>", 'tx')
2407  call assert_equal(18, col('.'))
2408  call feedkeys("\<s-right>", 'tx')
2409  call assert_equal(13, col('.'))
2410  call feedkeys("\<c-right>", 'tx')
2411  call assert_equal(7, col('.'))
2412  call feedkeys("\<c-left>", 'tx')
2413  call assert_equal(13, col('.'))
2414  call feedkeys("\<s-left>", 'tx')
2415  call assert_equal(19, col('.'))
2416  call feedkeys("<<", 'tx')
2417  call assert_equal('	abcde fghij klmnopq',getline(1))
2418  call feedkeys(">>", 'tx')
2419  call assert_equal('abcde fghij klmnopq',getline(1))
2420
2421  " cleanup
2422  set norl
2423  bw!
2424endfunc
2425
2426func Test_normal53_digraph()
2427  if !has('digraphs')
2428    return
2429  endif
2430  new
2431  call setline(1, 'abcdefgh|')
2432  exe "norm! 1gg0f\<c-k>!!"
2433  call assert_equal(9, col('.'))
2434  set cpo+=D
2435  exe "norm! 1gg0f\<c-k>!!"
2436  call assert_equal(1, col('.'))
2437
2438  set cpo-=D
2439  bw!
2440endfunc
2441
2442func Test_normal54_Ctrl_bsl()
2443  new
2444  call setline(1, 'abcdefghijklmn')
2445  exe "norm! df\<c-\>\<c-n>"
2446  call assert_equal(['abcdefghijklmn'], getline(1,'$'))
2447  exe "norm! df\<c-\>\<c-g>"
2448  call assert_equal(['abcdefghijklmn'], getline(1,'$'))
2449  exe "norm! df\<c-\>m"
2450  call assert_equal(['abcdefghijklmn'], getline(1,'$'))
2451
2452  call setline(2, 'abcdefghijklmnāf')
2453  norm! 2gg0
2454  exe "norm! df\<Char-0x101>"
2455  call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$'))
2456  norm! 1gg0
2457  exe "norm! df\<esc>"
2458  call assert_equal(['abcdefghijklmn', 'f'], getline(1,'$'))
2459
2460  " clean up
2461  bw!
2462endfunc
2463
2464func Test_normal_large_count()
2465  " This may fail with 32bit long, how do we detect that?
2466  new
2467  normal o
2468  normal 6666666666dL
2469  bwipe!
2470endfunc
2471
2472func Test_delete_until_paragraph()
2473  new
2474  normal grádv}
2475  call assert_equal('á', getline(1))
2476  normal grád}
2477  call assert_equal('', getline(1))
2478  bwipe!
2479endfunc
2480
2481" Test for the gr (virtual replace) command
2482" Test for the bug fixed by 7.4.387
2483func Test_gr_command()
2484  enew!
2485  let save_cpo = &cpo
2486  call append(0, ['First line', 'Second line', 'Third line'])
2487  exe "normal i\<C-G>u"
2488  call cursor(2, 1)
2489  set cpo-=X
2490  normal 4gro
2491  call assert_equal('oooond line', getline(2))
2492  undo
2493  set cpo+=X
2494  normal 4gro
2495  call assert_equal('ooooecond line', getline(2))
2496  let &cpo = save_cpo
2497  enew!
2498endfunc
2499
2500" When splitting a window the changelist position is wrong.
2501" Test the changelist position after splitting a window.
2502" Test for the bug fixed by 7.4.386
2503func Test_changelist()
2504  let save_ul = &ul
2505  enew!
2506  call append('$', ['1', '2'])
2507  exe "normal i\<C-G>u"
2508  exe "normal Gkylpa\<C-G>u"
2509  set ul=100
2510  exe "normal Gylpa\<C-G>u"
2511  set ul=100
2512  normal gg
2513  vsplit
2514  normal g;
2515  call assert_equal([3, 2], [line('.'), col('.')])
2516  normal g;
2517  call assert_equal([2, 2], [line('.'), col('.')])
2518  call assert_fails('normal g;', 'E662:')
2519  %bwipe!
2520  let &ul = save_ul
2521endfunc
2522
2523func Test_nv_hat_count()
2524  %bwipeout!
2525  let l:nr = bufnr('%') + 1
2526  call assert_fails(':execute "normal! ' . l:nr . '\<C-^>"', 'E92')
2527
2528  edit Xfoo
2529  let l:foo_nr = bufnr('Xfoo')
2530
2531  edit Xbar
2532  let l:bar_nr = bufnr('Xbar')
2533
2534  " Make sure we are not just using the alternate file.
2535  edit Xbaz
2536
2537  call feedkeys(l:foo_nr . "\<C-^>", 'tx')
2538  call assert_equal('Xfoo', fnamemodify(bufname('%'), ':t'))
2539
2540  call feedkeys(l:bar_nr . "\<C-^>", 'tx')
2541  call assert_equal('Xbar', fnamemodify(bufname('%'), ':t'))
2542
2543  %bwipeout!
2544endfunc
2545