1 #include this file into another test for subclass testing...
3 ok ($class->config()->{lib},$CL);
12 $_ =~ s/#.*$//; # remove comments
13 $_ =~ s/\s+$//; # trailing spaces
14 next if /^$/; # skip empty lines & comments
21 $setup = $_; $setup =~ s/\$/\$${class}::/g; # round_mode, div_scale
22 #print "\$setup== $setup\n";
29 @args = split(/:/,$1,99);
33 @args = split(/:/,$_,99); $ans = pop(@args);
35 $try = "\$x = $class->new(\"$args[0]\");";
39 } elsif ($f eq "finf") {
40 $try .= "\$x->finf('$args[1]');";
41 } elsif ($f eq "is_inf") {
42 $try .= "\$x->is_inf('$args[1]');";
43 } elsif ($f eq "fone") {
44 $try .= "\$x->bone('$args[1]');";
45 } elsif ($f eq "fstr") {
46 $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);";
47 $try .= '$x->fstr();';
48 } elsif ($f eq "parts") {
49 # ->bstr() to see if an object is returned
50 $try .= '($a,$b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr();';
52 } elsif ($f eq "exponent") {
53 # ->bstr() to see if an object is returned
54 $try .= '$x->exponent()->bstr();';
55 } elsif ($f eq "mantissa") {
56 # ->bstr() to see if an object is returned
57 $try .= '$x->mantissa()->bstr();';
58 } elsif ($f =~ /^(numify|length|as_number|as_hex|as_bin)$/) {
60 # some unary ops (test the fxxx form, since that is done by AUTOLOAD)
61 } elsif ($f =~ /^f(nan|sstr|neg|floor|ceil|abs)$/) {
62 $try .= "\$x->f$1();";
63 # some is_xxx test function
64 } elsif ($f =~ /^is_(zero|one|negative|positive|odd|even|nan|int)$/) {
66 } elsif ($f eq "finc") {
68 } elsif ($f eq "fdec") {
70 }elsif ($f eq "fround") {
71 $try .= "$setup; \$x->fround($args[1]);";
72 } elsif ($f eq "ffround") {
73 $try .= "$setup; \$x->ffround($args[1]);";
74 } elsif ($f eq "fsqrt") {
75 $try .= "$setup; \$x->fsqrt();";
76 } elsif ($f eq "ffac") {
77 $try .= "$setup; \$x->ffac();";
78 } elsif ($f eq "flog") {
79 if (defined $args[1] && $args[1] ne '')
81 $try .= "\$y = $class->new($args[1]);";
82 $try .= "$setup; \$x->flog(\$y);";
86 $try .= "$setup; \$x->flog();";
91 $try .= "\$y = $class->new(\"$args[1]\");";
97 $try .= " \$z = $class->new(\"$args[2]\"); ";
99 $try .= "$class\::bgcd(\$x, \$y";
100 $try .= ", \$z" if (defined $args[2]);
105 if (defined $args[2])
107 $try .= " \$z = $class->new(\"$args[2]\"); ";
109 $try .= "$class\::blcm(\$x, \$y";
110 $try .= ", \$z" if (defined $args[2]);
112 } elsif ($f eq "fcmp") {
113 $try .= '$x->fcmp($y);';
114 } elsif ($f eq "facmp") {
115 $try .= '$x->facmp($y);';
116 } elsif ($f eq "fpow") {
118 } elsif ($f eq "bnok") {
119 $try .= '$x->bnok($y);';
120 } elsif ($f eq "froot") {
121 $try .= "$setup; \$x->froot(\$y);";
122 } elsif ($f eq "fadd") {
124 } elsif ($f eq "fsub") {
126 } elsif ($f eq "fmul") {
128 } elsif ($f eq "fdiv") {
129 $try .= "$setup; \$x / \$y;";
130 } elsif ($f eq "fdiv-list") {
131 $try .= "$setup; join(',',\$x->fdiv(\$y));";
132 } elsif ($f eq "frsft") {
134 } elsif ($f eq "flsft") {
136 } elsif ($f eq "fmod") {
138 } else { warn "Unknown op '$f'"; }
140 # print "# Trying: '$try'\n";
142 print "# Error: $@\n" if $@;
143 if ($ans =~ m|^/(.*)$|)
152 print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
163 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
164 if (ref($ans1) eq "$class")
166 # float numbers are normalized (for now), so mantissa shouldn't have
168 #print $ans1->_trailing_zeros(),"\n";
169 print "# Has trailing zeros after '$try'\n"
170 if !ok ($CL->_zeros( $ans1->{_m}), 0);
173 } # end pattern or string
177 # check whether $class->new( Math::BigInt->new()) destroys it
178 # ($y == 12 in this case)
179 $x = Math::BigInt->new(1200); $y = $class->new($x);
180 ok ($y,1200); ok ($x,1200);
182 ###############################################################################
183 # Really huge, big, ultra-mega-biggy-monster exponents
184 # Technically, the exponents should not be limited (they are BigInts), but
185 # practically there are a few places were they are limited to a Perl scalar.
186 # This is sometimes for speed, sometimes because otherwise the number wouldn't
187 # fit into your memory (just think of 1e123456789012345678901234567890 + 1!)
188 # anyway. We don't test everything here, but let's make sure it just basically
191 my $monster = '1e1234567890123456789012345678901234567890';
194 ok ($class->new($monster)->bsstr(),
195 '1e+1234567890123456789012345678901234567890');
196 ok ($class->new($monster)->exponent(),
197 '1234567890123456789012345678901234567890');
199 ok ($class->new($monster) > 0,1);
202 ok ($class->new($monster)->bsub( $monster),0);
203 ok ($class->new($monster)->bmul(2)->bsstr(),
204 '2e+1234567890123456789012345678901234567890');
207 $monster = '1234567890123456789012345678901234567890e2';
208 ok ($class->new($monster)->mantissa(),
209 '123456789012345678901234567890123456789');
211 ###############################################################################
214 $x = $class->new(2); $x->fzero(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
215 $x = $class->new(2); $x->finf(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
216 $x = $class->new(2); $x->fone(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
217 $x = $class->new(2); $x->fnan(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
219 ###############################################################################
220 # bone/binf etc as plain calls (Lite failed them)
222 ok ($class->fzero(),0);
223 ok ($class->fone(),1);
224 ok ($class->fone('+'),1);
225 ok ($class->fone('-'),-1);
226 ok ($class->fnan(),'NaN');
227 ok ($class->finf(),'inf');
228 ok ($class->finf('+'),'inf');
229 ok ($class->finf('-'),'-inf');
230 ok ($class->finf('-inf'),'-inf');
232 $class->accuracy(undef); $class->precision(undef); # reset
234 ###############################################################################
235 # bug in bsstr()/numify() showed up in after-rounding in bdiv()
237 $x = $class->new('0.008'); $y = $class->new(2);
241 ###############################################################################
242 # fsqrt() with set global A/P or A/P enabled on $x, also a test whether fsqrt()
243 # correctly modifies $x
246 $x = $class->new(12); $class->precision(-2); $x->fsqrt(); ok ($x,'3.46');
248 $class->precision(undef);
249 $x = $class->new(12); $class->precision(0); $x->fsqrt(); ok ($x,'3');
251 $class->precision(-3); $x = $class->new(12); $x->fsqrt(); ok ($x,'3.464');
256 ${${class}.'::accuracy'} = 4; $x = $class->new(12);
257 $x->fsqrt(3); ok ($x,'NaN');
258 # supplied arg overrides set global
259 $class->precision(undef); $x = $class->new(12); $x->fsqrt(3); ok ($x,'3.46');
260 $class->accuracy(undef); $class->precision(undef); # reset for further tests
263 #############################################################################
264 # can we call objectify (broken until v1.52)
269 '@args' . " = $class" . "::objectify(2,$class,4,5);".'join(" ",@args);';
271 ok ($ans,"$class 4 5");
274 #############################################################################
275 # is_one('-') (broken until v1.64)
277 ok ($class->new(-1)->is_one(),0);
278 ok ($class->new(-1)->is_one('-'),1);
280 #############################################################################
281 # bug 1/0.5 leaving 2e-0 instead of 2e0
283 ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
285 ###############################################################################
286 # [perl #30609] bug with $x -= $x not being 0, but 2*$x
288 $x = $class->new(3); $x -= $x; ok ($x, 0);
289 $x = $class->new(-3); $x -= $x; ok ($x, 0);
290 $x = $class->new(3); $x += $x; ok ($x, 6);
291 $x = $class->new(-3); $x += $x; ok ($x, -6);
293 $x = $class->new('NaN'); $x -= $x; ok ($x->is_nan(), 1);
294 $x = $class->new('inf'); $x -= $x; ok ($x->is_nan(), 1);
295 $x = $class->new('-inf'); $x -= $x; ok ($x->is_nan(), 1);
297 $x = $class->new('NaN'); $x += $x; ok ($x->is_nan(), 1);
298 $x = $class->new('inf'); $x += $x; ok ($x->is_inf(), 1);
299 $x = $class->new('-inf'); $x += $x; ok ($x->is_inf('-'), 1);
301 $x = $class->new('3.14'); $x -= $x; ok ($x, 0);
302 $x = $class->new('-3.14'); $x -= $x; ok ($x, 0);
303 $x = $class->new('3.14'); $x += $x; ok ($x, '6.28');
304 $x = $class->new('-3.14'); $x += $x; ok ($x, '-6.28');
306 $x = $class->new('3.14'); $x *= $x; ok ($x, '9.8596');
307 $x = $class->new('-3.14'); $x *= $x; ok ($x, '9.8596');
308 $x = $class->new('3.14'); $x /= $x; ok ($x, '1');
309 $x = $class->new('-3.14'); $x /= $x; ok ($x, '1');
310 $x = $class->new('3.14'); $x %= $x; ok ($x, '0');
311 $x = $class->new('-3.14'); $x %= $x; ok ($x, '0');
313 ###############################################################################
314 # the following two were reported by "kenny" via hotmail.com:
316 #perl -MMath::BigFloat -wle 'print Math::BigFloat->new(0)->bpow(".1")'
317 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
319 $x = $class->new(0); $y = $class->new('0.1');
320 ok ($x ** $y, 0, 'no warnings and zero result');
322 #perl -MMath::BigFloat -lwe 'print Math::BigFloat->new(".222222222222222222222222222222222222222222")->bceil()'
323 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
325 $x = $class->new(".222222222222222222222222222222222222222222");
326 ok ($x->bceil(), 1, 'no warnings and one as result');
328 ###############################################################################
332 $x = $class->new(2); $x **= 148; $x++; $x->bdiv(17, 60)->bfloor(); $x->accuracy(undef);
333 ok ($x,"20988936657440586486151264256610222593863921");
334 ok ($x->length(),length "20988936657440586486151264256610222593863921");
336 $x = $class->new('2');
337 my $y = $class->new('18');
338 ok ($x <<= $y, 2 << 18);
343 $x = $class->new('2');
344 $y = $class->new('18.2');
345 $x <<= $y; # 2 * (2 ** 18.2);
347 ok ($x->copy()->bfround(-9), '602248.763144685');
348 ok ($x >>= $y, 2); # 2 * (2 ** 18.2) / (2 ** 18.2) => 2
353 ###############################################################################
354 # Perl 5.005 does not like ok ($x,undef)
360 ok (1,1) and return if !defined $x;
416 100:90:17310309456440
421 # base > 0, base != 1
425 # log(1) is always 1, regardless of $base
429 2::0.6931471805599453094172321214581765680755
430 2.718281828::0.9999999998311266953289851340574956564911
432 2.718281828::0.99999999983112669533
434 123::4.81218435537242
436 1000::6.90775527898214
437 100::4.60517018598809
439 3.1415::1.14470039286086
440 12345::9.42100640177928
441 0.001::-6.90775527898214
445 # reset for further tests
480 # some inputs that result in zero
514 # test for bug in brsft() not handling cases that return 0
559 # uses bsstr() so 5 => 5e+0 to be compatible w/ Perls output
596 1234.567:9::1234.56700
597 1234.567::-6:1234.567000
599 0.001234:6::0.00123400
600 0.001234::-8:0.00123400
623 000000_0000000_00000:0
634 -123456789:-123456789
642 -.0000000004:-0.0000000004
657 -3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
658 -4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
677 123.456:2:15241.383936
680 128:-2:0.00006103515625
695 # 2 ** 0.5 == sqrt(2)
696 # 1.41..7 and not 1.4170 since fallback (bsqrt(9) is '3', not 3.0...0)
697 2:0.5:1.41421356237309504880168872420969807857
698 #2:0.2:1.148698354997035006798626946777927589444
699 #6:1.5:14.6969384566990685891837044482353483518
701 #62.5:12.5:26447206647554886213592.3959144
710 +123456789:-123456789
712 +123.456789:-123.456789
713 -123456.789:123456.789
723 +123.456789:123.456789
724 -123456.789:123456.789
726 $round_mode = "trunc"
731 +10123456789:5:10123000000
732 -10123456789:5:-10123000000
733 +10123456789.123:5:10123000000
734 -10123456789.123:5:-10123000000
735 +10123456789:9:10123456700
736 -10123456789:9:-10123456700
737 +101234500:6:101234000
738 -101234500:6:-101234000
740 +20123456789:5:20123000000
741 -20123456789:5:-20123000000
742 +20123456789.123:5:20123000000
743 -20123456789.123:5:-20123000000
744 +20123456789:9:20123456800
745 -20123456789:9:-20123456800
746 +201234500:6:201234000
747 -201234500:6:-201234000
749 +30123456789:5:30123000000
750 -30123456789:5:-30123000000
751 +30123456789.123:5:30123000000
752 -30123456789.123:5:-30123000000
753 +30123456789:9:30123456800
754 -30123456789:9:-30123456800
755 +301234500:6:301235000
756 -301234500:6:-301234000
758 +40123456789:5:40123000000
759 -40123456789:5:-40123000000
760 +40123456789.123:5:40123000000
761 -40123456789.123:5:-40123000000
762 +40123456789:9:40123456800
763 -40123456789:9:-40123456800
764 +401234500:6:401234000
765 -401234500:6:-401235000
767 +50123456789:5:50123000000
768 -50123456789:5:-50123000000
769 +50123456789.123:5:50123000000
770 -50123456789.123:5:-50123000000
771 +50123456789:9:50123456800
772 -50123456789:9:-50123456800
773 +501234500:6:501235000
774 -501234500:6:-501235000
776 +60123456789:5:60123000000
777 -60123456789:5:-60123000000
778 +60123456789:9:60123456800
779 -60123456789:9:-60123456800
780 +601234500:6:601234000
781 -601234500:6:-601234000
782 +60123456789.0123:5:60123000000
783 -60123456789.0123:5:-60123000000
784 $round_mode = "common"
785 +60123456789:5:60123000000
786 -60123456789:5:-60123000000
787 +60123456789:6:60123500000
788 -60123456789:6:-60123500000
789 +60123456789:9:60123456800
790 -60123456789:9:-60123456800
791 +601234500:6:601235000
792 -601234500:6:-601235000
793 +601234400:6:601234000
794 -601234400:6:-601234000
795 +601234600:6:601235000
796 -601234600:6:-601235000
797 +601234300:6:601234000
798 +60123456789.0123:5:60123000000
799 -60123456789.0123:5:-60123000000
801 $round_mode = "trunc"
822 -0.0061234567890:-1:0.0
830 -0.0065:-3:/-0\.006|-6e-03
831 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
832 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
838 +2.23:-1:/2.2(?:0{5}\d+)?
839 -2.23:-1:/-2.2(?:0{5}\d+)?
840 +2.27:-1:/2.(?:3|29{5}\d+)
841 -2.27:-1:/-2.(?:3|29{5}\d+)
842 +2.25:-1:/2.2(?:0{5}\d+)?
843 -2.25:-1:/-2.2(?:0{5}\d+)?
844 +2.35:-1:/2.(?:3|29{5}\d+)
845 -2.35:-1:/-2.(?:3|29{5}\d+)
847 -0.0065:-2:/-0\.01|-1e-02
848 -0.0065:-3:/-0\.006|-6e-03
849 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
850 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
856 +3.23:-1:/3.2(?:0{5}\d+)?
857 -3.23:-1:/-3.2(?:0{5}\d+)?
858 +3.27:-1:/3.(?:3|29{5}\d+)
859 -3.27:-1:/-3.(?:3|29{5}\d+)
860 +3.25:-1:/3.(?:3|29{5}\d+)
861 -3.25:-1:/-3.2(?:0{5}\d+)?
862 +3.35:-1:/3.(?:4|39{5}\d+)
863 -3.35:-1:/-3.(?:3|29{5}\d+)
865 -0.0065:-2:/-0\.01|-1e-02
866 -0.0065:-3:/-0\.006|-6e-03
867 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
868 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
874 +4.23:-1:/4.2(?:0{5}\d+)?
875 -4.23:-1:/-4.2(?:0{5}\d+)?
876 +4.27:-1:/4.(?:3|29{5}\d+)
877 -4.27:-1:/-4.(?:3|29{5}\d+)
878 +4.25:-1:/4.2(?:0{5}\d+)?
879 -4.25:-1:/-4.(?:3|29{5}\d+)
880 +4.35:-1:/4.(?:3|29{5}\d+)
881 -4.35:-1:/-4.(?:4|39{5}\d+)
883 -0.0065:-2:/-0\.01|-1e-02
884 -0.0065:-3:/-0\.007|-7e-03
885 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
886 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
892 +5.23:-1:/5.2(?:0{5}\d+)?
893 -5.23:-1:/-5.2(?:0{5}\d+)?
894 +5.27:-1:/5.(?:3|29{5}\d+)
895 -5.27:-1:/-5.(?:3|29{5}\d+)
896 +5.25:-1:/5.(?:3|29{5}\d+)
897 -5.25:-1:/-5.(?:3|29{5}\d+)
898 +5.35:-1:/5.(?:3|29{5}\d+)
899 -5.35:-1:/-5.(?:3|29{5}\d+)
901 -0.0065:-2:/-0\.01|-1e-02
902 -0.0065:-3:/-0\.007|-7e-03
903 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
904 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
910 +6.23:-1:/6.2(?:0{5}\d+)?
911 -6.23:-1:/-6.2(?:0{5}\d+)?
912 +6.27:-1:/6.(?:3|29{5}\d+)
913 -6.27:-1:/-6.(?:3|29{5}\d+)
914 +6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
915 -6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
916 +6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
917 -6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
919 -0.0065:-2:/-0\.01|-1e-02
920 -0.0065:-3:/-0\.006|-7e-03
921 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
922 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
929 0.01234567:-5:0.01235
930 0.01234567:-6:0.012346
931 0.01234567:-7:0.0123457
932 0.01234567:-8:0.01234567
933 0.01234567:-9:0.012345670
934 0.01234567:-12:0.012345670000
1049 0.00000123:0.0005:-1
1135 +9999999:+1:10000000
1136 +99999999:+1:100000000
1137 +999999999:+1:1000000000
1138 +9999999999:+1:10000000000
1139 +99999999999:+1:100000000000
1146 +10000000:-1:9999999
1147 +100000000:-1:99999999
1148 +1000000000:-1:999999999
1149 +10000000000:-1:9999999999
1150 +123456789:+987654321:1111111110
1151 -123456789:+987654321:864197532
1152 -123456789:-987654321:-1111111110
1153 +123456789:-987654321:-864197532
1154 0.001234:0.0001234:0.0013574
1183 +99999999:+1:99999998
1184 +999999999:+1:999999998
1185 +9999999999:+1:9999999998
1186 +99999999999:+1:99999999998
1193 +10000000:-1:10000001
1194 +100000000:-1:100000001
1195 +1000000000:-1:1000000001
1196 +10000000000:-1:10000000001
1197 +123456789:+987654321:-864197532
1198 -123456789:+987654321:-1111111110
1199 -123456789:-987654321:864197532
1200 +123456789:-987654321:1111111110
1226 +123456789123456789:+0:0
1227 +0:+123456789123456789:0
1237 +10101:+10101:102030201
1238 +1001001:+1001001:1002003002001
1239 +100010001:+100010001:10002000300020001
1240 +10000100001:+10000100001:100002000030000200001
1241 +11111111111:+9:99999999999
1242 +22222222222:+9:199999999998
1243 +33333333333:+9:299999999997
1244 +44444444444:+9:399999999996
1245 +55555555555:+9:499999999995
1246 +66666666666:+9:599999999994
1247 +77777777777:+9:699999999993
1248 +88888888888:+9:799999999992
1249 +99999999999:+9:899999999991
1257 # bug in v1.74 with bdiv in list context, when $y is 1 or -1
1263 $div_scale = 40; $round_mode = 'even'
1289 +999999999999:+9:111111111111
1290 +999999999999:+99:10101010101
1291 +999999999999:+999:1001001001
1292 +999999999999:+9999:100010001
1293 +999999999999999:+99999:10000100001
1294 +1000000000:+9:111111111.1111111111111111111111111111111
1295 +2000000000:+9:222222222.2222222222222222222222222222222
1296 +3000000000:+9:333333333.3333333333333333333333333333333
1297 +4000000000:+9:444444444.4444444444444444444444444444444
1298 +5000000000:+9:555555555.5555555555555555555555555555556
1299 +6000000000:+9:666666666.6666666666666666666666666666667
1300 +7000000000:+9:777777777.7777777777777777777777777777778
1301 +8000000000:+9:888888888.8888888888888888888888888888889
1302 +9000000000:+9:1000000000
1303 +35500000:+113:314159.2920353982300884955752212389380531
1304 +71000000:+226:314159.2920353982300884955752212389380531
1305 +106500000:+339:314159.2920353982300884955752212389380531
1306 +1000000000:+3:333333333.3333333333333333333333333333333
1307 2:25.024996000799840031993601279744051189762:0.07992009269196593320152084692285869265447
1310 +1000000000:+9:111111111.11111111111
1311 +2000000000:+9:222222222.22222222222
1312 +3000000000:+9:333333333.33333333333
1313 +4000000000:+9:444444444.44444444444
1314 +5000000000:+9:555555555.55555555556
1315 +6000000000:+9:666666666.66666666667
1316 +7000000000:+9:777777777.77777777778
1317 +8000000000:+9:888888888.88888888889
1318 +9000000000:+9:1000000000
1323 1:504:0.001984126984126984127
1324 2:1.987654321:1.0062111801179738436
1325 123456789.123456789123456789123456789:1:123456789.12345678912
1326 # the next two cases are the "old" behaviour, but are now (>v0.01) different
1327 #+35500000:+113:314159.292035398230088
1328 #+71000000:+226:314159.292035398230088
1329 +35500000:+113:314159.29203539823009
1330 +71000000:+226:314159.29203539823009
1331 +106500000:+339:314159.29203539823009
1332 +1000000000:+3:333333333.33333333333
1334 # round to accuracy 1 after bdiv
1336 123456789.1234:1:100000000
1337 # reset scale for further tests
1344 # inf handling, see table in doc
1363 # exceptions to reminder rule
1402 999999999999999:99999:0
1416 152403346:12345:4321
1418 # now some floating point tests
1451 # -$x ** (1/2) => -$y, but not in froot()
1455 2:2:1.41421356237309504880168872420969807857
1461 123.456:2:11.11107555549866648462149404118219234119
1462 15241.38393:2:123.4559999756998444766131352122991626468
1464 12:2:3.464101615137754587054892683011744733886
1495 # see t/bigroot() for more tests
1506 2:1.41421356237309504880168872420969807857
1511 123.456:11.11107555549866648462149404118219234119
1512 15241.38393:123.4559999756998444766131352122991626468
1514 # sqrt(1.44) = 1.2, sqrt(e10) = e5 => 12e4
1516 2e10:141421.356237309504880168872420969807857
1518 # proved to be an endless loop under 7-9
1519 12:3.464101615137754587054892683011744733886
1538 # it must be exactly /^[+-]inf$/
1634 12345678901234567890:20