1" Tests for expressions. 2 3source check.vim 4 5func Test_equal() 6 let base = {} 7 func base.method() 8 return 1 9 endfunc 10 func base.other() dict 11 return 1 12 endfunc 13 let instance = copy(base) 14 call assert_true(base.method == instance.method) 15 call assert_true([base.method] == [instance.method]) 16 call assert_true(base.other == instance.other) 17 call assert_true([base.other] == [instance.other]) 18 19 call assert_false(base.method == base.other) 20 call assert_false([base.method] == [base.other]) 21 call assert_false(base.method == instance.other) 22 call assert_false([base.method] == [instance.other]) 23 24 call assert_fails('echo base.method > instance.method') 25 call assert_equal(0, test_null_function() == function('min')) 26 call assert_equal(1, test_null_function() == test_null_function()) 27 call assert_fails('eval 10 == test_unknown()', 'E685:') 28endfunc 29 30func Test_version() 31 call assert_true(has('patch-7.4.001')) 32 call assert_true(has('patch-7.4.01')) 33 call assert_true(has('patch-7.4.1')) 34 call assert_true(has('patch-6.9.999')) 35 call assert_true(has('patch-7.1.999')) 36 call assert_true(has('patch-7.4.123')) 37 38 call assert_false(has('patch-7')) 39 call assert_false(has('patch-7.4')) 40 call assert_false(has('patch-7.4.')) 41 call assert_false(has('patch-9.1.0')) 42 call assert_false(has('patch-9.9.1')) 43endfunc 44 45func Test_op_falsy() 46 call assert_equal(v:true, v:true ?? 456) 47 call assert_equal(123, 123 ?? 456) 48 call assert_equal('yes', 'yes' ?? 456) 49 call assert_equal(0z00, 0z00 ?? 456) 50 call assert_equal([1], [1] ?? 456) 51 call assert_equal(#{one: 1}, #{one: 1} ?? 456) 52 if has('float') 53 call assert_equal(0.1, 0.1 ?? 456) 54 endif 55 56 call assert_equal(456, v:false ?? 456) 57 call assert_equal(456, 0 ?? 456) 58 call assert_equal(456, '' ?? 456) 59 call assert_equal(456, 0z ?? 456) 60 call assert_equal(456, [] ?? 456) 61 call assert_equal(456, {} ?? 456) 62 if has('float') 63 call assert_equal(456, 0.0 ?? 456) 64 endif 65endfunc 66 67func Test_dict() 68 let d = {'': 'empty', 'a': 'a', 0: 'zero'} 69 call assert_equal('empty', d['']) 70 call assert_equal('a', d['a']) 71 call assert_equal('zero', d[0]) 72 call assert_true(has_key(d, '')) 73 call assert_true(has_key(d, 'a')) 74 call assert_fails("let i = has_key([], 'a')", 'E715:') 75 76 let d[''] = 'none' 77 let d['a'] = 'aaa' 78 call assert_equal('none', d['']) 79 call assert_equal('aaa', d['a']) 80 81 let d[ 'b' ] = 'bbb' 82 call assert_equal('bbb', d[ 'b' ]) 83endfunc 84 85func Test_strgetchar() 86 call assert_equal(char2nr('a'), strgetchar('axb', 0)) 87 call assert_equal(char2nr('x'), 'axb'->strgetchar(1)) 88 call assert_equal(char2nr('b'), strgetchar('axb', 2)) 89 90 call assert_equal(-1, strgetchar('axb', -1)) 91 call assert_equal(-1, strgetchar('axb', 3)) 92 call assert_equal(-1, strgetchar('', 0)) 93 call assert_fails("let c=strgetchar([], 1)", 'E730:') 94 call assert_fails("let c=strgetchar('axb', [])", 'E745:') 95endfunc 96 97func Test_strcharpart() 98 call assert_equal('a', strcharpart('axb', 0, 1)) 99 call assert_equal('x', 'axb'->strcharpart(1, 1)) 100 call assert_equal('b', strcharpart('axb', 2, 1)) 101 call assert_equal('xb', strcharpart('axb', 1)) 102 103 call assert_equal('', strcharpart('axb', 1, 0)) 104 call assert_equal('', strcharpart('axb', 1, -1)) 105 call assert_equal('', strcharpart('axb', -1, 1)) 106 call assert_equal('', strcharpart('axb', -2, 2)) 107 108 call assert_equal('a', strcharpart('axb', -1, 2)) 109 110 call assert_equal('edit', "editor"[-10:3]) 111endfunc 112 113func Test_getreg_empty_list() 114 call assert_equal('', getreg('x')) 115 call assert_equal([], getreg('x', 1, 1)) 116 let x = getreg('x', 1, 1) 117 let y = x 118 call add(x, 'foo') 119 call assert_equal(['foo'], y) 120endfunc 121 122func Test_loop_over_null_list() 123 let null_list = test_null_list() 124 for i in null_list 125 call assert_report('should not get here') 126 endfor 127endfunc 128 129func Test_setreg_null_list() 130 call setreg('x', test_null_list()) 131endfunc 132 133func Test_special_char() 134 " The failure is only visible using valgrind. 135 call assert_fails('echo "\<C-">') 136endfunc 137 138func Test_method_with_prefix() 139 call assert_equal(1, !range(5)->empty()) 140 call assert_equal([0, 1, 2], --3->range()) 141 call assert_equal(0, !-3) 142 call assert_equal(1, !+-+0) 143endfunc 144 145func Test_option_value() 146 " boolean 147 set bri 148 call assert_equal(1, &bri) 149 set nobri 150 call assert_equal(0, &bri) 151 152 " number 153 set ts=1 154 call assert_equal(1, &ts) 155 set ts=8 156 call assert_equal(8, &ts) 157 158 " string 159 exe "set cedit=\<Esc>" 160 call assert_equal("\<Esc>", &cedit) 161 set cpo= 162 call assert_equal("", &cpo) 163 set cpo=abcdefgi 164 call assert_equal("abcdefgi", &cpo) 165 set cpo&vim 166endfunc 167 168function Test_printf_misc() 169 call assert_equal('123', printf('123')) 170 call assert_fails("call printf('123', 3)", "E767:") 171 172 call assert_equal('123', printf('%d', 123)) 173 call assert_equal('123', printf('%i', 123)) 174 call assert_equal('123', printf('%D', 123)) 175 call assert_equal('123', printf('%U', 123)) 176 call assert_equal('173', printf('%o', 123)) 177 call assert_equal('173', printf('%O', 123)) 178 call assert_equal('7b', printf('%x', 123)) 179 call assert_equal('7B', printf('%X', 123)) 180 181 call assert_equal('123', printf('%hd', 123)) 182 call assert_equal('-123', printf('%hd', -123)) 183 call assert_equal('-1', printf('%hd', 0xFFFF)) 184 call assert_equal('-1', printf('%hd', 0x1FFFFF)) 185 186 call assert_equal('123', printf('%hu', 123)) 187 call assert_equal('65413', printf('%hu', -123)) 188 call assert_equal('65535', printf('%hu', 0xFFFF)) 189 call assert_equal('65535', printf('%hu', 0x1FFFFF)) 190 191 call assert_equal('123', printf('%ld', 123)) 192 call assert_equal('-123', printf('%ld', -123)) 193 call assert_equal('65535', printf('%ld', 0xFFFF)) 194 call assert_equal('131071', printf('%ld', 0x1FFFF)) 195 196 if has('ebcdic') 197 call assert_equal('#', printf('%c', 123)) 198 else 199 call assert_equal('{', printf('%c', 123)) 200 endif 201 call assert_equal('abc', printf('%s', 'abc')) 202 call assert_equal('abc', printf('%S', 'abc')) 203 204 call assert_equal('+123', printf('%+d', 123)) 205 call assert_equal('-123', printf('%+d', -123)) 206 call assert_equal('+123', printf('%+ d', 123)) 207 call assert_equal(' 123', printf('% d', 123)) 208 call assert_equal(' 123', printf('% d', 123)) 209 call assert_equal('-123', printf('% d', -123)) 210 211 call assert_equal('123', printf('%2d', 123)) 212 call assert_equal(' 123', printf('%6d', 123)) 213 call assert_equal('000123', printf('%06d', 123)) 214 call assert_equal('+00123', printf('%+06d', 123)) 215 call assert_equal(' 00123', printf('% 06d', 123)) 216 call assert_equal(' +123', printf('%+6d', 123)) 217 call assert_equal(' 123', printf('% 6d', 123)) 218 call assert_equal(' -123', printf('% 6d', -123)) 219 220 " Test left adjusted. 221 call assert_equal('123 ', printf('%-6d', 123)) 222 call assert_equal('+123 ', printf('%-+6d', 123)) 223 call assert_equal(' 123 ', printf('%- 6d', 123)) 224 call assert_equal('-123 ', printf('%- 6d', -123)) 225 226 call assert_equal(' 00123', printf('%7.5d', 123)) 227 call assert_equal(' -00123', printf('%7.5d', -123)) 228 call assert_equal(' +00123', printf('%+7.5d', 123)) 229 " Precision field should not be used when combined with %0 230 call assert_equal(' 00123', printf('%07.5d', 123)) 231 call assert_equal(' -00123', printf('%07.5d', -123)) 232 233 call assert_equal(' 123', printf('%*d', 5, 123)) 234 call assert_equal('123 ', printf('%*d', -5, 123)) 235 call assert_equal('00123', printf('%.*d', 5, 123)) 236 call assert_equal(' 123', printf('% *d', 5, 123)) 237 call assert_equal(' +123', printf('%+ *d', 5, 123)) 238 239 call assert_equal('foobar', printf('%.*s', 9, 'foobar')) 240 call assert_equal('foo', printf('%.*s', 3, 'foobar')) 241 call assert_equal('', printf('%.*s', 0, 'foobar')) 242 call assert_equal('foobar', printf('%.*s', -1, 'foobar')) 243 244 " Simple quote (thousand grouping char) is ignored. 245 call assert_equal('+00123456', printf("%+'09d", 123456)) 246 247 " Unrecognized format specifier kept as-is. 248 call assert_equal('_123', printf("%_%d", 123)) 249 250 " Test alternate forms. 251 call assert_equal('0x7b', printf('%#x', 123)) 252 call assert_equal('0X7B', printf('%#X', 123)) 253 call assert_equal('0173', printf('%#o', 123)) 254 call assert_equal('0173', printf('%#O', 123)) 255 call assert_equal('abc', printf('%#s', 'abc')) 256 call assert_equal('abc', printf('%#S', 'abc')) 257 call assert_equal(' 0173', printf('%#6o', 123)) 258 call assert_equal(' 00173', printf('%#6.5o', 123)) 259 call assert_equal(' 0173', printf('%#6.2o', 123)) 260 call assert_equal(' 0173', printf('%#6.2o', 123)) 261 call assert_equal('0173', printf('%#2.2o', 123)) 262 263 call assert_equal(' 00123', printf('%6.5d', 123)) 264 call assert_equal(' 0007b', printf('%6.5x', 123)) 265 266 call assert_equal('123', printf('%.2d', 123)) 267 call assert_equal('0123', printf('%.4d', 123)) 268 call assert_equal('0000000123', printf('%.10d', 123)) 269 call assert_equal('123', printf('%.0d', 123)) 270 271 call assert_equal('abc', printf('%2s', 'abc')) 272 call assert_equal('abc', printf('%2S', 'abc')) 273 call assert_equal('abc', printf('%.4s', 'abc')) 274 call assert_equal('abc', printf('%.4S', 'abc')) 275 call assert_equal('ab', printf('%.2s', 'abc')) 276 call assert_equal('ab', printf('%.2S', 'abc')) 277 call assert_equal('', printf('%.0s', 'abc')) 278 call assert_equal('', printf('%.s', 'abc')) 279 call assert_equal(' abc', printf('%4s', 'abc')) 280 call assert_equal(' abc', printf('%4S', 'abc')) 281 call assert_equal('0abc', printf('%04s', 'abc')) 282 call assert_equal('0abc', printf('%04S', 'abc')) 283 call assert_equal('abc ', printf('%-4s', 'abc')) 284 call assert_equal('abc ', printf('%-4S', 'abc')) 285 286 call assert_equal('��', printf('%.2S', '����')) 287 call assert_equal('', printf('%.1S', '����')) 288 289 call assert_equal('1%', printf('%d%%', 1)) 290endfunc 291 292function Test_printf_float() 293 if has('float') 294 call assert_equal('1.000000', printf('%f', 1)) 295 call assert_equal('1.230000', printf('%f', 1.23)) 296 call assert_equal('1.230000', printf('%F', 1.23)) 297 call assert_equal('9999999.9', printf('%g', 9999999.9)) 298 call assert_equal('9999999.9', printf('%G', 9999999.9)) 299 call assert_equal('1.00000001e7', printf('%.8g', 10000000.1)) 300 call assert_equal('1.00000001E7', printf('%.8G', 10000000.1)) 301 call assert_equal('1.230000e+00', printf('%e', 1.23)) 302 call assert_equal('1.230000E+00', printf('%E', 1.23)) 303 call assert_equal('1.200000e-02', printf('%e', 0.012)) 304 call assert_equal('-1.200000e-02', printf('%e', -0.012)) 305 call assert_equal('0.33', printf('%.2f', 1.0/3.0)) 306 call assert_equal(' 0.33', printf('%6.2f', 1.0/3.0)) 307 call assert_equal(' -0.33', printf('%6.2f', -1.0/3.0)) 308 call assert_equal('000.33', printf('%06.2f', 1.0/3.0)) 309 call assert_equal('-00.33', printf('%06.2f', -1.0/3.0)) 310 call assert_equal('-00.33', printf('%+06.2f', -1.0/3.0)) 311 call assert_equal('+00.33', printf('%+06.2f', 1.0/3.0)) 312 call assert_equal(' 00.33', printf('% 06.2f', 1.0/3.0)) 313 call assert_equal('000.33', printf('%06.2g', 1.0/3.0)) 314 call assert_equal('-00.33', printf('%06.2g', -1.0/3.0)) 315 call assert_equal('0.33', printf('%3.2f', 1.0/3.0)) 316 call assert_equal('003.33e-01', printf('%010.2e', 1.0/3.0)) 317 call assert_equal(' 03.33e-01', printf('% 010.2e', 1.0/3.0)) 318 call assert_equal('+03.33e-01', printf('%+010.2e', 1.0/3.0)) 319 call assert_equal('-03.33e-01', printf('%010.2e', -1.0/3.0)) 320 321 " When precision is 0, the dot should be omitted. 322 call assert_equal(' 2', printf('%3.f', 7.0/3.0)) 323 call assert_equal(' 2', printf('%3.g', 7.0/3.0)) 324 call assert_equal(' 2e+00', printf('%7.e', 7.0/3.0)) 325 326 " Float zero can be signed. 327 call assert_equal('+0.000000', printf('%+f', 0.0)) 328 call assert_equal('0.000000', printf('%f', 1.0/(1.0/0.0))) 329 call assert_equal('-0.000000', printf('%f', 1.0/(-1.0/0.0))) 330 call assert_equal('0.0', printf('%s', 1.0/(1.0/0.0))) 331 call assert_equal('-0.0', printf('%s', 1.0/(-1.0/0.0))) 332 call assert_equal('0.0', printf('%S', 1.0/(1.0/0.0))) 333 call assert_equal('-0.0', printf('%S', 1.0/(-1.0/0.0))) 334 335 " Float infinity can be signed. 336 call assert_equal('inf', printf('%f', 1.0/0.0)) 337 call assert_equal('-inf', printf('%f', -1.0/0.0)) 338 call assert_equal('inf', printf('%g', 1.0/0.0)) 339 call assert_equal('-inf', printf('%g', -1.0/0.0)) 340 call assert_equal('inf', printf('%e', 1.0/0.0)) 341 call assert_equal('-inf', printf('%e', -1.0/0.0)) 342 call assert_equal('INF', printf('%F', 1.0/0.0)) 343 call assert_equal('-INF', printf('%F', -1.0/0.0)) 344 call assert_equal('INF', printf('%E', 1.0/0.0)) 345 call assert_equal('-INF', printf('%E', -1.0/0.0)) 346 call assert_equal('INF', printf('%E', 1.0/0.0)) 347 call assert_equal('-INF', printf('%G', -1.0/0.0)) 348 call assert_equal('+inf', printf('%+f', 1.0/0.0)) 349 call assert_equal('-inf', printf('%+f', -1.0/0.0)) 350 call assert_equal(' inf', printf('% f', 1.0/0.0)) 351 call assert_equal(' inf', printf('%6f', 1.0/0.0)) 352 call assert_equal(' -inf', printf('%6f', -1.0/0.0)) 353 call assert_equal(' inf', printf('%6g', 1.0/0.0)) 354 call assert_equal(' -inf', printf('%6g', -1.0/0.0)) 355 call assert_equal(' +inf', printf('%+6f', 1.0/0.0)) 356 call assert_equal(' inf', printf('% 6f', 1.0/0.0)) 357 call assert_equal(' +inf', printf('%+06f', 1.0/0.0)) 358 call assert_equal('inf ', printf('%-6f', 1.0/0.0)) 359 call assert_equal('-inf ', printf('%-6f', -1.0/0.0)) 360 call assert_equal('+inf ', printf('%-+6f', 1.0/0.0)) 361 call assert_equal(' inf ', printf('%- 6f', 1.0/0.0)) 362 call assert_equal('-INF ', printf('%-6F', -1.0/0.0)) 363 call assert_equal('+INF ', printf('%-+6F', 1.0/0.0)) 364 call assert_equal(' INF ', printf('%- 6F', 1.0/0.0)) 365 call assert_equal('INF ', printf('%-6G', 1.0/0.0)) 366 call assert_equal('-INF ', printf('%-6G', -1.0/0.0)) 367 call assert_equal('INF ', printf('%-6E', 1.0/0.0)) 368 call assert_equal('-INF ', printf('%-6E', -1.0/0.0)) 369 call assert_equal('inf', printf('%s', 1.0/0.0)) 370 call assert_equal('-inf', printf('%s', -1.0/0.0)) 371 372 " Test special case where max precision is truncated at 340. 373 call assert_equal('1.000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000', printf('%.330f', 1.0)) 374 call assert_equal('1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000', printf('%.340f', 1.0)) 375 call assert_equal('1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000', printf('%.350f', 1.0)) 376 377 " Float nan (not a number) has no sign. 378 call assert_equal('nan', printf('%f', sqrt(-1.0))) 379 call assert_equal('nan', printf('%f', 0.0/0.0)) 380 call assert_equal('nan', printf('%f', -0.0/0.0)) 381 call assert_equal('nan', printf('%g', 0.0/0.0)) 382 call assert_equal('nan', printf('%e', 0.0/0.0)) 383 call assert_equal('NAN', printf('%F', 0.0/0.0)) 384 call assert_equal('NAN', printf('%G', 0.0/0.0)) 385 call assert_equal('NAN', printf('%E', 0.0/0.0)) 386 call assert_equal('NAN', printf('%F', -0.0/0.0)) 387 call assert_equal('NAN', printf('%G', -0.0/0.0)) 388 call assert_equal('NAN', printf('%E', -0.0/0.0)) 389 call assert_equal(' nan', printf('%6f', 0.0/0.0)) 390 call assert_equal(' nan', printf('%06f', 0.0/0.0)) 391 call assert_equal('nan ', printf('%-6f', 0.0/0.0)) 392 call assert_equal('nan ', printf('%- 6f', 0.0/0.0)) 393 call assert_equal('nan', printf('%s', 0.0/0.0)) 394 call assert_equal('nan', printf('%s', -0.0/0.0)) 395 call assert_equal('nan', printf('%S', 0.0/0.0)) 396 call assert_equal('nan', printf('%S', -0.0/0.0)) 397 398 call assert_fails('echo printf("%f", "a")', 'E807:') 399 endif 400endfunc 401 402function Test_printf_errors() 403 call assert_fails('echo printf("%d", {})', 'E728:') 404 call assert_fails('echo printf("%d", [])', 'E745:') 405 call assert_fails('echo printf("%d", 1, 2)', 'E767:') 406 call assert_fails('echo printf("%*d", 1)', 'E766:') 407 call assert_fails('echo printf("%s")', 'E766:') 408 if has('float') 409 call assert_fails('echo printf("%d", 1.2)', 'E805:') 410 call assert_fails('echo printf("%f")') 411 endif 412endfunc 413 414function Test_max_min_errors() 415 call assert_fails('call max(v:true)', 'E712:') 416 call assert_fails('call max(v:true)', 'max()') 417 call assert_fails('call min(v:true)', 'E712:') 418 call assert_fails('call min(v:true)', 'min()') 419endfunc 420 421function Test_printf_64bit() 422 call assert_equal("123456789012345", printf('%d', 123456789012345)) 423endfunc 424 425function Test_printf_spec_s() 426 " number 427 call assert_equal("1234567890", printf('%s', 1234567890)) 428 429 " string 430 call assert_equal("abcdefgi", printf('%s', "abcdefgi")) 431 432 " float 433 if has('float') 434 call assert_equal("1.23", printf('%s', 1.23)) 435 endif 436 437 " list 438 let value = [1, 'two', ['three', 4]] 439 call assert_equal(string(value), printf('%s', value)) 440 441 " dict 442 let value = {'key1' : 'value1', 'key2' : ['list', 'value'], 'key3' : {'dict' : 'value'}} 443 call assert_equal(string(value), printf('%s', value)) 444 445 " funcref 446 call assert_equal('printf', printf('%s', 'printf'->function())) 447 448 " partial 449 call assert_equal(string(function('printf', ['%s'])), printf('%s', function('printf', ['%s']))) 450endfunc 451 452function Test_printf_spec_b() 453 call assert_equal("0", printf('%b', 0)) 454 call assert_equal("00001100", printf('%08b', 12)) 455 call assert_equal("11111111", printf('%08b', 0xff)) 456 call assert_equal(" 1111011", printf('%10b', 123)) 457 call assert_equal("0001111011", printf('%010b', 123)) 458 call assert_equal(" 0b1111011", printf('%#10b', 123)) 459 call assert_equal("0B01111011", printf('%#010B', 123)) 460 call assert_equal("1001001100101100000001011010010", printf('%b', 1234567890)) 461 call assert_equal("11100000100100010000110000011011101111101111001", printf('%b', 123456789012345)) 462 call assert_equal("1111111111111111111111111111111111111111111111111111111111111111", printf('%b', -1)) 463endfunc 464 465func Test_function_with_funcref() 466 let s:f = function('type') 467 let s:fref = function(s:f) 468 call assert_equal(v:t_string, s:fref('x')) 469 call assert_fails("call function('s:f')", 'E700:') 470 471 call assert_fails("call function('foo()')", 'E475:') 472 call assert_fails("call function('foo()')", 'foo()') 473 call assert_fails("function('')", 'E129:') 474endfunc 475 476func Test_funcref() 477 func! One() 478 return 1 479 endfunc 480 let OneByName = function('One') 481 let OneByRef = funcref('One') 482 func! One() 483 return 2 484 endfunc 485 call assert_equal(2, OneByName()) 486 call assert_equal(1, OneByRef()) 487 let OneByRef = 'One'->funcref() 488 call assert_equal(2, OneByRef()) 489 call assert_fails('echo funcref("{")', 'E475:') 490 let OneByRef = funcref("One", repeat(["foo"], 20)) 491 call assert_fails('let OneByRef = funcref("One", repeat(["foo"], 21))', 'E118:') 492 call assert_fails('echo function("min") =~ function("min")', 'E694:') 493endfunc 494 495func Test_setmatches() 496 hi def link 1 Comment 497 hi def link 2 PreProc 498 let set = [{"group": 1, "pattern": 2, "id": 3, "priority": 4}] 499 let exp = [{"group": '1', "pattern": '2', "id": 3, "priority": 4}] 500 if has('conceal') 501 let set[0]['conceal'] = 5 502 let exp[0]['conceal'] = '5' 503 endif 504 eval set->setmatches() 505 call assert_equal(exp, getmatches()) 506 call assert_fails('let m = setmatches([], [])', 'E745:') 507endfunc 508 509func Test_empty_concatenate() 510 call assert_equal('b', 'a'[4:0] . 'b') 511 call assert_equal('b', 'b' . 'a'[4:0]) 512endfunc 513 514func Test_broken_number() 515 let X = 'bad' 516 call assert_fails('echo 1X', 'E15:') 517 call assert_fails('echo 0b1X', 'E15:') 518 call assert_fails('echo 0b12', 'E15:') 519 call assert_fails('echo 0x1X', 'E15:') 520 call assert_fails('echo 011X', 'E15:') 521 call assert_equal(2, str2nr('2a')) 522 call assert_fails('inoremap <Char-0b1z> b', 'E474:') 523endfunc 524 525func Test_eval_after_if() 526 let s:val = '' 527 func SetVal(x) 528 let s:val ..= a:x 529 endfunc 530 if 0 | eval SetVal('a') | endif | call SetVal('b') 531 call assert_equal('b', s:val) 532endfunc 533 534" Test for command-line completion of expressions 535func Test_expr_completion() 536 if !has('cmdline_compl') 537 return 538 endif 539 for cmd in [ 540 \ 'let a = ', 541 \ 'const a = ', 542 \ 'if', 543 \ 'elseif', 544 \ 'while', 545 \ 'for', 546 \ 'echo', 547 \ 'echon', 548 \ 'execute', 549 \ 'echomsg', 550 \ 'echoerr', 551 \ 'call', 552 \ 'return', 553 \ 'cexpr', 554 \ 'caddexpr', 555 \ 'cgetexpr', 556 \ 'lexpr', 557 \ 'laddexpr', 558 \ 'lgetexpr'] 559 call feedkeys(":" . cmd . " getl\<Tab>\<Home>\"\<CR>", 'xt') 560 call assert_equal('"' . cmd . ' getline(', getreg(':')) 561 endfor 562 563 " completion for the expression register 564 call feedkeys(":\"\<C-R>=float2\t\"\<C-B>\"\<CR>", 'xt') 565 call assert_equal('"float2nr("', @=) 566 567 " completion for window local variables 568 let w:wvar1 = 10 569 let w:wvar2 = 10 570 call feedkeys(":echo w:wvar\<C-A>\<C-B>\"\<CR>", 'xt') 571 call assert_equal('"echo w:wvar1 w:wvar2', @:) 572 unlet w:wvar1 w:wvar2 573 574 " completion for tab local variables 575 let t:tvar1 = 10 576 let t:tvar2 = 10 577 call feedkeys(":echo t:tvar\<C-A>\<C-B>\"\<CR>", 'xt') 578 call assert_equal('"echo t:tvar1 t:tvar2', @:) 579 unlet t:tvar1 t:tvar2 580 581 " completion for variables 582 let g:tvar1 = 1 583 let g:tvar2 = 2 584 call feedkeys(":let g:tv\<C-A>\<C-B>\"\<CR>", 'xt') 585 call assert_equal('"let g:tvar1 g:tvar2', @:) 586 " completion for variables after a || 587 call feedkeys(":echo 1 || g:tv\<C-A>\<C-B>\"\<CR>", 'xt') 588 call assert_equal('"echo 1 || g:tvar1 g:tvar2', @:) 589 590 " completion for options 591 call feedkeys(":echo &compat\<C-A>\<C-B>\"\<CR>", 'xt') 592 call assert_equal('"echo &compatible', @:) 593 call feedkeys(":echo 1 && &compat\<C-A>\<C-B>\"\<CR>", 'xt') 594 call assert_equal('"echo 1 && &compatible', @:) 595 call feedkeys(":echo &g:equala\<C-A>\<C-B>\"\<CR>", 'xt') 596 call assert_equal('"echo &g:equalalways', @:) 597 598 " completion for string 599 call feedkeys(":echo \"Hello\\ World\"\<C-A>\<C-B>\"\<CR>", 'xt') 600 call assert_equal("\"echo \"Hello\\ World\"\<C-A>", @:) 601 call feedkeys(":echo 'Hello World'\<C-A>\<C-B>\"\<CR>", 'xt') 602 call assert_equal("\"echo 'Hello World'\<C-A>", @:) 603 604 " completion for command after a | 605 call feedkeys(":echo 'Hello' | cwin\<C-A>\<C-B>\"\<CR>", 'xt') 606 call assert_equal("\"echo 'Hello' | cwindow", @:) 607 608 " completion for environment variable 609 let $X_VIM_TEST_COMPLETE_ENV = 'foo' 610 call feedkeys(":let $X_VIM_TEST_COMPLETE_E\<C-A>\<C-B>\"\<CR>", 'tx') 611 call assert_match('"let $X_VIM_TEST_COMPLETE_ENV', @:) 612 unlet $X_VIM_TEST_COMPLETE_ENV 613endfunc 614 615" Test for errors in expression evaluation 616func Test_expr_eval_error() 617 call assert_fails("let i = 'abc' . []", 'E730:') 618 call assert_fails("let l = [] + 10", 'E745:') 619 call assert_fails("let v = 10 + []", 'E745:') 620 call assert_fails("let v = 10 / []", 'E745:') 621 call assert_fails("let v = -{}", 'E728:') 622endfunc 623 624func Test_white_in_function_call() 625 let text = substitute ( 'some text' , 't' , 'T' , 'g' ) 626 call assert_equal('some TexT', text) 627endfunc 628 629" Test for float value comparison 630func Test_float_compare() 631 CheckFeature float 632 call assert_true(1.2 == 1.2) 633 call assert_true(1.0 != 1.2) 634 call assert_true(1.2 > 1.0) 635 call assert_true(1.2 >= 1.2) 636 call assert_true(1.0 < 1.2) 637 call assert_true(1.2 <= 1.2) 638 call assert_true(+0.0 == -0.0) 639 " two NaNs (not a number) are not equal 640 call assert_true(sqrt(-4.01) != (0.0 / 0.0)) 641 " two inf (infinity) are equal 642 call assert_true((1.0 / 0) == (2.0 / 0)) 643 " two -inf (infinity) are equal 644 call assert_true(-(1.0 / 0) == -(2.0 / 0)) 645 " +infinity != -infinity 646 call assert_true((1.0 / 0) != -(2.0 / 0)) 647endfunc 648 649" vim: shiftwidth=2 sts=2 expandtab 650