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