aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-10-26 09:14:23 -04:00
Code Activity

patch 8.2.0655: search code not sufficiently tested

Browse Source 
Problem:    Search code not sufficiently tested.
Solution:   Add more tests. (Yegappan Lakshmanan, closes #5999)
This commit is contained in:
Bram Moolenaar
2020-04-28 20:29:07 +02:00
parent a14bb7e113
commit 224a5f17c6
10 changed files with 551 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

251
src/testdir/test_textobjects.vim
View File

@@ -151,6 +151,24 @@ func Test_string_html_objects()
normal! dit
call assert_equal('-<b></b>', getline('.'))
" copy the tag block from leading indentation before the start tag
let t = " <b>\ntext\n</b>"
$put =t
normal! 2kvaty
call assert_equal("<b>\ntext\n</b>", @")
" copy the tag block from the end tag
let t = "<title>\nwelcome\n</title>"
$put =t
normal! $vaty
call assert_equal("<title>\nwelcome\n</title>", @")
" copy the outer tag block from a tag without an end tag
let t = "<html>\n<title>welcome\n</html>"
$put =t
normal! k$vaty
call assert_equal("<html>\n<title>welcome\n</html>", @")
set quoteescape&
enew!
endfunc
@@ -169,6 +187,10 @@ func Test_empty_html_tag()
normal 0f<vitsaaa
call assert_equal('aaa', getline(1))
" selecting a tag block in an non-empty blank line should fail
call setline(1, ' ')
call assert_beeps('normal $vaty')
bwipe!
endfunc
@@ -291,3 +313,232 @@ func Test_sentence_with_cursor_on_delimiter()
%delete _
endfunc
" Test for the paragraph (ap) text object
func Test_paragraph()
new
call setline(1, ['First line.', 'Second line.', 'Third line.'])
call cursor(2, 1)
normal vapy
call assert_equal("First line.\nSecond line.\nThird line.\n", @")
call cursor(2, 1)
call assert_beeps('normal vapapy')
call setline(1, ['First line.', 'Second line.', ' ', ''])
call cursor(1, 1)
normal vapy
call assert_equal("First line.\nSecond line.\n \n\n", @")
call setline(1, ['', '', '', 'First line.', 'Second line.'])
call cursor(2, 1)
normal yap
call assert_equal("\n\n\nFirst line.\nSecond line.\n", @")
call assert_beeps('normal 3yap')
exe "normal \<C-C>"
%d
call setline(1, [' ', ' ', ' '])
call cursor(2, 1)
normal Vipy
call assert_equal(" \n \n \n", @")
call cursor(2, 1)
call assert_beeps("normal Vipip")
exe "normal \<C-C>"
close!
endfunc
" Tests for text object aw
func Test_textobj_a_word()
new
call append(0, ['foobar,eins,foobar', 'foo,zwei,foo '])
" diw
norm! 1gg0diw
call assert_equal([',eins,foobar', 'foo,zwei,foo ', ''], getline(1,'$'))
" daw
norm! 2ggEdaw
call assert_equal([',eins,foobar', 'foo,zwei,', ''], getline(1, '$'))
" daw the last word in a line
call setline(1, ['foo bar', 'foo bar', ''])
call cursor(1, 5)
normal daw
call assert_equal('foo', getline(1))
" aw in visual mode
call cursor(2, 5)
normal! vawx
call assert_equal('foo', getline(2))
%d
call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo "])
" diW
norm! 2ggwd2iW
call assert_equal(['foo eins foobar', 'foo foo ', ''], getline(1,'$'))
" daW
norm! 1ggd2aW
call assert_equal(['foobar', 'foo foo ', ''], getline(1,'$'))
%d
call append(0, ["foo\teins\tfoobar", "foo\tzwei\tfoo "])
" aw in visual line mode switches to characterwise mode
norm! 2gg$Vawd
call assert_equal(['foo eins foobar', 'foo zwei foo'], getline(1,'$'))
norm! 1gg$Viwd
call assert_equal(['foo eins ', 'foo zwei foo'], getline(1,'$'))
" visually selecting a tab before a word with 'selection' set to 'exclusive'
set selection=exclusive
normal gg3lvlawy
call assert_equal("\teins", @")
" visually selecting a tab before a word with 'selection' set to 'inclusive'
set selection=inclusive
normal gg3lvlawy
call assert_equal("\teins\t", @")
set selection&
" selecting a word with no non-space characters in a buffer fails
%d
call setline(1, ' ')
call assert_beeps('normal 3lyaw')
" visually selecting words backwards with no more words to select
call setline(1, 'one two')
call assert_beeps('normal 2lvh2aw')
exe "normal \<C-C>"
call assert_beeps('normal $vh3aw')
exe "normal \<C-C>"
call setline(1, ['', 'one two'])
call assert_beeps('normal 2G2lvh3aw')
exe "normal \<C-C>"
" selecting words forward with no more words to select
%d
call setline(1, 'one a')
call assert_beeps('normal 0y3aw')
call setline(1, 'one two ')
call assert_beeps('normal 0y3aw')
call assert_beeps('normal 03ly2aw')
" clean up
bw!
endfunc
" Test for is and as text objects
func Test_textobj_sentence()
new
call append(0, ['This is a test. With some sentences!', '',
\ 'Even with a question? And one more. And no sentence here'])
" Test for dis - does not remove trailing whitespace
norm! 1gg0dis
call assert_equal([' With some sentences!', '',
\ 'Even with a question? And one more. And no sentence here', ''],
\ getline(1,'$'))
" Test for das - removes leading whitespace
norm! 3ggf?ldas
call assert_equal([' With some sentences!', '',
\ 'Even with a question? And no sentence here', ''], getline(1,'$'))
" when used in visual mode, is made characterwise
norm! 3gg$Visy
call assert_equal('v', visualmode())
" reset visualmode()
norm! 3ggVy
norm! 3gg$Vasy
call assert_equal('v', visualmode())
" basic testing for textobjects a< and at
%d
call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>',' </div>', ' '])
" a<
norm! 1gg0da<
call assert_equal([' ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$'))
norm! 1pj
call assert_equal([' <div>', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$'))
" at
norm! d2at
call assert_equal([' '], getline(1,'$'))
%d
call setline(1, ['<div> ','<a href="foobar" class="foo">xyz</a>',' </div>', ' '])
" i<
norm! 1gg0di<
call assert_equal(['<> ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$'))
norm! 1Pj
call assert_equal(['<div> ', '<a href="foobar" class="foo">xyz</a>', ' </div>', ' '], getline(1,'$'))
norm! d2it
call assert_equal(['<div></div>',' '], getline(1,'$'))
" basic testing for a[ and i[ text object
%d
call setline(1, [' ', '[', 'one [two]', 'thre', ']'])
norm! 3gg0di[
call assert_equal([' ', '[', ']'], getline(1,'$'))
call setline(1, [' ', '[', 'one [two]', 'thre', ']'])
norm! 3gg0ftd2a[
call assert_equal([' '], getline(1,'$'))
" clean up
bw!
endfunc
" Test for quote (', " and `) textobjects
func Test_textobj_quote()
new
" Test for i" when cursor is in front of a quoted object
call append(0, 'foo "bar"')
norm! 1gg0di"
call assert_equal(['foo ""', ''], getline(1,'$'))
" Test for visually selecting an inner quote
%d
" extend visual selection from one quote to the next
call setline(1, 'color "red" color "blue"')
call cursor(1, 7)
normal v4li"y
call assert_equal('"red" color "blue', @")
" try to extend visual selection from one quote to a non-existing quote
call setline(1, 'color "red" color blue')
call cursor(1, 7)
call feedkeys('v4li"y', 'xt')
call assert_equal('"red"', @")
" try to extend visual selection from one quote to a next partial quote
call setline(1, 'color "red" color "blue')
call cursor(1, 7)
normal v4li"y
call assert_equal('"red" color ', @")
" select a quote backwards in visual mode
call cursor(1, 12)
normal vhi"y
call assert_equal('red" ', @")
call assert_equal(8, col('.'))
" select a quote backwards in visual mode from outside the quote
call cursor(1, 17)
normal v2hi"y
call assert_equal('red', @")
call assert_equal(8, col('.'))
" visually selecting a quote with 'selection' set to 'exclusive'
call setline(1, 'He said "How are you?"')
set selection=exclusive
normal 012lv2li"y
call assert_equal('How are you?', @")
set selection&
" try copy a quote object with a single quote in the line
call setline(1, "Smith's car")
call cursor(1, 6)
call assert_beeps("normal yi'")
call assert_beeps("normal 2lyi'")
" selecting space before and after a quoted string
call setline(1, "some 'special' string")
normal 0ya'
call assert_equal("'special' ", @")
call setline(1, "some 'special'string")
normal 0ya'
call assert_equal(" 'special'", @")
close!
endfunc
" vim: shiftwidth=2 sts=2 expandtab