Mercurial > vim
view src/testdir/test_findfile.vim @ 22004:a9e60176dcd3 v8.2.1551
patch 8.2.1551: Vim9: error for argument type does not mention the number
Commit: https://github.com/vim/vim/commit/8b565c2c1522e0c41e3d18e1bb6e1bc4b3686842
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Aug 30 23:24:20 2020 +0200
patch 8.2.1551: Vim9: error for argument type does not mention the number
Problem: Vim9: error for argument type does not mention the number.
Solution: Pass the argument number to where the error is given.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 30 Aug 2020 23:30:04 +0200 |
parents | 08940efa6b4e |
children | af5c4fabcf40 |
line wrap: on
line source
" Test findfile() and finddir() let s:files = [ 'Xdir1/foo', \ 'Xdir1/bar', \ 'Xdir1/Xdir2/foo', \ 'Xdir1/Xdir2/foobar', \ 'Xdir1/Xdir2/Xdir3/bar', \ 'Xdir1/Xdir2/Xdir3/barfoo' ] func CreateFiles() call mkdir('Xdir1/Xdir2/Xdir3/Xdir2', 'p') for f in s:files call writefile([], f) endfor endfunc func CleanFiles() " Safer to delete each file even if it's more verbose " than doing a recursive delete('Xdir1', 'rf'). for f in s:files call delete(f) endfor call delete('Xdir1/Xdir2/Xdir3/Xdir2', 'd') call delete('Xdir1/Xdir2/Xdir3', 'd') call delete('Xdir1/Xdir2', 'd') call delete('Xdir1', 'd') endfunc " Test findfile({name} [, {path} [, {count}]]) func Test_findfile() let save_path = &path let save_shellslash = &shellslash let save_dir = getcwd() set shellslash call CreateFiles() cd Xdir1 e Xdir2/foo " With ,, in path, findfile() searches in current directory. set path=,, call assert_equal('foo', findfile('foo')) call assert_equal('bar', findfile('bar')) call assert_equal('', findfile('foobar')) " Directories should not be found (finddir() finds them). call assert_equal('', findfile('Xdir2')) " With . in 'path', findfile() searches relatively to current file. set path=. call assert_equal('Xdir2/foo', findfile('foo')) call assert_equal('', findfile('bar')) call assert_equal('Xdir2/foobar', 'foobar'->findfile()) " Empty {path} 2nd argument is the same as no 2nd argument. call assert_equal('Xdir2/foo', findfile('foo', '')) call assert_equal('', findfile('bar', '')) " Test with * call assert_equal('Xdir2/foo', findfile('foo', '*')) call assert_equal('', findfile('bar', '*')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*/*')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/*')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir*/Xdir3')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '*2/*3')) " Test with ** call assert_equal('bar', findfile('bar', '**')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**/Xdir3')) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', 'Xdir2/**')) call assert_equal('Xdir2/Xdir3/barfoo', findfile('barfoo', '**2')) call assert_equal('', findfile('barfoo', '**1')) call assert_equal('Xdir2/foobar', findfile('foobar', '**1')) " Test with {count} 3rd argument. call assert_equal('bar', findfile('bar', '**', 0)) call assert_equal('bar', findfile('bar', '**', 1)) call assert_equal('Xdir2/Xdir3/bar', findfile('bar', '**', 2)) call assert_equal('', findfile('bar', '**', 3)) call assert_equal(['bar', 'Xdir2/Xdir3/bar'], findfile('bar', '**', -1)) " Test upwards search. cd Xdir2/Xdir3 call assert_equal('bar', findfile('bar', ';')) call assert_match('.*/Xdir1/Xdir2/foo', findfile('foo', ';')) call assert_match('.*/Xdir1/Xdir2/foo', findfile('foo', ';', 1)) call assert_match('.*/Xdir1/foo', findfile('foo', ';', 2)) call assert_match('.*/Xdir1/foo', findfile('foo', ';', 2)) call assert_match('.*/Xdir1/Xdir2/foo', findfile('foo', 'Xdir2;', 1)) call assert_equal('', findfile('foo', 'Xdir2;', 2)) " List l should have at least 2 values (possibly more if foo file " happens to be found upwards above Xdir1). let l = findfile('foo', ';', -1) call assert_match('.*/Xdir1/Xdir2/foo', l[0]) call assert_match('.*/Xdir1/foo', l[1]) " Test upwards search with stop-directory. cd Xdir2 let l = findfile('bar', ';' . save_dir . '/Xdir1/Xdir2/', -1) call assert_equal(1, len(l)) call assert_match('.*/Xdir1/Xdir2/Xdir3/bar', l[0]) let l = findfile('bar', ';' . save_dir . '/Xdir1/', -1) call assert_equal(2, len(l)) call assert_match('.*/Xdir1/Xdir2/Xdir3/bar', l[0]) call assert_match('.*/Xdir1/bar', l[1]) " Test combined downwards and upwards search from Xdir2/. cd ../.. call assert_equal('Xdir3/bar', findfile('bar', '**;', 1)) call assert_match('.*/Xdir1/bar', findfile('bar', '**;', 2)) bwipe! call chdir(save_dir) call CleanFiles() let &path = save_path let &shellslash = save_shellslash endfunc func Test_findfile_error() call assert_fails('call findfile([])', 'E730:') call assert_fails('call findfile("x", [])', 'E730:') call assert_fails('call findfile("x", "", [])', 'E745:') call assert_fails('call findfile("x", "**x")', 'E343:') call assert_fails('call findfile("x", repeat("x", 5000))', 'E854:') endfunc " Test finddir({name} [, {path} [, {count}]]) func Test_finddir() let save_path = &path let save_shellslash = &shellslash let save_dir = getcwd() set path=,, call CreateFiles() cd Xdir1 call assert_equal('Xdir2', finddir('Xdir2')) call assert_equal('', 'Xdir3'->finddir()) " Files should not be found (findfile() finds them). call assert_equal('', finddir('foo')) call assert_equal('Xdir2', finddir('Xdir2', '**')) call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**')) call assert_equal('Xdir2', finddir('Xdir2', '**', 1)) call assert_equal('Xdir2/Xdir3/Xdir2', finddir('Xdir2', '**', 2)) call assert_equal(['Xdir2', \ 'Xdir2/Xdir3/Xdir2'], finddir('Xdir2', '**', -1)) call assert_equal('Xdir2', finddir('Xdir2', '**1')) call assert_equal('Xdir2', finddir('Xdir2', '**0')) call assert_equal('Xdir2/Xdir3', finddir('Xdir3', '**1')) call assert_equal('', finddir('Xdir3', '**0')) " Test upwards dir search. cd Xdir2/Xdir3 call assert_match('.*/Xdir1', finddir('Xdir1', ';')) " Test upwards search with stop-directory. call assert_match('.*/Xdir1', finddir('Xdir1', ';' . save_dir . '/')) call assert_equal('', finddir('Xdir1', ';' . save_dir . '/Xdir1/')) " Test combined downwards and upwards dir search from Xdir2/. cd .. call assert_match('.*/Xdir1', finddir('Xdir1', '**;', 1)) call assert_equal('Xdir3/Xdir2', finddir('Xdir2', '**;', 1)) call assert_match('.*/Xdir1/Xdir2', finddir('Xdir2', '**;', 2)) call assert_equal('Xdir3', finddir('Xdir3', '**;', 1)) call chdir(save_dir) call CleanFiles() let &path = save_path let &shellslash = save_shellslash endfunc func Test_finddir_error() call assert_fails('call finddir([])', 'E730:') call assert_fails('call finddir("x", [])', 'E730:') call assert_fails('call finddir("x", "", [])', 'E745:') call assert_fails('call finddir("x", "**x")', 'E343:') call assert_fails('call finddir("x", repeat("x", 5000))', 'E854:') endfunc " Test for the :find, :sfind and :tabfind commands func Test_find_cmd() new let save_path = &path let save_dir = getcwd() set path=.,./**/* call CreateFiles() cd Xdir1 " Test for :find find foo call assert_equal('foo', expand('%:.')) 2find foo call assert_equal('Xdir2/foo', expand('%:.')) call assert_fails('3find foo', 'E347:') " Test for :sfind enew sfind barfoo call assert_equal('Xdir2/Xdir3/barfoo', expand('%:.')) call assert_equal(3, winnr('$')) close call assert_fails('sfind baz', 'E345:') call assert_equal(2, winnr('$')) " Test for :tabfind enew tabfind foobar call assert_equal('Xdir2/foobar', expand('%:.')) call assert_equal(2, tabpagenr('$')) tabclose call assert_fails('tabfind baz', 'E345:') call assert_equal(1, tabpagenr('$')) call chdir(save_dir) call CleanFiles() let &path = save_path close call assert_fails('find', 'E471:') call assert_fails('sfind', 'E471:') call assert_fails('tabfind', 'E471:') endfunc " vim: shiftwidth=2 sts=2 expandtab