comparison src/testdir/vim9.vim @ 24450:3e1886f1e875 v8.2.2765

patch 8.2.2765: Vim9: not all blob operations work Commit: https://github.com/vim/vim/commit/0e3ff1919603ee4c4a347fdf761dbdbdeb068015 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Apr 14 20:35:23 2021 +0200 patch 8.2.2765: Vim9: not all blob operations work Problem: Vim9: not all blob operations work. Solution: Run more tests also with Vim9 script and :def functions. Fix what doesn't work.
author Bram Moolenaar <Bram@vim.org>
date Wed, 14 Apr 2021 20:45:04 +0200
parents 602e528a8e43
children e321dbddc076
comparison
equal deleted inserted replaced
24449:ca0d84e008e5 24450:3e1886f1e875
142 let s:sequence += 1 142 let s:sequence += 1
143 call writefile(['func Func()'] + a:lines + ['endfunc'], fname) 143 call writefile(['func Func()'] + a:lines + ['endfunc'], fname)
144 try 144 try
145 exe 'so ' .. fname 145 exe 'so ' .. fname
146 call Func() 146 call Func()
147 delfunc! Func 147 finally
148 finally 148 delfunc! Func
149 call chdir(cwd)
150 call delete(fname)
151 endtry
152 endfunc
153
154 " Check that "lines" inside a legacy function results in the expected error
155 func CheckLegacyFailure(lines, error)
156 let cwd = getcwd()
157 let fname = 'XlegacyFails' .. s:sequence
158 let s:sequence += 1
159 call writefile(['func Func()'] + a:lines + ['endfunc', 'call Func()'], fname)
160 try
161 call assert_fails('so ' .. fname, a:error)
162 finally
163 delfunc! Func
149 call chdir(cwd) 164 call chdir(cwd)
150 call delete(fname) 165 call delete(fname)
151 endtry 166 endtry
152 endfunc 167 endfunc
153 168
166 v->substitute('\<VAR\>', 'var', 'g') 181 v->substitute('\<VAR\>', 'var', 'g')
167 ->substitute('\<LET ', '', 'g')) 182 ->substitute('\<LET ', '', 'g'))
168 CheckDefSuccess(vim9lines) 183 CheckDefSuccess(vim9lines)
169 CheckScriptSuccess(['vim9script'] + vim9lines) 184 CheckScriptSuccess(['vim9script'] + vim9lines)
170 enddef 185 enddef
186
187 " Execute "lines" in a legacy function, :def function and Vim9 script.
188 " Use 'VAR' for a declaration.
189 " Use 'LET' for an assignment
190 " Use ' #"' for a comment
191 def CheckLegacyAndVim9Failure(lines: list<string>, error: any)
192 var legacyError: string
193 var defError: string
194 var scriptError: string
195
196 if type(error) == type('string')
197 legacyError = error
198 defError = error
199 scriptError = error
200 else
201 legacyError = error[0]
202 defError = error[1]
203 scriptError = error[2]
204 endif
205
206 var legacylines = lines->mapnew((_, v) =>
207 v->substitute('\<VAR\>', 'let', 'g')
208 ->substitute('\<LET\>', 'let', 'g')
209 ->substitute('#"', ' "', 'g'))
210 CheckLegacyFailure(legacylines, legacyError)
211
212 var vim9lines = lines->mapnew((_, v) =>
213 v->substitute('\<VAR\>', 'var', 'g')
214 ->substitute('\<LET ', '', 'g'))
215 CheckDefExecFailure(vim9lines, defError)
216 CheckScriptFailure(['vim9script'] + vim9lines, scriptError)
217 enddef