Mercurial > vim

comparison src/testdir/test49.vim @ 341:b516a9f9d603

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0088
author vimboss
date Sun, 19 Jun 2005 22:54:15 +0000
parents 2d8c2622e1fa
children f08390485cd3
comparison
equal deleted inserted replaced
340:210108b60fbb 341:b516a9f9d603
1 " Vim script language tests 1 " Vim script language tests
2 " Author: Servatius Brandt <Servatius.Brandt@fujitsu-siemens.com> 2 " Author: Servatius Brandt <Servatius.Brandt@fujitsu-siemens.com>
3 " Last Change: 2005 Jun 17 3 " Last Change: 2005 Jun 18
4 4
5 "------------------------------------------------------------------------------- 5 "-------------------------------------------------------------------------------
6 " Test environment {{{1 6 " Test environment {{{1
7 "------------------------------------------------------------------------------- 7 "-------------------------------------------------------------------------------
8 8
8047 endfunction 8047 endfunction
8048 8048
8049 function! ERRabort(n) abort 8049 function! ERRabort(n) abort
8050 let g:taken = g:taken . "A" . a:n 8050 let g:taken = g:taken . "A" . a:n
8051 asdf 8051 asdf
8052 endfunction " returns -1 8052 endfunction " returns -1; may cause follow-up msg for illegal var/func name
8053
8054 function! WRAP(n, arg)
8055 let g:taken = g:taken . "W" . a:n
8056 let g:saved_errmsg = v:errmsg
8057 return arg
8058 endfunction
8053 8059
8054 function! INT(n) 8060 function! INT(n)
8055 let g:taken = g:taken . "I" . a:n 8061 let g:taken = g:taken . "I" . a:n
8056 "INTERRUPT9 8062 "INTERRUPT9
8057 let dummy = 0 8063 let dummy = 0
8066 let g:taken = g:taken . "C" . a:n 8072 let g:taken = g:taken . "C" . a:n
8067 endfunction 8073 endfunction
8068 8074
8069 function! MSG(n) 8075 function! MSG(n)
8070 let g:taken = g:taken . "M" . a:n 8076 let g:taken = g:taken . "M" . a:n
8071 if (a:n >= 10 && a:n <= 27) ? v:errmsg != "" : v:errmsg !~ "asdf" 8077 let errmsg = (a:n >= 37 && a:n <= 44) ? g:saved_errmsg : v:errmsg
8072 let g:taken = g:taken . v:errmsg 8078 let msgptn = (a:n >= 10 && a:n <= 27) ? "^$" : "asdf"
8079 if errmsg !~ msgptn
8080 let g:taken = g:taken . "x"
8081 Xout "Expr" a:n.": Unexpected message:" v:errmsg
8073 endif 8082 endif
8074 let v:errmsg = "" 8083 let v:errmsg = ""
8084 let g:saved_errmsg = ""
8075 endfunction 8085 endfunction
8076 8086
8077 let v:errmsg = "" 8087 let v:errmsg = ""
8078 8088
8079 try 8089 try
8223 delfunction F{ERR(35) + CONT(35)} 8233 delfunction F{ERR(35) + CONT(35)}
8224 call MSG(35) 8234 call MSG(35)
8225 let var = ERR(36) + CONT(36) 8235 let var = ERR(36) + CONT(36)
8226 call MSG(36) 8236 call MSG(36)
8227 8237
8228 let v{ERRabort(37) + CONT(37) . 'asdf'} = 0 8238 let saved_errmsg = ""
8239
8240 let v{WRAP(37, ERRabort(37)) + CONT(37)} = 0
8229 call MSG(37) 8241 call MSG(37)
8230 let v{ERRabort(38) + CONT(38) . 'asdf'} 8242 let v{WRAP(38, ERRabort(38)) + CONT(38)}
8231 call MSG(38) 8243 call MSG(38)
8232 let var = exists('v{ERRabort(39) + CONT(39)}') 8244 let var = exists('v{WRAP(39, ERRabort(39)) + CONT(39)}')
8233 call MSG(39) 8245 call MSG(39)
8234 unlet v{ERRabort(40) + CONT(40) . 'asdf'} 8246 unlet v{WRAP(40, ERRabort(40)) + CONT(40)}
8235 call MSG(40) 8247 call MSG(40)
8236 function F{ERRabort(41) + CONT(41)}() 8248 function F{WRAP(41, ERRabort(41)) + CONT(41)}()
8237 endfunction 8249 endfunction
8238 call MSG(41) 8250 call MSG(41)
8239 function F{ERRabort(42) + CONT(42)} 8251 function F{WRAP(42, ERRabort(42)) + CONT(42)}
8240 call MSG(42) 8252 call MSG(42)
8241 let var = exists('*F{ERRabort(43) + CONT(43)}') 8253 let var = exists('*F{WRAP(43, ERRabort(43)) + CONT(43)}')
8242 call MSG(43) 8254 call MSG(43)
8243 delfunction F{ERRabort(44) + CONT(44)} 8255 delfunction F{WRAP(44, ERRabort(44)) + CONT(44)}
8244 call MSG(44) 8256 call MSG(44)
8245 let var = ERRabort(45) + CONT(45) 8257 let var = ERRabort(45) + CONT(45)
8246 call MSG(45) 8258 call MSG(45)
8247 8259
8248 Xpath 1073741824 " X: 1073741824 8260 Xpath 1073741824 " X: 1073741824
8251 \ . "E1M1E2M2E3M3E4M4E5M5E6M6E7M7E8M8E9M9" 8263 \ . "E1M1E2M2E3M3E4M4E5M5E6M6E7M7E8M8E9M9"
8252 \ . "I10M10I11M11I12M12I13M13I14M14I15M15I16M16I17M17I18M18" 8264 \ . "I10M10I11M11I12M12I13M13I14M14I15M15I16M16I17M17I18M18"
8253 \ . "T19M19T20M20T21M21T22M22T23M23T24M24T25M25T26M26T27M27" 8265 \ . "T19M19T20M20T21M21T22M22T23M23T24M24T25M25T26M26T27M27"
8254 \ . "E28C28M28E29C29M29E30C30M30E31C31M31E32C32M32E33C33M33" 8266 \ . "E28C28M28E29C29M29E30C30M30E31C31M31E32C32M32E33C33M33"
8255 \ . "E34C34M34E35C35M35E36C36M36" 8267 \ . "E34C34M34E35C35M35E36C36M36"
8256 \ . "A37C37M37A38C38M38A39C39M39A40C40M40A41C41M41A42C42M42" 8268 \ . "A37W37C37M37A38W38C38M38A39W39C39M39A40W40C40M40A41W41C41M41"
8257 \ . "A43C43M43A44C44M44A45C45M45" 8269 \ . "A42W42C42M42A43W43C43M43A44W44C44M44A45C45M45"
8258 8270
8259 if taken != expected 8271 if taken != expected
8260 " The Xpath command does not accept 2^31 (negative); display explicitly: 8272 " The Xpath command does not accept 2^31 (negative); display explicitly:
8261 exec "!echo 2147483648 >>" . g:ExtraVimResult 8273 exec "!echo 2147483648 >>" . g:ExtraVimResult
8262 " X: 0 8274 " X: 0
8268 Xout "Is ++emsg_skip for var with expr_start non-NULL" 8280 Xout "Is ++emsg_skip for var with expr_start non-NULL"
8269 \ "in f_exists ok?" 8281 \ "in f_exists ok?"
8270 endif 8282 endif
8271 endif 8283 endif
8272 8284
8273 unlet! var taken expected 8285 unlet! v var saved_errmsg taken expected
8274 call delete(WA_t5) 8286 call delete(WA_t5)
8275 call delete(WA_t14) 8287 call delete(WA_t14)
8276 call delete(WA_t23) 8288 call delete(WA_t23)
8277 unlet! WA_t5 WA_t14 WA_t23 8289 unlet! WA_t5 WA_t14 WA_t23
8278 delfunction WA_t5 8290 delfunction WA_t5