Mercurial > vim
view src/testdir/test_put.vim @ 11150:9f9409588102 v8.0.0462
patch 8.0.0462: failure of an MS-Windows test may go unnoticed
commit https://github.com/vim/vim/commit/b27523ff7ab3083c20c0f33415d890f978726c4f
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Mar 16 14:04:51 2017 +0100
patch 8.0.0462: failure of an MS-Windows test may go unnoticed
Problem: If an MS-Windows tests succeeds at first and then fails in a way
it does not produce a test.out file it looks like the test
succeeded.
Solution: Delete the previous output file.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 16 Mar 2017 14:15: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