1" test float functions 2 3source check.vim 4CheckFeature float 5source vim9.vim 6 7func Test_abs() 8 call assert_equal('1.23', string(abs(1.23))) 9 call assert_equal('1.23', string(abs(-1.23))) 10 eval -1.23->abs()->string()->assert_equal('1.23') 11 12 call assert_equal('0.0', string(abs(0.0))) 13 call assert_equal('0.0', string(abs(1.0/(1.0/0.0)))) 14 call assert_equal('0.0', string(abs(-1.0/(1.0/0.0)))) 15 call assert_equal('inf', string(abs(1.0/0.0))) 16 call assert_equal('inf', string(abs(-1.0/0.0))) 17 call assert_equal('nan', string(abs(0.0/0.0))) 18 call assert_equal('12', string(abs('12abc'))) 19 call assert_equal('12', string(abs('-12abc'))) 20 call assert_fails("call abs([])", 'E745:') 21 call assert_fails("call abs({})", 'E728:') 22 call assert_fails("call abs(function('string'))", 'E703:') 23endfunc 24 25func Test_sqrt() 26 call assert_equal('0.0', string(sqrt(0.0))) 27 call assert_equal('1.414214', string(sqrt(2.0))) 28 eval 2.0->sqrt()->string()->assert_equal('1.414214') 29 call assert_equal('inf', string(sqrt(1.0/0.0))) 30 call assert_equal('nan', string(sqrt(-1.0))) 31 call assert_equal('nan', string(sqrt(0.0/0.0))) 32 call assert_fails('call sqrt("")', 'E808:') 33endfunc 34 35func Test_log() 36 call assert_equal('0.0', string(log(1.0))) 37 call assert_equal('-0.693147', string(log(0.5))) 38 eval 0.5->log()->string()->assert_equal('-0.693147') 39 call assert_equal('-inf', string(log(0.0))) 40 call assert_equal('nan', string(log(-1.0))) 41 call assert_equal('inf', string(log(1.0/0.0))) 42 call assert_equal('nan', string(log(0.0/0.0))) 43 call assert_fails('call log("")', 'E808:') 44endfunc 45 46func Test_log10() 47 call assert_equal('0.0', string(log10(1.0))) 48 call assert_equal('2.0', string(log10(100.0))) 49 call assert_equal('2.079181', string(log10(120.0))) 50 eval 120.0->log10()->string()->assert_equal('2.079181') 51 call assert_equal('-inf', string(log10(0.0))) 52 call assert_equal('nan', string(log10(-1.0))) 53 call assert_equal('inf', string(log10(1.0/0.0))) 54 call assert_equal('nan', string(log10(0.0/0.0))) 55 call assert_fails('call log10("")', 'E808:') 56endfunc 57 58func Test_exp() 59 call assert_equal('1.0', string(exp(0.0))) 60 call assert_equal('7.389056', string(exp(2.0))) 61 call assert_equal('0.367879', string(exp(-1.0))) 62 eval -1.0->exp()->string()->assert_equal('0.367879') 63 call assert_equal('inf', string(exp(1.0/0.0))) 64 call assert_equal('0.0', string(exp(-1.0/0.0))) 65 call assert_equal('nan', string(exp(0.0/0.0))) 66 call assert_fails('call exp("")', 'E808:') 67endfunc 68 69func Test_sin() 70 call assert_equal('0.0', string(sin(0.0))) 71 call assert_equal('0.841471', string(sin(1.0))) 72 call assert_equal('-0.479426', string(sin(-0.5))) 73 eval -0.5->sin()->string()->assert_equal('-0.479426') 74 call assert_equal('nan', string(sin(0.0/0.0))) 75 call assert_equal('nan', string(sin(1.0/0.0))) 76 call assert_equal('0.0', string(sin(1.0/(1.0/0.0)))) 77 call assert_equal('-0.0', string(sin(-1.0/(1.0/0.0)))) 78 call assert_fails('call sin("")', 'E808:') 79endfunc 80 81func Test_asin() 82 call assert_equal('0.0', string(asin(0.0))) 83 call assert_equal('1.570796', string(asin(1.0))) 84 eval 1.0->asin()->string()->assert_equal('1.570796') 85 86 call assert_equal('-0.523599', string(asin(-0.5))) 87 call assert_equal('nan', string(asin(1.1))) 88 call assert_equal('nan', string(asin(1.0/0.0))) 89 call assert_equal('nan', string(asin(0.0/0.0))) 90 call assert_fails('call asin("")', 'E808:') 91endfunc 92 93func Test_sinh() 94 call assert_equal('0.0', string(sinh(0.0))) 95 call assert_equal('0.521095', string(sinh(0.5))) 96 call assert_equal('-1.026517', string(sinh(-0.9))) 97 eval -0.9->sinh()->string()->assert_equal('-1.026517') 98 call assert_equal('inf', string(sinh(1.0/0.0))) 99 call assert_equal('-inf', string(sinh(-1.0/0.0))) 100 call assert_equal('nan', string(sinh(0.0/0.0))) 101 call assert_fails('call sinh("")', 'E808:') 102endfunc 103 104func Test_cos() 105 call assert_equal('1.0', string(cos(0.0))) 106 call assert_equal('0.540302', string(cos(1.0))) 107 call assert_equal('0.877583', string(cos(-0.5))) 108 eval -0.5->cos()->string()->assert_equal('0.877583') 109 call assert_equal('nan', string(cos(0.0/0.0))) 110 call assert_equal('nan', string(cos(1.0/0.0))) 111 call assert_fails('call cos("")', 'E808:') 112endfunc 113 114func Test_acos() 115 call assert_equal('1.570796', string(acos(0.0))) 116 call assert_equal('0.0', string(acos(1.0))) 117 call assert_equal('3.141593', string(acos(-1.0))) 118 eval -1.0->acos()->string()->assert_equal('3.141593') 119 call assert_equal('2.094395', string(acos(-0.5))) 120 call assert_equal('nan', string(acos(1.1))) 121 call assert_equal('nan', string(acos(1.0/0.0))) 122 call assert_equal('nan', string(acos(0.0/0.0))) 123 call assert_fails('call acos("")', 'E808:') 124endfunc 125 126func Test_cosh() 127 call assert_equal('1.0', string(cosh(0.0))) 128 call assert_equal('1.127626', string(cosh(0.5))) 129 eval 0.5->cosh()->string()->assert_equal('1.127626') 130 call assert_equal('inf', string(cosh(1.0/0.0))) 131 call assert_equal('inf', string(cosh(-1.0/0.0))) 132 call assert_equal('nan', string(cosh(0.0/0.0))) 133 call assert_fails('call cosh("")', 'E808:') 134endfunc 135 136func Test_tan() 137 call assert_equal('0.0', string(tan(0.0))) 138 call assert_equal('0.546302', string(tan(0.5))) 139 call assert_equal('-0.546302', string(tan(-0.5))) 140 eval -0.5->tan()->string()->assert_equal('-0.546302') 141 call assert_equal('nan', string(tan(1.0/0.0))) 142 call assert_equal('nan', string(cos(0.0/0.0))) 143 call assert_equal('0.0', string(tan(1.0/(1.0/0.0)))) 144 call assert_equal('-0.0', string(tan(-1.0/(1.0/0.0)))) 145 call assert_fails('call tan("")', 'E808:') 146endfunc 147 148func Test_atan() 149 call assert_equal('0.0', string(atan(0.0))) 150 call assert_equal('0.463648', string(atan(0.5))) 151 call assert_equal('-0.785398', string(atan(-1.0))) 152 eval -1.0->atan()->string()->assert_equal('-0.785398') 153 call assert_equal('1.570796', string(atan(1.0/0.0))) 154 call assert_equal('-1.570796', string(atan(-1.0/0.0))) 155 call assert_equal('nan', string(atan(0.0/0.0))) 156 call assert_fails('call atan("")', 'E808:') 157endfunc 158 159func Test_atan2() 160 call assert_equal('-2.356194', string(atan2(-1, -1))) 161 call assert_equal('2.356194', string(atan2(1, -1))) 162 call assert_equal('0.0', string(atan2(1.0, 1.0/0.0))) 163 eval 1.0->atan2(1.0/0.0)->string()->assert_equal('0.0') 164 call assert_equal('1.570796', string(atan2(1.0/0.0, 1.0))) 165 call assert_equal('nan', string(atan2(0.0/0.0, 1.0))) 166 call assert_fails('call atan2("", -1)', 'E808:') 167 call assert_fails('call atan2(-1, "")', 'E808:') 168endfunc 169 170func Test_tanh() 171 call assert_equal('0.0', string(tanh(0.0))) 172 call assert_equal('0.462117', string(tanh(0.5))) 173 call assert_equal('-0.761594', string(tanh(-1.0))) 174 eval -1.0->tanh()->string()->assert_equal('-0.761594') 175 call assert_equal('1.0', string(tanh(1.0/0.0))) 176 call assert_equal('-1.0', string(tanh(-1.0/0.0))) 177 call assert_equal('nan', string(tanh(0.0/0.0))) 178 call assert_fails('call tanh("")', 'E808:') 179endfunc 180 181func Test_fmod() 182 call assert_equal('0.13', string(fmod(12.33, 1.22))) 183 call assert_equal('-0.13', string(fmod(-12.33, 1.22))) 184 call assert_equal('nan', string(fmod(1.0/0.0, 1.0))) 185 eval (1.0/0.0)->fmod(1.0)->string()->assert_equal('nan') 186 " On Windows we get "nan" instead of 1.0, accept both. 187 let res = string(fmod(1.0, 1.0/0.0)) 188 if res != 'nan' 189 call assert_equal('1.0', res) 190 endif 191 call assert_equal('nan', string(fmod(1.0, 0.0))) 192 call assert_fails("call fmod('', 1.22)", 'E808:') 193 call assert_fails("call fmod(12.33, '')", 'E808:') 194endfunc 195 196func Test_pow() 197 call assert_equal('1.0', string(pow(0.0, 0.0))) 198 call assert_equal('8.0', string(pow(2.0, 3.0))) 199 eval 2.0->pow(3.0)->string()->assert_equal('8.0') 200 call assert_equal('nan', string(pow(2.0, 0.0/0.0))) 201 call assert_equal('nan', string(pow(0.0/0.0, 3.0))) 202 call assert_equal('nan', string(pow(0.0/0.0, 3.0))) 203 call assert_equal('inf', string(pow(2.0, 1.0/0.0))) 204 call assert_equal('inf', string(pow(1.0/0.0, 3.0))) 205 call assert_fails("call pow('', 2.0)", 'E808:') 206 call assert_fails("call pow(2.0, '')", 'E808:') 207endfunc 208 209func Test_str2float() 210 call assert_equal('1.0', string(str2float('1'))) 211 call assert_equal('1.0', string(str2float(' 1 '))) 212 call assert_equal('1.0', string(str2float(' 1.0 '))) 213 call assert_equal('1.23', string(str2float('1.23'))) 214 call assert_equal('1.23', string(str2float('1.23abc'))) 215 eval '1.23abc'->str2float()->string()->assert_equal('1.23') 216 call assert_equal('1.0e40', string(str2float('1e40'))) 217 call assert_equal('-1.23', string(str2float('-1.23'))) 218 call assert_equal('1.23', string(str2float(' + 1.23 '))) 219 220 call assert_equal('1.0', string(str2float('+1'))) 221 call assert_equal('1.0', string(str2float('+1'))) 222 call assert_equal('1.0', string(str2float(' +1 '))) 223 call assert_equal('1.0', string(str2float(' + 1 '))) 224 225 call assert_equal('-1.0', string(str2float('-1'))) 226 call assert_equal('-1.0', string(str2float('-1'))) 227 call assert_equal('-1.0', string(str2float(' -1 '))) 228 call assert_equal('-1.0', string(str2float(' - 1 '))) 229 230 call assert_equal('0.0', string(str2float('+0.0'))) 231 call assert_equal('-0.0', string(str2float('-0.0'))) 232 call assert_equal('inf', string(str2float('1e1000'))) 233 call assert_equal('inf', string(str2float('inf'))) 234 call assert_equal('-inf', string(str2float('-inf'))) 235 call assert_equal('inf', string(str2float('+inf'))) 236 call assert_equal('inf', string(str2float('Inf'))) 237 call assert_equal('inf', string(str2float(' +inf '))) 238 call assert_equal('nan', string(str2float('nan'))) 239 call assert_equal('nan', string(str2float('NaN'))) 240 call assert_equal('nan', string(str2float(' nan '))) 241 242 call assert_equal('123456.789', string(str2float("123'456.789", 1))) 243 call assert_equal('123456.789', string(str2float("12'34'56.789", 1))) 244 call assert_equal('123456.789', string(str2float("1'2'3'4'5'6.789", 1))) 245 call assert_equal('1.0', string(str2float("1''2.3", 1))) 246 call assert_equal('123456.7', string(str2float("123'456.7'89", 1))) 247 248 call assert_equal(1.2, str2float(1.2, 0)) 249 call CheckDefAndScriptFailure2(['str2float(1.2)'], 'E1013: Argument 1: type mismatch, expected string but got float', 'E1174: String required for argument 1') 250 call assert_fails("call str2float([])", 'E730:') 251 call assert_fails("call str2float({})", 'E731:') 252 call assert_fails("call str2float(function('string'))", 'E729:') 253endfunc 254 255def Test_float_quotes() 256 call assert_equal('123456.789', string(123'456.789)) 257 call assert_equal('123456.789', string(12'34'56.789)) 258 call assert_equal('123456.789', string(1'2'3'4'5'6.789)) 259 260 call assert_fails("echo string(1''2.3)", 'E116:') 261 call assert_fails("echo string(123'456.7'89)", 'E116:') 262enddef 263 264func Test_float_quotes_from_legacy() 265 call assert_equal("\n123456.789", execute("vim9 echo 12'34'56.789")) 266endfunc 267 268func Test_float2nr() 269 call assert_equal(1, float2nr(1.234)) 270 call assert_equal(123, float2nr(1.234e2)) 271 call assert_equal(12, float2nr(123.4e-1)) 272 eval 123.4e-1->float2nr()->assert_equal(12) 273 let max_number = 1/0 274 let min_number = -max_number 275 call assert_equal(max_number/2+1, float2nr(pow(2, 62))) 276 call assert_equal(max_number, float2nr(pow(2, 63))) 277 call assert_equal(max_number, float2nr(pow(2, 64))) 278 call assert_equal(min_number/2-1, float2nr(-pow(2, 62))) 279 call assert_equal(min_number, float2nr(-pow(2, 63))) 280 call assert_equal(min_number, float2nr(-pow(2, 64))) 281endfunc 282 283func Test_floor() 284 call assert_equal('2.0', string(floor(2.0))) 285 call assert_equal('2.0', string(floor(2.11))) 286 call assert_equal('2.0', string(floor(2.99))) 287 eval 2.99->floor()->string()->assert_equal('2.0') 288 call assert_equal('-3.0', string(floor(-2.11))) 289 call assert_equal('-3.0', string(floor(-2.99))) 290 call assert_equal('nan', string(floor(0.0/0.0))) 291 call assert_equal('inf', string(floor(1.0/0.0))) 292 call assert_equal('-inf', string(floor(-1.0/0.0))) 293 call assert_fails("call floor('')", 'E808:') 294endfunc 295 296func Test_ceil() 297 call assert_equal('2.0', string(ceil(2.0))) 298 call assert_equal('3.0', string(ceil(2.11))) 299 call assert_equal('3.0', string(ceil(2.99))) 300 call assert_equal('-2.0', string(ceil(-2.11))) 301 eval -2.11->ceil()->string()->assert_equal('-2.0') 302 call assert_equal('-2.0', string(ceil(-2.99))) 303 call assert_equal('nan', string(ceil(0.0/0.0))) 304 call assert_equal('inf', string(ceil(1.0/0.0))) 305 call assert_equal('-inf', string(ceil(-1.0/0.0))) 306 call assert_fails("call ceil('')", 'E808:') 307endfunc 308 309func Test_round() 310 call assert_equal('2.0', string(round(2.1))) 311 call assert_equal('3.0', string(round(2.5))) 312 call assert_equal('3.0', string(round(2.9))) 313 eval 2.9->round()->string()->assert_equal('3.0') 314 call assert_equal('-2.0', string(round(-2.1))) 315 call assert_equal('-3.0', string(round(-2.5))) 316 call assert_equal('-3.0', string(round(-2.9))) 317 call assert_equal('nan', string(round(0.0/0.0))) 318 call assert_equal('inf', string(round(1.0/0.0))) 319 call assert_equal('-inf', string(round(-1.0/0.0))) 320 call assert_fails("call round('')", 'E808:') 321endfunc 322 323func Test_trunc() 324 call assert_equal('2.0', string(trunc(2.1))) 325 call assert_equal('2.0', string(trunc(2.5))) 326 call assert_equal('2.0', string(trunc(2.9))) 327 eval 2.9->trunc()->string()->assert_equal('2.0') 328 call assert_equal('-2.0', string(trunc(-2.1))) 329 call assert_equal('-2.0', string(trunc(-2.5))) 330 call assert_equal('-2.0', string(trunc(-2.9))) 331 call assert_equal('nan', string(trunc(0.0/0.0))) 332 call assert_equal('inf', string(trunc(1.0/0.0))) 333 call assert_equal('-inf', string(trunc(-1.0/0.0))) 334 call assert_fails("call trunc('')", 'E808:') 335endfunc 336 337func Test_isinf() 338 call assert_equal(1, isinf(1.0/0.0)) 339 call assert_equal(-1, isinf(-1.0/0.0)) 340 eval (-1.0/0.0)->isinf()->assert_equal(-1) 341 call assert_false(isinf(1.0)) 342 call assert_false(isinf(0.0/0.0)) 343 call assert_false(isinf('a')) 344 call assert_false(isinf([])) 345 call assert_false(isinf({})) 346endfunc 347 348func Test_isnan() 349 call assert_true(isnan(0.0/0.0)) 350 call assert_false(isnan(1.0)) 351 call assert_false(isnan(1.0/0.0)) 352 eval (1.0/0.0)->isnan()->assert_false() 353 call assert_false(isnan(-1.0/0.0)) 354 call assert_false(isnan('a')) 355 call assert_false(isnan([])) 356 call assert_false(isnan({})) 357endfunc 358 359" This was converted from test65 360func Test_float_misc() 361 call assert_equal('123.456000', printf('%f', 123.456)) 362 call assert_equal('1.234560e+02', printf('%e', 123.456)) 363 call assert_equal('123.456', printf('%g', 123.456)) 364 " += 365 let v = 1.234 366 let v += 6.543 367 call assert_equal('7.777', printf('%g', v)) 368 let v = 1.234 369 let v += 5 370 call assert_equal('6.234', printf('%g', v)) 371 let v = 5 372 let v += 3.333 373 call assert_equal('8.333', string(v)) 374 " == 375 let v = 1.234 376 call assert_true(v == 1.234) 377 call assert_false(v == 1.2341) 378 " add-subtract 379 call assert_equal('5.234', printf('%g', 4 + 1.234)) 380 call assert_equal('-6.766', printf('%g', 1.234 - 8)) 381 " mult-div 382 call assert_equal('4.936', printf('%g', 4 * 1.234)) 383 call assert_equal('0.003241', printf('%g', 4.0 / 1234)) 384 " dict 385 call assert_equal("{'x': 1.234, 'y': -2.0e20}", string({'x': 1.234, 'y': -2.0e20})) 386 " list 387 call assert_equal('[-123.4, 2.0e-20]', string([-123.4, 2.0e-20])) 388endfunc 389 390" vim: shiftwidth=2 sts=2 expandtab 391