blob: 80d2a268603a43d7980b77847cc99d995a9d05d2 [file] [log] [blame]
Bram Moolenaarf52f9ea2018-06-27 20:49:44 +02001" Tests for put commands, e.g. ":put", "p", "gp", "P", "gP", etc.
Bram Moolenaarc8129962017-01-22 20:04:51 +01002
3func Test_put_block()
Bram Moolenaarc8129962017-01-22 20:04:51 +01004 new
5 call feedkeys("i\<C-V>u2500\<CR>x\<ESC>", 'x')
6 call feedkeys("\<C-V>y", 'x')
7 call feedkeys("gg0p", 'x')
8 call assert_equal("\u2500x", getline(1))
9 bwipe!
10endfunc
Bram Moolenaar9957a102017-01-23 21:53:53 +010011
12func Test_put_char_block()
13 new
14 call setline(1, ['Line 1', 'Line 2'])
15 f Xfile_put
16 " visually select both lines and put the cursor at the top of the visual
17 " selection and then put the buffer name over it
18 exe "norm! G0\<c-v>ke\"%p"
19 call assert_equal(['Xfile_put 1', 'Xfile_put 2'], getline(1,2))
20 bw!
21endfunc
Bram Moolenaar941c12d2017-01-24 19:55:43 +010022
23func Test_put_char_block2()
24 new
25 let a = [ getreg('a'), getregtype('a') ]
26 call setreg('a', ' one ', 'v')
27 call setline(1, ['Line 1', '', 'Line 3', ''])
28 " visually select the first 3 lines and put register a over it
29 exe "norm! ggl\<c-v>2j2l\"ap"
30 call assert_equal(['L one 1', '', 'L one 3', ''], getline(1,4))
31 " clean up
32 bw!
33 call setreg('a', a[0], a[1])
34endfunc
Bram Moolenaar18d90b92017-06-27 15:39:14 +020035
36func Test_put_lines()
37 new
38 let a = [ getreg('a'), getregtype('a') ]
39 call setline(1, ['Line 1', 'Line2', 'Line 3', ''])
40 exe 'norm! gg"add"AddG""p'
41 call assert_equal(['Line 3', '', 'Line 1', 'Line2'], getline(1,'$'))
42 " clean up
43 bw!
44 call setreg('a', a[0], a[1])
45endfunc
Bram Moolenaar833093b2018-05-23 21:53:52 +020046
47func Test_put_expr()
48 new
49 call setline(1, repeat(['A'], 6))
50 exec "1norm! \"=line('.')\<cr>p"
51 norm! j0.
52 norm! j0.
53 exec "4norm! \"=\<cr>P"
54 norm! j0.
55 norm! j0.
56 call assert_equal(['A1','A2','A3','4A','5A','6A'], getline(1,'$'))
57 bw!
58endfunc
Bram Moolenaarf52f9ea2018-06-27 20:49:44 +020059
60func Test_put_fails_when_nomodifiable()
61 new
Bram Moolenaarec12d642018-06-27 23:12:36 +020062 setlocal nomodifiable
Bram Moolenaarf52f9ea2018-06-27 20:49:44 +020063
64 normal! yy
65 call assert_fails(':put', 'E21')
66 call assert_fails(':put!', 'E21')
67 call assert_fails(':normal! p', 'E21')
68 call assert_fails(':normal! gp', 'E21')
69 call assert_fails(':normal! P', 'E21')
70 call assert_fails(':normal! gP', 'E21')
71
72 if has('mouse')
73 set mouse=n
74 call assert_fails('execute "normal! \<MiddleMouse>"', 'E21')
75 set mouse&
76 endif
77
78 bwipeout!
79endfunc
80
81" A bug was discovered where the Normal mode put commands (e.g., "p") would
82" output duplicate error messages when invoked in a non-modifiable buffer.
83func Test_put_p_errmsg_nodup()
84 new
Bram Moolenaarec12d642018-06-27 23:12:36 +020085 setlocal nomodifiable
Bram Moolenaarf52f9ea2018-06-27 20:49:44 +020086
87 normal! yy
88
89 func Capture_p_error()
90 redir => s:p_err
91 normal! p
92 redir END
93 endfunc
94
95 silent! call Capture_p_error()
96
97 " Error message output within a function should be three lines (the function
98 " name, the line number, and the error message).
99 call assert_equal(3, count(s:p_err, "\n"))
100
101 delfunction Capture_p_error
102 bwipeout!
103endfunc
Bram Moolenaar0ab190c2019-05-23 23:27:36 +0200104
105func Test_put_p_indent_visual()
106 new
107 call setline(1, ['select this text', 'select that text'])
108 " yank "that" from the second line
109 normal 2Gwvey
110 " select "this" in the first line and put
111 normal k0wve[p
112 call assert_equal('select that text', getline(1))
113 call assert_equal('select that text', getline(2))
114 bwipe!
115endfunc