lib/Math/BigInt/t/bigfltpm.t

   1 #!/usr/bin/perl -w
   2
   3 use Test;
   4 use strict;
   5
   6 BEGIN
   7   {
   8   $| = 1;
   9   unshift @INC, '../lib'; # for running manually
  10   # chdir 't' if -d 't';
  11   plan tests => 1162;
  12   }
  13
  14 use Math::BigInt;
  15 use Math::BigFloat;
  16
  17 my ($x,$y,$f,@args,$ans,$try,$ans1,$ans1_str,$setup);
  18 while (<DATA>)
  19   {
  20   chop;
  21   $_ =~ s/#.*$//;       # remove comments
  22   $_ =~ s/\s+$//;       # trailing spaces
  23   next if /^$/;         # skip empty lines & comments
  24   if (s/^&//)
  25     {
  26     $f = $_;
  27     }
  28   elsif (/^\$/)
  29     {
  30     $setup = $_; $setup =~ s/^\$/\$Math::BigFloat::/;   # rnd_mode, div_scale
  31     # print "$setup\n";
  32     }
  33   else
  34     {
  35     if (m|^(.*?):(/.+)$|)
  36       {
  37       $ans = $2;
  38       @args = split(/:/,$1,99);
  39       }
  40     else
  41       {
  42       @args = split(/:/,$_,99); $ans = pop(@args);
  43       }
  44     $try = "\$x = new Math::BigFloat \"$args[0]\";";
  45     if ($f eq "fnorm")
  46       {
  47         $try .= "\$x;";
  48       } elsif ($f eq "binf") {
  49         $try .= "\$x->binf('$args[1]');";
  50       } elsif ($f eq "bnan") {
  51         $try .= "\$x->bnan();";
  52       } elsif ($f eq "numify") {
  53         $try .= "\$x->numify();";
  54       } elsif ($f eq "bone") {
  55         $try .= "\$x->bone('$args[1]');";
  56       } elsif ($f eq "bstr") {
  57         $try .= "\$x->accuracy($args[1]); \$x->precision($args[2]);";
  58         $try .= '$x->bstr();';
  59       } elsif ($f eq "bsstr") {
  60         $try .= '$x->bsstr();';
  61       } elsif ($f eq "parts") {
  62         $try .= '($a,$b) = $x->parts(); "$a $b";';
  63       } elsif ($f eq "fneg") {
  64         $try .= '$x->bneg();';
  65       } elsif ($f eq "bfloor") {
  66         $try .= "\$x->bfloor();";
  67       } elsif ($f eq "bceil") {
  68         $try .= "\$x->bceil();";
  69       } elsif ($f eq "is_zero") {
  70         $try .= "\$x->is_zero()+0;";
  71       } elsif ($f eq "is_one") {
  72         $try .= "\$x->is_one()+0;";
  73       } elsif ($f eq "is_positive") {
  74         $try .= "\$x->is_positive()+0;";
  75       } elsif ($f eq "is_negative") {
  76         $try .= "\$x->is_negative()+0;";
  77       } elsif ($f eq "is_odd") {
  78         $try .= "\$x->is_odd()+0;";
  79       } elsif ($f eq "is_even") {
  80         $try .= "\$x->is_even()+0;";
  81       } elsif ($f eq "as_number") {
  82         $try .= "\$x->as_number();";
  83       } elsif ($f eq "fabs") {
  84         $try .= '$x->babs();';
  85       } elsif ($f eq "finc") {
  86         $try .= '++$x;';
  87       } elsif ($f eq "fdec") {
  88         $try .= '--$x;';
  89       }elsif ($f eq "fround") {
  90         $try .= "$setup; \$x->fround($args[1]);";
  91       } elsif ($f eq "ffround") {
  92         $try .= "$setup; \$x->ffround($args[1]);";
  93       } elsif ($f eq "fsqrt") {
  94         $try .= "$setup; \$x->fsqrt();";
  95       }
  96     else
  97       {
  98       $try .= "\$y = new Math::BigFloat \"$args[1]\";";
  99       if ($f eq "fcmp") {
 100         $try .= "\$x <=> \$y;";
 101       } elsif ($f eq "fpow") {
 102         $try .= "\$x ** \$y;";
 103       } elsif ($f eq "fadd") {
 104         $try .= "\$x + \$y;";
 105       } elsif ($f eq "fsub") {
 106         $try .= "\$x - \$y;";
 107       } elsif ($f eq "fmul") {
 108         $try .= "\$x * \$y;";
 109       } elsif ($f eq "fdiv") {
 110         $try .= "$setup; \$x / \$y;";
 111       } elsif ($f eq "fmod") {
 112         $try .= "\$x % \$y;";
 113       } else { warn "Unknown op '$f'"; }
 114     }
 115     $ans1 = eval $try;
 116     if ($ans =~ m|^/(.*)$|)
 117       {
 118       my $pat = $1;
 119       if ($ans1 =~ /$pat/)
 120         {
 121         ok (1,1);
 122         }
 123       else
 124         {
 125         print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
 126         }
 127       }
 128     else
 129       {
 130       if ($ans eq "")
 131         {
 132         ok_undef ($ans1);
 133         }
 134       else
 135         {
 136         print "# Tried: '$try'\n" if !ok ($ans1, $ans);
 137         if (ref($ans1) eq 'Math::BigFloat')
 138           {
 139           #print $ans1->_trailing_zeros(),"\n";
 140           print "# Has trailing zeros after '$try'\n"
 141            if !ok ($ans1->{_m}->_trailing_zeros(), 0);
 142           }
 143         }
 144       } # end pattern or string
 145     }
 146   } # end while
 147
 148 # check whether new() for BigInts destroys them ($y == 12 in this case)
 149 $x = Math::BigInt->new(1200); $y = Math::BigFloat->new($x);
 150 ok ($y,1200); ok ($x,1200);
 151
 152 # all done
 153
 154 ###############################################################################
 155 # Perl 5.005 does not like ok ($x,undef)
 156
 157 sub ok_undef
 158   {
 159   my $x = shift;
 160
 161   ok (1,1) and return if !defined $x;
 162   ok ($x,'undef');
 163   }
 164
 165 __END__
 166 &as_number
 167 0:0
 168 1:1
 169 1.2:1
 170 2.345:2
 171 -2:-2
 172 -123.456:-123
 173 -200:-200
 174 &binf
 175 1:+:inf
 176 2:-:-inf
 177 3:abc:inf
 178 &numify
 179 0:0e+1
 180 +1:1e+0
 181 1234:1234e+0
 182 NaN:NaN
 183 +inf:inf
 184 -inf:-inf
 185 &bnan
 186 abc:NaN
 187 2:NaN
 188 -2:NaN
 189 0:NaN
 190 &bone
 191 2:+:1
 192 -2:-:-1
 193 -2:+:1
 194 2:-:-1
 195 0::1
 196 -2::1
 197 abc::1
 198 2:abc:1
 199 &bsstr
 200 +inf:inf
 201 -inf:-inf
 202 abcbsstr:NaN
 203 1234.567:1234567e-3
 204 &bstr
 205 +inf:::inf
 206 -inf:::-inf
 207 abcbsstr:::NaN
 208 1234.567:9::1234.56700
 209 1234.567::-6:1234.567000
 210 12345:5::12345
 211 0.001234:6::0.00123400
 212 0.001234::-8:0.00123400
 213 0:4::0
 214 0::-4:0.0000
 215 &fnorm
 216 +inf:inf
 217 -inf:-inf
 218 +infinity:NaN
 219 +-inf:NaN
 220 abc:NaN
 221    1 a:NaN
 222 1bcd2:NaN
 223 11111b:NaN
 224 +1z:NaN
 225 -1z:NaN
 226 0:0
 227 +0:0
 228 +00:0
 229 +0_0_0:0
 230 000000_0000000_00000:0
 231 -0:0
 232 -0000:0
 233 +1:1
 234 +01:1
 235 +001:1
 236 +00000100000:100000
 237 123456789:123456789
 238 -1:-1
 239 -01:-1
 240 -001:-1
 241 -123456789:-123456789
 242 -00000100000:-100000
 243 123.456a:NaN
 244 123.456:123.456
 245 0.01:0.01
 246 .002:0.002
 247 +.2:0.2
 248 -0.0003:-0.0003
 249 -.0000000004:-0.0000000004
 250 123456E2:12345600
 251 123456E-2:1234.56
 252 -123456E2:-12345600
 253 -123456E-2:-1234.56
 254 1e1:10
 255 2e-11:0.00000000002
 256 # excercise _split
 257   .02e-1:0.002
 258    000001:1
 259    -00001:-1
 260    -1:-1
 261   000.01:0.01
 262    -000.0023:-0.0023
 263   1.1e1:11
 264 -3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 265 -4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
 266 &fpow
 267 2:2:4
 268 1:2:1
 269 1:3:1
 270 -1:2:1
 271 -1:3:-1
 272 123.456:2:15241.383936
 273 2:-2:0.25
 274 2:-3:0.125
 275 128:-2:0.00006103515625
 276 abc:123.456:NaN
 277 123.456:abc:NaN
 278 +inf:123.45:inf
 279 -inf:123.45:-inf
 280 +inf:-123.45:inf
 281 -inf:-123.45:-inf
 282 &fneg
 283 fnegNaN:NaN
 284 +inf:-inf
 285 -inf:inf
 286 +0:0
 287 +1:-1
 288 -1:1
 289 +123456789:-123456789
 290 -123456789:123456789
 291 +123.456789:-123.456789
 292 -123456.789:123456.789
 293 &fabs
 294 fabsNaN:NaN
 295 +inf:inf
 296 -inf:inf
 297 +0:0
 298 +1:1
 299 -1:1
 300 +123456789:123456789
 301 -123456789:123456789
 302 +123.456789:123.456789
 303 -123456.789:123456.789
 304 &fround
 305 $rnd_mode = "trunc"
 306 +inf:5:inf
 307 -inf:5:-inf
 308 0:5:0
 309 NaNfround:5:NaN
 310 +10123456789:5:10123000000
 311 -10123456789:5:-10123000000
 312 +10123456789.123:5:10123000000
 313 -10123456789.123:5:-10123000000
 314 +10123456789:9:10123456700
 315 -10123456789:9:-10123456700
 316 +101234500:6:101234000
 317 -101234500:6:-101234000
 318 $rnd_mode = "zero"
 319 +20123456789:5:20123000000
 320 -20123456789:5:-20123000000
 321 +20123456789.123:5:20123000000
 322 -20123456789.123:5:-20123000000
 323 +20123456789:9:20123456800
 324 -20123456789:9:-20123456800
 325 +201234500:6:201234000
 326 -201234500:6:-201234000
 327 $rnd_mode = "+inf"
 328 +30123456789:5:30123000000
 329 -30123456789:5:-30123000000
 330 +30123456789.123:5:30123000000
 331 -30123456789.123:5:-30123000000
 332 +30123456789:9:30123456800
 333 -30123456789:9:-30123456800
 334 +301234500:6:301235000
 335 -301234500:6:-301234000
 336 $rnd_mode = "-inf"
 337 +40123456789:5:40123000000
 338 -40123456789:5:-40123000000
 339 +40123456789.123:5:40123000000
 340 -40123456789.123:5:-40123000000
 341 +40123456789:9:40123456800
 342 -40123456789:9:-40123456800
 343 +401234500:6:401234000
 344 -401234500:6:-401235000
 345 $rnd_mode = "odd"
 346 +50123456789:5:50123000000
 347 -50123456789:5:-50123000000
 348 +50123456789.123:5:50123000000
 349 -50123456789.123:5:-50123000000
 350 +50123456789:9:50123456800
 351 -50123456789:9:-50123456800
 352 +501234500:6:501235000
 353 -501234500:6:-501235000
 354 $rnd_mode = "even"
 355 +60123456789:5:60123000000
 356 -60123456789:5:-60123000000
 357 +60123456789:9:60123456800
 358 -60123456789:9:-60123456800
 359 +601234500:6:601234000
 360 -601234500:6:-601234000
 361 +60123456789.0123:5:60123000000
 362 -60123456789.0123:5:-60123000000
 363 &ffround
 364 $rnd_mode = "trunc"
 365 +inf:5:inf
 366 -inf:5:-inf
 367 0:5:0
 368 NaNffround:5:NaN
 369 +1.23:-1:1.2
 370 +1.234:-1:1.2
 371 +1.2345:-1:1.2
 372 +1.23:-2:1.23
 373 +1.234:-2:1.23
 374 +1.2345:-2:1.23
 375 +1.23:-3:1.23
 376 +1.234:-3:1.234
 377 +1.2345:-3:1.234
 378 -1.23:-1:-1.2
 379 +1.27:-1:1.2
 380 -1.27:-1:-1.2
 381 +1.25:-1:1.2
 382 -1.25:-1:-1.2
 383 +1.35:-1:1.3
 384 -1.35:-1:-1.3
 385 -0.0061234567890:-1:0
 386 -0.0061:-1:0
 387 -0.00612:-1:0
 388 -0.00612:-2:0
 389 -0.006:-1:0
 390 -0.006:-2:0
 391 -0.0006:-2:0
 392 -0.0006:-3:0
 393 -0.0065:-3:/-0\.006|-6e-03
 394 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 395 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 396 0.05:0:0
 397 0.5:0:0
 398 0.51:0:0
 399 0.41:0:0
 400 $rnd_mode = "zero"
 401 +2.23:-1:/2.2(?:0{5}\d+)?
 402 -2.23:-1:/-2.2(?:0{5}\d+)?
 403 +2.27:-1:/2.(?:3|29{5}\d+)
 404 -2.27:-1:/-2.(?:3|29{5}\d+)
 405 +2.25:-1:/2.2(?:0{5}\d+)?
 406 -2.25:-1:/-2.2(?:0{5}\d+)?
 407 +2.35:-1:/2.(?:3|29{5}\d+)
 408 -2.35:-1:/-2.(?:3|29{5}\d+)
 409 -0.0065:-1:0
 410 -0.0065:-2:/-0\.01|-1e-02
 411 -0.0065:-3:/-0\.006|-6e-03
 412 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 413 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 414 0.05:0:0
 415 0.5:0:0
 416 0.51:0:1
 417 0.41:0:0
 418 $rnd_mode = "+inf"
 419 +3.23:-1:/3.2(?:0{5}\d+)?
 420 -3.23:-1:/-3.2(?:0{5}\d+)?
 421 +3.27:-1:/3.(?:3|29{5}\d+)
 422 -3.27:-1:/-3.(?:3|29{5}\d+)
 423 +3.25:-1:/3.(?:3|29{5}\d+)
 424 -3.25:-1:/-3.2(?:0{5}\d+)?
 425 +3.35:-1:/3.(?:4|39{5}\d+)
 426 -3.35:-1:/-3.(?:3|29{5}\d+)
 427 -0.0065:-1:0
 428 -0.0065:-2:/-0\.01|-1e-02
 429 -0.0065:-3:/-0\.006|-6e-03
 430 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 431 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 432 0.05:0:0
 433 0.5:0:1
 434 0.51:0:1
 435 0.41:0:0
 436 $rnd_mode = "-inf"
 437 +4.23:-1:/4.2(?:0{5}\d+)?
 438 -4.23:-1:/-4.2(?:0{5}\d+)?
 439 +4.27:-1:/4.(?:3|29{5}\d+)
 440 -4.27:-1:/-4.(?:3|29{5}\d+)
 441 +4.25:-1:/4.2(?:0{5}\d+)?
 442 -4.25:-1:/-4.(?:3|29{5}\d+)
 443 +4.35:-1:/4.(?:3|29{5}\d+)
 444 -4.35:-1:/-4.(?:4|39{5}\d+)
 445 -0.0065:-1:0
 446 -0.0065:-2:/-0\.01|-1e-02
 447 -0.0065:-3:/-0\.007|-7e-03
 448 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 449 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 450 0.05:0:0
 451 0.5:0:0
 452 0.51:0:1
 453 0.41:0:0
 454 $rnd_mode = "odd"
 455 +5.23:-1:/5.2(?:0{5}\d+)?
 456 -5.23:-1:/-5.2(?:0{5}\d+)?
 457 +5.27:-1:/5.(?:3|29{5}\d+)
 458 -5.27:-1:/-5.(?:3|29{5}\d+)
 459 +5.25:-1:/5.(?:3|29{5}\d+)
 460 -5.25:-1:/-5.(?:3|29{5}\d+)
 461 +5.35:-1:/5.(?:3|29{5}\d+)
 462 -5.35:-1:/-5.(?:3|29{5}\d+)
 463 -0.0065:-1:0
 464 -0.0065:-2:/-0\.01|-1e-02
 465 -0.0065:-3:/-0\.007|-7e-03
 466 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 467 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 468 0.05:0:0
 469 0.5:0:1
 470 0.51:0:1
 471 0.41:0:0
 472 $rnd_mode = "even"
 473 +6.23:-1:/6.2(?:0{5}\d+)?
 474 -6.23:-1:/-6.2(?:0{5}\d+)?
 475 +6.27:-1:/6.(?:3|29{5}\d+)
 476 -6.27:-1:/-6.(?:3|29{5}\d+)
 477 +6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
 478 -6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
 479 +6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
 480 -6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
 481 -0.0065:-1:0
 482 -0.0065:-2:/-0\.01|-1e-02
 483 -0.0065:-3:/-0\.006|-7e-03
 484 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 485 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 486 0.05:0:0
 487 0.5:0:0
 488 0.51:0:1
 489 0.41:0:0
 490 0.01234567:-3:0.012
 491 0.01234567:-4:0.0123
 492 0.01234567:-5:0.01235
 493 0.01234567:-6:0.012346
 494 0.01234567:-7:0.0123457
 495 0.01234567:-8:0.01234567
 496 0.01234567:-9:0.01234567
 497 0.01234567:-12:0.01234567
 498 &fcmp
 499 fcmpNaN:fcmpNaN:
 500 fcmpNaN:+0:
 501 +0:fcmpNaN:
 502 +0:+0:0
 503 -1:+0:-1
 504 +0:-1:1
 505 +1:+0:1
 506 +0:+1:-1
 507 -1:+1:-1
 508 +1:-1:1
 509 -1:-1:0
 510 +1:+1:0
 511 -1.1:0:-1
 512 +0:-1.1:1
 513 +1.1:+0:1
 514 +0:+1.1:-1
 515 +123:+123:0
 516 +123:+12:1
 517 +12:+123:-1
 518 -123:-123:0
 519 -123:-12:-1
 520 -12:-123:1
 521 +123:+124:-1
 522 +124:+123:1
 523 -123:-124:1
 524 -124:-123:-1
 525 0:0.01:-1
 526 0:0.0001:-1
 527 0:-0.0001:1
 528 0:-0.1:1
 529 0.1:0:1
 530 0.00001:0:1
 531 -0.0001:0:-1
 532 -0.1:0:-1
 533 0:0.0001234:-1
 534 0:-0.0001234:1
 535 0.0001234:0:1
 536 -0.0001234:0:-1
 537 0.0001:0.0005:-1
 538 0.0005:0.0001:1
 539 0.005:0.0001:1
 540 0.001:0.0005:1
 541 0.000001:0.0005:-1
 542 0.00000123:0.0005:-1
 543 0.00512:0.0001:1
 544 0.005:0.000112:1
 545 0.00123:0.0005:1
 546 1.5:2:-1
 547 2:1.5:1
 548 1.54321:234:-1
 549 234:1.54321:1
 550 # infinity
 551 -inf:5432112345:-1
 552 +inf:5432112345:1
 553 -inf:-5432112345:-1
 554 +inf:-5432112345:1
 555 -inf:54321.12345:-1
 556 +inf:54321.12345:1
 557 -inf:-54321.12345:-1
 558 +inf:-54321.12345:1
 559 +inf:+inf:0
 560 -inf:-inf:0
 561 +inf:-inf:1
 562 -inf:+inf:-1
 563 # return undef
 564 +inf:NaN:
 565 NaN:inf:
 566 -inf:NaN:
 567 NaN:-inf:
 568 &fdec
 569 fdecNaN:NaN
 570 +inf:inf
 571 -inf:-inf
 572 +0:-1
 573 +1:0
 574 -1:-2
 575 1.23:0.23
 576 -1.23:-2.23
 577 &finc
 578 fincNaN:NaN
 579 +inf:inf
 580 -inf:-inf
 581 +0:1
 582 +1:2
 583 -1:0
 584 1.23:2.23
 585 -1.23:-0.23
 586 &fadd
 587 abc:abc:NaN
 588 abc:+0:NaN
 589 +0:abc:NaN
 590 +inf:-inf:0
 591 -inf:+inf:0
 592 +inf:+inf:inf
 593 -inf:-inf:-inf
 594 baddNaN:+inf:NaN
 595 baddNaN:+inf:NaN
 596 +inf:baddNaN:NaN
 597 -inf:baddNaN:NaN
 598 +0:+0:0
 599 +1:+0:1
 600 +0:+1:1
 601 +1:+1:2
 602 -1:+0:-1
 603 +0:-1:-1
 604 -1:-1:-2
 605 -1:+1:0
 606 +1:-1:0
 607 +9:+1:10
 608 +99:+1:100
 609 +999:+1:1000
 610 +9999:+1:10000
 611 +99999:+1:100000
 612 +999999:+1:1000000
 613 +9999999:+1:10000000
 614 +99999999:+1:100000000
 615 +999999999:+1:1000000000
 616 +9999999999:+1:10000000000
 617 +99999999999:+1:100000000000
 618 +10:-1:9
 619 +100:-1:99
 620 +1000:-1:999
 621 +10000:-1:9999
 622 +100000:-1:99999
 623 +1000000:-1:999999
 624 +10000000:-1:9999999
 625 +100000000:-1:99999999
 626 +1000000000:-1:999999999
 627 +10000000000:-1:9999999999
 628 +123456789:+987654321:1111111110
 629 -123456789:+987654321:864197532
 630 -123456789:-987654321:-1111111110
 631 +123456789:-987654321:-864197532
 632 0.001234:0.0001234:0.0013574
 633 &fsub
 634 abc:abc:NaN
 635 abc:+0:NaN
 636 +0:abc:NaN
 637 +inf:-inf:inf
 638 -inf:+inf:-inf
 639 +inf:+inf:0
 640 -inf:-inf:0
 641 baddNaN:+inf:NaN
 642 baddNaN:+inf:NaN
 643 +inf:baddNaN:NaN
 644 -inf:baddNaN:NaN
 645 +0:+0:0
 646 +1:+0:1
 647 +0:+1:-1
 648 +1:+1:0
 649 -1:+0:-1
 650 +0:-1:1
 651 -1:-1:0
 652 -1:+1:-2
 653 +1:-1:2
 654 +9:+1:8
 655 +99:+1:98
 656 +999:+1:998
 657 +9999:+1:9998
 658 +99999:+1:99998
 659 +999999:+1:999998
 660 +9999999:+1:9999998
 661 +99999999:+1:99999998
 662 +999999999:+1:999999998
 663 +9999999999:+1:9999999998
 664 +99999999999:+1:99999999998
 665 +10:-1:11
 666 +100:-1:101
 667 +1000:-1:1001
 668 +10000:-1:10001
 669 +100000:-1:100001
 670 +1000000:-1:1000001
 671 +10000000:-1:10000001
 672 +100000000:-1:100000001
 673 +1000000000:-1:1000000001
 674 +10000000000:-1:10000000001
 675 +123456789:+987654321:-864197532
 676 -123456789:+987654321:-1111111110
 677 -123456789:-987654321:864197532
 678 +123456789:-987654321:1111111110
 679 &fmul
 680 abc:abc:NaN
 681 abc:+0:NaN
 682 +0:abc:NaN
 683 +inf:NaNmul:NaN
 684 +inf:NaNmul:NaN
 685 NaNmul:+inf:NaN
 686 NaNmul:-inf:NaN
 687 +inf:+inf:inf
 688 +inf:-inf:-inf
 689 +inf:-inf:-inf
 690 +inf:+inf:inf
 691 +inf:123.34:inf
 692 +inf:-123.34:-inf
 693 -inf:123.34:-inf
 694 -inf:-123.34:inf
 695 123.34:+inf:inf
 696 -123.34:+inf:-inf
 697 123.34:-inf:-inf
 698 -123.34:-inf:inf
 699 +0:+0:0
 700 +0:+1:0
 701 +1:+0:0
 702 +0:-1:0
 703 -1:+0:0
 704 +123456789123456789:+0:0
 705 +0:+123456789123456789:0
 706 -1:-1:1
 707 -1:+1:-1
 708 +1:-1:-1
 709 +1:+1:1
 710 +2:+3:6
 711 -2:+3:-6
 712 +2:-3:-6
 713 -2:-3:6
 714 +111:+111:12321
 715 +10101:+10101:102030201
 716 +1001001:+1001001:1002003002001
 717 +100010001:+100010001:10002000300020001
 718 +10000100001:+10000100001:100002000030000200001
 719 +11111111111:+9:99999999999
 720 +22222222222:+9:199999999998
 721 +33333333333:+9:299999999997
 722 +44444444444:+9:399999999996
 723 +55555555555:+9:499999999995
 724 +66666666666:+9:599999999994
 725 +77777777777:+9:699999999993
 726 +88888888888:+9:799999999992
 727 +99999999999:+9:899999999991
 728 6:120:720
 729 10:10000:100000
 730 &fdiv
 731 $div_scale = 40; $Math::BigFloat::rnd_mode = 'even'
 732 abc:abc:NaN
 733 abc:+1:abc:NaN
 734 +1:abc:NaN
 735 -1:abc:NaN
 736 0:abc:NaN
 737 +0:+0:NaN
 738 +0:+1:0
 739 +1:+0:inf
 740 +3214:+0:inf
 741 +0:-1:0
 742 -1:+0:-inf
 743 -3214:+0:-inf
 744 +1:+1:1
 745 -1:-1:1
 746 +1:-1:-1
 747 -1:+1:-1
 748 +1:+2:0.5
 749 +2:+1:2
 750 123:+inf:0
 751 123:-inf:0
 752 +10:+5:2
 753 +100:+4:25
 754 +1000:+8:125
 755 +10000:+16:625
 756 +10000:-16:-625
 757 +999999999999:+9:111111111111
 758 +999999999999:+99:10101010101
 759 +999999999999:+999:1001001001
 760 +999999999999:+9999:100010001
 761 +999999999999999:+99999:10000100001
 762 +1000000000:+9:111111111.1111111111111111111111111111111
 763 +2000000000:+9:222222222.2222222222222222222222222222222
 764 +3000000000:+9:333333333.3333333333333333333333333333333
 765 +4000000000:+9:444444444.4444444444444444444444444444444
 766 +5000000000:+9:555555555.5555555555555555555555555555556
 767 +6000000000:+9:666666666.6666666666666666666666666666667
 768 +7000000000:+9:777777777.7777777777777777777777777777778
 769 +8000000000:+9:888888888.8888888888888888888888888888889
 770 +9000000000:+9:1000000000
 771 +35500000:+113:314159.2920353982300884955752212389380531
 772 +71000000:+226:314159.2920353982300884955752212389380531
 773 +106500000:+339:314159.2920353982300884955752212389380531
 774 +1000000000:+3:333333333.3333333333333333333333333333333
 775 2:25.024996000799840031993601279744051189762:0.07992009269196593320152084692285869265447
 776 $div_scale = 20
 777 +1000000000:+9:111111111.11111111111
 778 +2000000000:+9:222222222.22222222222
 779 +3000000000:+9:333333333.33333333333
 780 +4000000000:+9:444444444.44444444444
 781 +5000000000:+9:555555555.55555555556
 782 +6000000000:+9:666666666.66666666667
 783 +7000000000:+9:777777777.77777777778
 784 +8000000000:+9:888888888.88888888889
 785 +9000000000:+9:1000000000
 786 1:10:0.1
 787 1:100:0.01
 788 1:1000:0.001
 789 1:10000:0.0001
 790 1:504:0.001984126984126984127
 791 2:1.987654321:1.0062111801179738436
 792 # the next two cases are the "old" behaviour, but are now (>v0.01) different
 793 #+35500000:+113:314159.292035398230088
 794 #+71000000:+226:314159.292035398230088
 795 +35500000:+113:314159.29203539823009
 796 +71000000:+226:314159.29203539823009
 797 +106500000:+339:314159.29203539823009
 798 +1000000000:+3:333333333.33333333333
 799 $div_scale = 1
 800 # round to accuracy 1 after bdiv
 801 +124:+3:40
 802 # reset scale for further tests
 803 $div_scale = 40
 804 &fmod
 805 +0:0:NaN
 806 +0:1:0
 807 +3:1:0
 808 #+5:2:1
 809 #+9:4:1
 810 #+9:5:4
 811 #+9000:56:40
 812 #+56:9000:56
 813 &fsqrt
 814 +0:0
 815 -1:NaN
 816 -2:NaN
 817 -16:NaN
 818 -123.45:NaN
 819 nanfsqrt:NaN
 820 +inf:inf
 821 -inf:NaN
 822 +1:1
 823 +2:1.41421356237309504880168872420969807857
 824 +4:2
 825 +16:4
 826 +100:10
 827 +123.456:11.11107555549866648462149404118219234119
 828 +15241.38393:123.4559999756998444766131352122991626468
 829 +1.44:1.2
 830 &is_odd
 831 abc:0
 832 0:0
 833 -1:1
 834 -3:1
 835 1:1
 836 3:1
 837 1000001:1
 838 1000002:0
 839 +inf:0
 840 -inf:0
 841 123.45:0
 842 -123.45:0
 843 2:0
 844 &is_even
 845 abc:0
 846 0:1
 847 -1:0
 848 -3:0
 849 1:0
 850 3:0
 851 1000001:0
 852 1000002:1
 853 2:1
 854 +inf:0
 855 -inf:0
 856 123.456:0
 857 -123.456:0
 858 &is_positive
 859 0:1
 860 1:1
 861 -1:0
 862 -123:0
 863 NaN:0
 864 -inf:0
 865 +inf:1
 866 &is_negative
 867 0:0
 868 1:0
 869 -1:1
 870 -123:1
 871 NaN:0
 872 -inf:1
 873 +inf:0
 874 &parts
 875 0:0 1
 876 1:1 0
 877 123:123 0
 878 -123:-123 0
 879 -1200:-12 2
 880 &is_zero
 881 NaNzero:0
 882 +inf:0
 883 -inf:0
 884 0:1
 885 -1:0
 886 1:0
 887 &is_one
 888 NaNone:0
 889 +inf:0
 890 -inf:0
 891 0:0
 892 2:0
 893 1:1
 894 -1:0
 895 -2:0
 896 &bfloor
 897 0:0
 898 abc:NaN
 899 +inf:inf
 900 -inf:-inf
 901 1:1
 902 -51:-51
 903 -51.2:-52
 904 12.2:12
 905 &bceil
 906 0:0
 907 abc:NaN
 908 +inf:inf
 909 -inf:-inf
 910 1:1
 911 -51:-51
 912 -51.2:-51
 913 12.2:13