22
33" Test for 'include' without \zs or \ze
44func Test_checkpath1 ()
5- call mkdir (" Xdir1 /dir2" , " p" )
6- call writefile ([' #include "bar.a"' ], ' Xdir1 /dir2/foo.a' )
7- call writefile ([' #include "baz.a"' ], ' Xdir1 /dir2/bar.a' )
8- call writefile ([' #include "foo.a"' ], ' Xdir1 /dir2/baz.a' )
5+ call mkdir (" Xcheckdir1 /dir2" , " p" )
6+ call writefile ([' #include "bar.a"' ], ' Xcheckdir1 /dir2/foo.a' )
7+ call writefile ([' #include "baz.a"' ], ' Xcheckdir1 /dir2/bar.a' )
8+ call writefile ([' #include "foo.a"' ], ' Xcheckdir1 /dir2/baz.a' )
99 call writefile ([' #include <foo.a>' ], ' Xbase.a' )
1010
1111 edit Xbase.a
12- set path = Xdir1 /dir2
12+ set path = Xcheckdir1 /dir2
1313 let res = split (execute (" checkpath!" ), " \n " )
1414 call assert_equal ([
1515 \ ' --- Included files in path ---' ,
16- \ ' Xdir1 /dir2/foo.a' ,
17- \ ' Xdir1 /dir2/foo.a -->' ,
18- \ ' Xdir1 /dir2/bar.a' ,
19- \ ' Xdir1 /dir2/bar.a -->' ,
20- \ ' Xdir1 /dir2/baz.a' ,
21- \ ' Xdir1 /dir2/baz.a -->' ,
16+ \ ' Xcheckdir1 /dir2/foo.a' ,
17+ \ ' Xcheckdir1 /dir2/foo.a -->' ,
18+ \ ' Xcheckdir1 /dir2/bar.a' ,
19+ \ ' Xcheckdir1 /dir2/bar.a -->' ,
20+ \ ' Xcheckdir1 /dir2/baz.a' ,
21+ \ ' Xcheckdir1 /dir2/baz.a -->' ,
2222 \ ' "foo.a" (Already listed)' ], res )
2323
2424 enew
2525 call delete (" ./Xbase.a" )
26- call delete (" Xdir1 " , " rf" )
26+ call delete (" Xcheckdir1 " , " rf" )
2727 set path &
2828endfunc
2929
@@ -33,31 +33,31 @@ endfunc
3333
3434" Test for 'include' with \zs and \ze
3535func Test_checkpath2 ()
36- call mkdir (" Xdir1 /dir2" , " p" )
37- call writefile ([' %inc /bar/' ], ' Xdir1 /dir2/foo.b' )
38- call writefile ([' %inc /baz/' ], ' Xdir1 /dir2/bar.b' )
39- call writefile ([' %inc /foo/' ], ' Xdir1 /dir2/baz.b' )
36+ call mkdir (" Xcheckdir2 /dir2" , " p" )
37+ call writefile ([' %inc /bar/' ], ' Xcheckdir2 /dir2/foo.b' )
38+ call writefile ([' %inc /baz/' ], ' Xcheckdir2 /dir2/bar.b' )
39+ call writefile ([' %inc /foo/' ], ' Xcheckdir2 /dir2/baz.b' )
4040 call writefile ([' %inc /foo/' ], ' Xbase.b' )
4141
4242 let &include = ' ^\s*%inc\s*/\zs[^/]\+\ze'
4343 let &includeexpr = ' DotsToSlashes()'
4444
4545 edit Xbase.b
46- set path = Xdir1 /dir2
46+ set path = Xcheckdir2 /dir2
4747 let res = split (execute (" checkpath!" ), " \n " )
4848 call assert_equal ([
4949 \ ' --- Included files in path ---' ,
50- \ ' Xdir1 /dir2/foo.b' ,
51- \ ' Xdir1 /dir2/foo.b -->' ,
52- \ ' Xdir1 /dir2/bar.b' ,
53- \ ' Xdir1 /dir2/bar.b -->' ,
54- \ ' Xdir1 /dir2/baz.b' ,
55- \ ' Xdir1 /dir2/baz.b -->' ,
50+ \ ' Xcheckdir2 /dir2/foo.b' ,
51+ \ ' Xcheckdir2 /dir2/foo.b -->' ,
52+ \ ' Xcheckdir2 /dir2/bar.b' ,
53+ \ ' Xcheckdir2 /dir2/bar.b -->' ,
54+ \ ' Xcheckdir2 /dir2/baz.b' ,
55+ \ ' Xcheckdir2 /dir2/baz.b -->' ,
5656 \ ' foo (Already listed)' ], res )
5757
5858 enew
5959 call delete (" ./Xbase.b" )
60- call delete (" Xdir1 " , " rf" )
60+ call delete (" Xcheckdir2 " , " rf" )
6161 set path &
6262 set include &
6363 set includeexpr &
@@ -72,32 +72,32 @@ endfunc
7272
7373" Test for 'include' with \zs and no \ze
7474func Test_checkpath3 ()
75- call mkdir (" Xdir1 /dir2" , " p" )
76- call writefile ([' %inc bar.c' ], ' Xdir1 /dir2/foo.c' )
77- call writefile ([' %inc baz.c' ], ' Xdir1 /dir2/bar.c' )
78- call writefile ([' %inc foo.c' ], ' Xdir1 /dir2/baz.c' )
79- call writefile ([' %inc foo.c' ], ' Xdir1 /dir2/FALSE.c' )
75+ call mkdir (" Xcheckdir3 /dir2" , " p" )
76+ call writefile ([' %inc bar.c' ], ' Xcheckdir3 /dir2/foo.c' )
77+ call writefile ([' %inc baz.c' ], ' Xcheckdir3 /dir2/bar.c' )
78+ call writefile ([' %inc foo.c' ], ' Xcheckdir3 /dir2/baz.c' )
79+ call writefile ([' %inc foo.c' ], ' Xcheckdir3 /dir2/FALSE.c' )
8080 call writefile ([' %inc FALSE.c foo.c' ], ' Xbase.c' )
8181
8282 let &include = ' ^\s*%inc\s*\%([[:upper:]][^[:space:]]*\s\+\)\?\zs\S\+\ze'
8383 let &includeexpr = ' StripNewlineChar()'
8484
8585 edit Xbase.c
86- set path = Xdir1 /dir2
86+ set path = Xcheckdir3 /dir2
8787 let res = split (execute (" checkpath!" ), " \n " )
8888 call assert_equal ([
8989 \ ' --- Included files in path ---' ,
90- \ ' Xdir1 /dir2/foo.c' ,
91- \ ' Xdir1 /dir2/foo.c -->' ,
92- \ ' Xdir1 /dir2/bar.c' ,
93- \ ' Xdir1 /dir2/bar.c -->' ,
94- \ ' Xdir1 /dir2/baz.c' ,
95- \ ' Xdir1 /dir2/baz.c -->' ,
90+ \ ' Xcheckdir3 /dir2/foo.c' ,
91+ \ ' Xcheckdir3 /dir2/foo.c -->' ,
92+ \ ' Xcheckdir3 /dir2/bar.c' ,
93+ \ ' Xcheckdir3 /dir2/bar.c -->' ,
94+ \ ' Xcheckdir3 /dir2/baz.c' ,
95+ \ ' Xcheckdir3 /dir2/baz.c -->' ,
9696 \ ' foo.c (Already listed)' ], res )
9797
9898 enew
9999 call delete (" ./Xbase.c" )
100- call delete (" Xdir1 " , " rf" )
100+ call delete (" Xcheckdir3 " , " rf" )
101101 set path &
102102 set include &
103103 set includeexpr &
0 commit comments