blob: 9247a813daa40a9c2a0cec02e23d893d0635aeb6 [file] [log] [blame]
Bram Moolenaared71ed32019-01-30 22:13:35 +01001" Test findfile() and finddir()
2
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +01003let s:files = [ 'Xfinddir1/foo',
4 \ 'Xfinddir1/bar',
5 \ 'Xfinddir1/Xdir2/foo',
6 \ 'Xfinddir1/Xdir2/foobar',
7 \ 'Xfinddir1/Xdir2/Xdir3/bar',
8 \ 'Xfinddir1/Xdir2/Xdir3/barfoo' ]
Bram Moolenaared71ed32019-01-30 22:13:35 +01009
10func CreateFiles()
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010011 call mkdir('Xfinddir1/Xdir2/Xdir3/Xdir2', 'p')
Bram Moolenaared71ed32019-01-30 22:13:35 +010012 for f in s:files
13 call writefile([], f)
14 endfor
15endfunc
16
17func CleanFiles()
18 " Safer to delete each file even if it's more verbose
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010019 " than doing a recursive delete('Xfinddir1', 'rf').
Bram Moolenaared71ed32019-01-30 22:13:35 +010020 for f in s:files
21 call delete(f)
22 endfor
23
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010024 call delete('Xfinddir1/Xdir2/Xdir3/Xdir2', 'd')
25 call delete('Xfinddir1/Xdir2/Xdir3', 'd')
26 call delete('Xfinddir1/Xdir2', 'd')
27 call delete('Xfinddir1', 'd')
Bram Moolenaared71ed32019-01-30 22:13:35 +010028endfunc
29
30" Test findfile({name} [, {path} [, {count}]])
Bram Moolenaardc9a0812017-02-23 18:46:50 +010031func Test_findfile()
Bram Moolenaared71ed32019-01-30 22:13:35 +010032 let save_path = &path
33 let save_shellslash = &shellslash
34 let save_dir = getcwd()
35 set shellslash
36 call CreateFiles()
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010037 cd Xfinddir1
Bram Moolenaared71ed32019-01-30 22:13:35 +010038 e Xdir2/foo
39
40 " With ,, in path, findfile() searches in current directory.
41 set path=,,
42 call assert_equal('foo', findfile('foo'))
43 call assert_equal('bar', findfile('bar'))
44 call assert_equal('', findfile('foobar'))
45
46 " Directories should not be found (finddir() finds them).
47 call assert_equal('', findfile('Xdir2'))
48
49 " With . in 'path', findfile() searches relatively to current file.
50 set path=.
51 call assert_equal('Xdir2/foo', findfile('foo'))
52 call assert_equal('', findfile('bar'))
Bram Moolenaara4208962019-08-24 20:50:19 +020053 call assert_equal('Xdir2/foobar', 'foobar'->findfile())
Bram Moolenaared71ed32019-01-30 22:13:35 +010054
55 " Empty {path} 2nd argument is the same as no 2nd argument.
56 call assert_equal('Xdir2/foo', findfile('foo', ''))
57 call assert_equal('', findfile('bar', ''))
58
59 " Test with *
60 call assert_equal('Xdir2/foo', findfile('foo', '*'))
61 call assert_equal('', findfile('bar', '*'))
62 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*/*'))
63 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/*'))
64 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir*/Xdir3'))
65 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*2/*3'))
66
67 " Test with **
68 call assert_equal('bar', findfile('bar', '**'))
69 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**/Xdir3'))
70 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/**'))
71
72 call assert_equal('Xdir2/Xdir3/barfoo', findfile('barfoo', '**2'))
73 call assert_equal('', findfile('barfoo', '**1'))
74 call assert_equal('Xdir2/foobar', findfile('foobar', '**1'))
75
76 " Test with {count} 3rd argument.
77 call assert_equal('bar', findfile('bar', '**', 0))
78 call assert_equal('bar', findfile('bar', '**', 1))
79 call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**', 2))
80 call assert_equal('', findfile('bar', '**', 3))
81 call assert_equal(['bar', 'Xdir2/Xdir3/bar'], findfile('bar', '**', -1))
82
83 " Test upwards search.
84 cd Xdir2/Xdir3
85 call assert_equal('bar', findfile('bar', ';'))
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010086 call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';'))
87 call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';', 1))
88 call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2))
89 call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2))
90 call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', 'Xdir2;', 1))
Bram Moolenaared71ed32019-01-30 22:13:35 +010091 call assert_equal('', findfile('foo', 'Xdir2;', 2))
92
93 " List l should have at least 2 values (possibly more if foo file
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010094 " happens to be found upwards above Xfinddir1).
Bram Moolenaared71ed32019-01-30 22:13:35 +010095 let l = findfile('foo', ';', -1)
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +010096 call assert_match('.*/Xfinddir1/Xdir2/foo', l[0])
97 call assert_match('.*/Xfinddir1/foo', l[1])
Bram Moolenaared71ed32019-01-30 22:13:35 +010098
99 " Test upwards search with stop-directory.
100 cd Xdir2
zeertzjq764526e2024-07-11 22:24:15 +0200101 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/Xdir3/', -1)
102 call assert_equal(1, len(l))
103 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
104 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/Xdir3', -1)
105 call assert_equal(1, len(l))
106 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
107 let l = findfile('bar', ';../', -1)
108 call assert_equal(1, len(l))
109 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
110
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100111 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/', -1)
Bram Moolenaared71ed32019-01-30 22:13:35 +0100112 call assert_equal(1, len(l))
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100113 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
zeertzjqe6ab23b2024-07-11 22:22:26 +0200114 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2', -1)
115 call assert_equal(1, len(l))
116 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
zeertzjq764526e2024-07-11 22:24:15 +0200117 let l = findfile('bar', ';../../', -1)
118 call assert_equal(1, len(l))
119 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
Bram Moolenaared71ed32019-01-30 22:13:35 +0100120
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100121 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/', -1)
Bram Moolenaared71ed32019-01-30 22:13:35 +0100122 call assert_equal(2, len(l))
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100123 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
124 call assert_match('.*/Xfinddir1/bar', l[1])
zeertzjqe6ab23b2024-07-11 22:22:26 +0200125 let l = findfile('bar', ';' . save_dir . '/Xfinddir1', -1)
126 call assert_equal(2, len(l))
127 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
128 call assert_match('.*/Xfinddir1/bar', l[1])
zeertzjq764526e2024-07-11 22:24:15 +0200129 let l = findfile('bar', ';../../../', -1)
130 call assert_equal(2, len(l))
131 call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0])
132 call assert_match('.*/Xfinddir1/bar', l[1])
Bram Moolenaared71ed32019-01-30 22:13:35 +0100133
134 " Test combined downwards and upwards search from Xdir2/.
135 cd ../..
136 call assert_equal('Xdir3/bar', findfile('bar', '**;', 1))
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100137 call assert_match('.*/Xfinddir1/bar', findfile('bar', '**;', 2))
Bram Moolenaared71ed32019-01-30 22:13:35 +0100138
139 bwipe!
Bram Moolenaar3503d7c2019-11-09 20:10:17 +0100140 call chdir(save_dir)
Bram Moolenaared71ed32019-01-30 22:13:35 +0100141 call CleanFiles()
142 let &path = save_path
143 let &shellslash = save_shellslash
144endfunc
145
Bram Moolenaar71b13e92019-02-04 21:14:45 +0100146func Test_findfile_error()
147 call assert_fails('call findfile([])', 'E730:')
148 call assert_fails('call findfile("x", [])', 'E730:')
149 call assert_fails('call findfile("x", "", [])', 'E745:')
150 call assert_fails('call findfile("x", "**x")', 'E343:')
151 call assert_fails('call findfile("x", repeat("x", 5000))', 'E854:')
152endfunc
153
Bram Moolenaared71ed32019-01-30 22:13:35 +0100154" Test finddir({name} [, {path} [, {count}]])
155func Test_finddir()
156 let save_path = &path
157 let save_shellslash = &shellslash
158 let save_dir = getcwd()
159 set path=,,
zeertzjqe7b98ab2024-07-11 21:48:09 +0200160 set shellslash
Bram Moolenaared71ed32019-01-30 22:13:35 +0100161 call CreateFiles()
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100162 cd Xfinddir1
Bram Moolenaared71ed32019-01-30 22:13:35 +0100163
164 call assert_equal('Xdir2', finddir('Xdir2'))
Bram Moolenaara4208962019-08-24 20:50:19 +0200165 call assert_equal('', 'Xdir3'->finddir())
Bram Moolenaared71ed32019-01-30 22:13:35 +0100166
167 " Files should not be found (findfile() finds them).
168 call assert_equal('', finddir('foo'))
169
170 call assert_equal('Xdir2', finddir('Xdir2', '**'))
171 call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**'))
172
173 call assert_equal('Xdir2', finddir('Xdir2', '**', 1))
174 call assert_equal('Xdir2/Xdir3/Xdir2', finddir('Xdir2', '**', 2))
175 call assert_equal(['Xdir2',
176 \ 'Xdir2/Xdir3/Xdir2'], finddir('Xdir2', '**', -1))
177
178 call assert_equal('Xdir2', finddir('Xdir2', '**1'))
179 call assert_equal('Xdir2', finddir('Xdir2', '**0'))
180 call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**1'))
181 call assert_equal('', finddir('Xdir3', '**0'))
182
183 " Test upwards dir search.
184 cd Xdir2/Xdir3
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100185 call assert_match('.*/Xfinddir1', finddir('Xfinddir1', ';'))
Bram Moolenaared71ed32019-01-30 22:13:35 +0100186
187 " Test upwards search with stop-directory.
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100188 call assert_match('.*/Xfinddir1', finddir('Xfinddir1', ';' . save_dir . '/'))
189 call assert_equal('', finddir('Xfinddir1', ';' . save_dir . '/Xfinddir1/'))
Bram Moolenaared71ed32019-01-30 22:13:35 +0100190
191 " Test combined downwards and upwards dir search from Xdir2/.
Bram Moolenaardc9a0812017-02-23 18:46:50 +0100192 cd ..
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100193 call assert_match('.*/Xfinddir1', finddir('Xfinddir1', '**;', 1))
Bram Moolenaared71ed32019-01-30 22:13:35 +0100194 call assert_equal('Xdir3/Xdir2', finddir('Xdir2', '**;', 1))
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100195 call assert_match('.*/Xfinddir1/Xdir2', finddir('Xdir2', '**;', 2))
Bram Moolenaared71ed32019-01-30 22:13:35 +0100196 call assert_equal('Xdir3', finddir('Xdir3', '**;', 1))
Bram Moolenaardc9a0812017-02-23 18:46:50 +0100197
Bram Moolenaar3503d7c2019-11-09 20:10:17 +0100198 call chdir(save_dir)
Bram Moolenaared71ed32019-01-30 22:13:35 +0100199 call CleanFiles()
200 let &path = save_path
201 let &shellslash = save_shellslash
Bram Moolenaardc9a0812017-02-23 18:46:50 +0100202endfunc
Bram Moolenaar71b13e92019-02-04 21:14:45 +0100203
204func Test_finddir_error()
205 call assert_fails('call finddir([])', 'E730:')
206 call assert_fails('call finddir("x", [])', 'E730:')
207 call assert_fails('call finddir("x", "", [])', 'E745:')
208 call assert_fails('call finddir("x", "**x")', 'E343:')
209 call assert_fails('call finddir("x", repeat("x", 5000))', 'E854:')
210endfunc
Bram Moolenaarbc2b71d2020-02-17 21:33:30 +0100211
212" Test for the :find, :sfind and :tabfind commands
213func Test_find_cmd()
214 new
215 let save_path = &path
216 let save_dir = getcwd()
217 set path=.,./**/*
218 call CreateFiles()
Bram Moolenaar3b0d70f2022-08-29 22:31:20 +0100219 cd Xfinddir1
Bram Moolenaarbc2b71d2020-02-17 21:33:30 +0100220
221 " Test for :find
222 find foo
223 call assert_equal('foo', expand('%:.'))
224 2find foo
225 call assert_equal('Xdir2/foo', expand('%:.'))
226 call assert_fails('3find foo', 'E347:')
227
228 " Test for :sfind
229 enew
230 sfind barfoo
231 call assert_equal('Xdir2/Xdir3/barfoo', expand('%:.'))
232 call assert_equal(3, winnr('$'))
233 close
234 call assert_fails('sfind baz', 'E345:')
235 call assert_equal(2, winnr('$'))
236
237 " Test for :tabfind
238 enew
239 tabfind foobar
240 call assert_equal('Xdir2/foobar', expand('%:.'))
241 call assert_equal(2, tabpagenr('$'))
242 tabclose
243 call assert_fails('tabfind baz', 'E345:')
244 call assert_equal(1, tabpagenr('$'))
245
246 call chdir(save_dir)
247 call CleanFiles()
248 let &path = save_path
249 close
Bram Moolenaar2d10cd42020-03-19 14:37:30 +0100250
251 call assert_fails('find', 'E471:')
252 call assert_fails('sfind', 'E471:')
253 call assert_fails('tabfind', 'E471:')
Bram Moolenaarbc2b71d2020-02-17 21:33:30 +0100254endfunc
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +0200255
Christian Brabandt7a4ca322021-07-25 15:08:05 +0200256func Test_find_non_existing_path()
257 new
258 let save_path = &path
259 let save_dir = getcwd()
Bram Moolenaar70e67252022-09-27 19:34:35 +0100260 call mkdir('dir1/dir2', 'pR')
Christian Brabandt7a4ca322021-07-25 15:08:05 +0200261 call writefile([], 'dir1/file.txt')
262 call writefile([], 'dir1/dir2/base.txt')
263 call chdir('dir1/dir2')
264 e base.txt
265 set path=../include
266
267 call assert_fails(':find file.txt', 'E345:')
268
269 call chdir(save_dir)
270 bw!
Christian Brabandt7a4ca322021-07-25 15:08:05 +0200271 let &path = save_path
272endfunc
273
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +0200274" vim: shiftwidth=2 sts=2 expandtab