projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
cwd.t (was: Cwd has no tests?)
[p5sagit/p5-mst-13.2.git] / t / lib / bigfltpm.t
CommitLineData
5d7098d5 1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6}
7
8use Math::BigFloat;
9
10$test = 0;
11$| = 1;
f216259d 12print "1..406\n";
5d7098d5 13while (<DATA>) {
14 chop;
15 if (s/^&//) {
16 $f = $_;
17 } elsif (/^\$.*/) {
18 eval "$_;";
19 } else {
20 ++$test;
89e56082 21 if (m|^(.*?):(/.+)$|) {
22 $ans = $2;
23 @args = split(/:/,$1,99);
24 }
25 else {
26 @args = split(/:/,$_,99);
27 $ans = pop(@args);
28 }
5d7098d5 29 $try = "\$x = new Math::BigFloat \"$args[0]\";";
30 if ($f eq "fnorm"){
31 $try .= "\$x+0;";
32 } elsif ($f eq "fneg") {
33 $try .= "-\$x;";
34 } elsif ($f eq "fabs") {
35 $try .= "abs \$x;";
f216259d 36 } elsif ($f eq "fint") {
37 $try .= "int \$x;";
5d7098d5 38 } elsif ($f eq "fround") {
39 $try .= "0+\$x->fround($args[1]);";
40 } elsif ($f eq "ffround") {
41 $try .= "0+\$x->ffround($args[1]);";
42 } elsif ($f eq "fsqrt") {
43 $try .= "0+\$x->fsqrt;";
44 } else {
45 $try .= "\$y = new Math::BigFloat \"$args[1]\";";
5dce09b1 46 if ($f eq "fcmp") {
5d7098d5 47 $try .= "\$x <=> \$y;";
5dce09b1 48 } elsif ($f eq "fadd") {
5d7098d5 49 $try .= "\$x + \$y;";
5dce09b1 50 } elsif ($f eq "fsub") {
5d7098d5 51 $try .= "\$x - \$y;";
5dce09b1 52 } elsif ($f eq "fmul") {
5d7098d5 53 $try .= "\$x * \$y;";
5dce09b1 54 } elsif ($f eq "fdiv") {
5d7098d5 55 $try .= "\$x / \$y;";
56 } else { warn "Unknown op"; }
57 }
58 #print ">>>",$try,"<<<\n";
59 $ans1 = eval $try;
181ea953 60 if ($ans =~ m|^/(.*)$|) {
61 my $pat = $1;
62 if ($ans1 =~ /$pat/) {
63 print "ok $test\n";
64 }
65 else {
66 print "not ok $test\n";
67 print "# '$try' expected: /$pat/ got: '$ans1'\n";
68 }
69 }
70 elsif ("$ans1" eq $ans) { #bug!
5d7098d5 71 print "ok $test\n";
72 } else {
73 print "not ok $test\n";
74 print "# '$try' expected: '$ans' got: '$ans1'\n";
75 }
76 }
77}
f216259d 78
79{
80 use Math::BigFloat ':constant';
81
82 $test++;
83 # print "# " . 2. * '1427247692705959881058285969449495136382746624' . "\n";
84 print "not "
85 unless 2. * '1427247692705959881058285969449495136382746624'
86 == "2854495385411919762116571938898990272765493248.";
87 print "ok $test\n";
88 $test++;
89 @a = ();
90 for ($i = 1.; $i < 10; $i++) {
91 push @a, $i;
92 }
93 print "not " unless "@a" eq "1. 2. 3. 4. 5. 6. 7. 8. 9.";
94 print "ok $test\n";
95}
96
5d7098d5 97__END__
98&fnorm
6e41db28 99abc:NaN.
100 1 a:NaN.
1011bcd2:NaN.
10211111b:NaN.
103+1z:NaN.
104-1z:NaN.
5d7098d5 1050:0.
106+0:0.
107+00:0.
108+0 0 0:0.
109000000 0000000 00000:0.
110-0:0.
111-0000:0.
112+1:1.
113+01:1.
114+001:1.
115+00000100000:100000.
116123456789:123456789.
117-1:-1.
118-01:-1.
119-001:-1.
120-123456789:-123456789.
121-00000100000:-100000.
6e41db28 122123.456a:NaN.
5d7098d5 123123.456:123.456
1240.01:.01
125.002:.002
126-0.0003:-.0003
127-.0000000004:-.0000000004
128123456E2:12345600.
129123456E-2:1234.56
130-123456E2:-12345600.
131-123456E-2:-1234.56
1321e1:10.
1332e-11:.00000000002
134-3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.
135-4e-1111:-.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
136&fneg
6e41db28 137abd:NaN.
5d7098d5 138+0:0.
139+1:-1.
140-1:1.
141+123456789:-123456789.
142-123456789:123456789.
143+123.456789:-123.456789
144-123456.789:123456.789
145&fabs
6e41db28 146abc:NaN.
5d7098d5 147+0:0.
148+1:1.
149-1:1.
150+123456789:123456789.
151-123456789:123456789.
152+123.456789:123.456789
153-123456.789:123456.789
154&fround
155$Math::BigFloat::rnd_mode = 'trunc'
156+10123456789:5:10123000000
157-10123456789:5:-10123000000
158+10123456789:9:10123456700
159-10123456789:9:-10123456700
160+101234500:6:101234000
161-101234500:6:-101234000
162$Math::BigFloat::rnd_mode = 'zero'
163+20123456789:5:20123000000
164-20123456789:5:-20123000000
165+20123456789:9:20123456800
166-20123456789:9:-20123456800
167+201234500:6:201234000
168-201234500:6:-201234000
169$Math::BigFloat::rnd_mode = '+inf'
170+30123456789:5:30123000000
171-30123456789:5:-30123000000
172+30123456789:9:30123456800
173-30123456789:9:-30123456800
174+301234500:6:301235000
175-301234500:6:-301234000
176$Math::BigFloat::rnd_mode = '-inf'
177+40123456789:5:40123000000
178-40123456789:5:-40123000000
179+40123456789:9:40123456800
180-40123456789:9:-40123456800
181+401234500:6:401234000
182-401234500:6:-401235000
183$Math::BigFloat::rnd_mode = 'odd'
184+50123456789:5:50123000000
185-50123456789:5:-50123000000
186+50123456789:9:50123456800
187-50123456789:9:-50123456800
3deb277d 188+501234500:6:501234000
189-501234500:6:-501234000
5d7098d5 190$Math::BigFloat::rnd_mode = 'even'
191+60123456789:5:60123000000
192-60123456789:5:-60123000000
193+60123456789:9:60123456800
194-60123456789:9:-60123456800
3deb277d 195+601234500:6:601235000
196-601234500:6:-601235000
5d7098d5 197&ffround
198$Math::BigFloat::rnd_mode = 'trunc'
199+1.23:-1:1.2
200-1.23:-1:-1.2
201+1.27:-1:1.2
202-1.27:-1:-1.2
203+1.25:-1:1.2
204-1.25:-1:-1.2
205+1.35:-1:1.3
206-1.35:-1:-1.3
207-0.006:-1:0
208-0.006:-2:0
4435c477 209-0.0065:-3:/-0\.006|-6e-03
ae165b0c 210-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
211-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 212$Math::BigFloat::rnd_mode = 'zero'
ae165b0c 213+2.23:-1:/2.2(?:0{5}\d+)?
214-2.23:-1:/-2.2(?:0{5}\d+)?
215+2.27:-1:/2.(?:3|29{5}\d+)
216-2.27:-1:/-2.(?:3|29{5}\d+)
217+2.25:-1:/2.2(?:0{5}\d+)?
218-2.25:-1:/-2.2(?:0{5}\d+)?
219+2.35:-1:/2.(?:3|29{5}\d+)
220-2.35:-1:/-2.(?:3|29{5}\d+)
5d7098d5 221-0.0065:-1:0
4435c477 222-0.0065:-2:/-0\.01|-1e-02
223-0.0065:-3:/-0\.006|-6e-03
ae165b0c 224-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
225-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 226$Math::BigFloat::rnd_mode = '+inf'
ae165b0c 227+3.23:-1:/3.2(?:0{5}\d+)?
228-3.23:-1:/-3.2(?:0{5}\d+)?
229+3.27:-1:/3.(?:3|29{5}\d+)
230-3.27:-1:/-3.(?:3|29{5}\d+)
231+3.25:-1:/3.(?:3|29{5}\d+)
232-3.25:-1:/-3.2(?:0{5}\d+)?
233+3.35:-1:/3.(?:4|39{5}\d+)
234-3.35:-1:/-3.(?:3|29{5}\d+)
5d7098d5 235-0.0065:-1:0
4435c477 236-0.0065:-2:/-0\.01|-1e-02
237-0.0065:-3:/-0\.006|-6e-03
ae165b0c 238-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
239-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 240$Math::BigFloat::rnd_mode = '-inf'
ae165b0c 241+4.23:-1:/4.2(?:0{5}\d+)?
242-4.23:-1:/-4.2(?:0{5}\d+)?
243+4.27:-1:/4.(?:3|29{5}\d+)
244-4.27:-1:/-4.(?:3|29{5}\d+)
245+4.25:-1:/4.2(?:0{5}\d+)?
246-4.25:-1:/-4.(?:3|29{5}\d+)
247+4.35:-1:/4.(?:3|29{5}\d+)
248-4.35:-1:/-4.(?:4|39{5}\d+)
5d7098d5 249-0.0065:-1:0
4435c477 250-0.0065:-2:/-0\.01|-1e-02
251-0.0065:-3:/-0\.007|-7e-03
ae165b0c 252-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
253-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 254$Math::BigFloat::rnd_mode = 'odd'
ae165b0c 255+5.23:-1:/5.2(?:0{5}\d+)?
256-5.23:-1:/-5.2(?:0{5}\d+)?
257+5.27:-1:/5.(?:3|29{5}\d+)
258-5.27:-1:/-5.(?:3|29{5}\d+)
3deb277d 259+5.25:-1:/5.(?:2|29{5}\d+)
260-5.25:-1:/-5.(?:2|29{5}\d+)
261+5.35:-1:/5.(?:4|29{5}\d+)
262-5.35:-1:/-5.(?:4|29{5}\d+)
5d7098d5 263-0.0065:-1:0
4435c477 264-0.0065:-2:/-0\.01|-1e-02
3deb277d 265-0.0065:-3:/-0\.006|-6e-03
ae165b0c 266-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
267-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 268$Math::BigFloat::rnd_mode = 'even'
ae165b0c 269+6.23:-1:/6.2(?:0{5}\d+)?
270-6.23:-1:/-6.2(?:0{5}\d+)?
271+6.27:-1:/6.(?:3|29{5}\d+)
272-6.27:-1:/-6.(?:3|29{5}\d+)
44e147de 273+6.25:-1:/6.(?:3(?:0{5}\d+)?|29{5}\d+)
274-6.25:-1:/-6.(?:3(?:0{5}\d+)?|29{5}\d+)
275+6.35:-1:/6.(?:3|39{5}\d+|29{8}\d+)
276-6.35:-1:/-6.(?:3|39{5}\d+|29{8}\d+)
5d7098d5 277-0.0065:-1:0
4435c477 278-0.0065:-2:/-0\.01|-1e-02
3deb277d 279-0.0065:-3:/-0\.007|-7e-03
ae165b0c 280-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
281-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 282&fcmp
283abc:abc:
284abc:+0:
285+0:abc:
286+0:+0:0
287-1:+0:-1
288+0:-1:1
289+1:+0:1
290+0:+1:-1
291-1:+1:-1
292+1:-1:1
293-1:-1:0
294+1:+1:0
5dce09b1 295-1.1:0:-1
296+0:-1.1:1
297+1.1:+0:1
298+0:+1.1:-1
5d7098d5 299+123:+123:0
300+123:+12:1
301+12:+123:-1
302-123:-123:0
303-123:-12:-1
304-12:-123:1
305+123:+124:-1
306+124:+123:1
307-123:-124:1
308-124:-123:-1
309&fadd
6e41db28 310abc:abc:NaN.
311abc:+0:NaN.
312+0:abc:NaN.
5d7098d5 313+0:+0:0.
314+1:+0:1.
315+0:+1:1.
316+1:+1:2.
317-1:+0:-1.
318+0:-1:-1.
319-1:-1:-2.
320-1:+1:0.
321+1:-1:0.
322+9:+1:10.
323+99:+1:100.
324+999:+1:1000.
325+9999:+1:10000.
326+99999:+1:100000.
327+999999:+1:1000000.
328+9999999:+1:10000000.
329+99999999:+1:100000000.
330+999999999:+1:1000000000.
331+9999999999:+1:10000000000.
332+99999999999:+1:100000000000.
333+10:-1:9.
334+100:-1:99.
335+1000:-1:999.
336+10000:-1:9999.
337+100000:-1:99999.
338+1000000:-1:999999.
339+10000000:-1:9999999.
340+100000000:-1:99999999.
341+1000000000:-1:999999999.
342+10000000000:-1:9999999999.
343+123456789:+987654321:1111111110.
344-123456789:+987654321:864197532.
345-123456789:-987654321:-1111111110.
346+123456789:-987654321:-864197532.
347&fsub
6e41db28 348abc:abc:NaN.
349abc:+0:NaN.
350+0:abc:NaN.
5d7098d5 351+0:+0:0.
352+1:+0:1.
353+0:+1:-1.
354+1:+1:0.
355-1:+0:-1.
356+0:-1:1.
357-1:-1:0.
358-1:+1:-2.
359+1:-1:2.
360+9:+1:8.
361+99:+1:98.
362+999:+1:998.
363+9999:+1:9998.
364+99999:+1:99998.
365+999999:+1:999998.
366+9999999:+1:9999998.
367+99999999:+1:99999998.
368+999999999:+1:999999998.
369+9999999999:+1:9999999998.
370+99999999999:+1:99999999998.
371+10:-1:11.
372+100:-1:101.
373+1000:-1:1001.
374+10000:-1:10001.
375+100000:-1:100001.
376+1000000:-1:1000001.
377+10000000:-1:10000001.
378+100000000:-1:100000001.
379+1000000000:-1:1000000001.
380+10000000000:-1:10000000001.
381+123456789:+987654321:-864197532.
382-123456789:+987654321:-1111111110.
383-123456789:-987654321:864197532.
384+123456789:-987654321:1111111110.
385&fmul
6e41db28 386abc:abc:NaN.
387abc:+0:NaN.
388+0:abc:NaN.
5d7098d5 389+0:+0:0.
390+0:+1:0.
391+1:+0:0.
392+0:-1:0.
393-1:+0:0.
394+123456789123456789:+0:0.
395+0:+123456789123456789:0.
396-1:-1:1.
397-1:+1:-1.
398+1:-1:-1.
399+1:+1:1.
400+2:+3:6.
401-2:+3:-6.
402+2:-3:-6.
403-2:-3:6.
404+111:+111:12321.
405+10101:+10101:102030201.
406+1001001:+1001001:1002003002001.
407+100010001:+100010001:10002000300020001.
408+10000100001:+10000100001:100002000030000200001.
409+11111111111:+9:99999999999.
410+22222222222:+9:199999999998.
411+33333333333:+9:299999999997.
412+44444444444:+9:399999999996.
413+55555555555:+9:499999999995.
414+66666666666:+9:599999999994.
415+77777777777:+9:699999999993.
416+88888888888:+9:799999999992.
417+99999999999:+9:899999999991.
418&fdiv
6e41db28 419abc:abc:NaN.
420abc:+1:abc:NaN.
421+1:abc:NaN.
422+0:+0:NaN.
5d7098d5 423+0:+1:0.
6e41db28 424+1:+0:NaN.
9ec26bd9 425+0:-1:0.
426-1:+0:NaN.
5d7098d5 427+1:+1:1.
428-1:-1:1.
429+1:-1:-1.
430-1:+1:-1.
431+1:+2:.5
432+2:+1:2.
433+10:+5:2.
434+100:+4:25.
435+1000:+8:125.
436+10000:+16:625.
437+10000:-16:-625.
438+999999999999:+9:111111111111.
439+999999999999:+99:10101010101.
440+999999999999:+999:1001001001.
441+999999999999:+9999:100010001.
442+999999999999999:+99999:10000100001.
443+1000000000:+9:111111111.1111111111111111111111111111111
444+2000000000:+9:222222222.2222222222222222222222222222222
445+3000000000:+9:333333333.3333333333333333333333333333333
446+4000000000:+9:444444444.4444444444444444444444444444444
447+5000000000:+9:555555555.5555555555555555555555555555556
448+6000000000:+9:666666666.6666666666666666666666666666667
449+7000000000:+9:777777777.7777777777777777777777777777778
450+8000000000:+9:888888888.8888888888888888888888888888889
451+9000000000:+9:1000000000.
452+35500000:+113:314159.2920353982300884955752212389380531
453+71000000:+226:314159.2920353982300884955752212389380531
454+106500000:+339:314159.2920353982300884955752212389380531
455+1000000000:+3:333333333.3333333333333333333333333333333
456$Math::BigFloat::div_scale = 20
457+1000000000:+9:111111111.11111111111
458+2000000000:+9:222222222.22222222222
459+3000000000:+9:333333333.33333333333
460+4000000000:+9:444444444.44444444444
461+5000000000:+9:555555555.55555555556
462+6000000000:+9:666666666.66666666667
463+7000000000:+9:777777777.77777777778
464+8000000000:+9:888888888.88888888889
465+9000000000:+9:1000000000.
466+35500000:+113:314159.292035398230088
467+71000000:+226:314159.292035398230088
468+106500000:+339:314159.29203539823009
469+1000000000:+3:333333333.33333333333
470$Math::BigFloat::div_scale = 40
471&fsqrt
472+0:0
b8392fa5 473-1:/^(?i:0|\?|-?N\.?aNQ?)$
474-2:/^(?i:0|\?|-?N\.?aNQ?)$
475-16:/^(?i:0|\?|-?N\.?aNQ?)$
476-123.456:/^(?i:0|\?|-?N\.?aNQ?)$
5d7098d5 477+1:1.
478+1.44:1.2
479+2:1.41421356237309504880168872420969807857
480+4:2.
481+16:4.
482+100:10.
483+123.456:11.11107555549866648462149404118219234119
484+15241.383936:123.456
f216259d 485&fint
486+0:+0
487+1:+1
488+11111111111111111234:+11111111111111111234
489-1:-1
490-11111111111111111234:-11111111111111111234
491+0.3:+0
492+1.3:+1
493+23.3:+23
494+12345678901234567890:+12345678901234567890
495+12345678901234567.890:+12345678901234567
496+12345678901234567890E13:+123456789012345678900000000000000
497+12345678901234567.890E13:+123456789012345678900000000000
498+12345678901234567890E-3:+12345678901234567
499+12345678901234567.890E-3:+12345678901234
500+12345678901234567890E-13:+1234567
501+12345678901234567.890E-13:+1234
502+12345678901234567890E-17:+123
503+12345678901234567.890E-16:+1
504+12345678901234567.890E-17:+0
505+12345678901234567890E-19:+1
506+12345678901234567890E-20:+0
507+12345678901234567890E-21:+0
508+12345678901234567890E-225:+0
509-0:+0
510-0.3:+0
511-1.3:-1
512-23.3:-23
513-12345678901234567890:-12345678901234567890
514-12345678901234567.890:-12345678901234567
515-12345678901234567890E13:-123456789012345678900000000000000
516-12345678901234567.890E13:-123456789012345678900000000000
517-12345678901234567890E-3:-12345678901234567
518-12345678901234567.890E-3:-12345678901234
519-12345678901234567890E-13:-1234567
520-12345678901234567.890E-13:-1234
521-12345678901234567890E-17:-123
522-12345678901234567.890E-16:-1
523-12345678901234567.890E-17:+0
524-12345678901234567890E-19:-1
525-12345678901234567890E-20:+0
526-12345678901234567890E-21:+0
527-12345678901234567890E-225:+0
Unnamed repository; edit this file to name it for gitweb.