comparison src/testdir/test17.in @ 7003:bc269cf15ccd v7.4.819

patch 7.4.819 Problem: Beeping when running the tests. Solution: Fix 41 beeps. (Roland Eggner)
author Bram Moolenaar <bram@vim.org>
date Tue, 11 Aug 2015 18:33:48 +0200
parents 5569d11ef585
children 05e7d084c6c2
comparison
equal deleted inserted replaced
7002:6db4f492c515 7003:bc269cf15ccd
47 :call delete("./Xbase.a") 47 :call delete("./Xbase.a")
48 :call DeleteDirectory("Xdir1") 48 :call DeleteDirectory("Xdir1")
49 :!mkdir Xdir1 49 :!mkdir Xdir1
50 :!mkdir "Xdir1/dir2" 50 :!mkdir "Xdir1/dir2"
51 :e! Xdir1/dir2/foo.a 51 :e! Xdir1/dir2/foo.a
52 i#include "bar.a" 52 i#include "bar.a":
53 :w 53 :w
54 :e Xdir1/dir2/bar.a 54 :e Xdir1/dir2/bar.a
55 i#include "baz.a" 55 i#include "baz.a":
56 :w 56 :w
57 :e Xdir1/dir2/baz.a 57 :e Xdir1/dir2/baz.a
58 i#include "foo.a" 58 i#include "foo.a":
59 :w 59 :w
60 :e Xbase.a 60 :e Xbase.a
61 :set path=Xdir1/dir2 61 :set path=Xdir1/dir2
62 i#include <foo.a> 62 i#include <foo.a>:
63 :w 63 :w
64 :redir! >>test.out 64 :redir! >>test.out
65 :checkpath! 65 :checkpath!
66 :redir END 66 :redir END
67 :brewind 67 :brewind
77 :function! DotsToSlashes() 77 :function! DotsToSlashes()
78 : return substitute(v:fname, '\.', '/', 'g') . '.b' 78 : return substitute(v:fname, '\.', '/', 'g') . '.b'
79 :endfunction 79 :endfunction
80 :let &includeexpr='DotsToSlashes()' 80 :let &includeexpr='DotsToSlashes()'
81 :e! Xdir1/dir2/foo.b 81 :e! Xdir1/dir2/foo.b
82 i%inc /bar/ 82 i%inc /bar/:
83 :w 83 :w
84 :e Xdir1/dir2/bar.b 84 :e Xdir1/dir2/bar.b
85 i%inc /baz/ 85 i%inc /baz/:
86 :w 86 :w
87 :e Xdir1/dir2/baz.b 87 :e Xdir1/dir2/baz.b
88 i%inc /foo/ 88 i%inc /foo/:
89 :w 89 :w
90 :e Xbase.b 90 :e Xbase.b
91 :set path=Xdir1/dir2 91 :set path=Xdir1/dir2
92 i%inc /foo/ 92 i%inc /foo/:
93 :w 93 :w
94 :redir! >>test.out 94 :redir! >>test.out
95 :checkpath! 95 :checkpath!
96 :redir END 96 :redir END
97 :brewind 97 :brewind
110 : endif 110 : endif
111 : return v:fname 111 : return v:fname
112 :endfunction 112 :endfunction
113 :let &includeexpr='StripNewlineChar()' 113 :let &includeexpr='StripNewlineChar()'
114 :e! Xdir1/dir2/foo.c 114 :e! Xdir1/dir2/foo.c
115 i%inc bar.c 115 i%inc bar.c:
116 :w 116 :w
117 :e Xdir1/dir2/bar.c 117 :e Xdir1/dir2/bar.c
118 i%inc baz.c 118 i%inc baz.c:
119 :w 119 :w
120 :e Xdir1/dir2/baz.c 120 :e Xdir1/dir2/baz.c
121 i%inc foo.c 121 i%inc foo.c:
122 :w 122 :w
123 :e Xdir1/dir2/FALSE.c 123 :e Xdir1/dir2/FALSE.c
124 i%inc foo.c 124 i%inc foo.c:
125 :w 125 :w
126 :e Xbase.c 126 :e Xbase.c
127 :set path=Xdir1/dir2 127 :set path=Xdir1/dir2
128 i%inc FALSE.c foo.c 128 i%inc FALSE.c foo.c:
129 :w 129 :w
130 :redir! >>test.out 130 :redir! >>test.out
131 :checkpath! 131 :checkpath!
132 :redir END 132 :redir END
133 :brewind 133 :brewind