Mercurial > vim
view src/testdir/test_gf.vim @ 28817:1ad71fcbf546 v8.2.4932
patch 8.2.4932: not easy to filter the output of maplist()
Commit: https://github.com/vim/vim/commit/d8f5f766219273a8579947cc80b92580b6988a4b
Author: Ernie Rael <errael@raelity.com>
Date: Tue May 10 17:50:39 2022 +0100
patch 8.2.4932: not easy to filter the output of maplist()
Problem: Not easy to filter the output of maplist().
Solution: Add mode_bits to the dictionary. (Ernie Rael, closes https://github.com/vim/vim/issues/10356)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Tue, 10 May 2022 19:00:04 +0200 |
parents | fb4c30606b4a |
children | 987d29ca36a5 |
line wrap: on
line source
" Test for the gf and gF (goto file) commands " This is a test if a URL is recognized by "gf", with the cursor before and " after the "://". Also test ":\\". func Test_gf_url() enew! call append(0, [ \ "first test for URL://machine.name/tmp/vimtest2a and other text", \ "second test for URL://machine.name/tmp/vimtest2b. And other text", \ "third test for URL:\\\\machine.name\\vimtest2c and other text", \ "fourth test for URL:\\\\machine.name\\tmp\\vimtest2d, and other text", \ "fifth test for URL://machine.name/tmp?q=vim&opt=yes and other text", \ "sixth test for URL://machine.name:1234?q=vim and other text", \ ]) call cursor(1,1) call search("^first") call search("tmp") call assert_equal("URL://machine.name/tmp/vimtest2a", expand("<cfile>")) call search("^second") call search("URL") call assert_equal("URL://machine.name/tmp/vimtest2b", expand("<cfile>")) set isf=@,48-57,/,.,-,_,+,,,$,~,\ call search("^third") call search("name") call assert_equal("URL:\\\\machine.name\\vimtest2c", expand("<cfile>")) call search("^fourth") call search("URL") call assert_equal("URL:\\\\machine.name\\tmp\\vimtest2d", expand("<cfile>")) call search("^fifth") call search("URL") call assert_equal("URL://machine.name/tmp?q=vim&opt=yes", expand("<cfile>")) call search("^sixth") call search("URL") call assert_equal("URL://machine.name:1234?q=vim", expand("<cfile>")) %d call setline(1, "demo://remote_file") wincmd f call assert_equal('demo://remote_file', @%) call assert_equal(2, winnr('$')) close! set isf&vim enew! endfunc func Test_gF() new call setline(1, ['111', '222', '333', '444']) w! Xfile close new set isfname-=: call setline(1, ['one', 'Xfile:3', 'three']) 2 call assert_fails('normal gF', 'E37:') call assert_equal(2, getcurpos()[1]) w! Xfile2 normal gF call assert_equal('Xfile', bufname('%')) call assert_equal(3, getcurpos()[1]) enew! call setline(1, ['one', 'the Xfile line 2, and more', 'three']) w! Xfile2 normal 2GfX normal gF call assert_equal('Xfile', bufname('%')) call assert_equal(2, getcurpos()[1]) " jumping to the file/line with CTRL-W_F %bw! edit Xfile1 call setline(1, ['one', 'Xfile:4', 'three']) exe "normal 2G\<C-W>F" call assert_equal('Xfile', bufname('%')) call assert_equal(4, getcurpos()[1]) set isfname& call delete('Xfile') call delete('Xfile2') %bw! endfunc " Test for invoking 'gf' on a ${VAR} variable func Test_gf() set isfname=@,48-57,/,.,-,_,+,,,$,:,~,{,} call writefile(["Test for gf command"], "Xtest1") if has("unix") call writefile([" ${CDIR}/Xtest1"], "Xtestgf") else call writefile([" $TDIR/Xtest1"], "Xtestgf") endif new Xtestgf if has("unix") let $CDIR = "." /CDIR else if has("amiga") let $TDIR = "/testdir" else let $TDIR = "." endif /TDIR endif normal gf call assert_equal('Xtest1', fnamemodify(bufname(''), ":t")) close! call delete('Xtest1') call delete('Xtestgf') endfunc func Test_gf_visual() call writefile(['one', 'two', 'three', 'four'], "Xtest_gf_visual") new call setline(1, 'XXXtest_gf_visualXXX') set hidden " Visually select Xtest_gf_visual and use gf to go to that file norm! ttvtXgf call assert_equal('Xtest_gf_visual', bufname('%')) " if multiple lines are selected, then gf should fail call setline(1, ["one", "two"]) normal VGgf call assert_equal('Xtest_gf_visual', @%) " following line number is used for gF bwipe! new call setline(1, 'XXXtest_gf_visual:3XXX') norm! 0ttvt:gF call assert_equal('Xtest_gf_visual', bufname('%')) call assert_equal(3, getcurpos()[1]) " line number in visual area is used for file name if has('unix') bwipe! call writefile([], "Xtest_gf_visual:3") new call setline(1, 'XXXtest_gf_visual:3XXX') norm! 0ttvtXgF call assert_equal('Xtest_gf_visual:3', bufname('%')) call delete('Xtest_gf_visual:3') endif bwipe! call delete('Xtest_gf_visual') set hidden& endfunc func Test_gf_error() new call assert_fails('normal gf', 'E446:') call assert_fails('normal gF', 'E446:') call setline(1, '/doesnotexist') call assert_fails('normal gf', 'E447:') call assert_fails('normal gF', 'E447:') call assert_fails('normal [f', 'E447:') " gf is not allowed when text is locked au InsertCharPre <buffer> normal! gF<CR> let caught_e565 = 0 try call feedkeys("ix\<esc>", 'xt') catch /^Vim\%((\a\+)\)\=:E565/ " catch E565 let caught_e565 = 1 endtry call assert_equal(1, caught_e565) au! InsertCharPre bwipe! " gf is not allowed when buffer is locked new augroup Test_gf au! au OptionSet diff norm! gf augroup END call setline(1, ['Xfile1', 'line2', 'line3', 'line4']) call test_override('starting', 1) call assert_fails('diffthis', 'E788:') call test_override('starting', 0) augroup Test_gf au! augroup END bw! endfunc " If a file is not found by 'gf', then 'includeexpr' should be used to locate " the file. func Test_gf_includeexpr() new let g:Inc_fname = '' func IncFunc() let g:Inc_fname = v:fname return v:fname endfunc setlocal includeexpr=IncFunc() call setline(1, 'somefile.java') call assert_fails('normal gf', 'E447:') call assert_equal('somefile.java', g:Inc_fname) close! delfunc IncFunc endfunc " Test for using a script-local function for 'includeexpr' func Test_includeexpr_scriptlocal_func() func! s:IncludeFunc() let g:IncludeFname = v:fname return '' endfunc set includeexpr=s:IncludeFunc() call assert_equal(expand('<SID>') .. 'IncludeFunc()', &includeexpr) new | only call setline(1, 'TestFile1') let g:IncludeFname = '' call assert_fails('normal! gf', 'E447:') call assert_equal('TestFile1', g:IncludeFname) bw! set includeexpr=<SID>IncludeFunc() call assert_equal(expand('<SID>') .. 'IncludeFunc()', &includeexpr) new | only call setline(1, 'TestFile2') let g:IncludeFname = '' call assert_fails('normal! gf', 'E447:') call assert_equal('TestFile2', g:IncludeFname) set includeexpr& delfunc s:IncludeFunc bw! endfunc " vim: shiftwidth=2 sts=2 expandtab