Mercurial > vim

comparison src/testdir/test_cursor_func.vim @ 8011:26f555e9aab1 v7.4.1300

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/2ab375e54ef4eac438d1aef8b99d9e71f2fa0c63 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Feb 10 22:23:06 2016 +0100 patch 7.4.1300 Problem: Cannot test CursorMovedI because there is typeahead. Solution: Add disable_char_avail_for_testing().
author Christian Brabandt <cb@256bit.org>
date Wed, 10 Feb 2016 22:30:04 +0100
parents 4d9814f9fc39
children 7350959e53c3
comparison
equal deleted inserted replaced
8010:cbfb5ac5f9c5 8011:26f555e9aab1
18 call assert_equal([1, 1, 0, 1], getcurpos()[1:]) 18 call assert_equal([1, 1, 0, 1], getcurpos()[1:])
19 call cursor([4, 3, 0, 3]) 19 call cursor([4, 3, 0, 3])
20 call assert_equal([4, 3, 0, 3], getcurpos()[1:]) 20 call assert_equal([4, 3, 0, 3], getcurpos()[1:])
21 21
22 call cursor(2, 2) 22 call cursor(2, 2)
23 call assert_equal([2, 2, 0, 3], getcurpos()[1:]) 23 call assert_equal([2, 2, 0, 2], getcurpos()[1:])
24 " line number zero keeps the line number 24 " line number zero keeps the line number
25 call cursor(0, 1) 25 call cursor(0, 1)
26 call assert_equal([2, 1, 0, 3], getcurpos()[1:]) 26 call assert_equal([2, 1, 0, 1], getcurpos()[1:])
27 " col number zero keeps the column 27 " col number zero keeps the column
28 call cursor(3, 0) 28 call cursor(3, 0)
29 call assert_equal([3, 1, 0, 3], getcurpos()[1:]) 29 call assert_equal([3, 1, 0, 1], getcurpos()[1:])
30 " below last line goes to last line 30 " below last line goes to last line
31 call cursor(9, 1) 31 call cursor(9, 1)
32 call assert_equal([4, 1, 0, 3], getcurpos()[1:]) 32 call assert_equal([4, 1, 0, 1], getcurpos()[1:])
33 33
34 quit! 34 quit!
35 endfunc 35 endfunc
36
37 " Very short version of what matchparen does.
38 function s:Highlight_Matching_Pair()
39 let save_cursor = getcurpos()
40 call setpos('.', save_cursor)
41 endfunc
42
43 func Test_curswant_with_autocommand()
44 new
45 call setline(1, ['func()', '{', '}', '----'])
46 autocmd! CursorMovedI * call s:Highlight_Matching_Pair()
47 call disable_char_avail_for_testing(1)
48 exe "normal! 3Ga\<Down>X\<Esc>"
49 call disable_char_avail_for_testing(0)
50 call assert_equal('-X---', getline(4))
51 autocmd! CursorMovedI *
52 quit!
53 endfunc
54