Mercurial > vim
view src/testdir/test_checkpath.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 | 6d9461653dc5 |
children | 08940efa6b4e |
line wrap: on
line source
" 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