3 BEGIN { @INC = '../lib' }
17 @args = split(/:/,$_,99);
19 $try = "$f('" . join("','", @args) . "');";
20 if (($ans1 = eval($try)) eq $ans) {
23 print "not ok $test\n";
24 print "# '$try' expected: '$ans' got: '$ans1'\n";
40 000000 0000000 00000:+0E+0
47 123456789:+123456789E+0
51 -123456789:-123456789E+0
72 +123456789:-123456789E+0
73 -123456789:+123456789E+0
74 +123.456789:-123456789E-6
75 -123456.789:+123456789E-3
81 +123456789:+123456789E+0
82 -123456789:+123456789E+0
83 +123.456789:+123456789E-6
84 -123456.789:+123456789E-3
86 $bigfloat::rnd_mode = 'trunc'
87 +10123456789:5:+10123E+6
88 -10123456789:5:-10123E+6
89 +10123456789:9:+101234567E+2
90 -10123456789:9:-101234567E+2
91 +101234500:6:+101234E+3
92 -101234500:6:-101234E+3
93 $bigfloat::rnd_mode = 'zero'
94 +20123456789:5:+20123E+6
95 -20123456789:5:-20123E+6
96 +20123456789:9:+201234568E+2
97 -20123456789:9:-201234568E+2
98 +201234500:6:+201234E+3
99 -201234500:6:-201234E+3
100 $bigfloat::rnd_mode = '+inf'
101 +30123456789:5:+30123E+6
102 -30123456789:5:-30123E+6
103 +30123456789:9:+301234568E+2
104 -30123456789:9:-301234568E+2
105 +301234500:6:+301235E+3
106 -301234500:6:-301234E+3
107 $bigfloat::rnd_mode = '-inf'
108 +40123456789:5:+40123E+6
109 -40123456789:5:-40123E+6
110 +40123456789:9:+401234568E+2
111 -40123456789:9:-401234568E+2
112 +401234500:6:+401234E+3
113 -401234500:6:-401235E+3
114 $bigfloat::rnd_mode = 'odd'
115 +50123456789:5:+50123E+6
116 -50123456789:5:-50123E+6
117 +50123456789:9:+501234568E+2
118 -50123456789:9:-501234568E+2
119 +501234500:6:+501235E+3
120 -501234500:6:-501235E+3
121 $bigfloat::rnd_mode = 'even'
122 +60123456789:5:+60123E+6
123 -60123456789:5:-60123E+6
124 +60123456789:9:+601234568E+2
125 -60123456789:9:-601234568E+2
126 +601234500:6:+601234E+3
127 -601234500:6:-601234E+3
129 $bigfloat::rnd_mode = 'trunc'
140 $bigfloat::rnd_mode = 'zero'
154 $bigfloat::rnd_mode = '+inf'
168 $bigfloat::rnd_mode = '-inf'
182 $bigfloat::rnd_mode = 'odd'
196 $bigfloat::rnd_mode = 'even'
255 +9999999999:+1:+1E+10
256 +99999999999:+1:+1E+11
262 +1000000:-1:+999999E+0
263 +10000000:-1:+9999999E+0
264 +100000000:-1:+99999999E+0
265 +1000000000:-1:+999999999E+0
266 +10000000000:-1:+9999999999E+0
267 +123456789:+987654321:+111111111E+1
268 -123456789:+987654321:+864197532E+0
269 -123456789:-987654321:-111111111E+1
270 +123456789:-987654321:-864197532E+0
289 +999999:+1:+999998E+0
290 +9999999:+1:+9999998E+0
291 +99999999:+1:+99999998E+0
292 +999999999:+1:+999999998E+0
293 +9999999999:+1:+9999999998E+0
294 +99999999999:+1:+99999999998E+0
299 +100000:-1:+100001E+0
300 +1000000:-1:+1000001E+0
301 +10000000:-1:+10000001E+0
302 +100000000:-1:+100000001E+0
303 +1000000000:-1:+1000000001E+0
304 +10000000000:-1:+10000000001E+0
305 +123456789:+987654321:-864197532E+0
306 -123456789:+987654321:-111111111E+1
307 -123456789:-987654321:+864197532E+0
308 +123456789:-987654321:+111111111E+1
318 +123456789123456789:+0:+0E+0
319 +0:+123456789123456789:+0E+0
329 +10101:+10101:+102030201E+0
330 +1001001:+1001001:+1002003002001E+0
331 +100010001:+100010001:+10002000300020001E+0
332 +10000100001:+10000100001:+100002000030000200001E+0
333 +11111111111:+9:+99999999999E+0
334 +22222222222:+9:+199999999998E+0
335 +33333333333:+9:+299999999997E+0
336 +44444444444:+9:+399999999996E+0
337 +55555555555:+9:+499999999995E+0
338 +66666666666:+9:+599999999994E+0
339 +77777777777:+9:+699999999993E+0
340 +88888888888:+9:+799999999992E+0
341 +99999999999:+9:+899999999991E+0
362 +999999999999:+9:+111111111111E+0
363 +999999999999:+99:+10101010101E+0
364 +999999999999:+999:+1001001001E+0
365 +999999999999:+9999:+100010001E+0
366 +999999999999999:+99999:+10000100001E+0
367 +1000000000:+9:+1111111111111111111111111111111111111111E-31
368 +2000000000:+9:+2222222222222222222222222222222222222222E-31
369 +3000000000:+9:+3333333333333333333333333333333333333333E-31
370 +4000000000:+9:+4444444444444444444444444444444444444444E-31
371 +5000000000:+9:+5555555555555555555555555555555555555556E-31
372 +6000000000:+9:+6666666666666666666666666666666666666667E-31
373 +7000000000:+9:+7777777777777777777777777777777777777778E-31
374 +8000000000:+9:+8888888888888888888888888888888888888889E-31
376 +35500000:+113:+3141592920353982300884955752212389380531E-34
377 +71000000:+226:+3141592920353982300884955752212389380531E-34
378 +106500000:+339:+3141592920353982300884955752212389380531E-34
379 +1000000000:+3:+3333333333333333333333333333333333333333E-31
380 $bigfloat::div_scale = 20
381 +1000000000:+9:+11111111111111111111E-11
382 +2000000000:+9:+22222222222222222222E-11
383 +3000000000:+9:+33333333333333333333E-11
384 +4000000000:+9:+44444444444444444444E-11
385 +5000000000:+9:+55555555555555555556E-11
386 +6000000000:+9:+66666666666666666667E-11
387 +7000000000:+9:+77777777777777777778E-11
388 +8000000000:+9:+88888888888888888889E-11
390 +35500000:+113:+314159292035398230088E-15
391 +71000000:+226:+314159292035398230088E-15
392 +106500000:+339:+31415929203539823009E-14
393 +1000000000:+3:+33333333333333333333E-11
394 $bigfloat::div_scale = 40
403 +2:+141421356237309504880168872420969807857E-38
407 +123.456:+1111107555549866648462149404118219234119E-38
408 +15241.383936:+123456E-3