Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 1 | " Test findfile() and finddir() |
| 2 | |
Yegappan Lakshmanan | aeb1c97 | 2024-10-22 23:42:20 +0200 | [diff] [blame^] | 3 | source check.vim |
| 4 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 5 | let s:files = [ 'Xfinddir1/foo', |
| 6 | \ 'Xfinddir1/bar', |
| 7 | \ 'Xfinddir1/Xdir2/foo', |
| 8 | \ 'Xfinddir1/Xdir2/foobar', |
| 9 | \ 'Xfinddir1/Xdir2/Xdir3/bar', |
| 10 | \ 'Xfinddir1/Xdir2/Xdir3/barfoo' ] |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 11 | |
| 12 | func CreateFiles() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 13 | call mkdir('Xfinddir1/Xdir2/Xdir3/Xdir2', 'p') |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 14 | for f in s:files |
| 15 | call writefile([], f) |
| 16 | endfor |
| 17 | endfunc |
| 18 | |
| 19 | func CleanFiles() |
| 20 | " Safer to delete each file even if it's more verbose |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 21 | " than doing a recursive delete('Xfinddir1', 'rf'). |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 22 | for f in s:files |
| 23 | call delete(f) |
| 24 | endfor |
| 25 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 26 | call delete('Xfinddir1/Xdir2/Xdir3/Xdir2', 'd') |
| 27 | call delete('Xfinddir1/Xdir2/Xdir3', 'd') |
| 28 | call delete('Xfinddir1/Xdir2', 'd') |
| 29 | call delete('Xfinddir1', 'd') |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 30 | endfunc |
| 31 | |
| 32 | " Test findfile({name} [, {path} [, {count}]]) |
Bram Moolenaar | dc9a081 | 2017-02-23 18:46:50 +0100 | [diff] [blame] | 33 | func Test_findfile() |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 34 | let save_path = &path |
| 35 | let save_shellslash = &shellslash |
| 36 | let save_dir = getcwd() |
| 37 | set shellslash |
| 38 | call CreateFiles() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 39 | cd Xfinddir1 |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 40 | e Xdir2/foo |
| 41 | |
| 42 | " With ,, in path, findfile() searches in current directory. |
| 43 | set path=,, |
| 44 | call assert_equal('foo', findfile('foo')) |
| 45 | call assert_equal('bar', findfile('bar')) |
| 46 | call assert_equal('', findfile('foobar')) |
| 47 | |
| 48 | " Directories should not be found (finddir() finds them). |
| 49 | call assert_equal('', findfile('Xdir2')) |
| 50 | |
| 51 | " With . in 'path', findfile() searches relatively to current file. |
| 52 | set path=. |
| 53 | call assert_equal('Xdir2/foo', findfile('foo')) |
| 54 | call assert_equal('', findfile('bar')) |
Bram Moolenaar | a420896 | 2019-08-24 20:50:19 +0200 | [diff] [blame] | 55 | call assert_equal('Xdir2/foobar', 'foobar'->findfile()) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 56 | |
| 57 | " Empty {path} 2nd argument is the same as no 2nd argument. |
| 58 | call assert_equal('Xdir2/foo', findfile('foo', '')) |
| 59 | call assert_equal('', findfile('bar', '')) |
| 60 | |
| 61 | " Test with * |
| 62 | call assert_equal('Xdir2/foo', findfile('foo', '*')) |
| 63 | call assert_equal('', findfile('bar', '*')) |
| 64 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*/*')) |
| 65 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/*')) |
| 66 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir*/Xdir3')) |
| 67 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*2/*3')) |
| 68 | |
| 69 | " Test with ** |
| 70 | call assert_equal('bar', findfile('bar', '**')) |
| 71 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**/Xdir3')) |
| 72 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/**')) |
| 73 | |
| 74 | call assert_equal('Xdir2/Xdir3/barfoo', findfile('barfoo', '**2')) |
| 75 | call assert_equal('', findfile('barfoo', '**1')) |
| 76 | call assert_equal('Xdir2/foobar', findfile('foobar', '**1')) |
| 77 | |
| 78 | " Test with {count} 3rd argument. |
| 79 | call assert_equal('bar', findfile('bar', '**', 0)) |
| 80 | call assert_equal('bar', findfile('bar', '**', 1)) |
| 81 | call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**', 2)) |
| 82 | call assert_equal('', findfile('bar', '**', 3)) |
| 83 | call assert_equal(['bar', 'Xdir2/Xdir3/bar'], findfile('bar', '**', -1)) |
| 84 | |
| 85 | " Test upwards search. |
| 86 | cd Xdir2/Xdir3 |
| 87 | call assert_equal('bar', findfile('bar', ';')) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 88 | call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';')) |
| 89 | call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';', 1)) |
| 90 | call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2)) |
| 91 | call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2)) |
| 92 | call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', 'Xdir2;', 1)) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 93 | call assert_equal('', findfile('foo', 'Xdir2;', 2)) |
| 94 | |
| 95 | " List l should have at least 2 values (possibly more if foo file |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 96 | " happens to be found upwards above Xfinddir1). |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 97 | let l = findfile('foo', ';', -1) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 98 | call assert_match('.*/Xfinddir1/Xdir2/foo', l[0]) |
| 99 | call assert_match('.*/Xfinddir1/foo', l[1]) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 100 | |
| 101 | " Test upwards search with stop-directory. |
| 102 | cd Xdir2 |
zeertzjq | 764526e | 2024-07-11 22:24:15 +0200 | [diff] [blame] | 103 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/Xdir3/', -1) |
| 104 | call assert_equal(1, len(l)) |
| 105 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 106 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/Xdir3', -1) |
| 107 | call assert_equal(1, len(l)) |
| 108 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 109 | let l = findfile('bar', ';../', -1) |
| 110 | call assert_equal(1, len(l)) |
| 111 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
zeertzjq | 1ee7420 | 2024-07-12 07:29:14 +0200 | [diff] [blame] | 112 | let l = findfile('bar', ';..', -1) |
| 113 | call assert_equal(1, len(l)) |
| 114 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
zeertzjq | 764526e | 2024-07-11 22:24:15 +0200 | [diff] [blame] | 115 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 116 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/', -1) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 117 | call assert_equal(1, len(l)) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 118 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
zeertzjq | e6ab23b | 2024-07-11 22:22:26 +0200 | [diff] [blame] | 119 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2', -1) |
| 120 | call assert_equal(1, len(l)) |
| 121 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
zeertzjq | 764526e | 2024-07-11 22:24:15 +0200 | [diff] [blame] | 122 | let l = findfile('bar', ';../../', -1) |
| 123 | call assert_equal(1, len(l)) |
| 124 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
zeertzjq | 1ee7420 | 2024-07-12 07:29:14 +0200 | [diff] [blame] | 125 | let l = findfile('bar', ';../..', -1) |
| 126 | call assert_equal(1, len(l)) |
| 127 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 128 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 129 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1/', -1) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 130 | call assert_equal(2, len(l)) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 131 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 132 | call assert_match('.*/Xfinddir1/bar', l[1]) |
zeertzjq | e6ab23b | 2024-07-11 22:22:26 +0200 | [diff] [blame] | 133 | let l = findfile('bar', ';' . save_dir . '/Xfinddir1', -1) |
| 134 | call assert_equal(2, len(l)) |
| 135 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 136 | call assert_match('.*/Xfinddir1/bar', l[1]) |
zeertzjq | 764526e | 2024-07-11 22:24:15 +0200 | [diff] [blame] | 137 | let l = findfile('bar', ';../../../', -1) |
| 138 | call assert_equal(2, len(l)) |
| 139 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 140 | call assert_match('.*/Xfinddir1/bar', l[1]) |
zeertzjq | 1ee7420 | 2024-07-12 07:29:14 +0200 | [diff] [blame] | 141 | let l = findfile('bar', ';../../..', -1) |
| 142 | call assert_equal(2, len(l)) |
| 143 | call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) |
| 144 | call assert_match('.*/Xfinddir1/bar', l[1]) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 145 | |
| 146 | " Test combined downwards and upwards search from Xdir2/. |
| 147 | cd ../.. |
| 148 | call assert_equal('Xdir3/bar', findfile('bar', '**;', 1)) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 149 | call assert_match('.*/Xfinddir1/bar', findfile('bar', '**;', 2)) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 150 | |
| 151 | bwipe! |
Bram Moolenaar | 3503d7c | 2019-11-09 20:10:17 +0100 | [diff] [blame] | 152 | call chdir(save_dir) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 153 | call CleanFiles() |
| 154 | let &path = save_path |
| 155 | let &shellslash = save_shellslash |
| 156 | endfunc |
| 157 | |
Bram Moolenaar | 71b13e9 | 2019-02-04 21:14:45 +0100 | [diff] [blame] | 158 | func Test_findfile_error() |
| 159 | call assert_fails('call findfile([])', 'E730:') |
| 160 | call assert_fails('call findfile("x", [])', 'E730:') |
| 161 | call assert_fails('call findfile("x", "", [])', 'E745:') |
| 162 | call assert_fails('call findfile("x", "**x")', 'E343:') |
| 163 | call assert_fails('call findfile("x", repeat("x", 5000))', 'E854:') |
| 164 | endfunc |
| 165 | |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 166 | " Test finddir({name} [, {path} [, {count}]]) |
| 167 | func Test_finddir() |
| 168 | let save_path = &path |
| 169 | let save_shellslash = &shellslash |
| 170 | let save_dir = getcwd() |
| 171 | set path=,, |
zeertzjq | e7b98ab | 2024-07-11 21:48:09 +0200 | [diff] [blame] | 172 | set shellslash |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 173 | call CreateFiles() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 174 | cd Xfinddir1 |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 175 | |
| 176 | call assert_equal('Xdir2', finddir('Xdir2')) |
Bram Moolenaar | a420896 | 2019-08-24 20:50:19 +0200 | [diff] [blame] | 177 | call assert_equal('', 'Xdir3'->finddir()) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 178 | |
| 179 | " Files should not be found (findfile() finds them). |
| 180 | call assert_equal('', finddir('foo')) |
| 181 | |
| 182 | call assert_equal('Xdir2', finddir('Xdir2', '**')) |
| 183 | call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**')) |
| 184 | |
| 185 | call assert_equal('Xdir2', finddir('Xdir2', '**', 1)) |
| 186 | call assert_equal('Xdir2/Xdir3/Xdir2', finddir('Xdir2', '**', 2)) |
| 187 | call assert_equal(['Xdir2', |
| 188 | \ 'Xdir2/Xdir3/Xdir2'], finddir('Xdir2', '**', -1)) |
| 189 | |
| 190 | call assert_equal('Xdir2', finddir('Xdir2', '**1')) |
| 191 | call assert_equal('Xdir2', finddir('Xdir2', '**0')) |
| 192 | call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**1')) |
| 193 | call assert_equal('', finddir('Xdir3', '**0')) |
| 194 | |
| 195 | " Test upwards dir search. |
| 196 | cd Xdir2/Xdir3 |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 197 | call assert_match('.*/Xfinddir1', finddir('Xfinddir1', ';')) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 198 | |
| 199 | " Test upwards search with stop-directory. |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 200 | call assert_match('.*/Xfinddir1', finddir('Xfinddir1', ';' . save_dir . '/')) |
| 201 | call assert_equal('', finddir('Xfinddir1', ';' . save_dir . '/Xfinddir1/')) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 202 | |
| 203 | " Test combined downwards and upwards dir search from Xdir2/. |
Bram Moolenaar | dc9a081 | 2017-02-23 18:46:50 +0100 | [diff] [blame] | 204 | cd .. |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 205 | call assert_match('.*/Xfinddir1', finddir('Xfinddir1', '**;', 1)) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 206 | call assert_equal('Xdir3/Xdir2', finddir('Xdir2', '**;', 1)) |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 207 | call assert_match('.*/Xfinddir1/Xdir2', finddir('Xdir2', '**;', 2)) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 208 | call assert_equal('Xdir3', finddir('Xdir3', '**;', 1)) |
Bram Moolenaar | dc9a081 | 2017-02-23 18:46:50 +0100 | [diff] [blame] | 209 | |
Bram Moolenaar | 3503d7c | 2019-11-09 20:10:17 +0100 | [diff] [blame] | 210 | call chdir(save_dir) |
Bram Moolenaar | ed71ed3 | 2019-01-30 22:13:35 +0100 | [diff] [blame] | 211 | call CleanFiles() |
| 212 | let &path = save_path |
| 213 | let &shellslash = save_shellslash |
Bram Moolenaar | dc9a081 | 2017-02-23 18:46:50 +0100 | [diff] [blame] | 214 | endfunc |
Bram Moolenaar | 71b13e9 | 2019-02-04 21:14:45 +0100 | [diff] [blame] | 215 | |
| 216 | func Test_finddir_error() |
| 217 | call assert_fails('call finddir([])', 'E730:') |
| 218 | call assert_fails('call finddir("x", [])', 'E730:') |
| 219 | call assert_fails('call finddir("x", "", [])', 'E745:') |
| 220 | call assert_fails('call finddir("x", "**x")', 'E343:') |
| 221 | call assert_fails('call finddir("x", repeat("x", 5000))', 'E854:') |
| 222 | endfunc |
Bram Moolenaar | bc2b71d | 2020-02-17 21:33:30 +0100 | [diff] [blame] | 223 | |
| 224 | " Test for the :find, :sfind and :tabfind commands |
| 225 | func Test_find_cmd() |
| 226 | new |
| 227 | let save_path = &path |
| 228 | let save_dir = getcwd() |
| 229 | set path=.,./**/* |
| 230 | call CreateFiles() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 231 | cd Xfinddir1 |
Bram Moolenaar | bc2b71d | 2020-02-17 21:33:30 +0100 | [diff] [blame] | 232 | |
| 233 | " Test for :find |
| 234 | find foo |
| 235 | call assert_equal('foo', expand('%:.')) |
| 236 | 2find foo |
| 237 | call assert_equal('Xdir2/foo', expand('%:.')) |
| 238 | call assert_fails('3find foo', 'E347:') |
| 239 | |
| 240 | " Test for :sfind |
| 241 | enew |
| 242 | sfind barfoo |
| 243 | call assert_equal('Xdir2/Xdir3/barfoo', expand('%:.')) |
| 244 | call assert_equal(3, winnr('$')) |
| 245 | close |
| 246 | call assert_fails('sfind baz', 'E345:') |
| 247 | call assert_equal(2, winnr('$')) |
| 248 | |
| 249 | " Test for :tabfind |
| 250 | enew |
| 251 | tabfind foobar |
| 252 | call assert_equal('Xdir2/foobar', expand('%:.')) |
| 253 | call assert_equal(2, tabpagenr('$')) |
| 254 | tabclose |
| 255 | call assert_fails('tabfind baz', 'E345:') |
| 256 | call assert_equal(1, tabpagenr('$')) |
| 257 | |
| 258 | call chdir(save_dir) |
| 259 | call CleanFiles() |
| 260 | let &path = save_path |
| 261 | close |
Bram Moolenaar | 2d10cd4 | 2020-03-19 14:37:30 +0100 | [diff] [blame] | 262 | |
| 263 | call assert_fails('find', 'E471:') |
| 264 | call assert_fails('sfind', 'E471:') |
| 265 | call assert_fails('tabfind', 'E471:') |
Bram Moolenaar | bc2b71d | 2020-02-17 21:33:30 +0100 | [diff] [blame] | 266 | endfunc |
Bram Moolenaar | 6d91bcb | 2020-08-12 18:50:36 +0200 | [diff] [blame] | 267 | |
Christian Brabandt | 7a4ca32 | 2021-07-25 15:08:05 +0200 | [diff] [blame] | 268 | func Test_find_non_existing_path() |
| 269 | new |
| 270 | let save_path = &path |
| 271 | let save_dir = getcwd() |
Bram Moolenaar | 70e6725 | 2022-09-27 19:34:35 +0100 | [diff] [blame] | 272 | call mkdir('dir1/dir2', 'pR') |
Christian Brabandt | 7a4ca32 | 2021-07-25 15:08:05 +0200 | [diff] [blame] | 273 | call writefile([], 'dir1/file.txt') |
| 274 | call writefile([], 'dir1/dir2/base.txt') |
| 275 | call chdir('dir1/dir2') |
| 276 | e base.txt |
| 277 | set path=../include |
| 278 | |
| 279 | call assert_fails(':find file.txt', 'E345:') |
| 280 | |
| 281 | call chdir(save_dir) |
| 282 | bw! |
Christian Brabandt | 7a4ca32 | 2021-07-25 15:08:05 +0200 | [diff] [blame] | 283 | let &path = save_path |
| 284 | endfunc |
| 285 | |
Yegappan Lakshmanan | aeb1c97 | 2024-10-22 23:42:20 +0200 | [diff] [blame^] | 286 | " Test for 'findexpr' |
| 287 | func Test_findexpr() |
| 288 | CheckUnix |
| 289 | call assert_equal('', &findexpr) |
| 290 | call writefile(['aFile'], 'Xfindexpr1.c', 'D') |
| 291 | call writefile(['bFile'], 'Xfindexpr2.c', 'D') |
| 292 | call writefile(['cFile'], 'Xfindexpr3.c', 'D') |
| 293 | |
| 294 | " basic tests |
| 295 | func FindExpr1() |
| 296 | let fnames = ['Xfindexpr1.c', 'Xfindexpr2.c', 'Xfindexpr3.c'] |
| 297 | "return fnames->copy()->filter('v:val =~? v:fname')->join("\n") |
| 298 | return fnames->copy()->filter('v:val =~? v:fname') |
| 299 | endfunc |
| 300 | |
| 301 | set findexpr=FindExpr1() |
| 302 | find Xfindexpr3 |
| 303 | call assert_match('Xfindexpr3.c', @%) |
| 304 | bw! |
| 305 | 2find Xfind |
| 306 | call assert_match('Xfindexpr2.c', @%) |
| 307 | bw! |
| 308 | call assert_fails('4find Xfind', 'E347: No more file "Xfind" found in path') |
| 309 | call assert_fails('find foobar', 'E345: Can''t find file "foobar" in path') |
| 310 | |
| 311 | sfind Xfindexpr2.c |
| 312 | call assert_match('Xfindexpr2.c', @%) |
| 313 | call assert_equal(2, winnr('$')) |
| 314 | %bw! |
| 315 | call assert_fails('sfind foobar', 'E345: Can''t find file "foobar" in path') |
| 316 | |
| 317 | tabfind Xfindexpr3.c |
| 318 | call assert_match('Xfindexpr3.c', @%) |
| 319 | call assert_equal(2, tabpagenr()) |
| 320 | %bw! |
| 321 | call assert_fails('tabfind foobar', 'E345: Can''t find file "foobar" in path') |
| 322 | |
| 323 | " Buffer-local option |
| 324 | set findexpr=['abc'] |
| 325 | new |
| 326 | setlocal findexpr=['def'] |
| 327 | find xxxx |
| 328 | call assert_equal('def', @%) |
| 329 | wincmd w |
| 330 | find xxxx |
| 331 | call assert_equal('abc', @%) |
| 332 | aboveleft new |
| 333 | call assert_equal("['abc']", &findexpr) |
| 334 | wincmd k |
| 335 | aboveleft new |
| 336 | call assert_equal("['abc']", &findexpr) |
| 337 | %bw! |
| 338 | |
| 339 | " Empty list |
| 340 | set findexpr=[] |
| 341 | call assert_fails('find xxxx', 'E345: Can''t find file "xxxx" in path') |
| 342 | |
| 343 | " Error cases |
| 344 | |
| 345 | " Syntax error in the expression |
| 346 | set findexpr=FindExpr1{} |
| 347 | call assert_fails('find Xfindexpr1.c', 'E15: Invalid expression') |
| 348 | |
| 349 | " Find expression throws an error |
| 350 | func FindExpr2() |
| 351 | throw 'find error' |
| 352 | endfunc |
| 353 | set findexpr=FindExpr2() |
| 354 | call assert_fails('find Xfindexpr1.c', 'find error') |
| 355 | |
| 356 | " Try using a null string as the expression |
| 357 | set findexpr=test_null_string() |
| 358 | call assert_fails('find Xfindexpr1.c', 'E345: Can''t find file "Xfindexpr1.c" in path') |
| 359 | |
| 360 | " Try to create a new window from the find expression |
| 361 | func FindExpr3() |
| 362 | new |
| 363 | return ["foo"] |
| 364 | endfunc |
| 365 | set findexpr=FindExpr3() |
| 366 | call assert_fails('find Xfindexpr1.c', 'E565: Not allowed to change text or change window') |
| 367 | |
| 368 | " Try to modify the current buffer from the find expression |
| 369 | func FindExpr4() |
| 370 | call setline(1, ['abc']) |
| 371 | return ["foo"] |
| 372 | endfunc |
| 373 | set findexpr=FindExpr4() |
| 374 | call assert_fails('find Xfindexpr1.c', 'E565: Not allowed to change text or change window') |
| 375 | |
| 376 | set findexpr& |
| 377 | delfunc! FindExpr1 |
| 378 | delfunc! FindExpr2 |
| 379 | delfunc! FindExpr3 |
| 380 | delfunc! FindExpr4 |
| 381 | endfunc |
| 382 | |
| 383 | " Test for using a script-local function for 'findexpr' |
| 384 | func Test_findexpr_scriptlocal_func() |
| 385 | func! s:FindExprScript() |
| 386 | let g:FindExprArg = v:fname |
| 387 | return ['xxx'] |
| 388 | endfunc |
| 389 | |
| 390 | set findexpr=s:FindExprScript() |
| 391 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &findexpr) |
| 392 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &g:findexpr) |
| 393 | new | only |
| 394 | let g:FindExprArg = '' |
| 395 | find abc |
| 396 | call assert_equal('abc', g:FindExprArg) |
| 397 | bw! |
| 398 | |
| 399 | set findexpr=<SID>FindExprScript() |
| 400 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &findexpr) |
| 401 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &g:findexpr) |
| 402 | new | only |
| 403 | let g:FindExprArg = '' |
| 404 | find abc |
| 405 | call assert_equal('abc', g:FindExprArg) |
| 406 | bw! |
| 407 | |
| 408 | let &findexpr = 's:FindExprScript()' |
| 409 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &g:findexpr) |
| 410 | new | only |
| 411 | let g:FindExprArg = '' |
| 412 | find abc |
| 413 | call assert_equal('abc', g:FindExprArg) |
| 414 | bw! |
| 415 | |
| 416 | let &findexpr = '<SID>FindExprScript()' |
| 417 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &g:findexpr) |
| 418 | new | only |
| 419 | let g:FindExprArg = '' |
| 420 | find abc |
| 421 | call assert_equal('abc', g:FindExprArg) |
| 422 | bw! |
| 423 | |
| 424 | set findexpr= |
| 425 | setglobal findexpr=s:FindExprScript() |
| 426 | setlocal findexpr= |
| 427 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &findexpr) |
| 428 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &g:findexpr) |
| 429 | call assert_equal('', &l:findexpr) |
| 430 | new | only |
| 431 | let g:FindExprArg = '' |
| 432 | find abc |
| 433 | call assert_equal('abc', g:FindExprArg) |
| 434 | bw! |
| 435 | |
| 436 | new | only |
| 437 | set findexpr= |
| 438 | setglobal findexpr= |
| 439 | setlocal findexpr=s:FindExprScript() |
| 440 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &findexpr) |
| 441 | call assert_equal(expand('<SID>') .. 'FindExprScript()', &l:findexpr) |
| 442 | call assert_equal('', &g:findexpr) |
| 443 | let g:FindExprArg = '' |
| 444 | find abc |
| 445 | call assert_equal('abc', g:FindExprArg) |
| 446 | bw! |
| 447 | |
| 448 | set findexpr= |
| 449 | delfunc s:FindExprScript |
| 450 | endfunc |
| 451 | |
Bram Moolenaar | 6d91bcb | 2020-08-12 18:50:36 +0200 | [diff] [blame] | 452 | " vim: shiftwidth=2 sts=2 expandtab |