Mercurial > vim
view src/testdir/test_gf.vim @ 21550:b0b57d91671c v8.2.1325
patch 8.2.1325: Vim9: using Vim9 script for autaload not tested
Commit: https://github.com/vim/vim/commit/ea2d8d25718836bf627b67b7fcd28a1e528bb7b9
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Jul 29 22:11:05 2020 +0200
patch 8.2.1325: Vim9: using Vim9 script for autaload not tested
Problem: Vim9: using Vim9 script for autaload not tested.
Solution: Add a test. Update help.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Wed, 29 Jul 2020 22:15:05 +0200 |
parents | 6c634e63989c |
children | d37e4a856246 |
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>")) if has("ebcdic") set isf=@,240-249,/,.,-,_,+,,,$,:,~,\ else set isf=@,48-57,/,.,-,_,+,,,$,~,\ endif 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() if has("ebcdic") set isfname=@,240-249,/,.,-,_,+,,,$,:,~,{,} else set isfname=@,48-57,/,.,-,_,+,,,$,:,~,{,} endif 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([], "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', @%) 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! 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 " vim: shiftwidth=2 sts=2 expandtab