2019-04-01 18:46:16 -07:00
|
|
|
|
" Tests for put commands, e.g. ":put", "p", "gp", "P", "gP", etc.
|
2018-02-20 13:44:37 -07:00
|
|
|
|
|
2022-01-28 15:05:39 -07:00
|
|
|
|
source check.vim
|
2023-04-22 09:30:52 -07:00
|
|
|
|
source screendump.vim
|
2022-01-28 15:05:39 -07:00
|
|
|
|
|
2018-02-20 13:44:37 -07:00
|
|
|
|
func Test_put_block()
|
|
|
|
|
new
|
|
|
|
|
call feedkeys("i\<C-V>u2500\<CR>x\<ESC>", 'x')
|
|
|
|
|
call feedkeys("\<C-V>y", 'x')
|
|
|
|
|
call feedkeys("gg0p", 'x')
|
|
|
|
|
call assert_equal("\u2500x", getline(1))
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
2018-02-21 13:56:47 -07:00
|
|
|
|
|
|
|
|
|
func Test_put_char_block()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['Line 1', 'Line 2'])
|
|
|
|
|
f Xfile_put
|
|
|
|
|
" visually select both lines and put the cursor at the top of the visual
|
|
|
|
|
" selection and then put the buffer name over it
|
|
|
|
|
exe "norm! G0\<c-v>ke\"%p"
|
|
|
|
|
call assert_equal(['Xfile_put 1', 'Xfile_put 2'], getline(1,2))
|
|
|
|
|
bw!
|
|
|
|
|
endfunc
|
2018-03-04 07:53:50 -07:00
|
|
|
|
|
|
|
|
|
func Test_put_char_block2()
|
|
|
|
|
new
|
|
|
|
|
call setreg('a', ' one ', 'v')
|
|
|
|
|
call setline(1, ['Line 1', '', 'Line 3', ''])
|
|
|
|
|
" visually select the first 3 lines and put register a over it
|
|
|
|
|
exe "norm! ggl\<c-v>2j2l\"ap"
|
2020-10-18 09:17:42 -07:00
|
|
|
|
call assert_equal(['L one 1', '', 'L one 3', ''], getline(1, 4))
|
|
|
|
|
" clean up
|
|
|
|
|
bw!
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_put_lines()
|
|
|
|
|
new
|
|
|
|
|
let a = [ getreg('a'), getregtype('a') ]
|
|
|
|
|
call setline(1, ['Line 1', 'Line2', 'Line 3', ''])
|
|
|
|
|
exe 'norm! gg"add"AddG""p'
|
|
|
|
|
call assert_equal(['Line 3', '', 'Line 1', 'Line2'], getline(1, '$'))
|
2018-03-04 07:53:50 -07:00
|
|
|
|
" clean up
|
|
|
|
|
bw!
|
2021-10-31 11:10:46 -07:00
|
|
|
|
eval a[0]->setreg('a', a[1])
|
2018-03-04 07:53:50 -07:00
|
|
|
|
endfunc
|
2018-08-28 21:06:37 -07:00
|
|
|
|
|
|
|
|
|
func Test_put_expr()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, repeat(['A'], 6))
|
|
|
|
|
exec "1norm! \"=line('.')\<cr>p"
|
|
|
|
|
norm! j0.
|
|
|
|
|
norm! j0.
|
|
|
|
|
exec "4norm! \"=\<cr>P"
|
|
|
|
|
norm! j0.
|
|
|
|
|
norm! j0.
|
2020-10-18 09:17:42 -07:00
|
|
|
|
call assert_equal(['A1','A2','A3','4A','5A','6A'], getline(1, '$'))
|
2018-08-28 21:06:37 -07:00
|
|
|
|
bw!
|
|
|
|
|
endfunc
|
2019-04-01 18:18:42 -07:00
|
|
|
|
|
2019-04-01 18:46:16 -07:00
|
|
|
|
func Test_put_fails_when_nomodifiable()
|
|
|
|
|
new
|
2019-04-01 18:48:06 -07:00
|
|
|
|
setlocal nomodifiable
|
2019-04-01 18:46:16 -07:00
|
|
|
|
|
|
|
|
|
normal! yy
|
|
|
|
|
call assert_fails(':put', 'E21')
|
|
|
|
|
call assert_fails(':put!', 'E21')
|
|
|
|
|
call assert_fails(':normal! p', 'E21')
|
|
|
|
|
call assert_fails(':normal! gp', 'E21')
|
|
|
|
|
call assert_fails(':normal! P', 'E21')
|
|
|
|
|
call assert_fails(':normal! gP', 'E21')
|
|
|
|
|
|
|
|
|
|
if has('mouse')
|
|
|
|
|
set mouse=n
|
|
|
|
|
call assert_fails('execute "normal! \<MiddleMouse>"', 'E21')
|
|
|
|
|
set mouse&
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
bwipeout!
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" A bug was discovered where the Normal mode put commands (e.g., "p") would
|
|
|
|
|
" output duplicate error messages when invoked in a non-modifiable buffer.
|
|
|
|
|
func Test_put_p_errmsg_nodup()
|
|
|
|
|
new
|
2019-04-01 18:48:06 -07:00
|
|
|
|
setlocal nomodifiable
|
2019-04-01 18:46:16 -07:00
|
|
|
|
|
|
|
|
|
normal! yy
|
|
|
|
|
|
|
|
|
|
func Capture_p_error()
|
|
|
|
|
redir => s:p_err
|
|
|
|
|
normal! p
|
|
|
|
|
redir END
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
silent! call Capture_p_error()
|
|
|
|
|
|
|
|
|
|
" Error message output within a function should be three lines (the function
|
|
|
|
|
" name, the line number, and the error message).
|
|
|
|
|
call assert_equal(3, count(s:p_err, "\n"))
|
|
|
|
|
|
|
|
|
|
delfunction Capture_p_error
|
|
|
|
|
bwipeout!
|
|
|
|
|
endfunc
|
2019-05-23 16:35:44 -07:00
|
|
|
|
|
|
|
|
|
func Test_put_p_indent_visual()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['select this text', 'select that text'])
|
|
|
|
|
" yank "that" from the second line
|
|
|
|
|
normal 2Gwvey
|
|
|
|
|
" select "this" in the first line and put
|
|
|
|
|
normal k0wve[p
|
|
|
|
|
call assert_equal('select that text', getline(1))
|
|
|
|
|
call assert_equal('select that text', getline(2))
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
2021-11-26 04:16:04 -07:00
|
|
|
|
|
2022-07-12 22:47:01 -07:00
|
|
|
|
" Test for deleting all the contents of a buffer with a put
|
|
|
|
|
func Test_put_visual_delete_all_lines()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['one', 'two', 'three'])
|
|
|
|
|
let @r = ''
|
|
|
|
|
normal! VG"rgp
|
|
|
|
|
call assert_equal(1, line('$'))
|
|
|
|
|
close!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-01-28 15:05:39 -07:00
|
|
|
|
func Test_gp_with_count_leaves_cursor_at_end()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, '<---->')
|
|
|
|
|
call setreg('@', "foo\nbar", 'c')
|
2022-01-28 15:05:39 -07:00
|
|
|
|
normal 1G3|3gp
|
|
|
|
|
call assert_equal([0, 4, 4, 0], getpos("."))
|
|
|
|
|
call assert_equal(['<--foo', 'barfoo', 'barfoo', 'bar-->'], getline(1, '$'))
|
|
|
|
|
call assert_equal([0, 4, 3, 0], getpos("']"))
|
2022-01-28 15:05:39 -07:00
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-01-28 15:05:39 -07:00
|
|
|
|
func Test_p_with_count_leaves_mark_at_end()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, '<---->')
|
|
|
|
|
call setreg('@', "start\nend", 'c')
|
|
|
|
|
normal 1G3|3p
|
|
|
|
|
call assert_equal([0, 1, 4, 0], getpos("."))
|
|
|
|
|
call assert_equal(['<--start', 'endstart', 'endstart', 'end-->'], getline(1, '$'))
|
|
|
|
|
call assert_equal([0, 4, 3, 0], getpos("']"))
|
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-02-16 14:21:05 -07:00
|
|
|
|
func Test_very_large_count()
|
2022-02-16 15:37:10 -07:00
|
|
|
|
new
|
|
|
|
|
" total put-length (21474837 * 100) brings 32 bit int overflow
|
|
|
|
|
let @" = repeat('x', 100)
|
|
|
|
|
call assert_fails('norm 21474837p', 'E1240:')
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_very_large_count_64bit()
|
|
|
|
|
throw 'Skipped: v:sizeoflong is N/A' " use legacy/put_spec.lua instead
|
2022-02-16 15:31:40 -07:00
|
|
|
|
|
2022-02-16 15:37:10 -07:00
|
|
|
|
if v:sizeoflong < 8
|
|
|
|
|
throw 'Skipped: only works with 64 bit long ints'
|
2022-02-16 15:31:40 -07:00
|
|
|
|
endif
|
|
|
|
|
|
2022-02-15 11:04:22 -07:00
|
|
|
|
new
|
2022-02-17 17:55:00 -07:00
|
|
|
|
let @" = repeat('x', 100)
|
|
|
|
|
call assert_fails('norm 999999999p', 'E1240:')
|
2022-02-15 11:04:22 -07:00
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-02-16 15:37:10 -07:00
|
|
|
|
func Test_very_large_count_block()
|
|
|
|
|
new
|
|
|
|
|
" total put-length (21474837 * 100) brings 32 bit int overflow
|
|
|
|
|
call setline(1, repeat('x', 100))
|
|
|
|
|
exe "norm \<C-V>99ly"
|
|
|
|
|
call assert_fails('norm 21474837p', 'E1240:')
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_very_large_count_block_64bit()
|
|
|
|
|
throw 'Skipped: v:sizeoflong is N/A' " use legacy/put_spec.lua instead
|
|
|
|
|
|
|
|
|
|
if v:sizeoflong < 8
|
|
|
|
|
throw 'Skipped: only works with 64 bit long ints'
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
new
|
2022-02-17 17:55:00 -07:00
|
|
|
|
call setline(1, repeat('x', 100))
|
|
|
|
|
exe "norm \<C-V>$y"
|
|
|
|
|
call assert_fails('norm 999999999p', 'E1240:')
|
2022-02-16 15:37:10 -07:00
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-01-28 15:05:39 -07:00
|
|
|
|
func Test_put_above_first_line()
|
|
|
|
|
new
|
|
|
|
|
let @" = 'text'
|
|
|
|
|
silent! normal 0o00
|
|
|
|
|
0put
|
|
|
|
|
call assert_equal('text', getline(1))
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2021-11-26 04:16:04 -07:00
|
|
|
|
func Test_multibyte_op_end_mark()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, 'тест')
|
|
|
|
|
normal viwdp
|
|
|
|
|
call assert_equal([0, 1, 7, 0], getpos("'>"))
|
|
|
|
|
call assert_equal([0, 1, 7, 0], getpos("']"))
|
2021-12-28 10:15:16 -07:00
|
|
|
|
|
2021-11-26 04:16:04 -07:00
|
|
|
|
normal Vyp
|
2023-03-06 20:04:36 -07:00
|
|
|
|
call assert_equal([0, 1, v:maxcol, 0], getpos("'>"))
|
2021-11-26 04:16:04 -07:00
|
|
|
|
call assert_equal([0, 2, 7, 0], getpos("']"))
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
2022-05-25 16:20:39 -07:00
|
|
|
|
|
|
|
|
|
" this was putting a mark before the start of a line
|
|
|
|
|
func Test_put_empty_register()
|
|
|
|
|
new
|
|
|
|
|
norm yy
|
|
|
|
|
norm [Pi00ggv)s0
|
|
|
|
|
sil! norm [P
|
|
|
|
|
bwipe!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-06-30 05:16:00 -07:00
|
|
|
|
" this was putting the end mark after the end of the line
|
|
|
|
|
func Test_put_visual_mode()
|
|
|
|
|
edit! SomeNewBuffer
|
|
|
|
|
set selection=exclusive
|
|
|
|
|
exe "norm o\t"
|
|
|
|
|
m0
|
|
|
|
|
sil! norm
p
p
|
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
set selection&
|
|
|
|
|
endfunc
|
|
|
|
|
|
2023-03-03 17:39:54 -07:00
|
|
|
|
func Test_put_visual_block_mode()
|
|
|
|
|
enew
|
|
|
|
|
exe "norm 0R\<CR>\<C-C>V"
|
|
|
|
|
sil exe "norm \<C-V>c \<MiddleDrag>"
|
|
|
|
|
set ve=all
|
|
|
|
|
sil norm vz=p
|
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
set ve=
|
|
|
|
|
endfunc
|
|
|
|
|
|
2023-04-22 09:30:52 -07:00
|
|
|
|
func Test_put_other_window()
|
|
|
|
|
CheckRunVimInTerminal
|
|
|
|
|
|
|
|
|
|
let lines =<< trim END
|
|
|
|
|
40vsplit
|
|
|
|
|
0put ='some text at the top'
|
|
|
|
|
put =' one more text'
|
|
|
|
|
put =' two more text'
|
|
|
|
|
put =' three more text'
|
|
|
|
|
put =' four more text'
|
|
|
|
|
END
|
|
|
|
|
call writefile(lines, 'Xtest_put_other', 'D')
|
|
|
|
|
let buf = RunVimInTerminal('-S Xtest_put_other', #{rows: 10})
|
|
|
|
|
|
|
|
|
|
call VerifyScreenDump(buf, 'Test_put_other_window_1', {})
|
|
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
|
endfunc
|
|
|
|
|
|
2023-06-01 17:48:49 -07:00
|
|
|
|
func Test_put_in_last_displayed_line()
|
|
|
|
|
CheckRunVimInTerminal
|
|
|
|
|
|
|
|
|
|
let lines =<< trim END
|
|
|
|
|
vim9script
|
|
|
|
|
autocmd CursorMoved * eval line('w$')
|
|
|
|
|
@a = 'x'->repeat(&columns * 2 - 2)
|
|
|
|
|
range(&lines)->setline(1)
|
|
|
|
|
feedkeys('G"ap')
|
|
|
|
|
END
|
|
|
|
|
call writefile(lines, 'Xtest_put_last_line', 'D')
|
|
|
|
|
let buf = RunVimInTerminal('-S Xtest_put_last_line', #{rows: 10})
|
|
|
|
|
|
|
|
|
|
call VerifyScreenDump(buf, 'Test_put_in_last_displayed_line_1', {})
|
|
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-05-25 16:20:39 -07:00
|
|
|
|
|
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|