view src/testdir/test_put.vim @ 10885:310834b0256a v8.0.0332

patch 8.0.0332: GUI test fails on some systems commit https://github.com/vim/vim/commit/4e9dbc74df24dc22d0eeda3741c3fb0e0e7373bf Author: Bram Moolenaar <Bram@vim.org> Date: Fri Feb 17 13:44:48 2017 +0100 patch 8.0.0332: GUI test fails on some systems Problem: GUI test fails on some systems. Solution: Try different language settings. (Kazunobu Kuriyama)
author Christian Brabandt <cb@256bit.org>
date Fri, 17 Feb 2017 13:45:04 +0100
parents 3d1872fbecc4
children 72b20190dce6
line wrap: on
line source


func Test_put_block()
  if !has('multi_byte')
    return
  endif
  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

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

func Test_put_char_block2()
  new
  let a = [ getreg('a'), getregtype('a') ]
  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"
  call assert_equal(['L one  1', '', 'L one  3', ''], getline(1,4))
  " clean up
  bw!
  call setreg('a', a[0], a[1])
endfunc