Mercurial > vim
annotate src/testdir/test_visual.vim @ 19453:12a2df388bca v8.2.0284
patch 8.2.0284: Vim9: assignment test fails
Commit: https://github.com/vim/vim/commit/c0d656c89df4cf5a7d712dfb264853b9ca7d586f
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Feb 19 21:12:40 2020 +0100
patch 8.2.0284: Vim9: assignment test fails
Problem: Vim9: assignment test fails.
Solution: Avoid duplicating "s:".
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 19 Feb 2020 21:15:03 +0100 |
parents | 67fbe280a502 |
children | 9c15be376631 |
rev | line source |
---|---|
18825
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
1 " Tests for various Visual modes. |
11091
ae45d497868f
patch 8.0.0433: beeps when running tests
Christian Brabandt <cb@256bit.org>
parents:
10900
diff
changeset
|
2 |
8401
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
3 func Test_block_shift_multibyte() |
10494
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
4 " Uses double-wide character. |
8401
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
5 split |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
6 call setline(1, ['xヹxxx', 'ヹxxx']) |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
7 exe "normal 1G0l\<C-V>jl>" |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
8 call assert_equal('x ヹxxx', getline(1)) |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
9 call assert_equal(' ヹxxx', getline(2)) |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
10 q! |
98955c2ffd9f
commit https://github.com/vim/vim/commit/019b9c644e92742e37efc08fef47c2620a01b6b3
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
11 endfunc |
10494
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
12 |
11997
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
13 func Test_block_shift_overflow() |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
14 " This used to cause a multiplication overflow followed by a crash. |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
15 new |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
16 normal ii |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
17 exe "normal \<C-V>876543210>" |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
18 q! |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
19 endfunc |
66b677c77467
patch 8.0.0879: crash when shifting with huge number
Christian Brabandt <cb@256bit.org>
parents:
11091
diff
changeset
|
20 |
10494
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
21 func Test_dotregister_paste() |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
22 new |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
23 exe "norm! ihello world\<esc>" |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
24 norm! 0ve".p |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
25 call assert_equal('hello world world', getline(1)) |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
26 q! |
1e700d72561d
commit https://github.com/vim/vim/commit/f8eb9c51e5bbd10e59c9b1247f8f6c7f5b77ccd0
Christian Brabandt <cb@256bit.org>
parents:
9618
diff
changeset
|
27 endfunc |
10803
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
28 |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
29 func Test_Visual_ctrl_o() |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
30 new |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
31 call setline(1, ['one', 'two', 'three']) |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
32 call cursor(1,2) |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
33 set noshowmode |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
34 set tw=0 |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
35 call feedkeys("\<c-v>jjlIa\<c-\>\<c-o>:set tw=88\<cr>\<esc>", 'tx') |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
36 call assert_equal(['oane', 'tawo', 'tahree'], getline(1, 3)) |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
37 call assert_equal(88, &tw) |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
38 set tw& |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
39 bw! |
065da86ca6d2
patch 8.0.0291: Visual block insertion does not insert in all lines
Christian Brabandt <cb@256bit.org>
parents:
10494
diff
changeset
|
40 endfu |
10881
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
41 |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
42 func Test_Visual_vapo() |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
43 new |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
44 normal oxx |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
45 normal vapo |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
46 bwipe! |
8f6df2f6d2fc
patch 8.0.0330: illegal memory access after "vapo"
Christian Brabandt <cb@256bit.org>
parents:
10803
diff
changeset
|
47 endfunc |
10900
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
48 |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
49 func Test_Visual_inner_quote() |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
50 new |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
51 normal oxX |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
52 normal vki' |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
53 bwipe! |
9b4574d95571
patch 8.0.0339: illegal memory access with vi'
Christian Brabandt <cb@256bit.org>
parents:
10881
diff
changeset
|
54 endfunc |
12019
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
55 |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
56 " Test for Visual mode not being reset causing E315 error. |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
57 func TriggerTheProblem() |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
58 " At this point there is no visual selection because :call reset it. |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
59 " Let's restore the selection: |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
60 normal gv |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
61 '<,'>del _ |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
62 try |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
63 exe "normal \<Esc>" |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
64 catch /^Vim\%((\a\+)\)\=:E315/ |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
65 echom 'Snap! E315 error!' |
13402
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
66 let g:msg = 'Snap! E315 error!' |
12019
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
67 endtry |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
68 endfunc |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
69 |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
70 func Test_visual_mode_reset() |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
71 enew |
13402
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
72 let g:msg = "Everything's fine." |
12019
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
73 enew |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
74 setl buftype=nofile |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
75 call append(line('$'), 'Delete this line.') |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
76 |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
77 " NOTE: this has to be done by a call to a function because executing :del |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
78 " the ex-way will require the colon operator which resets the visual mode |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
79 " thus preventing the problem: |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
80 exe "normal! GV:call TriggerTheProblem()\<CR>" |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
81 call assert_equal("Everything's fine.", g:msg) |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
82 |
7d7835ab8b37
patch 8.0.0890: still many old style tests
Christian Brabandt <cb@256bit.org>
parents:
11997
diff
changeset
|
83 endfunc |
12644
1fad9675d8fd
patch 8.0.1200: tests switch the bell off twice
Christian Brabandt <cb@256bit.org>
parents:
12019
diff
changeset
|
84 |
12686
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
85 " Test for visual block shift and tab characters. |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
86 func Test_block_shift_tab() |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
87 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
88 call append(0, repeat(['one two three'], 5)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
89 call cursor(1,1) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
90 exe "normal i\<C-G>u" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
91 exe "normal fe\<C-V>4jR\<Esc>ugvr1" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
92 call assert_equal('on1 two three', getline(1)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
93 call assert_equal('on1 two three', getline(2)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
94 call assert_equal('on1 two three', getline(5)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
95 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
96 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
97 call append(0, repeat(['abcdefghijklmnopqrstuvwxyz'], 5)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
98 call cursor(1,1) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
99 exe "normal \<C-V>4jI \<Esc>j<<11|D" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
100 exe "normal j7|a\<Tab>\<Tab>" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
101 exe "normal j7|a\<Tab>\<Tab> " |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
102 exe "normal j7|a\<Tab> \<Tab>\<Esc>4k13|\<C-V>4j<" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
103 call assert_equal(' abcdefghijklmnopqrstuvwxyz', getline(1)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
104 call assert_equal('abcdefghij', getline(2)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
105 call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(3)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
106 call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(4)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
107 call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(5)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
108 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
109 %s/\s\+//g |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
110 call cursor(1,1) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
111 exe "normal \<C-V>4jI \<Esc>j<<" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
112 exe "normal j7|a\<Tab>\<Tab>" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
113 exe "normal j7|a\<Tab>\<Tab>\<Tab>\<Tab>\<Tab>" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
114 exe "normal j7|a\<Tab> \<Tab>\<Tab>\<Esc>4k13|\<C-V>4j3<" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
115 call assert_equal(' abcdefghijklmnopqrstuvwxyz', getline(1)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
116 call assert_equal('abcdefghij', getline(2)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
117 call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(3)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
118 call assert_equal(" abc\<Tab>\<Tab>defghijklmnopqrstuvwxyz", getline(4)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
119 call assert_equal(" abc\<Tab> defghijklmnopqrstuvwxyz", getline(5)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
120 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
121 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
122 endfunc |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
123 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
124 " Tests Blockwise Visual when there are TABs before the text. |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
125 func Test_blockwise_visual() |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
126 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
127 call append(0, ['123456', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
128 \ '234567', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
129 \ '345678', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
130 \ '', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
131 \ 'test text test tex start here', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
132 \ "\t\tsome text", |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
133 \ "\t\ttest text", |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
134 \ 'test text']) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
135 call cursor(1,1) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
136 exe "normal /start here$\<CR>" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
137 exe 'normal "by$' . "\<C-V>jjlld" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
138 exe "normal /456$\<CR>" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
139 exe "normal \<C-V>jj" . '"bP' |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
140 call assert_equal(['123start here56', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
141 \ '234start here67', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
142 \ '345start here78', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
143 \ '', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
144 \ 'test text test tex rt here', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
145 \ "\t\tsomext", |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
146 \ "\t\ttesext"], getline(1, 7)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
147 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
148 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
149 endfunc |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
150 |
13978
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
151 " Test swapping corners in blockwise visual mode with o and O |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
152 func Test_blockwise_visual_o_O() |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
153 enew! |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
154 |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
155 exe "norm! 10i.\<Esc>Y4P3lj\<C-V>4l2jr " |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
156 exe "norm! gvO\<Esc>ra" |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
157 exe "norm! gvO\<Esc>rb" |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
158 exe "norm! gvo\<C-c>rc" |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
159 exe "norm! gvO\<C-c>rd" |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
160 |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
161 call assert_equal(['..........', |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
162 \ '...c d..', |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
163 \ '... ..', |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
164 \ '...a b..', |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
165 \ '..........'], getline(1, '$')) |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
166 |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
167 enew! |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
168 endfun |
81c324144452
patch 8.1.0007: no test for "o" and "O" in Visual block mode
Christian Brabandt <cb@256bit.org>
parents:
13410
diff
changeset
|
169 |
12686
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
170 " Test Virtual replace mode. |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
171 func Test_virtual_replace() |
13410
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
172 if exists('&t_kD') |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
173 let save_t_kD = &t_kD |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
174 endif |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
175 if exists('&t_kb') |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
176 let save_t_kb = &t_kb |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
177 endif |
12686
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
178 exe "set t_kD=\<C-V>x7f t_kb=\<C-V>x08" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
179 enew! |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
180 exe "normal a\nabcdefghi\njk\tlmn\n opq rst\n\<C-D>uvwxyz" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
181 call cursor(1,1) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
182 set ai bs=2 |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
183 exe "normal gR0\<C-D> 1\nA\nBCDEFGHIJ\n\tKL\nMNO\nPQR" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
184 call assert_equal([' 1', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
185 \ ' A', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
186 \ ' BCDEFGHIJ', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
187 \ ' KL', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
188 \ ' MNO', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
189 \ ' PQR', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
190 \ ], getline(1, 6)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
191 normal G |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
192 mark a |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
193 exe "normal o0\<C-D>\nabcdefghi\njk\tlmn\n opq\trst\n\<C-D>uvwxyz\n" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
194 exe "normal 'ajgR0\<C-D> 1\nA\nBCDEFGHIJ\n\tKL\nMNO\nPQR" . repeat("\<BS>", 29) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
195 call assert_equal([' 1', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
196 \ 'abcdefghi', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
197 \ 'jk lmn', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
198 \ ' opq rst', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
199 \ 'uvwxyz'], getline(7, 11)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
200 normal G |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
201 exe "normal iab\tcdefghi\tjkl" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
202 exe "normal 0gRAB......CDEFGHI.J\<Esc>o" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
203 exe "normal iabcdefghijklmnopqrst\<Esc>0gRAB\tIJKLMNO\tQR" |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
204 call assert_equal(['AB......CDEFGHI.Jkl', |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
205 \ 'AB IJKLMNO QRst'], getline(12, 13)) |
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
206 enew! |
13406
4e30f3f4cb78
patch 8.0.1577: virtual replace test fails on MS-Windows
Christian Brabandt <cb@256bit.org>
parents:
13402
diff
changeset
|
207 set noai bs&vim |
13410
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
208 if exists('save_t_kD') |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
209 let &t_kD = save_t_kD |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
210 endif |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
211 if exists('save_t_kb') |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
212 let &t_kb = save_t_kb |
c571356c65bd
patch 8.0.1579: virtual replace test fails in GUI
Christian Brabandt <cb@256bit.org>
parents:
13406
diff
changeset
|
213 endif |
12686
aa658b33f25a
patch 8.0.1221: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
12644
diff
changeset
|
214 endfunc |
13402
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
215 |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
216 " Test Virtual replace mode. |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
217 func Test_virtual_replace2() |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
218 enew! |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
219 set bs=2 |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
220 exe "normal a\nabcdefghi\njk\tlmn\n opq rst\n\<C-D>uvwxyz" |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
221 call cursor(1,1) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
222 " Test 1: Test that del deletes the newline |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
223 exe "normal gR0\<del> 1\nA\nBCDEFGHIJ\n\tKL\nMNO\nPQR" |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
224 call assert_equal(['0 1', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
225 \ 'A', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
226 \ 'BCDEFGHIJ', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
227 \ ' KL', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
228 \ 'MNO', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
229 \ 'PQR', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
230 \ ], getline(1, 6)) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
231 " Test 2: |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
232 " a newline is not deleted, if no newline has been added in virtual replace mode |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
233 %d_ |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
234 call setline(1, ['abcd', 'efgh', 'ijkl']) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
235 call cursor(2,1) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
236 exe "norm! gR1234\<cr>5\<bs>\<bs>\<bs>" |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
237 call assert_equal(['abcd', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
238 \ '123h', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
239 \ 'ijkl'], getline(1, '$')) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
240 " Test 3: |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
241 " a newline is deleted, if a newline has been inserted before in virtual replace mode |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
242 %d_ |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
243 call setline(1, ['abcd', 'efgh', 'ijkl']) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
244 call cursor(2,1) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
245 exe "norm! gR1234\<cr>\<cr>56\<bs>\<bs>\<bs>" |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
246 call assert_equal(['abcd', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
247 \ '1234', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
248 \ 'ijkl'], getline(1, '$')) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
249 " Test 4: |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
250 " delete add a newline, delete it, add it again and check undo |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
251 %d_ |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
252 call setline(1, ['abcd', 'efgh', 'ijkl']) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
253 call cursor(2,1) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
254 " break undo sequence explicitly |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
255 let &ul = &ul |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
256 exe "norm! gR1234\<cr>\<bs>\<del>56\<cr>" |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
257 let &ul = &ul |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
258 call assert_equal(['abcd', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
259 \ '123456', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
260 \ ''], getline(1, '$')) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
261 norm! u |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
262 call assert_equal(['abcd', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
263 \ 'efgh', |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
264 \ 'ijkl'], getline(1, '$')) |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
265 " clean up |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
266 %d_ |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
267 set bs&vim |
338b15c63e2c
patch 8.0.1575: crash when using virtual replace
Christian Brabandt <cb@256bit.org>
parents:
12686
diff
changeset
|
268 endfunc |
15359
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
269 |
15462
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
270 func Test_Visual_word_textobject() |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
271 new |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
272 call setline(1, ['First sentence. Second sentence.']) |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
273 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
274 " When start and end of visual area are identical, 'aw' or 'iw' select |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
275 " the whole word. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
276 norm! 1go2fcvawy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
277 call assert_equal('Second ', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
278 norm! 1go2fcviwy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
279 call assert_equal('Second', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
280 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
281 " When start and end of visual area are not identical, 'aw' or 'iw' |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
282 " extend the word in direction of the end of the visual area. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
283 norm! 1go2fcvlawy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
284 call assert_equal('cond ', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
285 norm! gv2awy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
286 call assert_equal('cond sentence.', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
287 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
288 norm! 1go2fcvliwy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
289 call assert_equal('cond', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
290 norm! gv2iwy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
291 call assert_equal('cond sentence', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
292 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
293 " Extend visual area in opposite direction. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
294 norm! 1go2fcvhawy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
295 call assert_equal(' Sec', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
296 norm! gv2awy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
297 call assert_equal(' sentence. Sec', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
298 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
299 norm! 1go2fcvhiwy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
300 call assert_equal('Sec', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
301 norm! gv2iwy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
302 call assert_equal('. Sec', @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
303 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
304 bwipe! |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
305 endfunc |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
306 |
15359
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
307 func Test_Visual_sentence_textobject() |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
308 new |
15462
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
309 call setline(1, ['First sentence. Second sentence. Third', 'sentence. Fourth sentence']) |
15359
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
310 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
311 " When start and end of visual area are identical, 'as' or 'is' select |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
312 " the whole sentence. |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
313 norm! 1gofdvasy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
314 call assert_equal('Second sentence. ', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
315 norm! 1gofdvisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
316 call assert_equal('Second sentence.', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
317 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
318 " When start and end of visual area are not identical, 'as' or 'is' |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
319 " extend the sentence in direction of the end of the visual area. |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
320 norm! 1gofdvlasy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
321 call assert_equal('d sentence. ', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
322 norm! gvasy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
323 call assert_equal("d sentence. Third\nsentence. ", @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
324 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
325 norm! 1gofdvlisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
326 call assert_equal('d sentence.', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
327 norm! gvisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
328 call assert_equal('d sentence. ', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
329 norm! gvisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
330 call assert_equal("d sentence. Third\nsentence.", @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
331 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
332 " Extend visual area in opposite direction. |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
333 norm! 1gofdvhasy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
334 call assert_equal(' Second', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
335 norm! gvasy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
336 call assert_equal("First sentence. Second", @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
337 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
338 norm! 1gofdvhisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
339 call assert_equal('Second', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
340 norm! gvisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
341 call assert_equal(' Second', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
342 norm! gvisy |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
343 call assert_equal('First sentence. Second', @") |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
344 |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
345 bwipe! |
bdf5f546eba0
patch 8.1.0687: sentence text object in Visual mode is not tested
Bram Moolenaar <Bram@vim.org>
parents:
13978
diff
changeset
|
346 endfunc |
15462
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
347 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
348 func Test_Visual_paragraph_textobject() |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
349 new |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
350 call setline(1, ['First line.', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
351 \ '', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
352 \ 'Second line.', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
353 \ 'Third line.', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
354 \ 'Fourth line.', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
355 \ 'Fifth line.', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
356 \ '', |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
357 \ 'Sixth line.']) |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
358 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
359 " When start and end of visual area are identical, 'ap' or 'ip' select |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
360 " the whole paragraph. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
361 norm! 4ggvapy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
362 call assert_equal("Second line.\nThird line.\nFourth line.\nFifth line.\n\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
363 norm! 4ggvipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
364 call assert_equal("Second line.\nThird line.\nFourth line.\nFifth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
365 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
366 " When start and end of visual area are not identical, 'ap' or 'ip' |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
367 " extend the sentence in direction of the end of the visual area. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
368 " FIXME: actually, it is not sufficient to have different start and |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
369 " end of visual selection, the start line and end line have to differ, |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
370 " which is not consistent with the documentation. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
371 norm! 4ggVjapy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
372 call assert_equal("Third line.\nFourth line.\nFifth line.\n\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
373 norm! gvapy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
374 call assert_equal("Third line.\nFourth line.\nFifth line.\n\nSixth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
375 norm! 4ggVjipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
376 call assert_equal("Third line.\nFourth line.\nFifth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
377 norm! gvipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
378 call assert_equal("Third line.\nFourth line.\nFifth line.\n\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
379 norm! gvipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
380 call assert_equal("Third line.\nFourth line.\nFifth line.\n\nSixth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
381 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
382 " Extend visual area in opposite direction. |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
383 norm! 5ggVkapy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
384 call assert_equal("\nSecond line.\nThird line.\nFourth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
385 norm! gvapy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
386 call assert_equal("First line.\n\nSecond line.\nThird line.\nFourth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
387 norm! 5ggVkipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
388 call assert_equal("Second line.\nThird line.\nFourth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
389 norma gvipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
390 call assert_equal("\nSecond line.\nThird line.\nFourth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
391 norm! gvipy |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
392 call assert_equal("First line.\n\nSecond line.\nThird line.\nFourth line.\n", @") |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
393 |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
394 bwipe! |
2c44001e7e13
patch 8.1.0739: text objects in not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15359
diff
changeset
|
395 endfunc |
15985
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
396 |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
397 func Test_curswant_not_changed() |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
398 new |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
399 call setline(1, ['one', 'two']) |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
400 au InsertLeave * call getcurpos() |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
401 call feedkeys("gg0\<C-V>jI123 \<Esc>j", 'xt') |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
402 call assert_equal([0, 2, 1, 0, 1], getcurpos()) |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
403 |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
404 bwipe! |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
405 au! InsertLeave |
e91750e8adb5
patch 8.1.0998: getcurpos() unexpectedly changes "curswant"
Bram Moolenaar <Bram@vim.org>
parents:
15607
diff
changeset
|
406 endfunc |
16419
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
407 |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
408 " Tests for "vaBiB", end could be wrong. |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
409 func Test_Visual_Block() |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
410 new |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
411 a |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
412 - Bug in "vPPPP" on this text: |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
413 { |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
414 cmd; |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
415 { |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
416 cmd;\t/* <-- Start cursor here */ |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
417 { |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
418 } |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
419 } |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
420 } |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
421 . |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
422 normal gg |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
423 call search('Start cursor here') |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
424 normal vaBiBD |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
425 call assert_equal(['- Bug in "vPPPP" on this text:', |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
426 \ "\t{", |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
427 \ "\t}"], getline(1, '$')) |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
428 |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
429 close! |
aebcd20a8a3f
patch 8.1.1214: old style tests
Bram Moolenaar <Bram@vim.org>
parents:
15985
diff
changeset
|
430 endfunc |
18771
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
431 |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
432 " Test for 'p'ut in visual block mode |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
433 func Test_visual_block_put() |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
434 enew |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
435 |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
436 call append(0, ['One', 'Two', 'Three']) |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
437 normal gg |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
438 yank |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
439 call feedkeys("jl\<C-V>ljp", 'xt') |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
440 call assert_equal(['One', 'T', 'Tee', 'One', ''], getline(1, '$')) |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
441 |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
442 enew! |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
443 endfunc |
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
444 |
18804
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
445 " Visual modes (v V CTRL-V) followed by an operator; count; repeating |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
446 func Test_visual_mode_op() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
447 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
448 call append(0, '') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
449 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
450 call setline(1, 'apple banana cherry') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
451 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
452 normal lvld.l3vd. |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
453 call assert_equal('a y', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
454 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
455 call setline(1, ['line 1 line 1', 'line 2 line 2', 'line 3 line 3', |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
456 \ 'line 4 line 4', 'line 5 line 5', 'line 6 line 6']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
457 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
458 exe "normal Vcnewline\<Esc>j.j2Vd." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
459 call assert_equal(['newline', 'newline'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
460 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
461 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
462 call setline(1, ['xxxxxxxxxxxxx', 'xxxxxxxxxxxxx', 'xxxxxxxxxxxxx', |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
463 \ 'xxxxxxxxxxxxx']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
464 exe "normal \<C-V>jlc \<Esc>l.l2\<C-V>c----\<Esc>l." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
465 call assert_equal([' --------x', |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
466 \ ' --------x', |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
467 \ 'xxxx--------x', |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
468 \ 'xxxx--------x'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
469 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
470 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
471 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
472 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
473 " Visual mode maps (movement and text object) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
474 " Visual mode maps; count; repeating |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
475 " - Simple |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
476 " - With an Ex command (custom text object) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
477 func Test_visual_mode_maps() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
478 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
479 call append(0, '') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
480 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
481 func SelectInCaps() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
482 let [line1, col1] = searchpos('\u', 'bcnW') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
483 let [line2, col2] = searchpos('.\u', 'nW') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
484 call setpos("'<", [0, line1, col1, 0]) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
485 call setpos("'>", [0, line2, col2, 0]) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
486 normal! gv |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
487 endfunction |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
488 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
489 vnoremap W /\u/s-1<CR> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
490 vnoremap iW :<C-U>call SelectInCaps()<CR> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
491 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
492 call setline(1, 'KiwiRaspberryDateWatermelonPeach') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
493 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
494 exe "normal vWcNo\<Esc>l.fD2vd." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
495 call assert_equal('NoNoberryach', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
496 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
497 call setline(1, 'JambuRambutanBananaTangerineMango') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
498 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
499 exe "normal llviWc-\<Esc>l.l2vdl." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
500 call assert_equal('--ago', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
501 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
502 vunmap W |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
503 vunmap iW |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
504 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
505 delfunc SelectInCaps |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
506 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
507 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
508 " Operator-pending mode maps (movement and text object) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
509 " - Simple |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
510 " - With Ex command moving the cursor |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
511 " - With Ex command and Visual selection (custom text object) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
512 func Test_visual_oper_pending_mode_maps() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
513 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
514 call append(0, '') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
515 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
516 func MoveToCap() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
517 call search('\u', 'W') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
518 endfunction |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
519 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
520 func SelectInCaps() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
521 let [line1, col1] = searchpos('\u', 'bcnW') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
522 let [line2, col2] = searchpos('.\u', 'nW') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
523 call setpos("'<", [0, line1, col1, 0]) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
524 call setpos("'>", [0, line2, col2, 0]) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
525 normal! gv |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
526 endfunction |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
527 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
528 onoremap W /\u/<CR> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
529 onoremap <Leader>W :<C-U>call MoveToCap()<CR> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
530 onoremap iW :<C-U>call SelectInCaps()<CR> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
531 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
532 call setline(1, 'PineappleQuinceLoganberryOrangeGrapefruitKiwiZ') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
533 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
534 exe "normal cW-\<Esc>l.l2.l." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
535 call assert_equal('----Z', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
536 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
537 call setline(1, 'JuniperDurianZ') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
538 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
539 exe "normal g?\WfD." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
540 call assert_equal('WhavcreQhevnaZ', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
541 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
542 call setline(1, 'LemonNectarineZ') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
543 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
544 exe "normal yiWPlciWNew\<Esc>fr." |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
545 call assert_equal('LemonNewNewZ', getline(1)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
546 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
547 ounmap W |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
548 ounmap <Leader>W |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
549 ounmap iW |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
550 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
551 delfunc MoveToCap |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
552 delfunc SelectInCaps |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
553 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
554 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
555 " Patch 7.3.879: Properly abort Operator-pending mode for "dv:<Esc>" etc. |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
556 func Test_op_pend_mode_abort() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
557 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
558 call append(0, '') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
559 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
560 call setline(1, ['zzzz', 'zzzz']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
561 call cursor(1, 1) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
562 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
563 exe "normal dV:\<CR>dv:\<CR>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
564 call assert_equal(['zzz'], getline(1, 2)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
565 set nomodifiable |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
566 call assert_fails('exe "normal d:\<CR>"', 'E21:') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
567 set modifiable |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
568 call feedkeys("dv:\<Esc>dV:\<Esc>", 'xt') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
569 call assert_equal(['zzz'], getline(1, 2)) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
570 set nomodifiable |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
571 let v:errmsg = '' |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
572 call feedkeys("d:\<Esc>", 'xt') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
573 call assert_true(v:errmsg !~# '^E21:') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
574 set modifiable |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
575 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
576 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
577 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
578 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
579 func Test_characterwise_visual_mode() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
580 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
581 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
582 " characterwise visual mode: replace last line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
583 $put ='a' |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
584 let @" = 'x' |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
585 normal v$p |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
586 call assert_equal('x', getline('$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
587 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
588 " characterwise visual mode: delete middle line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
589 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
590 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
591 normal G |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
592 normal kkv$d |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
593 call assert_equal(['', 'b', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
594 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
595 " characterwise visual mode: delete middle two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
596 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
597 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
598 normal Gkkvj$d |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
599 call assert_equal(['', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
600 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
601 " characterwise visual mode: delete last line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
602 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
603 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
604 normal Gv$d |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
605 call assert_equal(['', 'a', 'b', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
606 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
607 " characterwise visual mode: delete last two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
608 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
609 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
610 normal Gkvj$d |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
611 call assert_equal(['', 'a', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
612 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
613 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
614 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
615 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
616 func Test_characterwise_select_mode() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
617 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
618 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
619 " Select mode maps |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
620 snoremap <lt>End> <End> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
621 snoremap <lt>Down> <Down> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
622 snoremap <lt>Del> <Del> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
623 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
624 " characterwise select mode: delete middle line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
625 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
626 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
627 exe "normal Gkkgh\<End>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
628 call assert_equal(['', 'b', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
629 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
630 " characterwise select mode: delete middle two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
631 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
632 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
633 exe "normal Gkkgh\<Down>\<End>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
634 call assert_equal(['', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
635 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
636 " characterwise select mode: delete last line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
637 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
638 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
639 exe "normal Ggh\<End>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
640 call assert_equal(['', 'a', 'b', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
641 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
642 " characterwise select mode: delete last two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
643 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
644 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
645 exe "normal Gkgh\<Down>\<End>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
646 call assert_equal(['', 'a', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
647 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
648 sunmap <lt>End> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
649 sunmap <lt>Down> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
650 sunmap <lt>Del> |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
651 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
652 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
653 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
654 func Test_linewise_select_mode() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
655 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
656 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
657 " linewise select mode: delete middle line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
658 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
659 exe "normal GkkgH\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
660 call assert_equal(['', 'b', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
661 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
662 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
663 " linewise select mode: delete middle two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
664 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
665 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
666 exe "normal GkkgH\<Down>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
667 call assert_equal(['', 'c'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
668 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
669 " linewise select mode: delete last line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
670 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
671 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
672 exe "normal GgH\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
673 call assert_equal(['', 'a', 'b'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
674 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
675 " linewise select mode: delete last two lines |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
676 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
677 call append('$', ['a', 'b', 'c']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
678 exe "normal GkgH\<Down>\<Del>" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
679 call assert_equal(['', 'a'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
680 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
681 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
682 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
683 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
684 func Test_visual_mode_put() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
685 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
686 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
687 " v_p: replace last character with line register at middle line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
688 call append('$', ['aaa', 'bbb', 'ccc']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
689 normal G |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
690 -2yank |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
691 normal k$vp |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
692 call assert_equal(['', 'aaa', 'bb', 'aaa', '', 'ccc'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
693 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
694 " v_p: replace last character with line register at middle line selecting |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
695 " newline |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
696 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
697 call append('$', ['aaa', 'bbb', 'ccc']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
698 normal G |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
699 -2yank |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
700 normal k$v$p |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
701 call assert_equal(['', 'aaa', 'bb', 'aaa', 'ccc'], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
702 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
703 " v_p: replace last character with line register at last line |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
704 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
705 call append('$', ['aaa', 'bbb', 'ccc']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
706 normal G |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
707 -2yank |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
708 normal $vp |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
709 call assert_equal(['', 'aaa', 'bbb', 'cc', 'aaa', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
710 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
711 " v_p: replace last character with line register at last line selecting |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
712 " newline |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
713 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
714 call append('$', ['aaa', 'bbb', 'ccc']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
715 normal G |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
716 -2yank |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
717 normal $v$p |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
718 call assert_equal(['', 'aaa', 'bbb', 'cc', 'aaa', ''], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
719 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
720 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
721 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
722 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
723 func Test_select_mode_gv() |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
724 new |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
725 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
726 " gv in exclusive select mode after operation |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
727 call append('$', ['zzz ', 'äà ']) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
728 set selection=exclusive |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
729 normal Gkv3lyjv3lpgvcxxx |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
730 call assert_equal(['', 'zzz ', 'xxx '], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
731 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
732 " gv in exclusive select mode without operation |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
733 call deletebufline('', 1, '$') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
734 call append('$', 'zzz ') |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
735 set selection=exclusive |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
736 exe "normal G0v3l\<Esc>gvcxxx" |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
737 call assert_equal(['', 'xxx '], getline(1, '$')) |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
738 |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
739 set selection&vim |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
740 bwipe! |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
741 endfunc |
2d41b63f52de
patch 8.1.2390: test94 is old style, fix 7.4.441 not tested
Bram Moolenaar <Bram@vim.org>
parents:
18771
diff
changeset
|
742 |
18825
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
743 " Tests for the visual block mode commands |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
744 func Test_visual_block_mode() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
745 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
746 call append(0, '') |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
747 call setline(1, ['abcdefghijklm', 'abcdefghijklm', 'abcdefghijklm', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
748 \ 'abcdefghijklm', 'abcdefghijklm']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
749 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
750 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
751 " Test shift-right of a block |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
752 exe "normal jllll\<C-V>jj>wll\<C-V>jlll>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
753 " Test shift-left of a block |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
754 exe "normal G$hhhh\<C-V>kk<" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
755 " Test block-insert |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
756 exe "normal Gkl\<C-V>kkkIxyz" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
757 " Test block-replace |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
758 exe "normal Gllll\<C-V>kkklllrq" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
759 " Test block-change |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
760 exe "normal G$khhh\<C-V>hhkkcmno" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
761 call assert_equal(['axyzbcdefghijklm', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
762 \ 'axyzqqqq mno ghijklm', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
763 \ 'axyzqqqqef mno ghijklm', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
764 \ 'axyzqqqqefgmnoklm', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
765 \ 'abcdqqqqijklm'], getline(1, 5)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
766 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
767 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
768 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
769 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
770 " Test block-insert using cursor keys for movement |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
771 func Test_visual_block_insert_cursor_keys() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
772 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
773 call append(0, ['aaaaaa', 'bbbbbb', 'cccccc', 'dddddd']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
774 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
775 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
776 exe "norm! l\<C-V>jjjlllI\<Right>\<Right> \<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
777 call assert_equal(['aaa aaa', 'bbb bbb', 'ccc ccc', 'ddd ddd'], |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
778 \ getline(1, 4)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
779 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
780 call deletebufline('', 1, '$') |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
781 call setline(1, ['xaaa', 'bbbb', 'cccc', 'dddd']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
782 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
783 exe "norm! \<C-V>jjjI<>\<Left>p\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
784 call assert_equal(['<p>xaaa', '<p>bbbb', '<p>cccc', '<p>dddd'], |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
785 \ getline(1, 4)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
786 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
787 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
788 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
789 func Test_visual_block_create() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
790 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
791 call append(0, '') |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
792 " Test for Visual block was created with the last <C-v>$ |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
793 call setline(1, ['A23', '4567']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
794 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
795 exe "norm! l\<C-V>j$Aab\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
796 call assert_equal(['A23ab', '4567ab'], getline(1, 2)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
797 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
798 " Test for Visual block was created with the middle <C-v>$ (1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
799 call deletebufline('', 1, '$') |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
800 call setline(1, ['B23', '4567']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
801 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
802 exe "norm! l\<C-V>j$hAab\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
803 call assert_equal(['B23 ab', '4567ab'], getline(1, 2)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
804 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
805 " Test for Visual block was created with the middle <C-v>$ (2) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
806 call deletebufline('', 1, '$') |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
807 call setline(1, ['C23', '4567']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
808 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
809 exe "norm! l\<C-V>j$hhAab\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
810 call assert_equal(['C23ab', '456ab7'], getline(1, 2)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
811 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
812 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
813 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
814 " Test for Visual block insert when virtualedit=all |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
815 func Test_virtualedit_visual_block() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
816 set ve=all |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
817 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
818 call append(0, ["\t\tline1", "\t\tline2", "\t\tline3"]) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
819 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
820 exe "norm! 07l\<C-V>jjIx\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
821 call assert_equal([" x \tline1", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
822 \ " x \tline2", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
823 \ " x \tline3"], getline(1, 3)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
824 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
825 " Test for Visual block append when virtualedit=all |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
826 exe "norm! 012l\<C-v>jjAx\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
827 call assert_equal([' x x line1', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
828 \ ' x x line2', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
829 \ ' x x line3'], getline(1, 3)) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
830 set ve= |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
831 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
832 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
833 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
834 " Test for changing case |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
835 func Test_visual_change_case() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
836 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
837 " gUe must uppercase a whole word, also when ß changes to SS |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
838 exe "normal Gothe youtußeuu end\<Esc>Ypk0wgUe\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
839 " gUfx must uppercase until x, inclusive. |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
840 exe "normal O- youßtußexu -\<Esc>0fogUfx\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
841 " VU must uppercase a whole line |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
842 exe "normal YpkVU\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
843 " same, when it's the last line in the buffer |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
844 exe "normal YPGi111\<Esc>VUddP\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
845 " Uppercase two lines |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
846 exe "normal Oblah di\rdoh dut\<Esc>VkUj\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
847 " Uppercase part of two lines |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
848 exe "normal ddppi333\<Esc>k0i222\<Esc>fyllvjfuUk" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
849 call assert_equal(['the YOUTUSSEUU end', '- yOUSSTUSSEXu -', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
850 \ 'THE YOUTUSSEUU END', '111THE YOUTUSSEUU END', 'BLAH DI', 'DOH DUT', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
851 \ '222the yoUTUSSEUU END', '333THE YOUTUßeuu end'], getline(2, '$')) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
852 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
853 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
854 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
855 " Test for Visual replace using Enter or NL |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
856 func Test_visual_replace_crnl() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
857 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
858 exe "normal G3o123456789\e2k05l\<C-V>2jr\r" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
859 exe "normal G3o98765\e2k02l\<C-V>2jr\<C-V>\r\n" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
860 exe "normal G3o123456789\e2k05l\<C-V>2jr\n" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
861 exe "normal G3o98765\e2k02l\<C-V>2jr\<C-V>\n" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
862 call assert_equal(['12345', '789', '12345', '789', '12345', '789', "98\r65", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
863 \ "98\r65", "98\r65", '12345', '789', '12345', '789', '12345', '789', |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
864 \ "98\n65", "98\n65", "98\n65"], getline(2, '$')) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
865 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
866 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
867 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
868 func Test_ve_block_curpos() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
869 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
870 " Test cursor position. When ve=block and Visual block mode and $gj |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
871 call append(0, ['12345', '789']) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
872 call cursor(1, 3) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
873 set virtualedit=block |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
874 exe "norm! \<C-V>$gj\<Esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
875 call assert_equal([0, 2, 4, 0], getpos("'>")) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
876 set virtualedit= |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
877 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
878 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
879 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
880 " Test for block_insert when replacing spaces in front of the a with tabs |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
881 func Test_block_insert_replace_tabs() |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
882 new |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
883 set ts=8 sts=4 sw=4 |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
884 call append(0, ["#define BO_ALL\t 0x0001", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
885 \ "#define BO_BS\t 0x0002", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
886 \ "#define BO_CRSR\t 0x0004"]) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
887 call cursor(1, 1) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
888 exe "norm! f0\<C-V>2jI\<tab>\<esc>" |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
889 call assert_equal([ |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
890 \ "#define BO_ALL\t\t0x0001", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
891 \ "#define BO_BS\t \t0x0002", |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
892 \ "#define BO_CRSR\t \t0x0004", ''], getline(1, '$')) |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
893 set ts& sts& sw& |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
894 bwipe! |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
895 endfunc |
70f1e352d599
patch 8.1.2400: test39 is old style
Bram Moolenaar <Bram@vim.org>
parents:
18804
diff
changeset
|
896 |
19425
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
897 " Test for * register in : |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
898 func Test_star_register() |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
899 call assert_fails('*bfirst', 'E16:') |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
900 new |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
901 call setline(1, ['foo', 'bar', 'baz', 'qux']) |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
902 exe "normal jVj\<ESC>" |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
903 *yank r |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
904 call assert_equal("bar\nbaz\n", @r) |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
905 |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
906 delmarks < > |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
907 call assert_fails('*yank', 'E20:') |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
908 close! |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
909 endfunc |
67fbe280a502
patch 8.2.0270: some code not covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
18825
diff
changeset
|
910 |
18771
50fde4e20790
patch 8.1.2375: no suffucient testing for registers
Bram Moolenaar <Bram@vim.org>
parents:
16419
diff
changeset
|
911 " vim: shiftwidth=2 sts=2 expandtab |