lib/Math/BigRat/t/bigfltpm.inc

   1 #include this file into another test for subclass testing...
   2
   3 ok ($class->config()->{lib},$CL);
   4
   5 use strict;
   6
   7 my $z;
   8
   9 while (<DATA>)
  10   {
  11   chomp;
  12   $_ =~ s/#.*$//;       # remove comments
  13   $_ =~ s/\s+$//;       # trailing spaces
  14   next if /^$/;         # skip empty lines & comments
  15   if (s/^&//)
  16     {
  17     $f = $_;
  18     }
  19   elsif (/^\$/)
  20     {
  21     $setup = $_; $setup =~ s/\$/\$${class}::/g; # round_mode, div_scale
  22     #print "\$setup== $setup\n";
  23     }
  24   else
  25     {
  26     if (m|^(.*?):(/.+)$|)
  27       {
  28       $ans = $2;
  29       @args = split(/:/,$1,99);
  30       }
  31     else
  32       {
  33       @args = split(/:/,$_,99); $ans = pop(@args);
  34       }
  35     $try = "\$x = $class->new(\"$args[0]\");";
  36     if ($f eq "fnorm")
  37       {
  38         $try .= "\$x;";
  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();';
  51         $try .= '"$a $b";';
  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)$/) {
  59         $try .= "\$x->$f();";
  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)$/) {
  65         $try .= "\$x->$f();";
  66       } elsif ($f eq "finc") {
  67         $try .= '++$x;';
  68       } elsif ($f eq "fdec") {
  69         $try .= '--$x;';
  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 '')
  80           {
  81           $try .= "\$y = $class->new($args[1]);";
  82           $try .= "$setup; \$x->flog(\$y);";
  83           }
  84         else
  85           {
  86           $try .= "$setup; \$x->flog();";
  87           }
  88       }
  89     else
  90       {
  91       $try .= "\$y = $class->new(\"$args[1]\");";
  92
  93       if ($f eq "bgcd")
  94         {
  95         if (defined $args[2])
  96           {
  97           $try .= " \$z = $class->new(\"$args[2]\"); ";
  98           }
  99         $try .= "$class\::bgcd(\$x, \$y";
 100         $try .= ", \$z" if (defined $args[2]);
 101         $try .= " );";
 102         }
 103       elsif ($f eq "blcm")
 104         {
 105         if (defined $args[2])
 106           {
 107           $try .= " \$z = $class->new(\"$args[2]\"); ";
 108           }
 109         $try .= "$class\::blcm(\$x, \$y";
 110         $try .= ", \$z" if (defined $args[2]);
 111         $try .= " );";
 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") {
 117         $try .= '$x ** $y;';
 118       } elsif ($f eq "froot") {
 119         $try .= "$setup; \$x->froot(\$y);";
 120       } elsif ($f eq "fadd") {
 121         $try .= '$x + $y;';
 122       } elsif ($f eq "fsub") {
 123         $try .= '$x - $y;';
 124       } elsif ($f eq "fmul") {
 125         $try .= '$x * $y;';
 126       } elsif ($f eq "fdiv") {
 127         $try .= "$setup; \$x / \$y;";
 128       } elsif ($f eq "fdiv-list") {
 129         $try .= "$setup; join(',',\$x->fdiv(\$y));";
 130       } elsif ($f eq "frsft") {
 131         $try .= '$x >> $y;';
 132       } elsif ($f eq "flsft") {
 133         $try .= '$x << $y;';
 134       } elsif ($f eq "fmod") {
 135         $try .= '$x % $y;';
 136       } else { warn "Unknown op '$f'"; }
 137     }
 138     # print "# Trying: '$try'\n";
 139     $ans1 = eval $try;
 140     print "# Error: $@\n" if $@;
 141     if ($ans =~ m|^/(.*)$|)
 142       {
 143       my $pat = $1;
 144       if ($ans1 =~ /$pat/)
 145         {
 146         ok (1,1);
 147         }
 148       else
 149         {
 150         print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
 151         }
 152       }
 153     else
 154       {
 155       if ($ans eq "")
 156         {
 157         ok_undef ($ans1);
 158         }
 159       else
 160         {
 161         print "# Tried: '$try'\n" if !ok ($ans1, $ans);
 162         if (ref($ans1) eq "$class")
 163           {
 164           # float numbers are normalized (for now), so mantissa shouldn't have
 165           # trailing zeros
 166           #print $ans1->_trailing_zeros(),"\n";
 167           print "# Has trailing zeros after '$try'\n"
 168            if !ok ($CL->_zeros( $ans1->{_m}), 0);
 169           }
 170         }
 171       } # end pattern or string
 172     }
 173   } # end while
 174
 175 # check whether $class->new( Math::BigInt->new()) destroys it
 176 # ($y == 12 in this case)
 177 $x = Math::BigInt->new(1200); $y = $class->new($x);
 178 ok ($y,1200); ok ($x,1200);
 179
 180 ###############################################################################
 181 # Really huge, big, ultra-mega-biggy-monster exponents
 182 # Technically, the exponents should not be limited (they are BigInts), but
 183 # practically there are a few places were they are limited to a Perl scalar.
 184 # This is sometimes for speed, sometimes because otherwise the number wouldn't
 185 # fit into your memory (just think of 1e123456789012345678901234567890 + 1!)
 186 # anyway. We don't test everything here, but let's make sure it just basically
 187 # works.
 188
 189 my $monster = '1e1234567890123456789012345678901234567890';
 190
 191 # new and exponent
 192 ok ($class->new($monster)->bsstr(),
 193                 '1e+1234567890123456789012345678901234567890');
 194 ok ($class->new($monster)->exponent(),
 195                 '1234567890123456789012345678901234567890');
 196 # cmp
 197 ok ($class->new($monster) > 0,1);
 198
 199 # sub/mul
 200 ok ($class->new($monster)->bsub( $monster),0);
 201 ok ($class->new($monster)->bmul(2)->bsstr(),
 202                 '2e+1234567890123456789012345678901234567890');
 203
 204 # mantissa
 205 $monster = '1234567890123456789012345678901234567890e2';
 206 ok ($class->new($monster)->mantissa(),
 207                 '123456789012345678901234567890123456789');
 208
 209 ###############################################################################
 210 # zero,inf,one,nan
 211
 212 $x = $class->new(2); $x->fzero(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
 213 $x = $class->new(2); $x->finf();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 214 $x = $class->new(2); $x->fone();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 215 $x = $class->new(2); $x->fnan();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
 216
 217 ###############################################################################
 218 # bone/binf etc as plain calls (Lite failed them)
 219
 220 ok ($class->fzero(),0);
 221 ok ($class->fone(),1);
 222 ok ($class->fone('+'),1);
 223 ok ($class->fone('-'),-1);
 224 ok ($class->fnan(),'NaN');
 225 ok ($class->finf(),'inf');
 226 ok ($class->finf('+'),'inf');
 227 ok ($class->finf('-'),'-inf');
 228 ok ($class->finf('-inf'),'-inf');
 229
 230 $class->accuracy(undef); $class->precision(undef);      # reset
 231
 232 ###############################################################################
 233 # bug in bsstr()/numify() showed up in after-rounding in bdiv()
 234
 235 $x = $class->new('0.008'); $y = $class->new(2);
 236 $x->bdiv(3,$y);
 237 ok ($x,'0.0027');
 238
 239 ###############################################################################
 240 # fsqrt() with set global A/P or A/P enabled on $x, also a test whether fsqrt()
 241 # correctly modifies $x
 242
 243
 244 $x = $class->new(12); $class->precision(-2); $x->fsqrt(); ok ($x,'3.46');
 245
 246 $class->precision(undef);
 247 $x = $class->new(12); $class->precision(0); $x->fsqrt(); ok ($x,'3');
 248
 249 $class->precision(-3); $x = $class->new(12); $x->fsqrt(); ok ($x,'3.464');
 250
 251 {
 252   no strict 'refs';
 253   # A and P set => NaN
 254   ${${class}.'::accuracy'} = 4; $x = $class->new(12);
 255   $x->fsqrt(3); ok ($x,'NaN');
 256   # supplied arg overrides set global
 257   $class->precision(undef); $x = $class->new(12); $x->fsqrt(3); ok ($x,'3.46');
 258   $class->accuracy(undef); $class->precision(undef); # reset for further tests
 259 }
 260
 261 #############################################################################
 262 # can we call objectify (broken until v1.52)
 263
 264 {
 265   no strict;
 266   $try =
 267     '@args' . " = $class" . "::objectify(2,$class,4,5);".'join(" ",@args);';
 268   $ans = eval $try;
 269   ok ($ans,"$class 4 5");
 270 }
 271
 272 #############################################################################
 273 # is_one('-') (broken until v1.64)
 274
 275 ok ($class->new(-1)->is_one(),0);
 276 ok ($class->new(-1)->is_one('-'),1);
 277
 278 #############################################################################
 279 # bug 1/0.5 leaving 2e-0 instead of 2e0
 280
 281 ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
 282
 283 ###############################################################################
 284 # [perl #30609] bug with $x -= $x not beeing 0, but 2*$x
 285
 286 $x = $class->new(3);  $x -= $x; ok ($x, 0);
 287 $x = $class->new(-3); $x -= $x; ok ($x, 0);
 288 $x = $class->new(3);  $x += $x; ok ($x, 6);
 289 $x = $class->new(-3); $x += $x; ok ($x, -6);
 290
 291 $x = $class->new('NaN'); $x -= $x; ok ($x->is_nan(), 1);
 292 $x = $class->new('inf'); $x -= $x; ok ($x->is_nan(), 1);
 293 $x = $class->new('-inf'); $x -= $x; ok ($x->is_nan(), 1);
 294
 295 $x = $class->new('NaN'); $x += $x; ok ($x->is_nan(), 1);
 296 $x = $class->new('inf'); $x += $x; ok ($x->is_inf(), 1);
 297 $x = $class->new('-inf'); $x += $x; ok ($x->is_inf('-'), 1);
 298
 299 $x = $class->new('3.14');  $x -= $x; ok ($x, 0);
 300 $x = $class->new('-3.14'); $x -= $x; ok ($x, 0);
 301 $x = $class->new('3.14');  $x += $x; ok ($x, '6.28');
 302 $x = $class->new('-3.14'); $x += $x; ok ($x, '-6.28');
 303
 304 $x = $class->new('3.14');  $x *= $x; ok ($x, '9.8596');
 305 $x = $class->new('-3.14'); $x *= $x; ok ($x, '9.8596');
 306 $x = $class->new('3.14');  $x /= $x; ok ($x, '1');
 307 $x = $class->new('-3.14'); $x /= $x; ok ($x, '1');
 308 $x = $class->new('3.14');  $x %= $x; ok ($x, '0');
 309 $x = $class->new('-3.14'); $x %= $x; ok ($x, '0');
 310
 311 ###############################################################################
 312 # the following two were reported by "kenny" via hotmail.com:
 313
 314 #perl -MMath::BigFloat -wle 'print Math::BigFloat->new(0)->bpow(".1")'
 315 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 316
 317 $x = $class->new(0); $y = $class->new('0.1');
 318 ok ($x ** $y, 0, 'no warnings and zero result');
 319
 320 #perl -MMath::BigFloat -lwe 'print Math::BigFloat->new(".222222222222222222222222222222222222222222")->bceil()'
 321 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 322
 323 $x = $class->new(".222222222222222222222222222222222222222222");
 324 ok ($x->bceil(), 1, 'no warnings and one as result');
 325
 326 ###############################################################################
 327 # test **=, <<=, >>=
 328
 329 # ((2^148)-1)/17
 330 $x = $class->new(2); $x **= 148; $x++; $x->bdiv(17, 60)->bfloor(); $x->accuracy(undef);
 331 ok ($x,"20988936657440586486151264256610222593863921");
 332 ok ($x->length(),length "20988936657440586486151264256610222593863921");
 333
 334 $x = $class->new('2');
 335 my $y = $class->new('18');
 336 ok ($x <<= $y, 2 << 18);
 337 ok ($x, 2 << 18);
 338 ok ($x >>= $y, 2);
 339 ok ($x, 2);
 340
 341 $x = $class->new('2');
 342 $y = $class->new('18.2');
 343 $x <<= $y;              # 2 * (2 ** 18.2);
 344
 345 ok ($x->copy()->bfround(-9), '602248.763144685');
 346 ok ($x >>= $y, 2);      # 2 * (2 ** 18.2) / (2 ** 18.2) => 2
 347 ok ($x, 2);
 348
 349 1; # all done
 350
 351 ###############################################################################
 352 # Perl 5.005 does not like ok ($x,undef)
 353
 354 sub ok_undef
 355   {
 356   my $x = shift;
 357
 358   ok (1,1) and return if !defined $x;
 359   ok ($x,'undef');
 360   }
 361
 362 __DATA__
 363 &bgcd
 364 inf:12:NaN
 365 -inf:12:NaN
 366 12:inf:NaN
 367 12:-inf:NaN
 368 inf:inf:NaN
 369 inf:-inf:NaN
 370 -inf:-inf:NaN
 371 abc:abc:NaN
 372 abc:+0:NaN
 373 +0:abc:NaN
 374 +0:+0:0
 375 +0:+1:1
 376 +1:+0:1
 377 +1:+1:1
 378 +2:+3:1
 379 +3:+2:1
 380 -3:+2:1
 381 -3:-2:1
 382 -144:-60:12
 383 144:-60:12
 384 144:60:12
 385 100:625:25
 386 4096:81:1
 387 1034:804:2
 388 27:90:56:1
 389 27:90:54:9
 390 &blcm
 391 abc:abc:NaN
 392 abc:+0:NaN
 393 +0:abc:NaN
 394 +0:+0:NaN
 395 +1:+0:0
 396 +0:+1:0
 397 +27:+90:270
 398 +1034:+804:415668
 399 $div_scale = 40;
 400 &flog
 401 0::NaN
 402 -1::NaN
 403 -2::NaN
 404 # base > 0, base != 1
 405 2:-1:NaN
 406 2:0:NaN
 407 2:1:NaN
 408 # log(1) is always 1, regardless of $base
 409 1::0
 410 1:1:0
 411 1:2:0
 412 2::0.6931471805599453094172321214581765680755
 413 2.718281828::0.9999999998311266953289851340574956564911
 414 $div_scale = 20;
 415 2.718281828::0.99999999983112669533
 416 $div_scale = 15;
 417 123::4.81218435537242
 418 10::2.30258509299405
 419 1000::6.90775527898214
 420 100::4.60517018598809
 421 2::0.693147180559945
 422 3.1415::1.14470039286086
 423 12345::9.42100640177928
 424 0.001::-6.90775527898214
 425 # bug until v1.71:
 426 10:10:1
 427 100:100:1
 428 # reset for further tests
 429 $div_scale = 40;
 430 1::0
 431 &frsft
 432 NaNfrsft:2:NaN
 433 0:2:0
 434 1:1:0.5
 435 2:1:1
 436 4:1:2
 437 123:1:61.5
 438 32:3:4
 439 &flsft
 440 NaNflsft:0:NaN
 441 2:1:4
 442 4:3:32
 443 5:3:40
 444 1:2:4
 445 0:5:0
 446 &fnorm
 447 1:1
 448 -0:0
 449 fnormNaN:NaN
 450 +inf:inf
 451 -inf:-inf
 452 123:123
 453 -123.4567:-123.4567
 454 # invalid inputs
 455 1__2:NaN
 456 1E1__2:NaN
 457 11__2E2:NaN
 458 .2E-3.:NaN
 459 1e3e4:NaN
 460 # strange, but valid
 461 .2E2:20
 462 1.E3:1000
 463 # some inputs that result in zero
 464 0e0:0
 465 +0e0:0
 466 +0e+0:0
 467 -0e+0:0
 468 0e-0:0
 469 -0e-0:0
 470 +0e-0:0
 471 000:0
 472 00e2:0
 473 00e02:0
 474 000e002:0
 475 000e1230:0
 476 00e-3:0
 477 00e+3:0
 478 00e-03:0
 479 00e+03:0
 480 -000:0
 481 -00e2:0
 482 -00e02:0
 483 -000e002:0
 484 -000e1230:0
 485 -00e-3:0
 486 -00e+3:0
 487 -00e-03:0
 488 -00e+03:0
 489 &as_number
 490 0:0
 491 1:1
 492 1.2:1
 493 2.345:2
 494 -2:-2
 495 -123.456:-123
 496 -200:-200
 497 # test for bug in brsft() not handling cases that return 0
 498 0.000641:0
 499 0.0006412:0
 500 0.00064123:0
 501 0.000641234:0
 502 0.0006412345:0
 503 0.00064123456:0
 504 0.000641234567:0
 505 0.0006412345678:0
 506 0.00064123456789:0
 507 0.1:0
 508 0.01:0
 509 0.001:0
 510 0.0001:0
 511 0.00001:0
 512 0.000001:0
 513 0.0000001:0
 514 0.00000001:0
 515 0.000000001:0
 516 0.0000000001:0
 517 0.00000000001:0
 518 0.12345:0
 519 0.123456:0
 520 0.1234567:0
 521 0.12345678:0
 522 0.123456789:0
 523 &finf
 524 1:+:inf
 525 2:-:-inf
 526 3:abc:inf
 527 &as_hex
 528 +inf:inf
 529 -inf:-inf
 530 hexNaN:NaN
 531 0:0x0
 532 5:0x5
 533 -5:-0x5
 534 &as_bin
 535 +inf:inf
 536 -inf:-inf
 537 hexNaN:NaN
 538 0:0b0
 539 5:0b101
 540 -5:-0b101
 541 &numify
 542 # uses bsstr() so 5 => 5e+0 to be compatible w/ Perls output
 543 0:0e+1
 544 +1:1e+0
 545 1234:1234e+0
 546 NaN:NaN
 547 +inf:inf
 548 -inf:-inf
 549 -5:-5e+0
 550 100:1e+2
 551 -100:-1e+2
 552 &fnan
 553 abc:NaN
 554 2:NaN
 555 -2:NaN
 556 0:NaN
 557 &fone
 558 2:+:1
 559 -2:-:-1
 560 -2:+:1
 561 2:-:-1
 562 0::1
 563 -2::1
 564 abc::1
 565 2:abc:1
 566 &fsstr
 567 +inf:inf
 568 -inf:-inf
 569 abcfsstr:NaN
 570 -abcfsstr:NaN
 571 1234.567:1234567e-3
 572 123:123e+0
 573 -5:-5e+0
 574 -100:-1e+2
 575 &fstr
 576 +inf:::inf
 577 -inf:::-inf
 578 abcfstr:::NaN
 579 1234.567:9::1234.56700
 580 1234.567::-6:1234.567000
 581 12345:5::12345
 582 0.001234:6::0.00123400
 583 0.001234::-8:0.00123400
 584 0:4::0
 585 0::-4:0.0000
 586 &fnorm
 587 inf:inf
 588 +inf:inf
 589 -inf:-inf
 590 +infinity:NaN
 591 +-inf:NaN
 592 abc:NaN
 593    1 a:NaN
 594 1bcd2:NaN
 595 11111b:NaN
 596 +1z:NaN
 597 -1z:NaN
 598 0e999:0
 599 0e-999:0
 600 -0e999:0
 601 -0e-999:0
 602 0:0
 603 +0:0
 604 +00:0
 605 +0_0_0:0
 606 000000_0000000_00000:0
 607 -0:0
 608 -0000:0
 609 +1:1
 610 +01:1
 611 +001:1
 612 +00000100000:100000
 613 123456789:123456789
 614 -1:-1
 615 -01:-1
 616 -001:-1
 617 -123456789:-123456789
 618 -00000100000:-100000
 619 123.456a:NaN
 620 123.456:123.456
 621 0.01:0.01
 622 .002:0.002
 623 +.2:0.2
 624 -0.0003:-0.0003
 625 -.0000000004:-0.0000000004
 626 123456E2:12345600
 627 123456E-2:1234.56
 628 -123456E2:-12345600
 629 -123456E-2:-1234.56
 630 1e1:10
 631 2e-11:0.00000000002
 632 # excercise _split
 633   .02e-1:0.002
 634    000001:1
 635    -00001:-1
 636    -1:-1
 637   000.01:0.01
 638    -000.0023:-0.0023
 639   1.1e1:11
 640 -3e111:-3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 641 -4e-1111:-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004
 642 &fpow
 643 NaN:1:NaN
 644 1:NaN:NaN
 645 NaN:-1:NaN
 646 -1:NaN:NaN
 647 NaN:-21:NaN
 648 -21:NaN:NaN
 649 NaN:21:NaN
 650 21:NaN:NaN
 651 0:0:1
 652 0:1:0
 653 0:9:0
 654 0:-2:inf
 655 2:2:4
 656 1:2:1
 657 1:3:1
 658 -1:2:1
 659 -1:3:-1
 660 123.456:2:15241.383936
 661 2:-2:0.25
 662 2:-3:0.125
 663 128:-2:0.00006103515625
 664 abc:123.456:NaN
 665 123.456:abc:NaN
 666 +inf:123.45:inf
 667 -inf:123.45:-inf
 668 +inf:-123.45:inf
 669 -inf:-123.45:-inf
 670 -2:2:4
 671 -2:3:-8
 672 -2:4:16
 673 -2:5:-32
 674 -3:2:9
 675 -3:3:-27
 676 -3:4:81
 677 -3:5:-243
 678 # 2 ** 0.5 == sqrt(2)
 679 #     1.41..7 and not 1.4170 since fallback (bsqrt(9) is '3', not 3.0...0)
 680 2:0.5:1.41421356237309504880168872420969807857
 681 #2:0.2:1.148698354997035006798626946777927589444
 682 #6:1.5:14.6969384566990685891837044482353483518
 683 $div_scale = 20;
 684 #62.5:12.5:26447206647554886213592.3959144
 685 $div_scale = 40;
 686 &fneg
 687 fnegNaN:NaN
 688 +inf:-inf
 689 -inf:inf
 690 +0:0
 691 +1:-1
 692 -1:1
 693 +123456789:-123456789
 694 -123456789:123456789
 695 +123.456789:-123.456789
 696 -123456.789:123456.789
 697 &fabs
 698 fabsNaN:NaN
 699 +inf:inf
 700 -inf:inf
 701 +0:0
 702 +1:1
 703 -1:1
 704 +123456789:123456789
 705 -123456789:123456789
 706 +123.456789:123.456789
 707 -123456.789:123456.789
 708 &fround
 709 $round_mode = "trunc"
 710 +inf:5:inf
 711 -inf:5:-inf
 712 0:5:0
 713 NaNfround:5:NaN
 714 +10123456789:5:10123000000
 715 -10123456789:5:-10123000000
 716 +10123456789.123:5:10123000000
 717 -10123456789.123:5:-10123000000
 718 +10123456789:9:10123456700
 719 -10123456789:9:-10123456700
 720 +101234500:6:101234000
 721 -101234500:6:-101234000
 722 $round_mode = "zero"
 723 +20123456789:5:20123000000
 724 -20123456789:5:-20123000000
 725 +20123456789.123:5:20123000000
 726 -20123456789.123:5:-20123000000
 727 +20123456789:9:20123456800
 728 -20123456789:9:-20123456800
 729 +201234500:6:201234000
 730 -201234500:6:-201234000
 731 $round_mode = "+inf"
 732 +30123456789:5:30123000000
 733 -30123456789:5:-30123000000
 734 +30123456789.123:5:30123000000
 735 -30123456789.123:5:-30123000000
 736 +30123456789:9:30123456800
 737 -30123456789:9:-30123456800
 738 +301234500:6:301235000
 739 -301234500:6:-301234000
 740 $round_mode = "-inf"
 741 +40123456789:5:40123000000
 742 -40123456789:5:-40123000000
 743 +40123456789.123:5:40123000000
 744 -40123456789.123:5:-40123000000
 745 +40123456789:9:40123456800
 746 -40123456789:9:-40123456800
 747 +401234500:6:401234000
 748 -401234500:6:-401235000
 749 $round_mode = "odd"
 750 +50123456789:5:50123000000
 751 -50123456789:5:-50123000000
 752 +50123456789.123:5:50123000000
 753 -50123456789.123:5:-50123000000
 754 +50123456789:9:50123456800
 755 -50123456789:9:-50123456800
 756 +501234500:6:501235000
 757 -501234500:6:-501235000
 758 $round_mode = "even"
 759 +60123456789:5:60123000000
 760 -60123456789:5:-60123000000
 761 +60123456789:9:60123456800
 762 -60123456789:9:-60123456800
 763 +601234500:6:601234000
 764 -601234500:6:-601234000
 765 +60123456789.0123:5:60123000000
 766 -60123456789.0123:5:-60123000000
 767 $round_mode = "common"
 768 +60123456789:5:60123000000
 769 -60123456789:5:-60123000000
 770 +60123456789:6:60123500000
 771 -60123456789:6:-60123500000
 772 +60123456789:9:60123456800
 773 -60123456789:9:-60123456800
 774 +601234500:6:601235000
 775 -601234500:6:-601235000
 776 +601234400:6:601234000
 777 -601234400:6:-601234000
 778 +601234600:6:601235000
 779 -601234600:6:-601235000
 780 +601234300:6:601234000
 781 +60123456789.0123:5:60123000000
 782 -60123456789.0123:5:-60123000000
 783 &ffround
 784 $round_mode = "trunc"
 785 +inf:5:inf
 786 -inf:5:-inf
 787 0:5:0
 788 NaNffround:5:NaN
 789 +1.23:-1:1.2
 790 +1.234:-1:1.2
 791 +1.2345:-1:1.2
 792 +1.23:-2:1.23
 793 +1.234:-2:1.23
 794 +1.2345:-2:1.23
 795 +1.23:-3:1.230
 796 +1.234:-3:1.234
 797 +1.2345:-3:1.234
 798 -1.23:-1:-1.2
 799 +1.27:-1:1.2
 800 -1.27:-1:-1.2
 801 +1.25:-1:1.2
 802 -1.25:-1:-1.2
 803 +1.35:-1:1.3
 804 -1.35:-1:-1.3
 805 -0.0061234567890:-1:0.0
 806 -0.0061:-1:0.0
 807 -0.00612:-1:0.0
 808 -0.00612:-2:0.00
 809 -0.006:-1:0.0
 810 -0.006:-2:0.00
 811 -0.0006:-2:0.00
 812 -0.0006:-3:0.000
 813 -0.0065:-3:/-0\.006|-6e-03
 814 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 815 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 816 0.05:0:0
 817 0.5:0:0
 818 0.51:0:0
 819 0.41:0:0
 820 $round_mode = "zero"
 821 +2.23:-1:/2.2(?:0{5}\d+)?
 822 -2.23:-1:/-2.2(?:0{5}\d+)?
 823 +2.27:-1:/2.(?:3|29{5}\d+)
 824 -2.27:-1:/-2.(?:3|29{5}\d+)
 825 +2.25:-1:/2.2(?:0{5}\d+)?
 826 -2.25:-1:/-2.2(?:0{5}\d+)?
 827 +2.35:-1:/2.(?:3|29{5}\d+)
 828 -2.35:-1:/-2.(?:3|29{5}\d+)
 829 -0.0065:-1:0.0
 830 -0.0065:-2:/-0\.01|-1e-02
 831 -0.0065:-3:/-0\.006|-6e-03
 832 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 833 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 834 0.05:0:0
 835 0.5:0:0
 836 0.51:0:1
 837 0.41:0:0
 838 $round_mode = "+inf"
 839 +3.23:-1:/3.2(?:0{5}\d+)?
 840 -3.23:-1:/-3.2(?:0{5}\d+)?
 841 +3.27:-1:/3.(?:3|29{5}\d+)
 842 -3.27:-1:/-3.(?:3|29{5}\d+)
 843 +3.25:-1:/3.(?:3|29{5}\d+)
 844 -3.25:-1:/-3.2(?:0{5}\d+)?
 845 +3.35:-1:/3.(?:4|39{5}\d+)
 846 -3.35:-1:/-3.(?:3|29{5}\d+)
 847 -0.0065:-1:0.0
 848 -0.0065:-2:/-0\.01|-1e-02
 849 -0.0065:-3:/-0\.006|-6e-03
 850 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 851 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 852 0.05:0:0
 853 0.5:0:1
 854 0.51:0:1
 855 0.41:0:0
 856 $round_mode = "-inf"
 857 +4.23:-1:/4.2(?:0{5}\d+)?
 858 -4.23:-1:/-4.2(?:0{5}\d+)?
 859 +4.27:-1:/4.(?:3|29{5}\d+)
 860 -4.27:-1:/-4.(?:3|29{5}\d+)
 861 +4.25:-1:/4.2(?:0{5}\d+)?
 862 -4.25:-1:/-4.(?:3|29{5}\d+)
 863 +4.35:-1:/4.(?:3|29{5}\d+)
 864 -4.35:-1:/-4.(?:4|39{5}\d+)
 865 -0.0065:-1:0.0
 866 -0.0065:-2:/-0\.01|-1e-02
 867 -0.0065:-3:/-0\.007|-7e-03
 868 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 869 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 870 0.05:0:0
 871 0.5:0:0
 872 0.51:0:1
 873 0.41:0:0
 874 $round_mode = "odd"
 875 +5.23:-1:/5.2(?:0{5}\d+)?
 876 -5.23:-1:/-5.2(?:0{5}\d+)?
 877 +5.27:-1:/5.(?:3|29{5}\d+)
 878 -5.27:-1:/-5.(?:3|29{5}\d+)
 879 +5.25:-1:/5.(?:3|29{5}\d+)
 880 -5.25:-1:/-5.(?:3|29{5}\d+)
 881 +5.35:-1:/5.(?:3|29{5}\d+)
 882 -5.35:-1:/-5.(?:3|29{5}\d+)
 883 -0.0065:-1:0.0
 884 -0.0065:-2:/-0\.01|-1e-02
 885 -0.0065:-3:/-0\.007|-7e-03
 886 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 887 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 888 0.05:0:0
 889 0.5:0:1
 890 0.51:0:1
 891 0.41:0:0
 892 $round_mode = "even"
 893 +6.23:-1:/6.2(?:0{5}\d+)?
 894 -6.23:-1:/-6.2(?:0{5}\d+)?
 895 +6.27:-1:/6.(?:3|29{5}\d+)
 896 -6.27:-1:/-6.(?:3|29{5}\d+)
 897 +6.25:-1:/6.(?:2(?:0{5}\d+)?|29{5}\d+)
 898 -6.25:-1:/-6.(?:2(?:0{5}\d+)?|29{5}\d+)
 899 +6.35:-1:/6.(?:4|39{5}\d+|29{8}\d+)
 900 -6.35:-1:/-6.(?:4|39{5}\d+|29{8}\d+)
 901 -0.0065:-1:0.0
 902 -0.0065:-2:/-0\.01|-1e-02
 903 -0.0065:-3:/-0\.006|-7e-03
 904 -0.0065:-4:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 905 -0.0065:-5:/-0\.006(?:5|49{5}\d+)|-6\.5e-03
 906 0.05:0:0
 907 0.5:0:0
 908 0.51:0:1
 909 0.41:0:0
 910 0.01234567:-3:0.012
 911 0.01234567:-4:0.0123
 912 0.01234567:-5:0.01235
 913 0.01234567:-6:0.012346
 914 0.01234567:-7:0.0123457
 915 0.01234567:-8:0.01234567
 916 0.01234567:-9:0.012345670
 917 0.01234567:-12:0.012345670000
 918 &fcmp
 919 fcmpNaN:fcmpNaN:
 920 fcmpNaN:+0:
 921 +0:fcmpNaN:
 922 +0:+0:0
 923 -1:+0:-1
 924 +0:-1:1
 925 +1:+0:1
 926 +0:+1:-1
 927 -1:+1:-1
 928 +1:-1:1
 929 -1:-1:0
 930 +1:+1:0
 931 -1.1:0:-1
 932 +0:-1.1:1
 933 +1.1:+0:1
 934 +0:+1.1:-1
 935 +123:+123:0
 936 +123:+12:1
 937 +12:+123:-1
 938 -123:-123:0
 939 -123:-12:-1
 940 -12:-123:1
 941 +123:+124:-1
 942 +124:+123:1
 943 -123:-124:1
 944 -124:-123:-1
 945 0:0.01:-1
 946 0:0.0001:-1
 947 0:-0.0001:1
 948 0:-0.1:1
 949 0.1:0:1
 950 0.00001:0:1
 951 -0.0001:0:-1
 952 -0.1:0:-1
 953 0:0.0001234:-1
 954 0:-0.0001234:1
 955 0.0001234:0:1
 956 -0.0001234:0:-1
 957 0.0001:0.0005:-1
 958 0.0005:0.0001:1
 959 0.005:0.0001:1
 960 0.001:0.0005:1
 961 0.000001:0.0005:-1
 962 0.00000123:0.0005:-1
 963 0.00512:0.0001:1
 964 0.005:0.000112:1
 965 0.00123:0.0005:1
 966 1.5:2:-1
 967 2:1.5:1
 968 1.54321:234:-1
 969 234:1.54321:1
 970 # infinity
 971 -inf:5432112345:-1
 972 +inf:5432112345:1
 973 -inf:-5432112345:-1
 974 +inf:-5432112345:1
 975 -inf:54321.12345:-1
 976 +inf:54321.12345:1
 977 -inf:-54321.12345:-1
 978 +inf:-54321.12345:1
 979 +inf:+inf:0
 980 -inf:-inf:0
 981 +inf:-inf:1
 982 -inf:+inf:-1
 983 # return undef
 984 +inf:NaN:
 985 NaN:inf:
 986 -inf:NaN:
 987 NaN:-inf:
 988 &facmp
 989 fcmpNaN:fcmpNaN:
 990 fcmpNaN:+0:
 991 +0:fcmpNaN:
 992 +0:+0:0
 993 -1:+0:1
 994 +0:-1:-1
 995 +1:+0:1
 996 +0:+1:-1
 997 -1:+1:0
 998 +1:-1:0
 999 -1:-1:0
1000 +1:+1:0
1001 -1.1:0:1
1002 +0:-1.1:-1
1003 +1.1:+0:1
1004 +0:+1.1:-1
1005 +123:+123:0
1006 +123:+12:1
1007 +12:+123:-1
1008 -123:-123:0
1009 -123:-12:1
1010 -12:-123:-1
1011 +123:+124:-1
1012 +124:+123:1
1013 -123:-124:-1
1014 -124:-123:1
1015 0:0.01:-1
1016 0:0.0001:-1
1017 0:-0.0001:-1
1018 0:-0.1:-1
1019 0.1:0:1
1020 0.00001:0:1
1021 -0.0001:0:1
1022 -0.1:0:1
1023 0:0.0001234:-1
1024 0:-0.0001234:-1
1025 0.0001234:0:1
1026 -0.0001234:0:1
1027 0.0001:0.0005:-1
1028 0.0005:0.0001:1
1029 0.005:0.0001:1
1030 0.001:0.0005:1
1031 0.000001:0.0005:-1
1032 0.00000123:0.0005:-1
1033 0.00512:0.0001:1
1034 0.005:0.000112:1
1035 0.00123:0.0005:1
1036 1.5:2:-1
1037 2:1.5:1
1038 1.54321:234:-1
1039 234:1.54321:1
1040 # infinity
1041 -inf:5432112345:1
1042 +inf:5432112345:1
1043 -inf:-5432112345:1
1044 +inf:-5432112345:1
1045 -inf:54321.12345:1
1046 +inf:54321.12345:1
1047 -inf:-54321.12345:1
1048 +inf:-54321.12345:1
1049 +inf:+inf:0
1050 -inf:-inf:0
1051 +inf:-inf:0
1052 -inf:+inf:0
1053 5:inf:-1
1054 -1:inf:-1
1055 5:-inf:-1
1056 -1:-inf:-1
1057 # return undef
1058 +inf:facmpNaN:
1059 facmpNaN:inf:
1060 -inf:facmpNaN:
1061 facmpNaN:-inf:
1062 &fdec
1063 fdecNaN:NaN
1064 +inf:inf
1065 -inf:-inf
1066 +0:-1
1067 +1:0
1068 -1:-2
1069 1.23:0.23
1070 -1.23:-2.23
1071 100:99
1072 101:100
1073 -100:-101
1074 -99:-100
1075 -98:-99
1076 99:98
1077 &finc
1078 fincNaN:NaN
1079 +inf:inf
1080 -inf:-inf
1081 +0:1
1082 +1:2
1083 -1:0
1084 1.23:2.23
1085 -1.23:-0.23
1086 100:101
1087 -100:-99
1088 -99:-98
1089 -101:-100
1090 99:100
1091 &fadd
1092 abc:abc:NaN
1093 abc:+0:NaN
1094 +0:abc:NaN
1095 +inf:-inf:NaN
1096 -inf:+inf:NaN
1097 +inf:+inf:inf
1098 -inf:-inf:-inf
1099 baddNaN:+inf:NaN
1100 baddNaN:+inf:NaN
1101 +inf:baddNaN:NaN
1102 -inf:baddNaN:NaN
1103 +0:+0:0
1104 +1:+0:1
1105 +0:+1:1
1106 +1:+1:2
1107 -1:+0:-1
1108 +0:-1:-1
1109 -1:-1:-2
1110 -1:+1:0
1111 +1:-1:0
1112 +9:+1:10
1113 +99:+1:100
1114 +999:+1:1000
1115 +9999:+1:10000
1116 +99999:+1:100000
1117 +999999:+1:1000000
1118 +9999999:+1:10000000
1119 +99999999:+1:100000000
1120 +999999999:+1:1000000000
1121 +9999999999:+1:10000000000
1122 +99999999999:+1:100000000000
1123 +10:-1:9
1124 +100:-1:99
1125 +1000:-1:999
1126 +10000:-1:9999
1127 +100000:-1:99999
1128 +1000000:-1:999999
1129 +10000000:-1:9999999
1130 +100000000:-1:99999999
1131 +1000000000:-1:999999999
1132 +10000000000:-1:9999999999
1133 +123456789:+987654321:1111111110
1134 -123456789:+987654321:864197532
1135 -123456789:-987654321:-1111111110
1136 +123456789:-987654321:-864197532
1137 0.001234:0.0001234:0.0013574
1138 &fsub
1139 abc:abc:NaN
1140 abc:+0:NaN
1141 +0:abc:NaN
1142 +inf:-inf:inf
1143 -inf:+inf:-inf
1144 +inf:+inf:NaN
1145 -inf:-inf:NaN
1146 baddNaN:+inf:NaN
1147 baddNaN:+inf:NaN
1148 +inf:baddNaN:NaN
1149 -inf:baddNaN:NaN
1150 +0:+0:0
1151 +1:+0:1
1152 +0:+1:-1
1153 +1:+1:0
1154 -1:+0:-1
1155 +0:-1:1
1156 -1:-1:0
1157 -1:+1:-2
1158 +1:-1:2
1159 +9:+1:8
1160 +99:+1:98
1161 +999:+1:998
1162 +9999:+1:9998
1163 +99999:+1:99998
1164 +999999:+1:999998
1165 +9999999:+1:9999998
1166 +99999999:+1:99999998
1167 +999999999:+1:999999998
1168 +9999999999:+1:9999999998
1169 +99999999999:+1:99999999998
1170 +10:-1:11
1171 +100:-1:101
1172 +1000:-1:1001
1173 +10000:-1:10001
1174 +100000:-1:100001
1175 +1000000:-1:1000001
1176 +10000000:-1:10000001
1177 +100000000:-1:100000001
1178 +1000000000:-1:1000000001
1179 +10000000000:-1:10000000001
1180 +123456789:+987654321:-864197532
1181 -123456789:+987654321:-1111111110
1182 -123456789:-987654321:864197532
1183 +123456789:-987654321:1111111110
1184 &fmul
1185 abc:abc:NaN
1186 abc:+0:NaN
1187 +0:abc:NaN
1188 +inf:NaNmul:NaN
1189 +inf:NaNmul:NaN
1190 NaNmul:+inf:NaN
1191 NaNmul:-inf:NaN
1192 +inf:+inf:inf
1193 +inf:-inf:-inf
1194 +inf:-inf:-inf
1195 +inf:+inf:inf
1196 +inf:123.34:inf
1197 +inf:-123.34:-inf
1198 -inf:123.34:-inf
1199 -inf:-123.34:inf
1200 123.34:+inf:inf
1201 -123.34:+inf:-inf
1202 123.34:-inf:-inf
1203 -123.34:-inf:inf
1204 +0:+0:0
1205 +0:+1:0
1206 +1:+0:0
1207 +0:-1:0
1208 -1:+0:0
1209 +123456789123456789:+0:0
1210 +0:+123456789123456789:0
1211 -1:-1:1
1212 -1:+1:-1
1213 +1:-1:-1
1214 +1:+1:1
1215 +2:+3:6
1216 -2:+3:-6
1217 +2:-3:-6
1218 -2:-3:6
1219 +111:+111:12321
1220 +10101:+10101:102030201
1221 +1001001:+1001001:1002003002001
1222 +100010001:+100010001:10002000300020001
1223 +10000100001:+10000100001:100002000030000200001
1224 +11111111111:+9:99999999999
1225 +22222222222:+9:199999999998
1226 +33333333333:+9:299999999997
1227 +44444444444:+9:399999999996
1228 +55555555555:+9:499999999995
1229 +66666666666:+9:599999999994
1230 +77777777777:+9:699999999993
1231 +88888888888:+9:799999999992
1232 +99999999999:+9:899999999991
1233 6:120:720
1234 10:10000:100000
1235 &fdiv-list
1236 0:0:NaN,NaN
1237 0:1:0,0
1238 9:4:2.25,1
1239 9:5:1.8,4
1240 # bug in v1.74 with bdiv in list context, when $y is 1 or -1
1241 2.1:-1:-2.1,0
1242 2.1:1:2.1,0
1243 -2.1:-1:2.1,0
1244 -2.1:1:-2.1,0
1245 &fdiv
1246 $div_scale = 40; $round_mode = 'even'
1247 abc:abc:NaN
1248 abc:+1:abc:NaN
1249 +1:abc:NaN
1250 -1:abc:NaN
1251 0:abc:NaN
1252 +0:+0:NaN
1253 +0:+1:0
1254 +1:+0:inf
1255 +3214:+0:inf
1256 +0:-1:0
1257 -1:+0:-inf
1258 -3214:+0:-inf
1259 +1:+1:1
1260 -1:-1:1
1261 +1:-1:-1
1262 -1:+1:-1
1263 +1:+2:0.5
1264 +2:+1:2
1265 123:+inf:0
1266 123:-inf:0
1267 +10:+5:2
1268 +100:+4:25
1269 +1000:+8:125
1270 +10000:+16:625
1271 +10000:-16:-625
1272 +999999999999:+9:111111111111
1273 +999999999999:+99:10101010101
1274 +999999999999:+999:1001001001
1275 +999999999999:+9999:100010001
1276 +999999999999999:+99999:10000100001
1277 +1000000000:+9:111111111.1111111111111111111111111111111
1278 +2000000000:+9:222222222.2222222222222222222222222222222
1279 +3000000000:+9:333333333.3333333333333333333333333333333
1280 +4000000000:+9:444444444.4444444444444444444444444444444
1281 +5000000000:+9:555555555.5555555555555555555555555555556
1282 +6000000000:+9:666666666.6666666666666666666666666666667
1283 +7000000000:+9:777777777.7777777777777777777777777777778
1284 +8000000000:+9:888888888.8888888888888888888888888888889
1285 +9000000000:+9:1000000000
1286 +35500000:+113:314159.2920353982300884955752212389380531
1287 +71000000:+226:314159.2920353982300884955752212389380531
1288 +106500000:+339:314159.2920353982300884955752212389380531
1289 +1000000000:+3:333333333.3333333333333333333333333333333
1290 2:25.024996000799840031993601279744051189762:0.07992009269196593320152084692285869265447
1291 123456:1:123456
1292 $div_scale = 20
1293 +1000000000:+9:111111111.11111111111
1294 +2000000000:+9:222222222.22222222222
1295 +3000000000:+9:333333333.33333333333
1296 +4000000000:+9:444444444.44444444444
1297 +5000000000:+9:555555555.55555555556
1298 +6000000000:+9:666666666.66666666667
1299 +7000000000:+9:777777777.77777777778
1300 +8000000000:+9:888888888.88888888889
1301 +9000000000:+9:1000000000
1302 1:10:0.1
1303 1:100:0.01
1304 1:1000:0.001
1305 1:10000:0.0001
1306 1:504:0.001984126984126984127
1307 2:1.987654321:1.0062111801179738436
1308 123456789.123456789123456789123456789:1:123456789.12345678912
1309 # the next two cases are the "old" behaviour, but are now (>v0.01) different
1310 #+35500000:+113:314159.292035398230088
1311 #+71000000:+226:314159.292035398230088
1312 +35500000:+113:314159.29203539823009
1313 +71000000:+226:314159.29203539823009
1314 +106500000:+339:314159.29203539823009
1315 +1000000000:+3:333333333.33333333333
1316 $div_scale = 1
1317 # round to accuracy 1 after bdiv
1318 +124:+3:40
1319 123456789.1234:1:100000000
1320 # reset scale for further tests
1321 $div_scale = 40
1322 &fmod
1323 +9:4:1
1324 +9:5:4
1325 +9000:56:40
1326 +56:9000:56
1327 # inf handling, see table in doc
1328 0:inf:0
1329 0:-inf:0
1330 5:inf:5
1331 5:-inf:5
1332 -5:inf:-5
1333 -5:-inf:-5
1334 inf:5:0
1335 -inf:5:0
1336 inf:-5:0
1337 -inf:-5:0
1338 5:5:0
1339 -5:-5:0
1340 inf:inf:NaN
1341 -inf:-inf:NaN
1342 -inf:inf:NaN
1343 inf:-inf:NaN
1344 8:0:8
1345 inf:0:inf
1346 # exceptions to reminder rule
1347 -inf:0:-inf
1348 -8:0:-8
1349 0:0:NaN
1350 abc:abc:NaN
1351 abc:1:abc:NaN
1352 1:abc:NaN
1353 0:0:NaN
1354 0:1:0
1355 1:0:1
1356 0:-1:0
1357 -1:0:-1
1358 1:1:0
1359 -1:-1:0
1360 1:-1:0
1361 -1:1:0
1362 1:2:1
1363 2:1:0
1364 1000000000:9:1
1365 2000000000:9:2
1366 3000000000:9:3
1367 4000000000:9:4
1368 5000000000:9:5
1369 6000000000:9:6
1370 7000000000:9:7
1371 8000000000:9:8
1372 9000000000:9:0
1373 35500000:113:33
1374 71000000:226:66
1375 106500000:339:99
1376 1000000000:3:1
1377 10:5:0
1378 100:4:0
1379 1000:8:0
1380 10000:16:0
1381 999999999999:9:0
1382 999999999999:99:0
1383 999999999999:999:0
1384 999999999999:9999:0
1385 999999999999999:99999:0
1386 -9:+5:1
1387 +9:-5:-1
1388 -9:-5:-4
1389 -5:3:1
1390 -2:3:1
1391 4:3:1
1392 1:3:1
1393 -5:-3:-2
1394 -2:-3:-2
1395 4:-3:-2
1396 1:-3:-2
1397 4095:4095:0
1398 100041000510123:3:0
1399 152403346:12345:4321
1400 87654321:87654321:0
1401 # now some floating point tests
1402 123:2.5:0.5
1403 1230:2.5:0
1404 123.4:2.5:0.9
1405 123e1:25:5
1406 -2.1:1:0.9
1407 2.1:1:0.1
1408 -2.1:-1:-0.1
1409 2.1:-1:-0.9
1410 -3:1:0
1411 3:1:0
1412 -3:-1:0
1413 3:-1:0
1414 &ffac
1415 Nanfac:NaN
1416 -1:NaN
1417 +inf:inf
1418 -inf:NaN
1419 0:1
1420 1:1
1421 2:2
1422 3:6
1423 4:24
1424 5:120
1425 6:720
1426 10:3628800
1427 11:39916800
1428 12:479001600
1429 &froot
1430 # sqrt()
1431 +0:2:0
1432 +1:2:1
1433 -1:2:NaN
1434 # -$x ** (1/2) => -$y, but not in froot()
1435 -123.456:2:NaN
1436 +inf:2:inf
1437 -inf:2:NaN
1438 2:2:1.41421356237309504880168872420969807857
1439 -2:2:NaN
1440 4:2:2
1441 9:2:3
1442 16:2:4
1443 100:2:10
1444 123.456:2:11.11107555549866648462149404118219234119
1445 15241.38393:2:123.4559999756998444766131352122991626468
1446 1.44:2:1.2
1447 12:2:3.464101615137754587054892683011744733886
1448 0.49:2:0.7
1449 0.0049:2:0.07
1450 # invalid ones
1451 1:NaN:NaN
1452 -1:NaN:NaN
1453 0:NaN:NaN
1454 -inf:NaN:NaN
1455 +inf:NaN:NaN
1456 NaN:0:NaN
1457 NaN:2:NaN
1458 NaN:inf:NaN
1459 NaN:inf:NaN
1460 12:-inf:NaN
1461 12:inf:NaN
1462 +0:0:NaN
1463 +1:0:NaN
1464 -1:0:NaN
1465 -2:0:NaN
1466 -123.45:0:NaN
1467 +inf:0:NaN
1468 12:1:12
1469 -12:1:NaN
1470 8:-1:NaN
1471 -8:-1:NaN
1472 # cubic root
1473 8:3:2
1474 -8:3:NaN
1475 # fourths root
1476 16:4:2
1477 81:4:3
1478 # see t/bigroot() for more tests
1479 &fsqrt
1480 +0:0
1481 -1:NaN
1482 -2:NaN
1483 -16:NaN
1484 -123.45:NaN
1485 nanfsqrt:NaN
1486 +inf:inf
1487 -inf:NaN
1488 1:1
1489 2:1.41421356237309504880168872420969807857
1490 4:2
1491 9:3
1492 16:4
1493 100:10
1494 123.456:11.11107555549866648462149404118219234119
1495 15241.38393:123.4559999756998444766131352122991626468
1496 1.44:1.2
1497 # sqrt(1.44) = 1.2, sqrt(e10) = e5 => 12e4
1498 1.44E10:120000
1499 2e10:141421.356237309504880168872420969807857
1500 144e20:120000000000
1501 # proved to be an endless loop under 7-9
1502 12:3.464101615137754587054892683011744733886
1503 0.49:0.7
1504 0.0049:0.07
1505 &is_nan
1506 123:0
1507 abc:1
1508 NaN:1
1509 -123:0
1510 &is_inf
1511 +inf::1
1512 -inf::1
1513 abc::0
1514 1::0
1515 NaN::0
1516 -1::0
1517 +inf:-:0
1518 +inf:+:1
1519 -inf:-:1
1520 -inf:+:0
1521 # it must be exactly /^[+-]inf$/
1522 +infinity::0
1523 -infinity::0
1524 &is_odd
1525 abc:0
1526 0:0
1527 -1:1
1528 -3:1
1529 1:1
1530 3:1
1531 1000001:1
1532 1000002:0
1533 +inf:0
1534 -inf:0
1535 123.45:0
1536 -123.45:0
1537 2:0
1538 &is_int
1539 NaNis_int:0
1540 0:1
1541 1:1
1542 2:1
1543 -2:1
1544 -1:1
1545 -inf:0
1546 +inf:0
1547 123.4567:0
1548 -0.1:0
1549 -0.002:0
1550 &is_even
1551 abc:0
1552 0:1
1553 -1:0
1554 -3:0
1555 1:0
1556 3:0
1557 1000001:0
1558 1000002:1
1559 2:1
1560 +inf:0
1561 -inf:0
1562 123.456:0
1563 -123.456:0
1564 0.01:0
1565 -0.01:0
1566 120:1
1567 1200:1
1568 -1200:1
1569 &is_positive
1570 0:0
1571 1:1
1572 -1:0
1573 -123:0
1574 NaN:0
1575 -inf:0
1576 +inf:1
1577 &is_negative
1578 0:0
1579 1:0
1580 -1:1
1581 -123:1
1582 NaN:0
1583 -inf:1
1584 +inf:0
1585 &parts
1586 0:0 1
1587 1:1 0
1588 123:123 0
1589 -123:-123 0
1590 -1200:-12 2
1591 NaNparts:NaN NaN
1592 +inf:inf inf
1593 -inf:-inf inf
1594 &exponent
1595 0:1
1596 1:0
1597 123:0
1598 -123:0
1599 -1200:2
1600 +inf:inf
1601 -inf:inf
1602 NaNexponent:NaN
1603 &mantissa
1604 0:0
1605 1:1
1606 123:123
1607 -123:-123
1608 -1200:-12
1609 +inf:inf
1610 -inf:-inf
1611 NaNmantissa:NaN
1612 &length
1613 123:3
1614 -123:3
1615 0:1
1616 1:1
1617 12345678901234567890:20
1618 &is_zero
1619 NaNzero:0
1620 +inf:0
1621 -inf:0
1622 0:1
1623 -1:0
1624 1:0
1625 &is_one
1626 NaNone:0
1627 +inf:0
1628 -inf:0
1629 0:0
1630 2:0
1631 1:1
1632 -1:0
1633 -2:0
1634 &ffloor
1635 0:0
1636 abc:NaN
1637 +inf:inf
1638 -inf:-inf
1639 1:1
1640 -51:-51
1641 -51.2:-52
1642 12.2:12
1643 0.12345:0
1644 0.123456:0
1645 0.1234567:0
1646 0.12345678:0
1647 0.123456789:0
1648 &fceil
1649 0:0
1650 abc:NaN
1651 +inf:inf
1652 -inf:-inf
1653 1:1
1654 -51:-51
1655 -51.2:-51
1656 12.2:13