Mercurial > vim
view src/testdir/test_findfile.vim @ 32962:7771cb060685 v9.0.1781
patch 9.0.1781: Problems when setting bin/paste option
Commit: https://github.com/vim/vim/commit/757593c07a4f4ac43eb6c6e52fc299abc9bc08bc
Author: Christian Brabandt <cb@256bit.org>
Date: Tue Aug 22 21:44:10 2023 +0200
patch 9.0.1781: Problems when setting bin/paste option
Problem: Problems when setting bin/paste option
Solution: When setting binary/paste, remember that this also affects
depending options, so that :verbose set returns the right
location.
Mention if depending options for 'binary' or 'paste' have been reset
indirectly. Add a test to verify it works.
Also noticed as small bug, that the global option value for expandtab
was not reset when paste option is set, so fix that while at it.
closes: #12837
closes: #12879
Signed-off-by: Christian Brabandt <cb@256bit.org>
Co-authored-by: zeertzjq <zeertzjq@outlook.com>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 22 Aug 2023 22:00:03 +0200 |
parents | a7a9e8b9af89 |
children |
line wrap: on
line source
" Test findfile() and finddir() let s:files = [ 'Xfinddir1/foo', \ 'Xfinddir1/bar', \ 'Xfinddir1/Xdir2/foo', \ 'Xfinddir1/Xdir2/foobar', \ 'Xfinddir1/Xdir2/Xdir3/bar', \ 'Xfinddir1/Xdir2/Xdir3/barfoo' ] func CreateFiles() call mkdir('Xfinddir1/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('Xfinddir1', 'rf'). for f in s:files call delete(f) endfor call delete('Xfinddir1/Xdir2/Xdir3/Xdir2', 'd') call delete('Xfinddir1/Xdir2/Xdir3', 'd') call delete('Xfinddir1/Xdir2', 'd') call delete('Xfinddir1', '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 Xfinddir1 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('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';')) call assert_match('.*/Xfinddir1/Xdir2/foo', findfile('foo', ';', 1)) call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2)) call assert_match('.*/Xfinddir1/foo', findfile('foo', ';', 2)) call assert_match('.*/Xfinddir1/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 Xfinddir1). let l = findfile('foo', ';', -1) call assert_match('.*/Xfinddir1/Xdir2/foo', l[0]) call assert_match('.*/Xfinddir1/foo', l[1]) " Test upwards search with stop-directory. cd Xdir2 let l = findfile('bar', ';' . save_dir . '/Xfinddir1/Xdir2/', -1) call assert_equal(1, len(l)) call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) let l = findfile('bar', ';' . save_dir . '/Xfinddir1/', -1) call assert_equal(2, len(l)) call assert_match('.*/Xfinddir1/Xdir2/Xdir3/bar', l[0]) call assert_match('.*/Xfinddir1/bar', l[1]) " Test combined downwards and upwards search from Xdir2/. cd ../.. call assert_equal('Xdir3/bar', findfile('bar', '**;', 1)) call assert_match('.*/Xfinddir1/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 Xfinddir1 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('.*/Xfinddir1', finddir('Xfinddir1', ';')) " Test upwards search with stop-directory. call assert_match('.*/Xfinddir1', finddir('Xfinddir1', ';' . save_dir . '/')) call assert_equal('', finddir('Xfinddir1', ';' . save_dir . '/Xfinddir1/')) " Test combined downwards and upwards dir search from Xdir2/. cd .. call assert_match('.*/Xfinddir1', finddir('Xfinddir1', '**;', 1)) call assert_equal('Xdir3/Xdir2', finddir('Xdir2', '**;', 1)) call assert_match('.*/Xfinddir1/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 Xfinddir1 " 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 func Test_find_non_existing_path() new let save_path = &path let save_dir = getcwd() call mkdir('dir1/dir2', 'pR') call writefile([], 'dir1/file.txt') call writefile([], 'dir1/dir2/base.txt') call chdir('dir1/dir2') e base.txt set path=../include call assert_fails(':find file.txt', 'E345:') call chdir(save_dir) bw! let &path = save_path endfunc " vim: shiftwidth=2 sts=2 expandtab