Mercurial > vim
view src/testdir/test_cursor_func.vim @ 8885:54a380c74547 v7.4.1729
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Apr 14 14:09:25 2016 +0200
patch 7.4.1729
Problem: The Perl interface cannot use 'print' operator for writing
directly in standard IO.
Solution: Add a minimal implementation of PerlIO Layer feature and try to
use it for STDOUT/STDERR. (Damien)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 14 Apr 2016 14:15:05 +0200 |
parents | 26f555e9aab1 |
children | 7350959e53c3 |
line wrap: on
line source
" Tests for cursor(). func Test_wrong_arguments() try call cursor(1. 3) " not reached call assert_false(1) catch call assert_exception('E474:') endtry endfunc func Test_move_cursor() new call setline(1, ['aaa', 'bbb', 'ccc', 'ddd']) call cursor([1, 1, 0, 1]) call assert_equal([1, 1, 0, 1], getcurpos()[1:]) call cursor([4, 3, 0, 3]) call assert_equal([4, 3, 0, 3], getcurpos()[1:]) call cursor(2, 2) call assert_equal([2, 2, 0, 2], getcurpos()[1:]) " line number zero keeps the line number call cursor(0, 1) call assert_equal([2, 1, 0, 1], getcurpos()[1:]) " col number zero keeps the column call cursor(3, 0) call assert_equal([3, 1, 0, 1], getcurpos()[1:]) " below last line goes to last line call cursor(9, 1) call assert_equal([4, 1, 0, 1], getcurpos()[1:]) quit! endfunc " Very short version of what matchparen does. function s:Highlight_Matching_Pair() let save_cursor = getcurpos() call setpos('.', save_cursor) endfunc func Test_curswant_with_autocommand() new call setline(1, ['func()', '{', '}', '----']) autocmd! CursorMovedI * call s:Highlight_Matching_Pair() call disable_char_avail_for_testing(1) exe "normal! 3Ga\<Down>X\<Esc>" call disable_char_avail_for_testing(0) call assert_equal('-X---', getline(4)) autocmd! CursorMovedI * quit! endfunc