mirror of
https://github.com/vim/vim.git
synced 2025-07-26 11:04:33 -04:00
c25a7084e9
Problem: ex: no implicit print for single addresses
Solution: explicitly print even during single addresses,
as requested by POSIX (Mohamed Akram)
See the POSIX behaviour here:
https://pubs.opengroup.org/onlinepubs/9699919799/utilities/ex.html#tag_20_40_13_03
Section 6b
closes: #15230
Signed-off-by: Mohamed Akram <mohd.akram@outlook.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
339 lines
9.6 KiB
VimL
339 lines
9.6 KiB
VimL
" Tests for bracketed paste and other forms of pasting.
|
|
|
|
" Bracketed paste only works with "xterm". Not in GUI or Windows console.
|
|
source check.vim
|
|
source term_util.vim
|
|
CheckNotMSWindows
|
|
CheckNotGui
|
|
|
|
set term=xterm
|
|
|
|
source shared.vim
|
|
|
|
func Test_paste_normal_mode()
|
|
new
|
|
" In first column text is inserted
|
|
call setline(1, ['a', 'b', 'c'])
|
|
call cursor(2, 1)
|
|
call feedkeys("\<Esc>[200~foo\<CR>bar\<Esc>[201~", 'xt')
|
|
call assert_equal('foo', getline(2))
|
|
call assert_equal('barb', getline(3))
|
|
call assert_equal('c', getline(4))
|
|
|
|
" When repeating text is appended
|
|
normal .
|
|
call assert_equal('barfoo', getline(3))
|
|
call assert_equal('barb', getline(4))
|
|
call assert_equal('c', getline(5))
|
|
bwipe!
|
|
|
|
" In second column text is appended
|
|
call setline(1, ['a', 'bbb', 'c'])
|
|
call cursor(2, 2)
|
|
call feedkeys("\<Esc>[200~foo\<CR>bar\<Esc>[201~", 'xt')
|
|
call assert_equal('bbfoo', getline(2))
|
|
call assert_equal('barb', getline(3))
|
|
call assert_equal('c', getline(4))
|
|
|
|
" In last column text is appended
|
|
call setline(1, ['a', 'bbb', 'c'])
|
|
call cursor(2, 3)
|
|
call feedkeys("\<Esc>[200~foo\<CR>bar\<Esc>[201~", 'xt')
|
|
call assert_equal('bbbfoo', getline(2))
|
|
call assert_equal('bar', getline(3))
|
|
call assert_equal('c', getline(4))
|
|
endfunc
|
|
|
|
func Test_paste_insert_mode()
|
|
new
|
|
call setline(1, ['a', 'b', 'c'])
|
|
2
|
|
call feedkeys("i\<Esc>[200~foo\<CR>bar\<Esc>[201~ done\<Esc>", 'xt')
|
|
call assert_equal('foo', getline(2))
|
|
call assert_equal('bar doneb', getline(3))
|
|
call assert_equal('c', getline(4))
|
|
|
|
normal .
|
|
call assert_equal('bar donfoo', getline(3))
|
|
call assert_equal('bar doneeb', getline(4))
|
|
call assert_equal('c', getline(5))
|
|
|
|
set ai et tw=10
|
|
call setline(1, ['a', ' b', 'c'])
|
|
2
|
|
call feedkeys("A\<Esc>[200~foo\<CR> bar bar bar\<Esc>[201~\<Esc>", 'xt')
|
|
call assert_equal(' bfoo', getline(2))
|
|
call assert_equal(' bar bar bar', getline(3))
|
|
call assert_equal('c', getline(4))
|
|
|
|
set ai& et& tw=0
|
|
bwipe!
|
|
endfunc
|
|
|
|
func Test_paste_clipboard()
|
|
CheckFeature clipboard_working
|
|
|
|
let @+ = "nasty\<Esc>:!ls\<CR>command"
|
|
new
|
|
exe "normal i\<C-R>+\<Esc>"
|
|
call assert_equal("nasty\<Esc>:!ls\<CR>command", getline(1))
|
|
bwipe!
|
|
endfunc
|
|
|
|
" bracketed paste in command line
|
|
func Test_paste_cmdline()
|
|
call feedkeys(":a\<Esc>[200~foo\<CR>bar\<Esc>[201~b\<Home>\"\<CR>", 'xt')
|
|
call assert_equal("\"afoo\<CR>barb", getreg(':'))
|
|
endfunc
|
|
|
|
" bracketed paste in Ex-mode
|
|
func Test_paste_ex_mode()
|
|
unlet! foo
|
|
call feedkeys("Qlet foo=\"\<Esc>[200~foo\<CR>bar\<Esc>[201~\"\<CR>vi\<CR>", 'xt')
|
|
call assert_equal("foo\rbar", foo)
|
|
|
|
" pasting more than 40 bytes
|
|
exe "norm Q\<PasteStart>s/.*/0000000000000000000000000000000000000000000000000000000000000000/\<C-C>"
|
|
endfunc
|
|
|
|
func Test_paste_onechar()
|
|
new
|
|
let @f='abc'
|
|
call feedkeys("i\<C-R>\<Esc>[200~foo\<CR>bar\<Esc>[201~", 'xt')
|
|
call assert_equal("abc", getline(1))
|
|
close!
|
|
endfunc
|
|
|
|
func Test_paste_visual_mode()
|
|
new
|
|
call setline(1, 'here are some words')
|
|
call feedkeys("0fsve\<Esc>[200~more\<Esc>[201~", 'xt')
|
|
call assert_equal('here are more words', getline(1))
|
|
call assert_equal('some', getreg('-'))
|
|
normal! u
|
|
call assert_equal('here are some words', getline(1))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('here are more words', getline(1))
|
|
|
|
" include last char in the line
|
|
call feedkeys("0fwve\<Esc>[200~noises\<Esc>[201~", 'xt')
|
|
call assert_equal('here are more noises', getline(1))
|
|
call assert_equal('words', getreg('-'))
|
|
normal! u
|
|
call assert_equal('here are more words', getline(1))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('here are more noises', getline(1))
|
|
|
|
" exclude last char in the line
|
|
call setline(1, 'some words!')
|
|
call feedkeys("0fwve\<Esc>[200~noises\<Esc>[201~", 'xt')
|
|
call assert_equal('some noises!', getline(1))
|
|
call assert_equal('words', getreg('-'))
|
|
normal! u
|
|
call assert_equal('some words!', getline(1))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('some noises!', getline(1))
|
|
|
|
" multi-line selection
|
|
call setline(1, ['some words', 'and more'])
|
|
call feedkeys("0fwvj0fd\<Esc>[200~letters\<Esc>[201~", 'xt')
|
|
call assert_equal('some letters more', getline(1))
|
|
call assert_equal("words\nand", getreg('1'))
|
|
normal! u
|
|
call assert_equal(['some words', 'and more'], getline(1, 2))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('some letters more', getline(1))
|
|
|
|
" linewise non-last line, cursor at start of line
|
|
call setline(1, ['some words', 'and more'])
|
|
call feedkeys("0V\<Esc>[200~letters\<Esc>[201~", 'xt')
|
|
call assert_equal('lettersand more', getline(1))
|
|
call assert_equal("some words\n", getreg('1'))
|
|
normal! u
|
|
call assert_equal(['some words', 'and more'], getline(1, 2))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('lettersand more', getline(1))
|
|
|
|
" linewise non-last line, cursor in the middle of line
|
|
call setline(1, ['some words', 'and more'])
|
|
call feedkeys("0fwV\<Esc>[200~letters\<Esc>[201~", 'xt')
|
|
call assert_equal('lettersand more', getline(1))
|
|
call assert_equal("some words\n", getreg('1'))
|
|
normal! u
|
|
call assert_equal(['some words', 'and more'], getline(1, 2))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal('lettersand more', getline(1))
|
|
|
|
" linewise last line
|
|
call setline(1, ['some words', 'and more'])
|
|
call feedkeys("j0V\<Esc>[200~letters\<Esc>[201~", 'xt')
|
|
call assert_equal(['some words', 'letters'], getline(1, 2))
|
|
call assert_equal("and more\n", getreg('1'))
|
|
normal! u
|
|
call assert_equal(['some words', 'and more'], getline(1, 2))
|
|
exe "normal! \<C-R>"
|
|
call assert_equal(['some words', 'letters'], getline(1, 2))
|
|
|
|
bwipe!
|
|
endfunc
|
|
|
|
func CheckCopyPaste()
|
|
call setline(1, ['copy this', ''])
|
|
normal 1G0"*y$
|
|
normal j"*p
|
|
call assert_equal('copy this', getline(2))
|
|
endfunc
|
|
|
|
func Test_xrestore()
|
|
CheckFeature xterm_clipboard
|
|
let g:test_is_flaky = 1
|
|
|
|
let display = $DISPLAY
|
|
new
|
|
call CheckCopyPaste()
|
|
|
|
xrestore
|
|
call CheckCopyPaste()
|
|
|
|
exe "xrestore " .. display
|
|
call CheckCopyPaste()
|
|
|
|
bwipe!
|
|
endfunc
|
|
|
|
" Test for 'pastetoggle'
|
|
func Test_pastetoggle()
|
|
new
|
|
set pastetoggle=<F4>
|
|
set nopaste
|
|
call feedkeys("iHello\<F4>", 'xt')
|
|
call assert_true(&paste)
|
|
call feedkeys("i\<F4>", 'xt')
|
|
call assert_false(&paste)
|
|
call assert_equal('Hello', getline(1))
|
|
" command-line completion for 'pastetoggle' value
|
|
call feedkeys(":set pastetoggle=\<Tab>\<C-B>\"\<CR>", 'xt')
|
|
call assert_equal('"set pastetoggle=<F4>', @:)
|
|
set pastetoggle&
|
|
bwipe!
|
|
endfunc
|
|
|
|
func Test_pastetoggle_timeout_no_typed_after_mapped()
|
|
CheckRunVimInTerminal
|
|
|
|
let lines =<< trim END
|
|
set pastetoggle=abc
|
|
set ttimeoutlen=10000
|
|
imap d a
|
|
END
|
|
call writefile(lines, 'Xpastetoggle_no_typed_after_mapped.vim', 'D')
|
|
let buf = RunVimInTerminal('-S Xpastetoggle_no_typed_after_mapped.vim', #{rows: 8})
|
|
call TermWait(buf)
|
|
call term_sendkeys(buf, ":call feedkeys('id', 't')\<CR>")
|
|
call term_wait(buf, 200)
|
|
call term_sendkeys(buf, 'bc')
|
|
" 'ttimeoutlen' should NOT apply
|
|
call WaitForAssert({-> assert_match('^-- INSERT --', term_getline(buf, 8))})
|
|
|
|
call StopVimInTerminal(buf)
|
|
endfunc
|
|
|
|
func Test_pastetoggle_timeout_typed_after_mapped()
|
|
CheckRunVimInTerminal
|
|
|
|
let lines =<< trim END
|
|
set pastetoggle=abc
|
|
set ttimeoutlen=10000
|
|
imap d a
|
|
END
|
|
call writefile(lines, 'Xpastetoggle_typed_after_mapped.vim', 'D')
|
|
let buf = RunVimInTerminal('-S Xpastetoggle_typed_after_mapped.vim', #{rows: 8})
|
|
call TermWait(buf)
|
|
call term_sendkeys(buf, ":call feedkeys('idb', 't')\<CR>")
|
|
call term_wait(buf, 200)
|
|
call term_sendkeys(buf, 'c')
|
|
" 'ttimeoutlen' should apply
|
|
call WaitForAssert({-> assert_match('^-- INSERT (paste) --', term_getline(buf, 8))})
|
|
|
|
call StopVimInTerminal(buf)
|
|
endfunc
|
|
|
|
func Test_pastetoggle_timeout_typed_after_noremap()
|
|
CheckRunVimInTerminal
|
|
|
|
let lines =<< trim END
|
|
set pastetoggle=abc
|
|
set ttimeoutlen=10000
|
|
inoremap d a
|
|
END
|
|
call writefile(lines, 'Xpastetoggle_typed_after_noremap.vim', 'D')
|
|
let buf = RunVimInTerminal('-S Xpastetoggle_typed_after_noremap.vim', #{rows: 8})
|
|
call TermWait(buf)
|
|
call term_sendkeys(buf, ":call feedkeys('idb', 't')\<CR>")
|
|
call term_wait(buf, 200)
|
|
call term_sendkeys(buf, 'c')
|
|
" 'ttimeoutlen' should apply
|
|
call WaitForAssert({-> assert_match('^-- INSERT (paste) --', term_getline(buf, 8))})
|
|
|
|
call StopVimInTerminal(buf)
|
|
endfunc
|
|
|
|
" Test for restoring option values when 'paste' is disabled
|
|
func Test_paste_opt_restore()
|
|
set autoindent expandtab ruler showmatch
|
|
if has('rightleft')
|
|
set revins hkmap
|
|
endif
|
|
set smarttab softtabstop=3 textwidth=27 wrapmargin=12
|
|
if has('vartabs')
|
|
set varsofttabstop=10,20
|
|
endif
|
|
|
|
" enabling 'paste' should reset the above options
|
|
set paste
|
|
call assert_false(&autoindent)
|
|
call assert_false(&expandtab)
|
|
if has('rightleft')
|
|
call assert_false(&revins)
|
|
call assert_false(&hkmap)
|
|
endif
|
|
call assert_false(&ruler)
|
|
call assert_false(&showmatch)
|
|
call assert_false(&smarttab)
|
|
call assert_equal(0, &softtabstop)
|
|
call assert_equal(0, &textwidth)
|
|
call assert_equal(0, &wrapmargin)
|
|
if has('vartabs')
|
|
call assert_equal('', &varsofttabstop)
|
|
endif
|
|
|
|
" disabling 'paste' should restore the option values
|
|
set nopaste
|
|
call assert_true(&autoindent)
|
|
call assert_true(&expandtab)
|
|
if has('rightleft')
|
|
call assert_true(&revins)
|
|
call assert_true(&hkmap)
|
|
endif
|
|
call assert_true(&ruler)
|
|
call assert_true(&showmatch)
|
|
call assert_true(&smarttab)
|
|
call assert_equal(3, &softtabstop)
|
|
call assert_equal(27, &textwidth)
|
|
call assert_equal(12, &wrapmargin)
|
|
if has('vartabs')
|
|
call assert_equal('10,20', &varsofttabstop)
|
|
endif
|
|
|
|
set autoindent& expandtab& ruler& showmatch&
|
|
if has('rightleft')
|
|
set revins& hkmap&
|
|
endif
|
|
set smarttab& softtabstop& textwidth& wrapmargin&
|
|
if has('vartabs')
|
|
set varsofttabstop&
|
|
endif
|
|
endfunc
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|