Mercurial > vim

annotate src/testdir/test_textformat.vim @ 18478:94223687df0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.1.2233 for changeset e93cab5d0f0f27fad7882f1f412927df055b090d
author Bram Moolenaar <Bram@vim.org>
date Tue, 29 Oct 2019 04:30:05 +0100
parents 50c0a9fb07ae
children bb87c5c1e29b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12851
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1 " Tests for the various 'formatoptions' settings
18408
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
2
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
3 source check.vim
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
4
12851
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
5 func Test_text_format()
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6 enew!
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
8 setl noai tw=2 fo=t
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
11 \ ' ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
12 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
13 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
14 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 normal gRa b
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
18 \ 'a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
19 \ 'b'], getline(lnum - 1, lnum))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
21 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22 setl ai tw=2 fo=tw
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
23 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
24 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
25 \ 'a b ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
26 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
27 \ 'a ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
28 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
29 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
30 normal gqgqjjllab
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
31 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
32 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
33 \ 'a ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
34 \ 'b ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
35 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
36 \ 'a ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
37 \ 'b'], getline(lnum - 4, lnum))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
38
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
39 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
40 setl tw=3 fo=t
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
41 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
42 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
43 \ "a \<C-A>",
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
44 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
45 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
46 exe "normal gqgqo\na \<C-V>\<C-A>"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
47 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
48 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
49 \ 'a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
50 \ "\<C-A>",
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
51 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
52 \ 'a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
53 \ "\<C-A>"], getline(lnum - 4, lnum))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
54
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
55 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
56 setl tw=2 fo=tcq1 comments=:#
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
57 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
58 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
59 \ 'a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
60 \ '#a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
61 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
62 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
63 exe "normal gqgqjgqgqo\na b\n#a b"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
64 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
65 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
66 \ 'a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
67 \ '#a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
68 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
69 \ 'a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
70 \ '#a b'], getline(lnum - 4, lnum))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
71
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
72 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
73 setl tw=5 fo=tcn comments=:#
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
74 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
75 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
76 \ ' 1 a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
77 \ '# 1 a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
78 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
79 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
80 exe "normal A b\<Esc>jA b"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
81 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
82 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
83 \ ' 1 a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
84 \ ' b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
85 \ '# 1 a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
86 \ '# b'], getline(lnum - 3, lnum))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
87
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
88 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
89 setl tw=5 fo=t2a si
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
90 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
91 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
92 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
93 \ ' x a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
94 \ ' b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
95 \ ' c',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
96 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
97 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
98 exe "normal /^{/+3\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
99 exe "normal i \<Esc>A_"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
100 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
101 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
102 \ '',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
103 \ ' x a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
104 \ ' b_',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
105 \ ' c',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
106 \ ''], getline(lnum - 2, lnum + 2))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
107
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
108 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
109 setl tw=5 fo=qn comments=:#
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
110 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
111 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
112 \ '# 1 a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
113 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
114 exe "normal /^{/+1\n5|"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
115 normal gwap
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
116 call assert_equal(5, col('.'))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
117 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
118 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
119 \ '# 1 a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
120 \ '# b'], getline(lnum, lnum + 1))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
121
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
122 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
123 setl tw=5 fo=q2 comments=:#
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
124 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
125 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
126 \ '# x',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
127 \ '# a b',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
128 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
129 exe "normal /^{/+1\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
130 normal gwap
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
131 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
132 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
133 \ '# x a',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
134 \ '# b'], getline(lnum, lnum + 1))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
135
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
136 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
137 setl tw& fo=a
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
138 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
139 \ '{',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
140 \ ' 1aa',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
141 \ ' 2bb',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
142 \ '}'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
143 exe "normal /^{/+2\n0"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
144 normal I^^
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
145 call assert_equal('{ 1aa ^^2bb }', getline('.'))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
146
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
147 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
148 setl tw=20 fo=an12wcq comments=s1:/*,mb:*,ex:*/
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
149 call append('$', [
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
150 \ '/* abc def ghi jkl ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
151 \ ' * mno pqr stu',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
152 \ ' */'])
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
153 exe "normal /mno pqr/\n"
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
154 normal A vwx yz
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
155 let lnum = line('.')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
156 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
157 \ ' * mno pqr stu ',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
158 \ ' * vwx yz',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
159 \ ' */'], getline(lnum - 1, lnum + 1))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
160
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
161 normal ggdG
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
162 setl tw=12 fo=tqnc comments=:#
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
163 call setline('.', '# 1 xxxxx')
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
164 normal A foobar
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
165 call assert_equal([
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
166 \ '# 1 xxxxx',
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
167 \ '# foobar'], getline(1, 2))
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
168
15440
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
169 " Test the 'p' flag for 'formatoptions'
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
170 " First test without the flag: that it will break "Mr. Feynman" at the space
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
171 normal ggdG
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
172 setl tw=28 fo=tcq
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
173 call setline('.', 'Surely you''re joking, Mr. Feynman!')
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
174 normal gqq
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
175 call assert_equal([
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
176 \ 'Surely you''re joking, Mr.',
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
177 \ 'Feynman!'], getline(1, 2))
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
178 " Now test with the flag: that it will push the name with the title onto the
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
179 " next line
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
180 normal ggdG
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
181 setl fo+=p
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
182 call setline('.', 'Surely you''re joking, Mr. Feynman!')
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
183 normal gqq
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
184 call assert_equal([
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
185 \ 'Surely you''re joking,',
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
186 \ 'Mr. Feynman!'], getline(1, 2))
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
187 " Ensure that it will still break if two spaces are entered
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
188 normal ggdG
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
189 call setline('.', 'Surely you''re joking, Mr. Feynman!')
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
190 normal gqq
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
191 call assert_equal([
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
192 \ 'Surely you''re joking, Mr.',
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
193 \ 'Feynman!'], getline(1, 2))
5ecac7734184 patch 8.1.0728: cannot avoid breaking after a single space.
Bram Moolenaar <Bram@vim.org>
parents: 15326
diff changeset
194
12851
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
195 setl ai& tw& fo& si& comments&
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
196 enew!
90aaa974594e patch 8.0.1302: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
197 endfunc
13146
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
198
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
199 " Tests for :right, :center and :left on text with embedded TAB.
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
200 func Test_format_align()
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
201 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
202 set tw=65
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
203
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
204 " :left alignment
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
205 call append(0, [
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
206 \ " test for :left",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
207 \ " a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
208 \ " fa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
209 \ " dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
210 \ " sdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
211 \ " asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
212 \ " xasdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
213 \ "asxxdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
214 \ ])
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
215 %left
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
216 call assert_equal([
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
217 \ "test for :left",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
218 \ "a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
219 \ "fa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
220 \ "dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
221 \ "sdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
222 \ "asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
223 \ "xasdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
224 \ "asxxdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
225 \ ""
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
226 \ ], getline(1, '$'))
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
227 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
228
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
229 " :center alignment
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
230 call append(0, [
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
231 \ " test for :center",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
232 \ " a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
233 \ " fa afd asdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
234 \ " dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
235 \ " sdfa afd asdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
236 \ " asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
237 \ " xasdfa asdfasdfasdfasdfasdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
238 \ "asxxdfa a"
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
239 \ ])
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
240 %center
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
241 call assert_equal([
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
242 \ " test for :center",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
243 \ " a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
244 \ " fa afd asdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
245 \ " dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
246 \ " sdfa afd asdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
247 \ " asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
248 \ " xasdfa asdfasdfasdfasdfasdf",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
249 \ " asxxdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
250 \ ""
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
251 \ ], getline(1, '$'))
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
252 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
253
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
254 " :right alignment
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
255 call append(0, [
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
256 \ " test for :right",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
257 \ " a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
258 \ " fa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
259 \ " dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
260 \ " sdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
261 \ " asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
262 \ " xasdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
263 \ " asxxdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
264 \ " asxa;ofa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
265 \ " asdfaqwer a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
266 \ " a ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
267 \ " fa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
268 \ " dfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
269 \ " sdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
270 \ " asdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
271 \ " xasdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
272 \ " asxxdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
273 \ " asxa;ofa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
274 \ " asdfaqwer ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
275 \ " a axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
276 \ " fa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
277 \ " dfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
278 \ " sdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
279 \ " asdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
280 \ " xasdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
281 \ " asxxdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
282 \ " asxa;ofa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
283 \ " asdfaqwer axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
284 \ " a axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
285 \ " fa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
286 \ " dfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
287 \ " sdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
288 \ " asdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
289 \ " xasdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
290 \ " asxxdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
291 \ " asxa;ofa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
292 \ " asdfaqwer axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
293 \ " a axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
294 \ " fa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
295 \ " dfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
296 \ " sdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
297 \ " asdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
298 \ " xasdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
299 \ " asxxdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
300 \ " asxa;ofa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
301 \ " asdfaqwer axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
302 \ " a axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
303 \ " fa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
304 \ " dfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
305 \ " sdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
306 \ " asdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
307 \ " xasdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
308 \ " asxxdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
309 \ " asxa;ofa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
310 \ " asdfaqwer axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
311 \ " a axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
312 \ " fa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
313 \ " dfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
314 \ " sdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
315 \ " asdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
316 \ " xasdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
317 \ " asxxdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
318 \ " asxa;ofa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
319 \ " asdfaqwer axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
320 \ " a axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
321 \ " fa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
322 \ " dfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
323 \ " sdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
324 \ " asdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
325 \ " xasdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
326 \ " asxxdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
327 \ " asxa;ofa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
328 \ " asdfaqwer axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
329 \ " a axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
330 \ " fa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
331 \ " dfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
332 \ " sdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
333 \ " asdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
334 \ " xasdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
335 \ " asxxdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
336 \ " asxa;ofa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
337 \ " asdfaqwer axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
338 \ ])
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
339 %right
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
340 call assert_equal([
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
341 \ "\t\t\t\t test for :right",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
342 \ "\t\t\t\t a a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
343 \ "\t\t\t\t fa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
344 \ "\t\t\t\t dfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
345 \ "\t\t\t\t sdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
346 \ "\t\t\t\t asdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
347 \ "\t\t\t\t xasdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
348 \ "\t\t\t\t asxxdfa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
349 \ "\t\t\t\t asxa;ofa a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
350 \ "\t\t\t\t asdfaqwer a",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
351 \ "\t\t\t\t a ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
352 \ "\t\t\t\t fa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
353 \ "\t\t\t\t dfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
354 \ "\t\t\t\t sdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
355 \ "\t\t\t\t asdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
356 \ "\t\t\t\t xasdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
357 \ "\t\t\t\t asxxdfa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
358 \ "\t\t\t\t asxa;ofa ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
359 \ "\t\t\t\t asdfaqwer ax",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
360 \ "\t\t\t\t a axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
361 \ "\t\t\t\t fa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
362 \ "\t\t\t\t dfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
363 \ "\t\t\t\t sdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
364 \ "\t\t\t\t asdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
365 \ "\t\t\t\t xasdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
366 \ "\t\t\t\t asxxdfa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
367 \ "\t\t\t\t asxa;ofa axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
368 \ "\t\t\t\t asdfaqwer axx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
369 \ "\t\t\t\t a axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
370 \ "\t\t\t\t fa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
371 \ "\t\t\t\t dfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
372 \ "\t\t\t\t sdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
373 \ "\t\t\t\t asdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
374 \ "\t\t\t\t xasdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
375 \ "\t\t\t\t asxxdfa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
376 \ "\t\t\t\t asxa;ofa axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
377 \ "\t\t\t\t asdfaqwer axxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
378 \ "\t\t\t\t a axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
379 \ "\t\t\t\t fa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
380 \ "\t\t\t\t dfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
381 \ "\t\t\t\t sdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
382 \ "\t\t\t\t asdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
383 \ "\t\t\t\t xasdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
384 \ "\t\t\t\t asxxdfa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
385 \ "\t\t\t\t asxa;ofa axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
386 \ "\t\t\t\t asdfaqwer axxxo",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
387 \ "\t\t\t\t a axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
388 \ "\t\t\t\t fa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
389 \ "\t\t\t\t dfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
390 \ "\t\t\t\t sdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
391 \ "\t\t\t\t asdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
392 \ "\t\t\t\t xasdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
393 \ "\t\t\t\t asxxdfa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
394 \ "\t\t\t\t asxa;ofa axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
395 \ "\t\t\t\t asdfaqwer axxxoi",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
396 \ "\t\t\t\t a axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
397 \ "\t\t\t\t fa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
398 \ "\t\t\t\t dfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
399 \ "\t\t\t\t sdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
400 \ "\t\t\t\t asdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
401 \ "\t\t\t\t xasdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
402 \ "\t\t\t\t asxxdfa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
403 \ "\t\t\t\t asxa;ofa axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
404 \ "\t\t\t\t asdfaqwer axxxoik",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
405 \ "\t\t\t\t a axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
406 \ "\t\t\t\t fa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
407 \ "\t\t\t\t dfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
408 \ "\t\t\t\t sdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
409 \ "\t\t\t\t asdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
410 \ "\t\t\t\t xasdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
411 \ "\t\t\t\t asxxdfa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
412 \ "\t\t\t\t asxa;ofa axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
413 \ "\t\t\t\t asdfaqwer axxxoike",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
414 \ "\t\t\t\t a axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
415 \ "\t\t\t\t fa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
416 \ "\t\t\t\t dfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
417 \ "\t\t\t\t sdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
418 \ "\t\t\t\t asdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
419 \ "\t\t\t\t xasdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
420 \ "\t\t\t\t asxxdfa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
421 \ "\t\t\t\t asxa;ofa axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
422 \ "\t\t\t\t asdfaqwer axxxoikey",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
423 \ ""
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
424 \ ], getline(1, '$'))
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
425 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
426
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
427 set tw&
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
428 endfunc
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
429
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
430 " Test formatting a paragraph.
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
431 func Test_format_para()
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
432 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
433 set fo+=tcroql tw=72
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
434
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
435 call append(0, [
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
436 \ "xxxxx xx xxxxxx ",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
437 \ "xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
438 \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
439 \ "xx xxxxxxx. xxxx xxxx.",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
440 \ "",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
441 \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
442 \ "> xxxxxx xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx"
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
443 \ ])
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
444 exe "normal /xxxxxxxx$\<CR>"
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
445 normal 0gq6kk
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
446 call assert_equal([
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
447 \ "xxxxx xx xxxxxx xxxxxxx xxxxxxxxx xxx xxxx xxxxx xxxxx xxx xx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
448 \ "xxxxxxxxxxxxxxxxxx xxxxx xxxx, xxxx xxxx xxxx xxxx xxx xx xx xx xxxxxxx.",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
449 \ "xxxx xxxx.",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
450 \ "",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
451 \ "> xx xx, xxxx xxxx xxx xxxx xxx xxxxx xxx xxx xxxxxxx xxx xxxxx xxxxxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
452 \ "> xxxxxxx: xxxx xxxxxxx, xx xxxxxx xxxx xxxxxxxxxx",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
453 \ ""
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
454 \ ], getline(1, '$'))
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
455
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
456 set fo& tw&
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
457 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
458 endfunc
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
459
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
460 " Test undo after ":%s" and formatting.
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
461 func Test_format_undo()
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
462 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
463 map gg :.,.+2s/^/x/<CR>kk:set tw=3<CR>gqq
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
464
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
465 call append(0, [
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
466 \ "aa aa aa aa",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
467 \ "bb bb bb bb",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
468 \ "cc cc cc cc"
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
469 \ ])
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
470 " undo/redo here to make the next undo only work on the following changes
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
471 exe "normal i\<C-G>u"
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
472 call cursor(1,1)
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
473 normal ggu
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
474 call assert_equal([
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
475 \ "aa aa aa aa",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
476 \ "bb bb bb bb",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
477 \ "cc cc cc cc",
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
478 \ ""
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
479 \ ], getline(1, '$'))
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
480
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
481 unmap gg
15326
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
482 set tw&
13146
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
483 enew!
d9a94be389b5 patch 8.0.1447: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents: 12851
diff changeset
484 endfunc
15326
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
485
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
486 func Test_format_list_auto()
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
487 new
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
488 call setline(1, ['1. abc', '2. def', '3. ghi'])
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
489 set fo=tan ai bs=2
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
490 call feedkeys("3G0lli\<BS>\<BS>x\<Esc>", 'tx')
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
491 call assert_equal('2. defx ghi', getline(2))
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
492 bwipe!
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
493 set fo& ai& bs&
fe428bee74b3 patch 8.1.0671: cursor in the wrong column after auto-formatting
Bram Moolenaar <Bram@vim.org>
parents: 13146
diff changeset
494 endfunc
18408
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
495
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
496 func Test_crash_github_issue_5095()
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
497 CheckFeature autocmd
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
498
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
499 " This used to segfault, see https://github.com/vim/vim/issues/5095
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
500 augroup testing
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
501 au BufNew x center
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
502 augroup END
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
503
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
504 next! x
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
505
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
506 bw
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
507 augroup testing
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
508 au!
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
509 augroup END
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
510 augroup! testing
50c0a9fb07ae patch 8.1.2198: crash when using :center in autocommand
Bram Moolenaar <Bram@vim.org>
parents: 15440
diff changeset
511 endfunc