projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Fix-n-skip the tests under 5005threads.
[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;
5dce09b1 12print "1..362\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;";
36 } elsif ($f eq "fround") {
37 $try .= "0+\$x->fround($args[1]);";
38 } elsif ($f eq "ffround") {
39 $try .= "0+\$x->ffround($args[1]);";
40 } elsif ($f eq "fsqrt") {
41 $try .= "0+\$x->fsqrt;";
42 } else {
43 $try .= "\$y = new Math::BigFloat \"$args[1]\";";
5dce09b1 44 if ($f eq "fcmp") {
5d7098d5 45 $try .= "\$x <=> \$y;";
5dce09b1 46 } elsif ($f eq "fadd") {
5d7098d5 47 $try .= "\$x + \$y;";
5dce09b1 48 } elsif ($f eq "fsub") {
5d7098d5 49 $try .= "\$x - \$y;";
5dce09b1 50 } elsif ($f eq "fmul") {
5d7098d5 51 $try .= "\$x * \$y;";
5dce09b1 52 } elsif ($f eq "fdiv") {
5d7098d5 53 $try .= "\$x / \$y;";
54 } else { warn "Unknown op"; }
55 }
56 #print ">>>",$try,"<<<\n";
57 $ans1 = eval $try;
181ea953 58 if ($ans =~ m|^/(.*)$|) {
59 my $pat = $1;
60 if ($ans1 =~ /$pat/) {
61 print "ok $test\n";
62 }
63 else {
64 print "not ok $test\n";
65 print "# '$try' expected: /$pat/ got: '$ans1'\n";
66 }
67 }
68 elsif ("$ans1" eq $ans) { #bug!
5d7098d5 69 print "ok $test\n";
70 } else {
71 print "not ok $test\n";
72 print "# '$try' expected: '$ans' got: '$ans1'\n";
73 }
74 }
75}
76__END__
77&fnorm
6e41db28 78abc:NaN.
79 1 a:NaN.
801bcd2:NaN.
8111111b:NaN.
82+1z:NaN.
83-1z:NaN.
5d7098d5 840:0.
85+0:0.
86+00:0.
87+0 0 0:0.
88000000 0000000 00000:0.
89-0:0.
90-0000:0.
91+1:1.
92+01:1.
93+001:1.
94+00000100000:100000.
95123456789:123456789.
96-1:-1.
97-01:-1.
98-001:-1.
99-123456789:-123456789.
100-00000100000:-100000.
6e41db28 101123.456a:NaN.
5d7098d5 102123.456:123.456
1030.01:.01
104.002:.002
105-0.0003:-.0003
106-.0000000004:-.0000000004
107123456E2:12345600.
108123456E-2:1234.56
109-123456E2:-12345600.
110-123456E-2:-1234.56
1111e1:10.
1122e-11:.00000000002
113-3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.
114-4e-1111:-.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
115&fneg
6e41db28 116abd:NaN.
5d7098d5 117+0:0.
118+1:-1.
119-1:1.
120+123456789:-123456789.
121-123456789:123456789.
122+123.456789:-123.456789
123-123456.789:123456.789
124&fabs
6e41db28 125abc:NaN.
5d7098d5 126+0:0.
127+1:1.
128-1:1.
129+123456789:123456789.
130-123456789:123456789.
131+123.456789:123.456789
132-123456.789:123456.789
133&fround
134$Math::BigFloat::rnd_mode = 'trunc'
135+10123456789:5:10123000000
136-10123456789:5:-10123000000
137+10123456789:9:10123456700
138-10123456789:9:-10123456700
139+101234500:6:101234000
140-101234500:6:-101234000
141$Math::BigFloat::rnd_mode = 'zero'
142+20123456789:5:20123000000
143-20123456789:5:-20123000000
144+20123456789:9:20123456800
145-20123456789:9:-20123456800
146+201234500:6:201234000
147-201234500:6:-201234000
148$Math::BigFloat::rnd_mode = '+inf'
149+30123456789:5:30123000000
150-30123456789:5:-30123000000
151+30123456789:9:30123456800
152-30123456789:9:-30123456800
153+301234500:6:301235000
154-301234500:6:-301234000
155$Math::BigFloat::rnd_mode = '-inf'
156+40123456789:5:40123000000
157-40123456789:5:-40123000000
158+40123456789:9:40123456800
159-40123456789:9:-40123456800
160+401234500:6:401234000
161-401234500:6:-401235000
162$Math::BigFloat::rnd_mode = 'odd'
163+50123456789:5:50123000000
164-50123456789:5:-50123000000
165+50123456789:9:50123456800
166-50123456789:9:-50123456800
167+501234500:6:501235000
168-501234500:6:-501235000
169$Math::BigFloat::rnd_mode = 'even'
170+60123456789:5:60123000000
171-60123456789:5:-60123000000
172+60123456789:9:60123456800
173-60123456789:9:-60123456800
174+601234500:6:601234000
175-601234500:6:-601234000
176&ffround
177$Math::BigFloat::rnd_mode = 'trunc'
178+1.23:-1:1.2
179-1.23:-1:-1.2
180+1.27:-1:1.2
181-1.27:-1:-1.2
182+1.25:-1:1.2
183-1.25:-1:-1.2
184+1.35:-1:1.3
185-1.35:-1:-1.3
186-0.006:-1:0
187-0.006:-2:0
4435c477 188-0.0065:-3:/-0\.006|-6e-03
ae165b0c 189-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
190-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 191$Math::BigFloat::rnd_mode = 'zero'
ae165b0c 192+2.23:-1:/2.2(?:0{5}\d+)?
193-2.23:-1:/-2.2(?:0{5}\d+)?
194+2.27:-1:/2.(?:3|29{5}\d+)
195-2.27:-1:/-2.(?:3|29{5}\d+)
196+2.25:-1:/2.2(?:0{5}\d+)?
197-2.25:-1:/-2.2(?:0{5}\d+)?
198+2.35:-1:/2.(?:3|29{5}\d+)
199-2.35:-1:/-2.(?:3|29{5}\d+)
5d7098d5 200-0.0065:-1:0
4435c477 201-0.0065:-2:/-0\.01|-1e-02
202-0.0065:-3:/-0\.006|-6e-03
ae165b0c 203-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
204-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 205$Math::BigFloat::rnd_mode = '+inf'
ae165b0c 206+3.23:-1:/3.2(?:0{5}\d+)?
207-3.23:-1:/-3.2(?:0{5}\d+)?
208+3.27:-1:/3.(?:3|29{5}\d+)
209-3.27:-1:/-3.(?:3|29{5}\d+)
210+3.25:-1:/3.(?:3|29{5}\d+)
211-3.25:-1:/-3.2(?:0{5}\d+)?
212+3.35:-1:/3.(?:4|39{5}\d+)
213-3.35:-1:/-3.(?:3|29{5}\d+)
5d7098d5 214-0.0065:-1:0
4435c477 215-0.0065:-2:/-0\.01|-1e-02
216-0.0065:-3:/-0\.006|-6e-03
ae165b0c 217-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
218-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 219$Math::BigFloat::rnd_mode = '-inf'
ae165b0c 220+4.23:-1:/4.2(?:0{5}\d+)?
221-4.23:-1:/-4.2(?:0{5}\d+)?
222+4.27:-1:/4.(?:3|29{5}\d+)
223-4.27:-1:/-4.(?:3|29{5}\d+)
224+4.25:-1:/4.2(?:0{5}\d+)?
225-4.25:-1:/-4.(?:3|29{5}\d+)
226+4.35:-1:/4.(?:3|29{5}\d+)
227-4.35:-1:/-4.(?:4|39{5}\d+)
5d7098d5 228-0.0065:-1:0
4435c477 229-0.0065:-2:/-0\.01|-1e-02
230-0.0065:-3:/-0\.007|-7e-03
ae165b0c 231-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
232-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 233$Math::BigFloat::rnd_mode = 'odd'
ae165b0c 234+5.23:-1:/5.2(?:0{5}\d+)?
235-5.23:-1:/-5.2(?:0{5}\d+)?
236+5.27:-1:/5.(?:3|29{5}\d+)
237-5.27:-1:/-5.(?:3|29{5}\d+)
238+5.25:-1:/5.(?:3|29{5}\d+)
239-5.25:-1:/-5.(?:3|29{5}\d+)
240+5.35:-1:/5.(?:3|29{5}\d+)
241-5.35:-1:/-5.(?:3|29{5}\d+)
5d7098d5 242-0.0065:-1:0
4435c477 243-0.0065:-2:/-0\.01|-1e-02
244-0.0065:-3:/-0\.007|-7e-03
ae165b0c 245-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
246-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 247$Math::BigFloat::rnd_mode = 'even'
ae165b0c 248+6.23:-1:/6.2(?:0{5}\d+)?
249-6.23:-1:/-6.2(?:0{5}\d+)?
250+6.27:-1:/6.(?:3|29{5}\d+)
251-6.27:-1:/-6.(?:3|29{5}\d+)
252+6.25:-1:/6.2(?:0{5}\d+)?
253-6.25:-1:/-6.2(?:0{5}\d+)?
254+6.35:-1:/6.(?:4|39{5}\d+)
255-6.35:-1:/-6.(?:4|39{5}\d+)
5d7098d5 256-0.0065:-1:0
4435c477 257-0.0065:-2:/-0\.01|-1e-02
258-0.0065:-3:/-0\.006|-6e-03
ae165b0c 259-0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
260-0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
5d7098d5 261&fcmp
262abc:abc:
263abc:+0:
264+0:abc:
265+0:+0:0
266-1:+0:-1
267+0:-1:1
268+1:+0:1
269+0:+1:-1
270-1:+1:-1
271+1:-1:1
272-1:-1:0
273+1:+1:0
5dce09b1 274-1.1:0:-1
275+0:-1.1:1
276+1.1:+0:1
277+0:+1.1:-1
5d7098d5 278+123:+123:0
279+123:+12:1
280+12:+123:-1
281-123:-123:0
282-123:-12:-1
283-12:-123:1
284+123:+124:-1
285+124:+123:1
286-123:-124:1
287-124:-123:-1
288&fadd
6e41db28 289abc:abc:NaN.
290abc:+0:NaN.
291+0:abc:NaN.
5d7098d5 292+0:+0:0.
293+1:+0:1.
294+0:+1:1.
295+1:+1:2.
296-1:+0:-1.
297+0:-1:-1.
298-1:-1:-2.
299-1:+1:0.
300+1:-1:0.
301+9:+1:10.
302+99:+1:100.
303+999:+1:1000.
304+9999:+1:10000.
305+99999:+1:100000.
306+999999:+1:1000000.
307+9999999:+1:10000000.
308+99999999:+1:100000000.
309+999999999:+1:1000000000.
310+9999999999:+1:10000000000.
311+99999999999:+1:100000000000.
312+10:-1:9.
313+100:-1:99.
314+1000:-1:999.
315+10000:-1:9999.
316+100000:-1:99999.
317+1000000:-1:999999.
318+10000000:-1:9999999.
319+100000000:-1:99999999.
320+1000000000:-1:999999999.
321+10000000000:-1:9999999999.
322+123456789:+987654321:1111111110.
323-123456789:+987654321:864197532.
324-123456789:-987654321:-1111111110.
325+123456789:-987654321:-864197532.
326&fsub
6e41db28 327abc:abc:NaN.
328abc:+0:NaN.
329+0:abc:NaN.
5d7098d5 330+0:+0:0.
331+1:+0:1.
332+0:+1:-1.
333+1:+1:0.
334-1:+0:-1.
335+0:-1:1.
336-1:-1:0.
337-1:+1:-2.
338+1:-1:2.
339+9:+1:8.
340+99:+1:98.
341+999:+1:998.
342+9999:+1:9998.
343+99999:+1:99998.
344+999999:+1:999998.
345+9999999:+1:9999998.
346+99999999:+1:99999998.
347+999999999:+1:999999998.
348+9999999999:+1:9999999998.
349+99999999999:+1:99999999998.
350+10:-1:11.
351+100:-1:101.
352+1000:-1:1001.
353+10000:-1:10001.
354+100000:-1:100001.
355+1000000:-1:1000001.
356+10000000:-1:10000001.
357+100000000:-1:100000001.
358+1000000000:-1:1000000001.
359+10000000000:-1:10000000001.
360+123456789:+987654321:-864197532.
361-123456789:+987654321:-1111111110.
362-123456789:-987654321:864197532.
363+123456789:-987654321:1111111110.
364&fmul
6e41db28 365abc:abc:NaN.
366abc:+0:NaN.
367+0:abc:NaN.
5d7098d5 368+0:+0:0.
369+0:+1:0.
370+1:+0:0.
371+0:-1:0.
372-1:+0:0.
373+123456789123456789:+0:0.
374+0:+123456789123456789:0.
375-1:-1:1.
376-1:+1:-1.
377+1:-1:-1.
378+1:+1:1.
379+2:+3:6.
380-2:+3:-6.
381+2:-3:-6.
382-2:-3:6.
383+111:+111:12321.
384+10101:+10101:102030201.
385+1001001:+1001001:1002003002001.
386+100010001:+100010001:10002000300020001.
387+10000100001:+10000100001:100002000030000200001.
388+11111111111:+9:99999999999.
389+22222222222:+9:199999999998.
390+33333333333:+9:299999999997.
391+44444444444:+9:399999999996.
392+55555555555:+9:499999999995.
393+66666666666:+9:599999999994.
394+77777777777:+9:699999999993.
395+88888888888:+9:799999999992.
396+99999999999:+9:899999999991.
397&fdiv
6e41db28 398abc:abc:NaN.
399abc:+1:abc:NaN.
400+1:abc:NaN.
401+0:+0:NaN.
5d7098d5 402+0:+1:0.
6e41db28 403+1:+0:NaN.
9ec26bd9 404+0:-1:0.
405-1:+0:NaN.
5d7098d5 406+1:+1:1.
407-1:-1:1.
408+1:-1:-1.
409-1:+1:-1.
410+1:+2:.5
411+2:+1:2.
412+10:+5:2.
413+100:+4:25.
414+1000:+8:125.
415+10000:+16:625.
416+10000:-16:-625.
417+999999999999:+9:111111111111.
418+999999999999:+99:10101010101.
419+999999999999:+999:1001001001.
420+999999999999:+9999:100010001.
421+999999999999999:+99999:10000100001.
422+1000000000:+9:111111111.1111111111111111111111111111111
423+2000000000:+9:222222222.2222222222222222222222222222222
424+3000000000:+9:333333333.3333333333333333333333333333333
425+4000000000:+9:444444444.4444444444444444444444444444444
426+5000000000:+9:555555555.5555555555555555555555555555556
427+6000000000:+9:666666666.6666666666666666666666666666667
428+7000000000:+9:777777777.7777777777777777777777777777778
429+8000000000:+9:888888888.8888888888888888888888888888889
430+9000000000:+9:1000000000.
431+35500000:+113:314159.2920353982300884955752212389380531
432+71000000:+226:314159.2920353982300884955752212389380531
433+106500000:+339:314159.2920353982300884955752212389380531
434+1000000000:+3:333333333.3333333333333333333333333333333
435$Math::BigFloat::div_scale = 20
436+1000000000:+9:111111111.11111111111
437+2000000000:+9:222222222.22222222222
438+3000000000:+9:333333333.33333333333
439+4000000000:+9:444444444.44444444444
440+5000000000:+9:555555555.55555555556
441+6000000000:+9:666666666.66666666667
442+7000000000:+9:777777777.77777777778
443+8000000000:+9:888888888.88888888889
444+9000000000:+9:1000000000.
445+35500000:+113:314159.292035398230088
446+71000000:+226:314159.292035398230088
447+106500000:+339:314159.29203539823009
448+1000000000:+3:333333333.33333333333
449$Math::BigFloat::div_scale = 40
450&fsqrt
451+0:0
b03b1b67 452-1:/^(?i:0|\?|NaNQ?)$
453-2:/^(?i:0|\?|NaNQ?)$
454-16:/^(?i:0|\?|NaNQ?)$
455-123.456:/^(?i:0|\?|NaNQ?)$
5d7098d5 456+1:1.
457+1.44:1.2
458+2:1.41421356237309504880168872420969807857
459+4:2.
460+16:4.
461+100:10.
462+123.456:11.11107555549866648462149404118219234119
463+15241.383936:123.456
Unnamed repository; edit this file to name it for gitweb.