mirror of
https://github.com/neovim/neovim.git
synced 2024-12-29 14:41:06 -07:00
105 lines
2.9 KiB
VimL
105 lines
2.9 KiB
VimL
|
" Tests for the :checkpath command
|
||
|
|
|
||
|
|
" Test for 'include' without \zs or \ze
|
||
|
|
func Test_checkpath1()
|
||
|
|
call mkdir("Xdir1/dir2", "p")
|
||
|
|
call writefile(['#include "bar.a"'], 'Xdir1/dir2/foo.a')
|
||
|
|
call writefile(['#include "baz.a"'], 'Xdir1/dir2/bar.a')
|
||
|
|
call writefile(['#include "foo.a"'], 'Xdir1/dir2/baz.a')
|
||
|
|
call writefile(['#include <foo.a>'], 'Xbase.a')
|
||
|
|
|
||
|
|
edit Xbase.a
|
||
|
|
set path=Xdir1/dir2
|
||
|
|
let res = split(execute("checkpath!"), "\n")
|
||
|
|
call assert_equal([
|
||
|
|
\ '--- Included files in path ---',
|
||
|
|
\ 'Xdir1/dir2/foo.a',
|
||
|
|
\ 'Xdir1/dir2/foo.a -->',
|
||
|
|
\ ' Xdir1/dir2/bar.a',
|
||
|
|
\ ' Xdir1/dir2/bar.a -->',
|
||
|
|
\ ' Xdir1/dir2/baz.a',
|
||
|
|
\ ' Xdir1/dir2/baz.a -->',
|
||
|
|
\ ' "foo.a" (Already listed)'], res)
|
||
|
|
|
||
|
|
enew
|
||
|
|
call delete("./Xbase.a")
|
||
|
|
call delete("Xdir1", "rf")
|
||
|
|
set path&
|
||
|
|
endfunc
|
||
|
|
|
||
|
|
func DotsToSlashes()
|
||
|
|
return substitute(v:fname, '\.', '/', 'g') . '.b'
|
||
|
|
endfunc
|
||
|
|
|
||
|
|
" Test for 'include' with \zs and \ze
|
||
|
|
func Test_checkpath2()
|
||
|
|
call mkdir("Xdir1/dir2", "p")
|
||
|
|
call writefile(['%inc /bar/'], 'Xdir1/dir2/foo.b')
|
||
|
|
call writefile(['%inc /baz/'], 'Xdir1/dir2/bar.b')
|
||
|
|
call writefile(['%inc /foo/'], 'Xdir1/dir2/baz.b')
|
||
|
|
call writefile(['%inc /foo/'], 'Xbase.b')
|
||
|
|
|
||
|
|
let &include='^\s*%inc\s*/\zs[^/]\+\ze'
|
||
|
|
let &includeexpr='DotsToSlashes()'
|
||
|
|
|
||
|
|
edit Xbase.b
|
||
|
|
set path=Xdir1/dir2
|
||
|
|
let res = split(execute("checkpath!"), "\n")
|
||
|
|
call assert_equal([
|
||
|
|
\ '--- Included files in path ---',
|
||
|
|
\ 'Xdir1/dir2/foo.b',
|
||
|
|
\ 'Xdir1/dir2/foo.b -->',
|
||
|
|
\ ' Xdir1/dir2/bar.b',
|
||
|
|
\ ' Xdir1/dir2/bar.b -->',
|
||
|
|
\ ' Xdir1/dir2/baz.b',
|
||
|
|
\ ' Xdir1/dir2/baz.b -->',
|
||
|
|
\ ' foo (Already listed)'], res)
|
||
|
|
|
||
|
|
enew
|
||
|
|
call delete("./Xbase.b")
|
||
|
|
call delete("Xdir1", "rf")
|
||
|
|
set path&
|
||
|
|
set include&
|
||
|
|
set includeexpr&
|
||
|
|
endfunc
|
||
|
|
|
||
|
|
func StripNewlineChar()
|
||
|
|
if v:fname =~ '\n$'
|
||
|
|
return v:fname[:-2]
|
||
|
|
endif
|
||
|
|
return v:fname
|
||
|
|
endfunc
|
||
|
|
|
||
|
|
" Test for 'include' with \zs and no \ze
|
||
|
|
func Test_checkpath3()
|
||
|
|
call mkdir("Xdir1/dir2", "p")
|
||
|
|
call writefile(['%inc bar.c'], 'Xdir1/dir2/foo.c')
|
||
|
|
call writefile(['%inc baz.c'], 'Xdir1/dir2/bar.c')
|
||
|
|
call writefile(['%inc foo.c'], 'Xdir1/dir2/baz.c')
|
||
|
|
call writefile(['%inc foo.c'], 'Xdir1/dir2/FALSE.c')
|
||
|
|
call writefile(['%inc FALSE.c foo.c'], 'Xbase.c')
|
||
|
|
|
||
|
|
let &include='^\s*%inc\s*\%([[:upper:]][^[:space:]]*\s\+\)\?\zs\S\+\ze'
|
||
|
|
let &includeexpr='StripNewlineChar()'
|
||
|
|
|
||
|
|
edit Xbase.c
|
||
|
|
set path=Xdir1/dir2
|
||
|
|
let res = split(execute("checkpath!"), "\n")
|
||
|
|
call assert_equal([
|
||
|
|
\ '--- Included files in path ---',
|
||
|
|
\ 'Xdir1/dir2/foo.c',
|
||
|
|
\ 'Xdir1/dir2/foo.c -->',
|
||
|
|
\ ' Xdir1/dir2/bar.c',
|
||
|
|
\ ' Xdir1/dir2/bar.c -->',
|
||
|
|
\ ' Xdir1/dir2/baz.c',
|
||
|
|
\ ' Xdir1/dir2/baz.c -->',
|
||
|
|
\ ' foo.c (Already listed)'], res)
|
||
|
|
|
||
|
|
enew
|
||
|
|
call delete("./Xbase.c")
|
||
|
|
call delete("Xdir1", "rf")
|
||
|
|
set path&
|
||
|
|
set include&
|
||
|
|
set includeexpr&
|
||
|
|
endfunc
|