aboutsummaryrefslogtreecommitdiff
path: root/src/nvim/testdir/test_textformat.vim
diff options
context:
space:
mode:
Diffstat (limited to 'src/nvim/testdir/test_textformat.vim')
-rw-r--r--src/nvim/testdir/test_textformat.vim1307
1 files changed, 0 insertions, 1307 deletions
diff --git a/src/nvim/testdir/test_textformat.vim b/src/nvim/testdir/test_textformat.vim
deleted file mode 100644
index 7a13de12f4..0000000000
--- a/src/nvim/testdir/test_textformat.vim
+++ /dev/null
@@ -1,1307 +0,0 @@
-" Tests for the various 'formatoptions' settings
-
-source check.vim
-
-func Test_text_format()
- enew!
-
- setl noai tw=2 fo=t
- call append('$', [
- \ '{',
- \ ' ',
- \ '',
- \ '}'])
- exe "normal /^{/+1\n0"
- normal gRa b
- let lnum = line('.')
- call assert_equal([
- \ 'a',
- \ 'b'], getline(lnum - 1, lnum))
-
- normal ggdG
- setl ai tw=2 fo=tw
- call append('$', [
- \ '{',
- \ 'a b ',
- \ '',
- \ 'a ',
- \ '}'])
- exe "normal /^{/+1\n0"
- normal gqgqjjllab
- let lnum = line('.')
- call assert_equal([
- \ 'a ',
- \ 'b ',
- \ '',
- \ 'a ',
- \ 'b'], getline(lnum - 4, lnum))
-
- normal ggdG
- setl tw=3 fo=t
- call append('$', [
- \ '{',
- \ "a \<C-A>",
- \ '}'])
- exe "normal /^{/+1\n0"
- exe "normal gqgqo\na \<C-V>\<C-A>"
- let lnum = line('.')
- call assert_equal([
- \ 'a',
- \ "\<C-A>",
- \ '',
- \ 'a',
- \ "\<C-A>"], getline(lnum - 4, lnum))
-
- normal ggdG
- setl tw=2 fo=tcq1 comments=:#
- call append('$', [
- \ '{',
- \ 'a b',
- \ '#a b',
- \ '}'])
- exe "normal /^{/+1\n0"
- exe "normal gqgqjgqgqo\na b\n#a b"
- let lnum = line('.')
- call assert_equal([
- \ 'a b',
- \ '#a b',
- \ '',
- \ 'a b',
- \ '#a b'], getline(lnum - 4, lnum))
-
- normal ggdG
- setl tw=5 fo=tcn comments=:#
- call append('$', [
- \ '{',
- \ ' 1 a',
- \ '# 1 a',
- \ '}'])
- exe "normal /^{/+1\n0"
- exe "normal A b\<Esc>jA b"
- let lnum = line('.')
- call assert_equal([
- \ ' 1 a',
- \ ' b',
- \ '# 1 a',
- \ '# b'], getline(lnum - 3, lnum))
-
- normal ggdG
- setl tw=5 fo=t2a si
- call append('$', [
- \ '{',
- \ '',
- \ ' x a',
- \ ' b',
- \ ' c',
- \ '',
- \ '}'])
- exe "normal /^{/+3\n0"
- exe "normal i \<Esc>A_"
- let lnum = line('.')
- call assert_equal([
- \ '',
- \ ' x a',
- \ ' b_',
- \ ' c',
- \ ''], getline(lnum - 2, lnum + 2))
-
- normal ggdG
- setl tw=5 fo=qn comments=:#
- call append('$', [
- \ '{',
- \ '# 1 a b',
- \ '}'])
- exe "normal /^{/+1\n5|"
- normal gwap
- call assert_equal(5, col('.'))
- let lnum = line('.')
- call assert_equal([
- \ '# 1 a',
- \ '# b'], getline(lnum, lnum + 1))
-
- normal ggdG
- setl tw=5 fo=q2 comments=:#
- call append('$', [
- \ '{',
- \ '# x',
- \ '# a b',
- \ '}'])
- exe "normal /^{/+1\n0"
- normal gwap
- let lnum = line('.')
- call assert_equal([
- \ '# x a',
- \ '# b'], getline(lnum, lnum + 1))
-
- normal ggdG
- setl tw& fo=a
- call append('$', [
- \ '{',
- \ ' 1aa',
- \ ' 2bb',
- \ '}'])
- exe "normal /^{/+2\n0"
- normal I^^
- call assert_equal('{ 1aa ^^2bb }', getline('.'))
-
- normal ggdG
- setl tw=20 fo=an12wcq comments=s1:/*,mb:*,ex:*/
- call append('$', [
- \ '/* abc def ghi jkl ',
- \ ' * mno pqr stu',
- \ ' */'])
- exe "normal /mno pqr/\n"
- normal A vwx yz
- let lnum = line('.')
- call assert_equal([
- \ ' * mno pqr stu ',
- \ ' * vwx yz',
- \ ' */'], getline(lnum - 1, lnum + 1))
-
- normal ggdG
- setl tw=12 fo=tqnc comments=:#
- call setline('.', '# 1 xxxxx')
- normal A foobar
- call assert_equal([
- \ '# 1 xxxxx',
- \ '# foobar'], getline(1, 2))
-
- " Test the 'p' flag for 'formatoptions'
- " First test without the flag: that it will break "Mr. Feynman" at the space
- normal ggdG
- setl tw=28 fo=tcq
- call setline('.', 'Surely you''re joking, Mr. Feynman!')
- normal gqq
- call assert_equal([
- \ 'Surely you''re joking, Mr.',
- \ 'Feynman!'], getline(1, 2))
- " Now test with the flag: that it will push the name with the title onto the
- " next line
- normal ggdG
- setl fo+=p
- call setline('.', 'Surely you''re joking, Mr. Feynman!')
- normal gqq
- call assert_equal([
- \ 'Surely you''re joking,',
- \ 'Mr. Feynman!'], getline(1, 2))
- " Ensure that it will still break if two spaces are entered
- normal ggdG
- call setline('.', 'Surely you''re joking, Mr. Feynman!')
- normal gqq
- call assert_equal([
- \ 'Surely you''re joking, Mr.',
- \ 'Feynman!'], getline(1, 2))
-
- setl ai& tw& fo& si& comments&
- enew!
-endfunc
-
-func Test_format_c_comment()
- new
- setl ai cindent tw=40 et fo=croql
- let text =<< trim END
- var = 2345; // asdf asdf asdf asdf asdf asdf asdf asdf asdf asdf
- END
- call setline(1, text)
- normal gql
- let expected =<< trim END
- var = 2345; // asdf asdf asdf asdf asdf
- // asdf asdf asdf asdf asdf
- END
- call assert_equal(expected, getline(1, '$'))
-
- %del
- let text =<< trim END
- var = 2345; // asdf asdf asdf asdf asdf asdf asdf asdf asdf asdf asdf asdf
- END
- call setline(1, text)
- normal gql
- let expected =<< trim END
- var = 2345; // asdf asdf asdf asdf asdf
- // asdf asdf asdf asdf asdf
- // asdf asdf
- END
- call assert_equal(expected, getline(1, '$'))
-
- %del
- let text =<< trim END
- #if 0 // This is another long end of
- // line comment that
- // wraps.
- END
- call setline(1, text)
- normal gq2j
- let expected =<< trim END
- #if 0 // This is another long
- // end of line comment
- // that wraps.
- END
- call assert_equal(expected, getline(1, '$'))
-
- " Using either "o" or "O" repeats a line comment occupying a whole line.
- %del
- let text =<< trim END
- nop;
- // This is a comment
- val = val;
- END
- call setline(1, text)
- normal 2Go
- let expected =<< trim END
- nop;
- // This is a comment
- //
- val = val;
- END
- call assert_equal(expected, getline(1, '$'))
- normal 2GO
- let expected =<< trim END
- nop;
- //
- // This is a comment
- //
- val = val;
- END
- call assert_equal(expected, getline(1, '$'))
-
- " Using "o" repeats a line comment after a statement, "O" does not.
- %del
- let text =<< trim END
- nop;
- val = val; // This is a comment
- END
- call setline(1, text)
- normal 2Go
- let expected =<< trim END
- nop;
- val = val; // This is a comment
- //
- END
- call assert_equal(expected, getline(1, '$'))
- 3delete
-
- " No comment repeated with a slash in 'formatoptions'
- set fo+=/
- normal 2Gox
- let expected =<< trim END
- nop;
- val = val; // This is a comment
- x
- END
- call assert_equal(expected, getline(1, '$'))
-
- " Comment is formatted when it wraps
- normal 2GA with some more text added
- let expected =<< trim END
- nop;
- val = val; // This is a comment
- // with some more text
- // added
- x
- END
- call assert_equal(expected, getline(1, '$'))
-
- set fo-=/
-
- " using 'indentexpr' instead of 'cindent' does not repeat a comment
- setl nocindent indentexpr=2
- %del
- let text =<< trim END
- nop;
- val = val; // This is a comment
- END
- call setline(1, text)
- normal 2Gox
- let expected =<< trim END
- nop;
- val = val; // This is a comment
- x
- END
- call assert_equal(expected, getline(1, '$'))
- setl cindent indentexpr=
- 3delete
-
- normal 2GO
- let expected =<< trim END
- nop;
-
- val = val; // This is a comment
- END
- call assert_equal(expected, getline(1, '$'))
-
- " Using "o" does not repeat a comment in a string
- %del
- let text =<< trim END
- nop;
- val = " // This is not a comment";
- END
- call setline(1, text)
- normal 2Gox
- let expected =<< trim END
- nop;
- val = " // This is not a comment";
- x
- END
- call assert_equal(expected, getline(1, '$'))
-
- " Using CTRL-U after "o" fixes the indent
- %del
- let text =<< trim END
- {
- val = val; // This is a comment
- END
- call setline(1, text)
- exe "normal! 2Go\<C-U>x\<Esc>"
- let expected =<< trim END
- {
- val = val; // This is a comment
- x
- END
- call assert_equal(expected, getline(1, '$'))
-
- " typing comment text auto-wraps
- %del
- call setline(1, text)
- exe "normal! 2GA blah more text blah.\<Esc>"
- let expected =<< trim END
- {
- val = val; // This is a comment
- // blah more text
- // blah.
- END
- call assert_equal(expected, getline(1, '$'))
-
- bwipe!
-endfunc
-
-" Tests for :right, :center and :left on text with embedded TAB.
-func Test_format_align()
- enew!
- set tw=65
-
- " :left alignment
- call append(0, [
- \ " test for :left",
- \ " a a",
- \ " fa a",
- \ " dfa a",
- \ " sdfa a",
- \ " asdfa a",
- \ " xasdfa a",
- \ "asxxdfa a",
- \ ])
- %left
- call assert_equal([
- \ "test for :left",
- \ "a a",
- \ "fa a",
- \ "dfa a",
- \ "sdfa a",
- \ "asdfa a",
- \ "xasdfa a",
- \ "asxxdfa a",
- \ ""
- \ ], getline(1, '$'))
- enew!
-
- " :center alignment
- call append(0, [
- \ " test for :center",
- \ " a a",
- \ " fa afd asdf",
- \ " dfa a",
- \ " sdfa afd asdf",
- \ " asdfa a",
- \ " xasdfa asdfasdfasdfasdfasdf",
- \ "asxxdfa a"
- \ ])
- %center
- call assert_equal([
- \ " test for :center",
- \ " a a",
- \ " fa afd asdf",
- \ " dfa a",
- \ " sdfa afd asdf",
- \ " asdfa a",
- \ " xasdfa asdfasdfasdfasdfasdf",
- \ " asxxdfa a",
- \ ""
- \ ], getline(1, '$'))
- enew!
-
- " :right alignment
- call append(0, [
- \ " test for :right",
- \ " a a",
- \ " fa a",
- \ " dfa a",
- \ " sdfa a",
- \ " asdfa a",
- \ " xasdfa a",
- \ " asxxdfa a",
- \ " asxa;ofa a",
- \ " asdfaqwer a",
- \ " a ax",
- \ " fa ax",
- \ " dfa ax",
- \ " sdfa ax",
- \ " asdfa ax",
- \ " xasdfa ax",
- \ " asxxdfa ax",
- \ " asxa;ofa ax",
- \ " asdfaqwer ax",
- \ " a axx",
- \ " fa axx",
- \ " dfa axx",
- \ " sdfa axx",
- \ " asdfa axx",
- \ " xasdfa axx",
- \ " asxxdfa axx",
- \ " asxa;ofa axx",
- \ " asdfaqwer axx",
- \ " a axxx",
- \ " fa axxx",
- \ " dfa axxx",
- \ " sdfa axxx",
- \ " asdfa axxx",
- \ " xasdfa axxx",
- \ " asxxdfa axxx",
- \ " asxa;ofa axxx",
- \ " asdfaqwer axxx",
- \ " a axxxo",
- \ " fa axxxo",
- \ " dfa axxxo",
- \ " sdfa axxxo",
- \ " asdfa axxxo",
- \ " xasdfa axxxo",
- \ " asxxdfa axxxo",
- \ " asxa;ofa axxxo",
- \ " asdfaqwer axxxo",
- \ " a axxxoi",
- \ " fa axxxoi",
- \ " dfa axxxoi",
- \ " sdfa axxxoi",
- \ " asdfa axxxoi",
- \ " xasdfa axxxoi",
- \ " asxxdfa axxxoi",
- \ " asxa;ofa axxxoi",
- \ " asdfaqwer axxxoi",
- \ " a axxxoik",
- \ " fa axxxoik",
- \ " dfa axxxoik",
- \ " sdfa axxxoik",
- \ " asdfa axxxoik",
- \ " xasdfa axxxoik",
- \ " asxxdfa axxxoik",
- \ " asxa;ofa axxxoik",
- \ " asdfaqwer axxxoik",
- \ " a axxxoike",
- \ " fa axxxoike",
- \ " dfa axxxoike",
- \ " sdfa axxxoike",
- \ " asdfa axxxoike",
- \ " xasdfa axxxoike",
- \ " asxxdfa axxxoike",
- \ " asxa;ofa axxxoike",
- \ " asdfaqwer axxxoike",
- \ " a axxxoikey",
- \ " fa axxxoikey",
- \ " dfa axxxoikey",
- \ " sdfa axxxoikey",
- \ " asdfa axxxoikey",
- \ " xasdfa axxxoikey",
- \ " asxxdfa axxxoikey",
- \ " asxa;ofa axxxoikey",
- \ " asdfaqwer axxxoikey",
- \ ])
- %right
- call assert_equal([
- \ "\t\t\t\t test for :right",
- \ "\t\t\t\t a a",
- \ "\t\t\t\t fa a",
- \ "\t\t\t\t dfa a",
- \ "\t\t\t\t sdfa a",
- \ "\t\t\t\t asdfa a",
- \ "\t\t\t\t xasdfa a",
- \ "\t\t\t\t asxxdfa a",
- \ "\t\t\t\t asxa;ofa a",
- \ "\t\t\t\t asdfaqwer a",
- \ "\t\t\t\t a ax",
- \ "\t\t\t\t fa ax",
- \ "\t\t\t\t dfa ax",
- \ "\t\t\t\t sdfa ax",
- \ "\t\t\t\t asdfa ax",
- \ "\t\t\t\t xasdfa ax",
- \ "\t\t\t\t asxxdfa ax",
- \ "\t\t\t\t asxa;ofa ax",
- \ "\t\t\t\t asdfaqwer ax",
- \ "\t\t\t\t a axx",
- \ "\t\t\t\t fa axx",
- \ "\t\t\t\t dfa axx",
- \ "\t\t\t\t sdfa axx",
- \ "\t\t\t\t asdfa axx",
- \ "\t\t\t\t xasdfa axx",
- \ "\t\t\t\t asxxdfa axx",
- \ "\t\t\t\t asxa;ofa axx",
- \ "\t\t\t\t asdfaqwer axx",
- \ "\t\t\t\t a axxx",
- \ "\t\t\t\t fa axxx",
- \ "\t\t\t\t dfa axxx",
- \ "\t\t\t\t sdfa axxx",
- \ "\t\t\t\t asdfa axxx",
- \ "\t\t\t\t xasdfa axxx",
- \ "\t\t\t\t asxxdfa axxx",
- \ "\t\t\t\t asxa;ofa axxx",
- \ "\t\t\t\t asdfaqwer axxx",
- \ "\t\t\t\t a axxxo",
- \ "\t\t\t\t fa axxxo",
- \ "\t\t\t\t dfa axxxo",
- \ "\t\t\t\t sdfa axxxo",
- \ "\t\t\t\t asdfa axxxo",
- \ "\t\t\t\t xasdfa axxxo",
- \ "\t\t\t\t asxxdfa axxxo",
- \ "\t\t\t\t asxa;ofa axxxo",
- \ "\t\t\t\t asdfaqwer axxxo",
- \ "\t\t\t\t a axxxoi",
- \ "\t\t\t\t fa axxxoi",
- \ "\t\t\t\t dfa axxxoi",
- \ "\t\t\t\t sdfa axxxoi",
- \ "\t\t\t\t asdfa axxxoi",
- \ "\t\t\t\t xasdfa axxxoi",
- \ "\t\t\t\t asxxdfa axxxoi",
- \ "\t\t\t\t asxa;ofa axxxoi",
- \ "\t\t\t\t asdfaqwer axxxoi",
- \ "\t\t\t\t a axxxoik",
- \ "\t\t\t\t fa axxxoik",
- \ "\t\t\t\t dfa axxxoik",
- \ "\t\t\t\t sdfa axxxoik",
- \ "\t\t\t\t asdfa axxxoik",
- \ "\t\t\t\t xasdfa axxxoik",
- \ "\t\t\t\t asxxdfa axxxoik",
- \ "\t\t\t\t asxa;ofa axxxoik",
- \ "\t\t\t\t asdfaqwer axxxoik",
- \ "\t\t\t\t a axxxoike",
- \ "\t\t\t\t fa axxxoike",
- \ "\t\t\t\t dfa axxxoike",
- \ "\t\t\t\t sdfa axxxoike",
- \ "\t\t\t\t asdfa axxxoike",
- \ "\t\t\t\t xasdfa axxxoike",
- \ "\t\t\t\t asxxdfa axxxoike",
- \ "\t\t\t\t asxa;ofa axxxoike",
- \ "\t\t\t\t asdfaqwer axxxoike",
- \ "\t\t\t\t a axxxoikey",
- \ "\t\t\t\t fa axxxoikey",
- \ "\t\t\t\t dfa axxxoikey",
- \ "\t\t\t\t sdfa axxxoikey",
- \ "\t\t\t\t asdfa axxxoikey",
- \ "\t\t\t\t xasdfa axxxoikey",
- \ "\t\t\t\t asxxdfa axxxoikey",
- \ "\t\t\t\t asxa;ofa axxxoikey",
- \ "\t\t\t\t asdfaqwer axxxoikey",
- \ ""
- \ ], getline(1, '$'))
- enew!
-
- " align text with 'wrapmargin'
- 50vnew
- call setline(1, ['Vim'])
- setl textwidth=0
- setl wrapmargin=30
- right
- call assert_equal("\t\t Vim", getline(1))
- q!
-
- " align text with 'rightleft'
- if has('rightleft')
- new
- call setline(1, 'Vim')
- setlocal rightleft
- left 20
- setlocal norightleft
- call assert_equal("\t\t Vim", getline(1))
- setlocal rightleft
- right
- setlocal norightleft
- call assert_equal("Vim", getline(1))
- close!
- endif
-
- set tw&
-endfunc
-
-" Test formatting a paragraph.
-func Test_format_para()
- enew!
- set fo+=tcroql tw=72
-
- call append(0, [
- \ "xxxxx xx xxxxxx ",
- \ "xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
- \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx",
- \ "xx xxxxxxx. xxxx xxxx.",
- \ "",
- \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx",
- \ "> xxxxxx xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx"
- \ ])
- exe "normal /xxxxxxxx$\<CR>"
- normal 0gq6kk
- call assert_equal([
- \ "xxxxx xx xxxxxx xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
- \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx xx xxxxxxx.",
- \ "xxxx xxxx.",
- \ "",
- \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx xxxxxx",
- \ "> xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx",
- \ ""
- \ ], getline(1, '$'))
-
- set fo& tw&
- enew!
-endfunc
-
-" Test undo after ":%s" and formatting.
-func Test_format_undo()
- enew!
- map gg :.,.+2s/^/x/<CR>kk:set tw=3<CR>gqq
-
- call append(0, [
- \ "aa aa aa aa",
- \ "bb bb bb bb",
- \ "cc cc cc cc"
- \ ])
- " undo/redo here to make the next undo only work on the following changes
- exe "normal i\<C-G>u"
- call cursor(1,1)
- normal ggu
- call assert_equal([
- \ "aa aa aa aa",
- \ "bb bb bb bb",
- \ "cc cc cc cc",
- \ ""
- \ ], getline(1, '$'))
-
- unmap gg
- set tw&
- enew!
-endfunc
-
-func Test_format_list_auto()
- new
- call setline(1, ['1. abc', '2. def', '3. ghi'])
- set fo=tan ai bs=2
- call feedkeys("3G0lli\<BS>\<BS>x\<Esc>", 'tx')
- call assert_equal('2. defx ghi', getline(2))
- bwipe!
- set fo& ai& bs&
-endfunc
-
-func Test_crash_github_issue_5095()
- CheckFeature autocmd
-
- " This used to segfault, see https://github.com/vim/vim/issues/5095
- augroup testing
- au BufNew x center
- augroup END
-
- next! x
-
- bw
- augroup testing
- au!
- augroup END
- augroup! testing
-endfunc
-
-" Test for formatting multi-byte text with 'fo=t'
-func Test_tw_2_fo_t()
- new
- let t =<< trim END
- {
- ＸＹＺ
- abc ＸＹＺ
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set tw=2 fo=t
- let t =<< trim END
- ＸＹＺ
- abc ＸＹＺ
- END
- exe "normal gqgqjgqgq"
- exe "normal o\n" . join(t, "\n")
-
- let expected =<< trim END
- {
- ＸＹＺ
- abc
- ＸＹＺ
-
- ＸＹＺ
- abc
- ＸＹＺ
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo&
- bwipe!
-endfunc
-
-" Test for formatting multi-byte text with 'fo=tm' and 'tw=1'
-func Test_tw_1_fo_tm()
- new
- let t =<< trim END
- {
- Ｘ
- Ｘa
- Ｘ a
- ＸＹ
- Ｘ Ｙ
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set tw=1 fo=tm
- let t =<< trim END
- Ｘ
- Ｘa
- Ｘ a
- ＸＹ
- Ｘ Ｙ
- END
- exe "normal gqgqjgqgqjgqgqjgqgqjgqgq"
- exe "normal o\n" . join(t, "\n")
-
- let expected =<< trim END
- {
- Ｘ
- Ｘ
- a
- Ｘ
- a
- Ｘ
- Ｙ
- Ｘ
- Ｙ
-
- Ｘ
- Ｘ
- a
- Ｘ
- a
- Ｘ
- Ｙ
- Ｘ
- Ｙ
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo&
- bwipe!
-endfunc
-
-" Test for formatting multi-byte text with 'fo=tm' and 'tw=2'
-func Test_tw_2_fo_tm()
- new
- let t =<< trim END
- {
- Ｘ
- Ｘa
- Ｘ a
- ＸＹ
- Ｘ Ｙ
- aＸ
- abＸ
- abcＸ
- abＸ c
- abＸＹ
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set tw=2 fo=tm
- let t =<< trim END
- Ｘ
- Ｘa
- Ｘ a
- ＸＹ
- Ｘ Ｙ
- aＸ
- abＸ
- abcＸ
- abＸ c
- abＸＹ
- END
- exe "normal gqgqjgqgqjgqgqjgqgqjgqgqjgqgqjgqgqjgqgqjgqgqjgqgq"
- exe "normal o\n" . join(t, "\n")
-
- let expected =<< trim END
- {
- Ｘ
- Ｘ
- a
- Ｘ
- a
- Ｘ
- Ｙ
- Ｘ
- Ｙ
- a
- Ｘ
- ab
- Ｘ
- abc
- Ｘ
- ab
- Ｘ
- c
- ab
- Ｘ
- Ｙ
-
- Ｘ
- Ｘ
- a
- Ｘ
- a
- Ｘ
- Ｙ
- Ｘ
- Ｙ
- a
- Ｘ
- ab
- Ｘ
- abc
- Ｘ
- ab
- Ｘ
- c
- ab
- Ｘ
- Ｙ
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo&
- bwipe!
-endfunc
-
-" Test for formatting multi-byte text with 'fo=tm', 'tw=2' and 'autoindent'.
-func Test_tw_2_fo_tm_ai()
- new
- let t =<< trim END
- {
- Ｘ
- Ｘa
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set ai tw=2 fo=tm
- let t =<< trim END
- Ｘ
- Ｘa
- END
- exe "normal gqgqjgqgq"
- exe "normal o\n" . join(t, "\n")
-
- let expected =<< trim END
- {
- Ｘ
- Ｘ
- a
-
- Ｘ
- Ｘ
- a
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo& ai&
- bwipe!
-endfunc
-
-" Test for formatting multi-byte text with 'fo=tm', 'tw=2' and 'noai'.
-func Test_tw_2_fo_tm_noai()
- new
- let t =<< trim END
- {
- Ｘ
- Ｘa
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set noai tw=2 fo=tm
- exe "normal gqgqjgqgqo\n Ｘ\n Ｘa"
-
- let expected =<< trim END
- {
- Ｘ
- Ｘ
- a
-
- Ｘ
- Ｘ
- a
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo& ai&
- bwipe!
-endfunc
-
-func Test_tw_2_fo_tm_replace()
- new
- let t =<< trim END
- {
-
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set tw=2 fo=tm
- exe "normal RＸa"
-
- let expected =<< trim END
- {
- Ｘ
- a
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set tw& fo&
- bwipe!
-endfunc
-
-" Test for 'matchpairs' with multibyte chars
-func Test_mps_multibyte()
- new
- let t =<< trim END
- {
- ‘ two three ’ four
- }
- END
- call setline(1, t)
- call cursor(2, 1)
-
- exe "set mps+=\u2018:\u2019"
- normal d%
-
- let expected =<< trim END
- {
- four
- }
- END
- call assert_equal(expected, getline(1, '$'))
-
- set mps&
- bwipe!
-endfunc
-
-" Test for 'matchpairs' in latin1 encoding
-func Test_mps_latin1()
- new
- let save_enc = &encoding
- " set encoding=latin1
- call setline(1, 'abc(def)ghi')
- normal %
- call assert_equal(8, col('.'))
- normal %
- call assert_equal(4, col('.'))
- call cursor(1, 6)
- normal [(
- call assert_equal(4, col('.'))
- normal %
- call assert_equal(8, col('.'))
- call cursor(1, 6)
- normal ])
- call assert_equal(8, col('.'))
- normal %
- call assert_equal(4, col('.'))
- let &encoding = save_enc
- close!
-endfunc
-
-func Test_empty_matchpairs()
- split
- set matchpairs= showmatch
- call assert_nobeep('call feedkeys("ax\tx\t\<Esc>", "xt")')
- set matchpairs& noshowmatch
- bwipe!
-endfunc
-
-func Test_mps_error()
- let encoding_save = &encoding
-
- " for e in ['utf-8', 'latin1']
- for e in ['utf-8']
- exe 'set encoding=' .. e
-
- call assert_fails('set mps=<:', 'E474:', e)
- call assert_fails('set mps=:>', 'E474:', e)
- call assert_fails('set mps=<>', 'E474:', e)
- call assert_fails('set mps=<:>_', 'E474:', e)
- endfor
-
- let &encoding = encoding_save
-endfunc
-
-" Test for ra on multi-byte characters
-func Test_ra_multibyte()
- new
- let t =<< trim END
- ra test
- ａbbａ
- ａａb
- END
- call setline(1, t)
- call cursor(1, 1)
-
- normal jVjra
-
- let expected =<< trim END
- ra test
- aaaa
- aaa
- END
- call assert_equal(expected, getline(1, '$'))
-
- bwipe!
-endfunc
-
-" Test for 'whichwrap' with multi-byte character
-func Test_whichwrap_multi_byte()
- new
- let t =<< trim END
- á
- x
- END
- call setline(1, t)
- call cursor(2, 1)
-
- set whichwrap+=h
- normal dh
- set whichwrap&
-
- let expected =<< trim END
- áx
- END
- call assert_equal(expected, getline(1, '$'))
-
- bwipe!
-endfunc
-
-" Test for 'a' and 'w' flags in 'formatoptions'
-func Test_fo_a_w()
- new
- setlocal fo+=aw tw=10
- call feedkeys("iabc abc a abc\<Esc>k0weade", 'xt')
- call assert_equal(['abc abcde ', 'a abc'], getline(1, '$'))
-
- " when a line ends with space, it is not broken up.
- %d
- call feedkeys("ione two to ", 'xt')
- call assert_equal('one two to ', getline(1))
-
- " when a line ends with spaces and backspace is used in the next line, the
- " last space in the previous line should be removed.
- %d
- set backspace=indent,eol,start
- call setline(1, ['one ', 'two'])
- exe "normal 2Gi\<BS>"
- call assert_equal(['one two'], getline(1, '$'))
- set backspace&
-
- " Test for 'a', 'w' and '1' options.
- setlocal textwidth=0
- setlocal fo=1aw
- %d
- call setline(1, '. foo')
- normal 72ig
- call feedkeys('a uu uu uu', 'xt')
- call assert_equal('g uu uu ', getline(1)[-8:])
- call assert_equal(['uu. foo'], getline(2, '$'))
-
- " using backspace or "x" triggers reformat
- call setline(1, ['1 2 3 4 5 ', '6 7 8 9'])
- set tw=10
- set fo=taw
- set bs=indent,eol,start
- exe "normal 1G4la\<BS>\<BS>\<Esc>"
- call assert_equal(['1 2 4 5 6 ', '7 8 9'], getline(1, 2))
- exe "normal f4xx"
- call assert_equal(['1 2 5 6 7 ', '8 9'], getline(1, 2))
-
- " using "cw" leaves cursor in right spot
- call setline(1, ['Now we g whether that nation, or',
- \ 'any nation so conceived and,'])
- set fo=tcqa tw=35
- exe "normal 2G0cwx\<Esc>"
- call assert_equal(['Now we g whether that nation, or x', 'nation so conceived and,'], getline(1, 2))
-
- set tw=0
- set fo&
- %bw!
-endfunc
-
-" Test for formatting lines using gq in visual mode
-func Test_visual_gq_format()
- new
- call setline(1, ['one two three four', 'five six', 'one two'])
- setl textwidth=10
- call feedkeys('ggv$jj', 'xt')
- redraw!
- normal gq
- %d
- call setline(1, ['one two three four', 'five six', 'one two'])
- normal G$
- call feedkeys('v0kk', 'xt')
- redraw!
- normal gq
- setl textwidth&
- close!
-endfunc
-
-" Test for 'n' flag in 'formatoptions' to format numbered lists
-func Test_fo_n()
- new
- setlocal autoindent
- setlocal textwidth=12
- setlocal fo=n
- call setline(1, [' 1) one two three four', ' 2) two'])
- normal gggqG
- call assert_equal([' 1) one two', ' three', ' four', ' 2) two'],
- \ getline(1, '$'))
- close!
-endfunc
-
-" Test for 'formatlistpat' option
-func Test_formatlistpat()
- new
- setlocal autoindent
- setlocal textwidth=10
- setlocal fo=n
- setlocal formatlistpat=^\\s*-\\s*
- call setline(1, [' - one two three', ' - two'])
- normal gggqG
- call assert_equal([' - one', ' two', ' three', ' - two'],
- \ getline(1, '$'))
- close!
-endfunc
-
-" Test for the 'b' and 'v' flags in 'formatoptions'
-" Text should wrap only if a space character is inserted at or before
-" 'textwidth'
-func Test_fo_b()
- new
- setlocal textwidth=20
-
- setlocal formatoptions=t
- call setline(1, 'one two three four')
- call feedkeys('Amore', 'xt')
- call assert_equal(['one two three', 'fourmore'], getline(1, '$'))
-
- setlocal formatoptions=bt
- %d
- call setline(1, 'one two three four')
- call feedkeys('Amore five', 'xt')
- call assert_equal(['one two three fourmore five'], getline(1, '$'))
-
- setlocal formatoptions=bt
- %d
- call setline(1, 'one two three four')
- call feedkeys('A five', 'xt')
- call assert_equal(['one two three four', 'five'], getline(1, '$'))
-
- setlocal formatoptions=vt
- %d
- call setline(1, 'one two three four')
- call feedkeys('Amore five', 'xt')
- call assert_equal(['one two three fourmore', 'five'], getline(1, '$'))
-
- close!
-endfunc
-
-" Test for the '1' flag in 'formatoptions'. Don't wrap text after a one letter
-" word.
-func Test_fo_1()
- new
- setlocal textwidth=20
-
- setlocal formatoptions=t
- call setline(1, 'one two three four')
- call feedkeys('A a bird', 'xt')
- call assert_equal(['one two three four a', 'bird'], getline(1, '$'))
-
- %d
- setlocal formatoptions=t1
- call setline(1, 'one two three four')
- call feedkeys('A a bird', 'xt')
- call assert_equal(['one two three four', 'a bird'], getline(1, '$'))
-
- close!
-endfunc
-
-" Test for 'l' flag in 'formatoptions'. When starting insert mode, if a line
-" is longer than 'textwidth', then it is not broken.
-func Test_fo_l()
- new
- setlocal textwidth=20
-
- setlocal formatoptions=t
- call setline(1, 'one two three four five')
- call feedkeys('A six', 'xt')
- call assert_equal(['one two three four', 'five six'], getline(1, '$'))
-
- %d
- setlocal formatoptions=tl
- call setline(1, 'one two three four five')
- call feedkeys('A six', 'xt')
- call assert_equal(['one two three four five six'], getline(1, '$'))
-
- close!
-endfunc
-
-" Test for the '2' flag in 'formatoptions'
-func Test_fo_2()
- new
- setlocal autoindent
- setlocal formatoptions=t2
- setlocal textwidth=30
- call setline(1, ["\tfirst line of a paragraph.",
- \ "second line of the same paragraph.",
- \ "third line."])
- normal gggqG
- call assert_equal(["\tfirst line of a",
- \ "paragraph. second line of the",
- \ "same paragraph. third line."], getline(1, '$'))
- close!
-endfunc
-
-" This was leaving the cursor after the end of a line. Complicated way to
-" have the problem show up with valgrind.
-func Test_correct_cursor_position()
- " set encoding=iso8859
- new
- norm a000“0
- sil! norm gggg0i0gw0gg
-
- bwipe!
- set encoding=utf8
-endfunc
-
-" vim: shiftwidth=2 sts=2 expandtab
generated by cgit (git 2.34.1) at 2025-04-28 19:38:23 +0000