PATH=C:\Perl-5.22-64\site\bin;C:\Perl-5.22-64\bin;C:\MinGW-64\bin;C:\cygwin\bin;C:\instantclient_11_2-64;C:\Perl-5.22-64\site\bin;C:\Perl-5.22-64\bin;C:\MinGW-64\bin;C:\cygwin\bin;C:\instantclient_11_2-64;C:\p4;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files\Git\cmd;C:\Program Files (x86)\CMake\bin Start 2017-01-05T01:17:43 ActivePerl-2201 CPAN-2.10 PATH=C:/CPANFL~4.22-/var/libs/bin;C:\PERL-5~2.22-\site\bin;C:\PERL-5~2.22-\bin;C:\MinGW-64\bin;C:\cygwin\bin;C:\INSTAN~1;C:\PERL-5~2.22-\site\bin;C:\PERL-5~2.22-\bin;C:\MinGW-64\bin;C:\cygwin\bin;C:\INSTAN~1;C:\p4;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WINDOW~1\v1.0\;C:\PROGRA~1\Git\cmd;C:\PROGRA~2\CMake\bin Reading 'C:\cpanfly-5.22-64\var\cpan\Metadata' Database was generated on Wed, 04 Jan 2017 06:41:03 GMT Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\F\FE\FELIPE\Net-ACME-0.1.tar.gz ok Net-ACME-0.1/ Net-ACME-0.1/.gitignore Net-ACME-0.1/Changes Net-ACME-0.1/eval_bug.readme Net-ACME-0.1/examples/ Net-ACME-0.1/lib/ Net-ACME-0.1/LICENSE Net-ACME-0.1/Makefile.PL Net-ACME-0.1/MANIFEST Net-ACME-0.1/META.json Net-ACME-0.1/META.yml Net-ACME-0.1/README.pod Net-ACME-0.1/t/ Net-ACME-0.1/t/001_load.t Net-ACME-0.1/t/lib/ Net-ACME-0.1/t/Net-ACME-Authorization-Pending.t Net-ACME-0.1/t/Net-ACME-Authorization.t Net-ACME-0.1/t/Net-ACME-Certificate-Pending.t Net-ACME-0.1/t/Net-ACME-Certificate.t Net-ACME-0.1/t/Net-ACME-Challenge-Pending-http_01-Handler.t Net-ACME-0.1/t/Net-ACME-Challenge-Pending-http_01.t Net-ACME-0.1/t/Net-ACME-Challenge-Pending.t Net-ACME-0.1/t/Net-ACME-Challenge.t Net-ACME-0.1/t/Net-ACME-Constants.t Net-ACME-0.1/t/Net-ACME-Crypt.t Net-ACME-0.1/t/Net-ACME-Error.t Net-ACME-0.1/t/Net-ACME-HTTP-Response.t Net-ACME-0.1/t/Net-ACME-HTTP.t Net-ACME-0.1/t/Net-ACME-Registration.t Net-ACME-0.1/t/Net-ACME-RetryAfter.t Net-ACME-0.1/t/Net-ACME-Utils.t Net-ACME-0.1/t/Net-ACME-X.t Net-ACME-0.1/t/Net-ACME-X_lazy.t Net-ACME-0.1/t/Net-ACME.t Net-ACME-0.1/t/t-lib-Test-Crypt.t Net-ACME-0.1/t/lib/Test/ Net-ACME-0.1/t/lib/Test/ACME.pm Net-ACME-0.1/t/lib/Test/ACMEServer.pm Net-ACME-0.1/t/lib/Test/Crypt.pm Net-ACME-0.1/lib/Net/ Net-ACME-0.1/lib/Net/ACME/ Net-ACME-0.1/lib/Net/ACME.pm Net-ACME-0.1/lib/Net/ACME/AccessorBase.pm Net-ACME-0.1/lib/Net/ACME/Authorization/ Net-ACME-0.1/lib/Net/ACME/Authorization.pm Net-ACME-0.1/lib/Net/ACME/Certificate/ Net-ACME-0.1/lib/Net/ACME/Certificate.pm Net-ACME-0.1/lib/Net/ACME/Challenge/ Net-ACME-0.1/lib/Net/ACME/Challenge.pm Net-ACME-0.1/lib/Net/ACME/Constants.pm Net-ACME-0.1/lib/Net/ACME/Crypt.pm Net-ACME-0.1/lib/Net/ACME/Error.pm Net-ACME-0.1/lib/Net/ACME/HTTP/ Net-ACME-0.1/lib/Net/ACME/HTTP.pm Net-ACME-0.1/lib/Net/ACME/HTTP_Tiny.pm Net-ACME-0.1/lib/Net/ACME/LetsEncrypt.pm Net-ACME-0.1/lib/Net/ACME/Registration.pm Net-ACME-0.1/lib/Net/ACME/RetryAfter.pm Net-ACME-0.1/lib/Net/ACME/Utils.pm Net-ACME-0.1/lib/Net/ACME/X/ Net-ACME-0.1/lib/Net/ACME/X.pm Net-ACME-0.1/lib/Net/ACME/X/Empty.pm Net-ACME-0.1/lib/Net/ACME/X/HashBase.pm Net-ACME-0.1/lib/Net/ACME/X/HTTP/ Net-ACME-0.1/lib/Net/ACME/X/InvalidCharacters.pm Net-ACME-0.1/lib/Net/ACME/X/InvalidParameter.pm Net-ACME-0.1/lib/Net/ACME/X/OverloadBase.pm Net-ACME-0.1/lib/Net/ACME/X/Protocol.pm Net-ACME-0.1/lib/Net/ACME/X/UnexpectedResponse.pm Net-ACME-0.1/lib/Net/ACME/X/UnrecognizedKey.pm Net-ACME-0.1/lib/Net/ACME/X/HTTP/Network.pm Net-ACME-0.1/lib/Net/ACME/X/HTTP/Protocol.pm Net-ACME-0.1/lib/Net/ACME/HTTP/Response.pm Net-ACME-0.1/lib/Net/ACME/Challenge/Pending/ Net-ACME-0.1/lib/Net/ACME/Challenge/Pending.pm Net-ACME-0.1/lib/Net/ACME/Challenge/Pending/http_01/ Net-ACME-0.1/lib/Net/ACME/Challenge/Pending/http_01.pm Net-ACME-0.1/lib/Net/ACME/Challenge/Pending/http_01/Handler.pm Net-ACME-0.1/lib/Net/ACME/Certificate/Pending.pm Net-ACME-0.1/lib/Net/ACME/Authorization/Pending.pm Net-ACME-0.1/examples/dns-01.pl Net-ACME-0.1/examples/http-01.pl Net-ACME-0.1/examples/http-01_local.pl Net-ACME-0.1/examples/Net_ACME_Example.pm Net-ACME-0.1/examples/tls-sni-01.pl Net-ACME-0.1/examples/tls-sni-02.pl Configuring F/FE/FELIPE/Net-ACME-0.1.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL Warning: prerequisite Call::Context 0.02 not found. Warning: prerequisite Crypt::Perl 0.14 not found. Checking if your kit is complete... Looks good Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Net::ACME Writing MYMETA.yml and MYMETA.json FELIPE/Net-ACME-0.1.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for F/FE/FELIPE/Net-ACME-0.1.tar.gz ---- Unsatisfied dependencies detected during ---- ---- FELIPE/Net-ACME-0.1.tar.gz ---- Crypt::Perl [requires] Call::Context [requires] Running test for module 'Crypt::Perl' Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\F\FE\FELIPE\Crypt-Perl-0.14.tar.gz ok Crypt-Perl-0.14/ Crypt-Perl-0.14/.gitignore Crypt-Perl-0.14/Changes Crypt-Perl-0.14/lib/ Crypt-Perl-0.14/Makefile.PL Crypt-Perl-0.14/MANIFEST Crypt-Perl-0.14/META.json Crypt-Perl-0.14/META.yml Crypt-Perl-0.14/README.pod Crypt-Perl-0.14/t/ Crypt-Perl-0.14/util/ Crypt-Perl-0.14/util/extract_openssl_curves.pl Crypt-Perl-0.14/t/assets/ Crypt-Perl-0.14/t/Crypt-Perl-BigInt.t Crypt-Perl-0.14/t/Crypt-Perl-ECDSA-Generate.t Crypt-Perl-0.14/t/Crypt-Perl-ECDSA-Parse.t Crypt-Perl-0.14/t/Crypt-Perl-ECDSA-PrivateKey.t Crypt-Perl-0.14/t/Crypt-Perl-ECDSA-PublicKey.t Crypt-Perl-0.14/t/Crypt-Perl-Math.t Crypt-Perl-0.14/t/Crypt-Perl-PK.t Crypt-Perl-0.14/t/Crypt-Perl-PKCS10-Attribute-extensionRequest.t Crypt-Perl-0.14/t/Crypt-Perl-PKCS10.t Crypt-Perl-0.14/t/Crypt-Perl-RSA-Generate.t Crypt-Perl-0.14/t/Crypt-Perl-RSA-Parse.t Crypt-Perl-0.14/t/Crypt-Perl-RSA-PrivateKey.t Crypt-Perl-0.14/t/Crypt-Perl-RSA-PublicKey.t Crypt-Perl-0.14/t/Crypt-Perl-X509-Extension-subjectAltName.t Crypt-Perl-0.14/t/lib/ Crypt-Perl-0.14/t/lib/NeedsOpenSSL.pm Crypt-Perl-0.14/t/lib/OpenSSL_Control.pm Crypt-Perl-0.14/t/assets/c2pnb163v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/ Crypt-Perl-0.14/t/assets/ecdsa_named_curve/ Crypt-Perl-0.14/t/assets/generate_ecdsa_keys.pl Crypt-Perl-0.14/t/assets/generate_rs256_tests.pl Crypt-Perl-0.14/t/assets/prime256v1.key Crypt-Perl-0.14/t/assets/prime256v1.key.public Crypt-Perl-0.14/t/assets/prime256v1.prkey Crypt-Perl-0.14/t/assets/prime256v1_explicit.key Crypt-Perl-0.14/t/assets/prime256v1_explicit.key.public Crypt-Perl-0.14/t/assets/RS256.dump Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP160r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP160t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP192r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP192t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP224r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP224t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP256r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP256t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP320r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP320t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP384r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP384t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP512r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/brainpoolP512t1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb163v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb163v2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb163v3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb176v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb208w1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb272w1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb304w1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2pnb368w1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb191v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb191v2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb191v3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb239v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb239v2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb239v3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb359v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/c2tnb431r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/Oakley-EC2N-3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/Oakley-EC2N-4.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime192v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime192v2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime192v3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime239v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime239v2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime239v3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/prime256v1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp112r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp112r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp128r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp128r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp160k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp160r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp160r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp192k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp224k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp224r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp256k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp384r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/secp521r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect113r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect113r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect131r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect131r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect163k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect163r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect163r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect193r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect193r2.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect233k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect233r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect239k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect283k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect283r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect409k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect409r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect571k1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/sect571r1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls1.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls10.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls11.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls12.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls3.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls4.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls5.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls6.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls7.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls8.key Crypt-Perl-0.14/t/assets/ecdsa_named_curve/wap-wsg-idm-ecid-wtls9.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP160r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP160t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP192r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP192t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP224r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP224t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP256r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP256t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP320r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP320t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP384r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP384t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP512r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/brainpoolP512t1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb163v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb163v2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb163v3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb176v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb208w1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb272w1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb304w1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2pnb368w1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb191v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb191v2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb191v3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb239v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb239v2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb239v3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb359v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/c2tnb431r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/Oakley-EC2N-3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/Oakley-EC2N-4.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime192v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime192v2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime192v3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime239v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime239v2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime239v3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/prime256v1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp112r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp112r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp128r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp128r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp160k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp160r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp160r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp192k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp224k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp224r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp256k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp384r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/secp521r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect113r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect113r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect131r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect131r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect163k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect163r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect163r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect193r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect193r2.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect233k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect233r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect239k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect283k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect283r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect409k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect409r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect571k1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/sect571r1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls1.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls10.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls11.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls12.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls3.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls4.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls5.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls6.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls7.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls8.key Crypt-Perl-0.14/t/assets/ecdsa_explicit/wap-wsg-idm-ecid-wtls9.key Crypt-Perl-0.14/lib/Crypt/ Crypt-Perl-0.14/lib/Crypt/Perl/ Crypt-Perl-0.14/lib/Crypt/Perl.pm Crypt-Perl-0.14/lib/Crypt/Perl/ASN1/ Crypt-Perl-0.14/lib/Crypt/Perl/ASN1.pm Crypt-Perl-0.14/lib/Crypt/Perl/BigInt.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/ Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA.pm Crypt-Perl-0.14/lib/Crypt/Perl/JWK.pm Crypt-Perl-0.14/lib/Crypt/Perl/KeyBase.pm Crypt-Perl-0.14/lib/Crypt/Perl/Math.pm Crypt-Perl-0.14/lib/Crypt/Perl/PK.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/ Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS8.pm Crypt-Perl-0.14/lib/Crypt/Perl/RNG.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/ Crypt-Perl-0.14/lib/Crypt/Perl/RSA.pm Crypt-Perl-0.14/lib/Crypt/Perl/ToDER.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ Crypt-Perl-0.14/lib/Crypt/Perl/X.pm Crypt-Perl-0.14/lib/Crypt/Perl/X509/ Crypt-Perl-0.14/lib/Crypt/Perl/X509/Extension/ Crypt-Perl-0.14/lib/Crypt/Perl/X509/Extension.pm Crypt-Perl-0.14/lib/Crypt/Perl/X509/Name.pm Crypt-Perl-0.14/lib/Crypt/Perl/X509/Extension/subjectAltName.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ASN1/ Crypt-Perl-0.14/lib/Crypt/Perl/X/Base.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/ Crypt-Perl-0.14/lib/Crypt/Perl/X/InvalidJWK.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/TooLongToSign.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/UnknownHash.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/UnknownJWKkty.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/CharacteristicTwoUnsupported.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/NoCurveForName.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/NoCurveForNISTName.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/NoCurveForOID.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ECDSA/NoCurveForParameters.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ASN1/Decode.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ASN1/Encode.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ASN1/Find.pm Crypt-Perl-0.14/lib/Crypt/Perl/X/ASN1/Prepare.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/Generate.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/KeyBase.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/Parse.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/PKCS1_v1_5.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/PrivateKey.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/PublicKey.pm Crypt-Perl-0.14/lib/Crypt/Perl/RSA/Template.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/ASN1.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/Attribute/ Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/Attribute.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/Attributes.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/Attribute/challengePassword.pm Crypt-Perl-0.14/lib/Crypt/Perl/PKCS10/Attribute/extensionRequest.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/ Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/ECParameters.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/Generate.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/KeyBase.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/NIST.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/Parse.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/PrivateKey.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/PublicKey.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/Utils.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/Curve.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/CurvesDB.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/DB.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/FieldElement.pm Crypt-Perl-0.14/lib/Crypt/Perl/ECDSA/EC/Point.pm Crypt-Perl-0.14/lib/Crypt/Perl/ASN1/Encodee.pm Configuring F/FE/FELIPE/Crypt-Perl-0.14.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL Warning: prerequisite Math::BigInt 1.999805 not found. We have 1.999724. Warning: prerequisite Math::ProvablePrime 0.043 not found. Warning: prerequisite Symbol::Get 0.02 not found. Checking if your kit is complete... Looks good Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Crypt::Perl Writing MYMETA.yml and MYMETA.json FELIPE/Crypt-Perl-0.14.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for F/FE/FELIPE/Crypt-Perl-0.14.tar.gz ---- Unsatisfied dependencies detected during ---- ---- FELIPE/Crypt-Perl-0.14.tar.gz ---- Symbol::Get [requires] Math::BigInt [requires] Math::ProvablePrime [requires] Call::Context [requires] Running test for module 'Symbol::Get' Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\F\FE\FELIPE\Symbol-Get-0.05.tar.gz ok Symbol-Get-0.05/ Symbol-Get-0.05/.gitignore Symbol-Get-0.05/Changes Symbol-Get-0.05/lib/ Symbol-Get-0.05/LICENSE Symbol-Get-0.05/Makefile.PL Symbol-Get-0.05/MANIFEST Symbol-Get-0.05/META.json Symbol-Get-0.05/META.yml Symbol-Get-0.05/README.pod Symbol-Get-0.05/t/ Symbol-Get-0.05/t/001_load.t Symbol-Get-0.05/t/002_usage.t Symbol-Get-0.05/lib/Symbol/ Symbol-Get-0.05/lib/Symbol/Get.pm Configuring F/FE/FELIPE/Symbol-Get-0.05.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL Warning: prerequisite Call::Context 0 not found. Checking if your kit is complete... Looks good "\x{2019}" does not map to cp437 at C:/Perl-5.22-64/lib/ExtUtils/MakeMaker.pm line 1182. "\x{2019}" does not map to cp437 at C:/Perl-5.22-64/lib/ExtUtils/MakeMaker.pm line 1182. "\x{2019}" does not map to cp437 at C:/Perl-5.22-64/lib/ExtUtils/MakeMaker.pm line 1182. Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Symbol::Get Writing MYMETA.yml and MYMETA.json FELIPE/Symbol-Get-0.05.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for F/FE/FELIPE/Symbol-Get-0.05.tar.gz ---- Unsatisfied dependencies detected during ---- ---- FELIPE/Symbol-Get-0.05.tar.gz ---- Call::Context [requires] Running test for module 'Call::Context' Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\F\FE\FELIPE\Call-Context-0.02.tar.gz ok Call-Context-0.02/ Call-Context-0.02/Changes Call-Context-0.02/lib/ Call-Context-0.02/LICENSE Call-Context-0.02/Makefile.PL Call-Context-0.02/MANIFEST Call-Context-0.02/META.json Call-Context-0.02/META.yml Call-Context-0.02/README.pod Call-Context-0.02/t/ Call-Context-0.02/Todo Call-Context-0.02/t/001_load.t Call-Context-0.02/t/002_must_be_list.t Call-Context-0.02/lib/Call/ Call-Context-0.02/lib/Call/Context.pm Configuring F/FE/FELIPE/Call-Context-0.02.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL Checking if your kit is complete... Looks good Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Call::Context Writing MYMETA.yml and MYMETA.json FELIPE/Call-Context-0.02.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for F/FE/FELIPE/Call-Context-0.02.tar.gz >>> dmake cp README.pod blib\lib\Call\README.pod cp lib/Call/Context.pm blib\lib\Call\Context.pm FELIPE/Call-Context-0.02.tar.gz dmake -- OK Running make test >>> dmake test TEST_VERBOSE=1 "C:\Perl-5.22-64\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/001_load.t .......... 1..1 ok 1 - use Call::Context; ok t/002_must_be_list.t .. 1..6 ok 1 - An object of class 'Call::Context::X' isa 'Call::Context::X' ok 2 - called function is in message ok 3 - calling function is in message ok 4 - context is in message (void) ok 5 - context is in message (scalar) ok 6 - no die() if in list context ok All tests successful. Files=2, Tests=7, 1 wallclock secs ( 0.06 usr + 0.02 sys = 0.08 CPU) Result: PASS FELIPE/Call-Context-0.02.tar.gz dmake test TEST_VERBOSE=1 -- OK Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/CHECKSUMS Felipe Gasper <CENSORED> Sanity-check calling context >>> (cd C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX && tar cvf - Call-Context-0.02.ppd blib) | gzip -c >C:/cpanfly-5.22-64/var/REPO/F/FE/FELIPE/Call-Context-0.02.tar.gz Call-Context-0.02.ppd blib/ blib/lib/ blib/lib/Call/ blib/lib/Call/Context.pm blib/lib/Call/README.pod FELIPE/Symbol-Get-0.05.tar.gz Has already been unwrapped into directory C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo FELIPE/Symbol-Get-0.05.tar.gz Has already been prepared Running make for F/FE/FELIPE/Symbol-Get-0.05.tar.gz Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'make' >>> dmake cp README.pod blib\lib\Symbol\README.pod cp lib/Symbol/Get.pm blib\lib\Symbol\Get.pm FELIPE/Symbol-Get-0.05.tar.gz dmake -- OK Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'test' Running make test >>> dmake test TEST_VERBOSE=1 "C:\Perl-5.22-64\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/001_load.t ... 1..1 ok 1 - use Symbol::Get; ok t/002_usage.t .. 1..18 ok 1 - scalar ok 2 - list ok 3 - hash ok 4 - symbol table hash ok 5 - code ok 6 - get() returns undef on an unknown variable name ok 7 - constant (scalar) ok 8 - constant (array) ok 9 - constant die()s if fed a non-constant ok 10 - get_names() ok 11 - get_names() throws on an unknown package name ok 12 - scalar, no package ok 13 - list, no package ok 14 - hash, no package ok 15 - code, no package ok 16 - get_names(), no package ok 17 - constant (scalar, no package) ok 18 - constant (array, no package) ok All tests successful. Files=2, Tests=19, 0 wallclock secs ( 0.08 usr + 0.01 sys = 0.09 CPU) Result: PASS FELIPE/Symbol-Get-0.05.tar.gz dmake test TEST_VERBOSE=1 -- OK Felipe Gasper <CENSORED> Read Perl’s symbol table programmatically >>> (cd C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo && tar cvf - Symbol-Get-0.05.ppd blib) | gzip -c >C:/cpanfly-5.22-64/var/REPO/F/FE/FELIPE/Symbol-Get-0.05.tar.gz Symbol-Get-0.05.ppd blib/ blib/lib/ blib/lib/Symbol/ blib/lib/Symbol/Get.pm blib/lib/Symbol/README.pod Running test for module 'Math::BigInt' Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'get' Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\P\PJ\PJACKLAM\Math-BigInt-1.999807.tar.gz ok Math-BigInt-1.999807/ Math-BigInt-1.999807/examples/ Math-BigInt-1.999807/examples/1000.txt Math-BigInt-1.999807/examples/prime.pl Math-BigInt-1.999807/examples/bigprimes.pl Math-BigInt-1.999807/t/ Math-BigInt-1.999807/t/author-lib-boolean-_is_even.t Math-BigInt-1.999807/t/req_mbfn.t Math-BigInt-1.999807/t/use_lib2.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_div.dat Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_sqrt.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_sub.dat Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_hex.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_bin.dat Math-BigInt-1.999807/t/author-lib-property-_alen.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_oct.dat Math-BigInt-1.999807/t/author-lib-convert-string-_as_hex.dat Math-BigInt-1.999807/t/bigintpm.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_root.dat Math-BigInt-1.999807/t/isa.t Math-BigInt-1.999807/t/biglog.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_hex.t Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_rsft.dat Math-BigInt-1.999807/t/author-lib-boolean-_is_odd.t Math-BigInt-1.999807/t/mbimbf.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_new.t Math-BigInt-1.999807/t/objectify_mbf.t Math-BigInt-1.999807/t/req_mbfi.t Math-BigInt-1.999807/t/trap.t Math-BigInt-1.999807/t/bestr-mbi.t Math-BigInt-1.999807/t/author-lib-boolean-_is_ten.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_bin.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_dec.t Math-BigInt-1.999807/t/author-lib-bitwise-_xor.t Math-BigInt-1.999807/t/author-lib-boolean-_is_zero.t Math-BigInt-1.999807/t/constant.t Math-BigInt-1.999807/t/nparts-mbi.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_pow.t Math-BigInt-1.999807/t/bigintpm.inc Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_lsft.t Math-BigInt-1.999807/t/bnstr-mbf.t Math-BigInt-1.999807/t/from_hex-mbf.t Math-BigInt-1.999807/t/use_lib4.t Math-BigInt-1.999807/t/from_oct-mbf.t Math-BigInt-1.999807/t/bdstr-mbi.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_oct.t Math-BigInt-1.999807/t/big_pi_e.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_copy.t Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_rsft.t Math-BigInt-1.999807/t/sub_mif.t Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_modpow.dat Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_fac.dat Math-BigInt-1.999807/t/with_sub.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_add.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_inc.t Math-BigInt-1.999807/t/author-lib-property-_digit.t Math-BigInt-1.999807/t/author-lib-comparison-_acmp.t Math-BigInt-1.999807/t/bigfltpm.inc Math-BigInt-1.999807/t/author-lib-constructor-nullary-_two.t Math-BigInt-1.999807/t/bdstr-mbf.t Math-BigInt-1.999807/t/Math/ Math-BigInt-1.999807/t/Math/BigFloat/ Math-BigInt-1.999807/t/Math/BigFloat/Subclass.pm Math-BigInt-1.999807/t/Math/BigInt/ Math-BigInt-1.999807/t/Math/BigInt/Lib/ Math-BigInt-1.999807/t/Math/BigInt/Lib/Minimal.pm Math-BigInt-1.999807/t/Math/BigInt/Lib/TestUtil.pm Math-BigInt-1.999807/t/Math/BigInt/Subclass.pm Math-BigInt-1.999807/t/Math/BigInt/Scalar.pm Math-BigInt-1.999807/t/Math/BigInt/BareCalc.pm Math-BigInt-1.999807/t/from_hex-mbi.t Math-BigInt-1.999807/t/const_mbf.t Math-BigInt-1.999807/t/author-btmod-btdiv-mbi.t Math-BigInt-1.999807/t/use.t Math-BigInt-1.999807/t/03podcov.t Math-BigInt-1.999807/t/mbf_ali.t Math-BigInt-1.999807/t/upgradef.t Math-BigInt-1.999807/t/eparts-mbf.t Math-BigInt-1.999807/t/config.t Math-BigInt-1.999807/t/new-mbf.t Math-BigInt-1.999807/t/author-batan2-mbf.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_nok.dat Math-BigInt-1.999807/t/calling-instance-methods.t Math-BigInt-1.999807/t/bsstr-mbi.t Math-BigInt-1.999807/t/sub_mbf.t Math-BigInt-1.999807/t/use_lib1.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_bytes.t Math-BigInt-1.999807/t/req_mbfw.t Math-BigInt-1.999807/t/req_mbfa.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_hex.dat Math-BigInt-1.999807/t/author-lib-constructor-nullary-_one.t Math-BigInt-1.999807/t/sparts-mbi.t Math-BigInt-1.999807/t/mbi_ali.t Math-BigInt-1.999807/t/author-relop-mbi-mbf.t Math-BigInt-1.999807/t/use_mbfw.t Math-BigInt-1.999807/t/author-lib-constructor-nullary-_zero.t Math-BigInt-1.999807/t/author-lib-bitwise-_and.t Math-BigInt-1.999807/t/upgrade.inc Math-BigInt-1.999807/t/bigints.t Math-BigInt-1.999807/t/from_oct-mbi.t Math-BigInt-1.999807/t/objectify_mbi.t Math-BigInt-1.999807/t/author-bexp-mbf.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_bytes.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_inc.dat Math-BigInt-1.999807/t/author-bpi-mbf.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_sqrt.dat Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_lcm.dat Math-BigInt-1.999807/t/author-lib-constructor-nullary-_ten.t Math-BigInt-1.999807/t/bare_mif.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_bytes.dat Math-BigInt-1.999807/t/author-numify-mbi.t Math-BigInt-1.999807/t/upgrade.t Math-BigInt-1.999807/t/author-bmod-bdiv-mbi.t Math-BigInt-1.999807/t/bsstr-mbf.t Math-BigInt-1.999807/t/rt-16221.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_bytes.dat Math-BigInt-1.999807/t/sub_ali.t Math-BigInt-1.999807/t/bigfltpm.t Math-BigInt-1.999807/t/author-lib-bitwise-_and.dat Math-BigInt-1.999807/t/lib_load.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_lcm.t Math-BigInt-1.999807/t/author-lib-misc-api_version.t Math-BigInt-1.999807/t/calling.t Math-BigInt-1.999807/t/bare_mbi.t Math-BigInt-1.999807/t/from_bin-mbi.t Math-BigInt-1.999807/t/alias.inc Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_mul.dat Math-BigInt-1.999807/t/author-numify-mbf.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_gcd.t Math-BigInt-1.999807/t/author-lib-property-_len.t Math-BigInt-1.999807/t/sparts-mbf.t Math-BigInt-1.999807/t/calling-class-methods.t Math-BigInt-1.999807/t/author-blog-mbf.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_bin.t Math-BigInt-1.999807/t/author-bnok-mbi.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_sub.t Math-BigInt-1.999807/t/author-blog-mbi.t Math-BigInt-1.999807/t/nparts-mbf.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_oct.t Math-BigInt-1.999807/t/author-lib.t Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_modpow.t Math-BigInt-1.999807/t/00sig.t Math-BigInt-1.999807/t/01load.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_mod.dat Math-BigInt-1.999807/t/eparts-mbi.t Math-BigInt-1.999807/t/req_mbf0.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_dec.dat Math-BigInt-1.999807/t/author-lib-convert-string-_str.t Math-BigInt-1.999807/t/bnstr-mbi.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_gcd.dat Math-BigInt-1.999807/t/bigroot.t Math-BigInt-1.999807/t/sub_mbi.t Math-BigInt-1.999807/t/02pod.t Math-BigInt-1.999807/t/author-lib-arithmetic-unary-_fac.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_hex.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_add.dat Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_oct.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_mul.t Math-BigInt-1.999807/t/_e_math.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_nok.t Math-BigInt-1.999807/t/bigintc.t Math-BigInt-1.999807/t/round.t Math-BigInt-1.999807/t/dparts-mbf.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_log_int.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_bytes.dat Math-BigInt-1.999807/t/author-lib-bitwise-_xor.dat Math-BigInt-1.999807/t/author-lib-convert-string-_as_oct.dat Math-BigInt-1.999807/t/req_mbf1.t Math-BigInt-1.999807/t/author-lib-bitwise-_or.dat Math-BigInt-1.999807/t/author-lib-bitwise-_or.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_bin.dat Math-BigInt-1.999807/t/author-lib-boolean-_is_one.t Math-BigInt-1.999807/t/author-lib-property-_zeros.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_oct.dat Math-BigInt-1.999807/t/author-lib-arithmetic-ternary-_lsft.dat Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_modinv.t Math-BigInt-1.999807/t/inf_nan.t Math-BigInt-1.999807/t/author-batan-mbf.t Math-BigInt-1.999807/t/author-lib-convert-string-_as_bin.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_bytes.t Math-BigInt-1.999807/t/author-lib-constructor-unary-_from_hex.dat Math-BigInt-1.999807/t/mbi_rand.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_mod.t Math-BigInt-1.999807/t/author-lib-misc-_check.t Math-BigInt-1.999807/t/downgrade.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_div.t Math-BigInt-1.999807/t/from_bin-mbf.t Math-BigInt-1.999807/t/author-lib-boolean-_is_two.t Math-BigInt-1.999807/t/require.t Math-BigInt-1.999807/t/bestr-mbf.t Math-BigInt-1.999807/t/use_lib3.t Math-BigInt-1.999807/t/author-lib-convert-number-_num.t Math-BigInt-1.999807/t/author-lib-convert-string-_to_bin.dat Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_root.t Math-BigInt-1.999807/t/author-lib.ini Math-BigInt-1.999807/t/dparts-mbi.t Math-BigInt-1.999807/t/author-lib-arithmetic-binary-_modinv.dat Math-BigInt-1.999807/t/mbimbf.inc Math-BigInt-1.999807/t/nan_cmp.t Math-BigInt-1.999807/t/bare_mbf.t Math-BigInt-1.999807/t/new_overloaded.t Math-BigInt-1.999807/t/upgrade2.t Math-BigInt-1.999807/CREDITS Math-BigInt-1.999807/TODO Math-BigInt-1.999807/SIGNATURE Math-BigInt-1.999807/NEW Math-BigInt-1.999807/LICENSE Math-BigInt-1.999807/CHANGES Math-BigInt-1.999807/HISTORY Math-BigInt-1.999807/GOALS Math-BigInt-1.999807/BUGS Math-BigInt-1.999807/META.json Math-BigInt-1.999807/MANIFEST Math-BigInt-1.999807/README Math-BigInt-1.999807/MANIFEST.SKIP Math-BigInt-1.999807/Makefile.PL Math-BigInt-1.999807/lib/ Math-BigInt-1.999807/lib/Math/ Math-BigInt-1.999807/lib/Math/BigInt.pm Math-BigInt-1.999807/lib/Math/BigFloat.pm Math-BigInt-1.999807/lib/Math/BigInt/ Math-BigInt-1.999807/lib/Math/BigInt/Lib.pm Math-BigInt-1.999807/lib/Math/BigInt/Calc.pm Math-BigInt-1.999807/lib/Math/BigInt/CalcEmu.pm Math-BigInt-1.999807/META.yml Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'prepare' Configuring P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL ########################################################################## # # Certain methods will not work unless the following installed modules are # updated. It is recommended that after installing this distribution, you # update these modules to at least the recommended version listed below. # # Module Recommended Installed # ------ ----------- --------- # Math::BigInt::Calc 1.999800 1.999724 # Math::BigInt::FastCalc 0.5000 0.42 # ########################################################################## Sleeping for a few seconds ... Checking if your kit is complete... Looks good Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Math::BigInt Writing MYMETA.yml and MYMETA.json PJACKLAM/Math-BigInt-1.999807.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'make' >>> dmake cp lib/Math/BigInt/Calc.pm blib\lib\Math\BigInt\Calc.pm cp lib/Math/BigInt/CalcEmu.pm blib\lib\Math\BigInt\CalcEmu.pm cp lib/Math/BigInt.pm blib\lib\Math\BigInt.pm cp lib/Math/BigInt/Lib.pm blib\lib\Math\BigInt\Lib.pm cp lib/Math/BigFloat.pm blib\lib\Math\BigFloat.pm PJACKLAM/Math-BigInt-1.999807.tar.gz dmake -- OK Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'test' Running make test >>> dmake test TEST_VERBOSE=1 "C:\Perl-5.22-64\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/00sig.t ..................................... skipped: Set the environment variable TEST_SIGNATURE to enable this test. # # Testing with Perl 5.022001, C:\Perl-5.22-64\bin\perl.exe # # Version Module # ------- ------ # 1.999807 Math::BigInt # 1.999807 Math::BigFloat # 1.999807 Math::BigInt::Lib # 1.999807 Math::BigInt::Calc # t/01load.t .................................... 1..2 ok 1 - use Math::BigInt; ok 2 - use Math::BigFloat; ok t/02pod.t ..................................... 1..5 ok 1 - POD test for blib/lib/Math/BigFloat.pm ok 2 - POD test for blib/lib/Math/BigInt.pm ok 3 - POD test for blib/lib/Math/BigInt/Calc.pm ok 4 - POD test for blib/lib/Math/BigInt/CalcEmu.pm ok 5 - POD test for blib/lib/Math/BigInt/Lib.pm ok t/03podcov.t .................................. 1..3 ok 1 - Math::BigInt is covered ok 2 - Math::BigFloat is covered ok 3 - Math::BigInt::Lib is covered ok t/_e_math.t ................................... 1..26 # Subtest: Math::BigFloat::_e_add(123, 321, "+", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 1 - Math::BigFloat::_e_add(123, 321, "+", "+"); # Subtest: Math::BigFloat::_e_add(123, 321, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 2 - Math::BigFloat::_e_add(123, 321, "+", "-"); # Subtest: Math::BigFloat::_e_add(123, 321, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 3 - Math::BigFloat::_e_add(123, 321, "-", "+"); # Subtest: Math::BigFloat::_e_add(321, 123, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 4 - Math::BigFloat::_e_add(321, 123, "-", "+"); # Subtest: Math::BigFloat::_e_add(321, 123, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 5 - Math::BigFloat::_e_add(321, 123, "+", "-"); # Subtest: Math::BigFloat::_e_add(10, 1, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 6 - Math::BigFloat::_e_add(10, 1, "+", "-"); # Subtest: Math::BigFloat::_e_add(10, 1, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 7 - Math::BigFloat::_e_add(10, 1, "-", "+"); # Subtest: Math::BigFloat::_e_add(1, 10, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 8 - Math::BigFloat::_e_add(1, 10, "-", "+"); ok 9 # skip $x -> _zero() does not (yet?) modify the first argument ok 10 # skip $x -> _zero() does not (yet?) modify the first argument # Subtest: Math::BigFloat::_e_add(123, 123, "+", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 11 - Math::BigFloat::_e_add(123, 123, "+", "+"); # Subtest: Math::BigFloat::_e_add(123, 123, "-", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 12 - Math::BigFloat::_e_add(123, 123, "-", "-"); # Subtest: Math::BigFloat::_e_add(0, 0, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 13 - Math::BigFloat::_e_add(0, 0, "-", "+"); # Subtest: Math::BigFloat::_e_add(0, 0, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 14 - Math::BigFloat::_e_add(0, 0, "+", "-"); # Subtest: Math::BigFloat::_e_add(0, 0, "+", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 15 - Math::BigFloat::_e_add(0, 0, "+", "+"); # Subtest: Math::BigFloat::_e_add(0, 0, "-", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_add() is modified ok 16 - Math::BigFloat::_e_add(0, 0, "-", "-"); # Subtest: Math::BigFloat::_e_sub(123, 321, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 17 - Math::BigFloat::_e_sub(123, 321, "+", "-"); # Subtest: Math::BigFloat::_e_sub(123, 321, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 18 - Math::BigFloat::_e_sub(123, 321, "-", "+"); # Subtest: Math::BigFloat::_e_sub(123, 123, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 19 - Math::BigFloat::_e_sub(123, 123, "-", "+"); # Subtest: Math::BigFloat::_e_sub(123, 123, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 20 - Math::BigFloat::_e_sub(123, 123, "+", "-"); ok 21 # skip $x -> _zero() does not (yet?) modify the first argument ok 22 # skip $x -> _zero() does not (yet?) modify the first argument # Subtest: Math::BigFloat::_e_sub(0, 0, "-", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 23 - Math::BigFloat::_e_sub(0, 0, "-", "+"); # Subtest: Math::BigFloat::_e_sub(0, 0, "+", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 24 - Math::BigFloat::_e_sub(0, 0, "+", "-"); # Subtest: Math::BigFloat::_e_sub(0, 0, "+", "+"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 25 - Math::BigFloat::_e_sub(0, 0, "+", "+"); # Subtest: Math::BigFloat::_e_sub(0, 0, "-", "-"); 1..2 ok 1 - output has the correct value ok 2 - first operand to _e_sub() is modified ok 26 - Math::BigFloat::_e_sub(0, 0, "-", "-"); ok t/author-batan-mbf.t .......................... skipped: these tests are for testing by the author t/author-batan2-mbf.t ......................... skipped: these tests are for testing by the author t/author-bexp-mbf.t ........................... skipped: these tests are for testing by the author t/author-blog-mbf.t ........................... skipped: these tests are for testing by the author t/author-blog-mbi.t ........................... skipped: these tests are for testing by the author t/author-bmod-bdiv-mbi.t ...................... skipped: these tests are for testing by the author t/author-bnok-mbi.t ........................... skipped: these tests are for testing by the author t/author-bpi-mbf.t ............................ skipped: these tests are for testing by the author t/author-btmod-btdiv-mbi.t .................... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_add.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_div.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_gcd.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_lcm.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_log_int.t ..... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_mod.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_modinv.t ...... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_mul.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_nok.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_pow.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_root.t ........ skipped: these tests are for testing by the author t/author-lib-arithmetic-binary-_sub.t ......... skipped: these tests are for testing by the author t/author-lib-arithmetic-ternary-_lsft.t ....... skipped: these tests are for testing by the author t/author-lib-arithmetic-ternary-_modpow.t ..... skipped: these tests are for testing by the author t/author-lib-arithmetic-ternary-_rsft.t ....... skipped: these tests are for testing by the author t/author-lib-arithmetic-unary-_dec.t .......... skipped: these tests are for testing by the author t/author-lib-arithmetic-unary-_fac.t .......... skipped: these tests are for testing by the author t/author-lib-arithmetic-unary-_inc.t .......... skipped: these tests are for testing by the author t/author-lib-arithmetic-unary-_sqrt.t ......... skipped: these tests are for testing by the author t/author-lib-bitwise-_and.t ................... skipped: these tests are for testing by the author t/author-lib-bitwise-_or.t .................... skipped: these tests are for testing by the author t/author-lib-bitwise-_xor.t ................... skipped: these tests are for testing by the author t/author-lib-boolean-_is_even.t ............... skipped: these tests are for testing by the author t/author-lib-boolean-_is_odd.t ................ skipped: these tests are for testing by the author t/author-lib-boolean-_is_one.t ................ skipped: these tests are for testing by the author t/author-lib-boolean-_is_ten.t ................ skipped: these tests are for testing by the author t/author-lib-boolean-_is_two.t ................ skipped: these tests are for testing by the author t/author-lib-boolean-_is_zero.t ............... skipped: these tests are for testing by the author t/author-lib-comparison-_acmp.t ............... skipped: these tests are for testing by the author t/author-lib-constructor-nullary-_one.t ....... skipped: these tests are for testing by the author t/author-lib-constructor-nullary-_ten.t ....... skipped: these tests are for testing by the author t/author-lib-constructor-nullary-_two.t ....... skipped: these tests are for testing by the author t/author-lib-constructor-nullary-_zero.t ...... skipped: these tests are for testing by the author t/author-lib-constructor-unary-_copy.t ........ skipped: these tests are for testing by the author t/author-lib-constructor-unary-_from_bin.t .... skipped: these tests are for testing by the author t/author-lib-constructor-unary-_from_bytes.t .. skipped: these tests are for testing by the author t/author-lib-constructor-unary-_from_hex.t .... skipped: these tests are for testing by the author t/author-lib-constructor-unary-_from_oct.t .... skipped: these tests are for testing by the author t/author-lib-constructor-unary-_new.t ......... skipped: these tests are for testing by the author t/author-lib-convert-number-_num.t ............ skipped: these tests are for testing by the author t/author-lib-convert-string-_as_bin.t ......... skipped: these tests are for testing by the author t/author-lib-convert-string-_as_bytes.t ....... skipped: these tests are for testing by the author t/author-lib-convert-string-_as_hex.t ......... skipped: these tests are for testing by the author t/author-lib-convert-string-_as_oct.t ......... skipped: these tests are for testing by the author t/author-lib-convert-string-_str.t ............ skipped: these tests are for testing by the author t/author-lib-convert-string-_to_bin.t ......... skipped: these tests are for testing by the author t/author-lib-convert-string-_to_bytes.t ....... skipped: these tests are for testing by the author t/author-lib-convert-string-_to_hex.t ......... skipped: these tests are for testing by the author t/author-lib-convert-string-_to_oct.t ......... skipped: these tests are for testing by the author t/author-lib-misc-_check.t .................... skipped: these tests are for testing by the author t/author-lib-misc-api_version.t ............... skipped: these tests are for testing by the author t/author-lib-property-_alen.t ................. skipped: these tests are for testing by the author t/author-lib-property-_digit.t ................ skipped: these tests are for testing by the author t/author-lib-property-_len.t .................. skipped: these tests are for testing by the author t/author-lib-property-_zeros.t ................ skipped: these tests are for testing by the author t/author-lib.t ................................ skipped: these tests are for testing by the author t/author-numify-mbf.t ......................... skipped: these tests are for testing by the author t/author-numify-mbi.t ......................... skipped: these tests are for testing by the author t/author-relop-mbi-mbf.t ...................... skipped: these tests are for testing by the author t/bare_mbf.t .................................. 1..2402 # BareCalc using Calc v1.999807 ok 1 - Math::BigFloat->config('lib') ok 2 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 3 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 4 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 5 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 6 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 7 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 8 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 9 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 10 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 11 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 12 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 13 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 14 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 15 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 16 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 17 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 18 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 19 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 20 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 21 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 22 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 23 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 24 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 25 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 26 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 27 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 28 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 29 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 30 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 31 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 32 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 33 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 34 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 35 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 36 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 37 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 38 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 39 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 40 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 41 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 42 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 43 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 44 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 45 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 46 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 47 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 48 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 49 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 50 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 51 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 52 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 53 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 54 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 55 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 56 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 57 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 58 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 59 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 60 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 61 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 62 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 63 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 64 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 65 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 66 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 67 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 68 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 69 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 70 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 71 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 72 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 73 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 74 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 75 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 76 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 77 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 78 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 79 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 80 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 81 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 82 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 83 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 84 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 85 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 86 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 87 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 88 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 89 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 90 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 91 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 92 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 93 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 94 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 95 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 96 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 97 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 98 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 99 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 100 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 101 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 102 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 103 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 104 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 105 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 106 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 107 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 108 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 109 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 110 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 111 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 112 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 113 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 114 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 115 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 116 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 117 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 118 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 119 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 120 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 121 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 122 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 123 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 124 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 125 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 126 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 127 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 128 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 129 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 130 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 131 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 132 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 133 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 134 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 135 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 136 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 137 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 138 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 139 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 140 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 141 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 142 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 143 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 144 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 145 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 146 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 147 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 148 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 149 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 150 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 151 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 152 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 153 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 154 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 155 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 156 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 157 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 158 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 159 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 160 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 161 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 162 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 163 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 164 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 165 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 166 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 167 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 168 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 169 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 170 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 171 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 172 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 173 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 174 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 175 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 176 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 177 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 178 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 179 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 180 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 181 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 182 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 183 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 184 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 185 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 186 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 187 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 188 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 189 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 190 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 191 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 192 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 193 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 194 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 195 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 196 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 197 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 198 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 199 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 200 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 201 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 202 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 203 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 204 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 205 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 206 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 207 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 208 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 209 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 210 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 211 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 212 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 213 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 214 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 215 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 216 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 217 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 218 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 219 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 220 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 221 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 222 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 223 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 224 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 225 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 226 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 227 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 228 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 229 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 230 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 231 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 232 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 233 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 234 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 235 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 236 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 237 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 238 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 239 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 240 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 241 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 242 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 243 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 244 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 245 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 246 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 247 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 248 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 249 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 250 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 251 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 252 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 253 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 254 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 255 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 256 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 257 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 258 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 259 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 260 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 261 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 262 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 263 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 264 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 265 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 266 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 267 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 268 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 269 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 270 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 271 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 272 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 273 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 274 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 275 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 276 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 277 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 278 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 279 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 280 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 281 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 282 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 283 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 284 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 285 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 286 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 287 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 288 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 289 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 290 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 291 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 292 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 293 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 294 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 295 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 296 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 297 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 298 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 299 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 300 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 301 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 302 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 303 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 304 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 305 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 306 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 307 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 308 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 309 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 310 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 311 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 312 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 313 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 314 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 315 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 316 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 317 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 318 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 319 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 320 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 321 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 322 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 323 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 324 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 325 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 326 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 327 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 328 - $x = Math::BigFloat->new("1"); $x; ok 329 - $x = Math::BigFloat->new("1"); $x; ok 330 - $x = Math::BigFloat->new("-0"); $x; ok 331 - $x = Math::BigFloat->new("-0"); $x; ok 332 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 333 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 334 - $x = Math::BigFloat->new("+inf"); $x; ok 335 - $x = Math::BigFloat->new("+inf"); $x; ok 336 - $x = Math::BigFloat->new("-inf"); $x; ok 337 - $x = Math::BigFloat->new("-inf"); $x; ok 338 - $x = Math::BigFloat->new("123"); $x; ok 339 - $x = Math::BigFloat->new("123"); $x; ok 340 - $x = Math::BigFloat->new("-123.4567"); $x; ok 341 - $x = Math::BigFloat->new("-123.4567"); $x; ok 342 - $x = Math::BigFloat->new("1__2"); $x; ok 343 - $x = Math::BigFloat->new("1__2"); $x; ok 344 - $x = Math::BigFloat->new("1E1__2"); $x; ok 345 - $x = Math::BigFloat->new("1E1__2"); $x; ok 346 - $x = Math::BigFloat->new("11__2E2"); $x; ok 347 - $x = Math::BigFloat->new("11__2E2"); $x; ok 348 - $x = Math::BigFloat->new(".2E-3."); $x; ok 349 - $x = Math::BigFloat->new(".2E-3."); $x; ok 350 - $x = Math::BigFloat->new("1e3e4"); $x; ok 351 - $x = Math::BigFloat->new("1e3e4"); $x; ok 352 - $x = Math::BigFloat->new(".2E2"); $x; ok 353 - $x = Math::BigFloat->new(".2E2"); $x; ok 354 - $x = Math::BigFloat->new("1.E3"); $x; ok 355 - $x = Math::BigFloat->new("1.E3"); $x; ok 356 - $x = Math::BigFloat->new("0e0"); $x; ok 357 - $x = Math::BigFloat->new("0e0"); $x; ok 358 - $x = Math::BigFloat->new("+0e0"); $x; ok 359 - $x = Math::BigFloat->new("+0e0"); $x; ok 360 - $x = Math::BigFloat->new("+0e+0"); $x; ok 361 - $x = Math::BigFloat->new("+0e+0"); $x; ok 362 - $x = Math::BigFloat->new("-0e+0"); $x; ok 363 - $x = Math::BigFloat->new("-0e+0"); $x; ok 364 - $x = Math::BigFloat->new("0e-0"); $x; ok 365 - $x = Math::BigFloat->new("0e-0"); $x; ok 366 - $x = Math::BigFloat->new("-0e-0"); $x; ok 367 - $x = Math::BigFloat->new("-0e-0"); $x; ok 368 - $x = Math::BigFloat->new("+0e-0"); $x; ok 369 - $x = Math::BigFloat->new("+0e-0"); $x; ok 370 - $x = Math::BigFloat->new("000"); $x; ok 371 - $x = Math::BigFloat->new("000"); $x; ok 372 - $x = Math::BigFloat->new("00e2"); $x; ok 373 - $x = Math::BigFloat->new("00e2"); $x; ok 374 - $x = Math::BigFloat->new("00e02"); $x; ok 375 - $x = Math::BigFloat->new("00e02"); $x; ok 376 - $x = Math::BigFloat->new("000e002"); $x; ok 377 - $x = Math::BigFloat->new("000e002"); $x; ok 378 - $x = Math::BigFloat->new("000e1230"); $x; ok 379 - $x = Math::BigFloat->new("000e1230"); $x; ok 380 - $x = Math::BigFloat->new("00e-3"); $x; ok 381 - $x = Math::BigFloat->new("00e-3"); $x; ok 382 - $x = Math::BigFloat->new("00e+3"); $x; ok 383 - $x = Math::BigFloat->new("00e+3"); $x; ok 384 - $x = Math::BigFloat->new("00e-03"); $x; ok 385 - $x = Math::BigFloat->new("00e-03"); $x; ok 386 - $x = Math::BigFloat->new("00e+03"); $x; ok 387 - $x = Math::BigFloat->new("00e+03"); $x; ok 388 - $x = Math::BigFloat->new("-000"); $x; ok 389 - $x = Math::BigFloat->new("-000"); $x; ok 390 - $x = Math::BigFloat->new("-00e2"); $x; ok 391 - $x = Math::BigFloat->new("-00e2"); $x; ok 392 - $x = Math::BigFloat->new("-00e02"); $x; ok 393 - $x = Math::BigFloat->new("-00e02"); $x; ok 394 - $x = Math::BigFloat->new("-000e002"); $x; ok 395 - $x = Math::BigFloat->new("-000e002"); $x; ok 396 - $x = Math::BigFloat->new("-000e1230"); $x; ok 397 - $x = Math::BigFloat->new("-000e1230"); $x; ok 398 - $x = Math::BigFloat->new("-00e-3"); $x; ok 399 - $x = Math::BigFloat->new("-00e-3"); $x; ok 400 - $x = Math::BigFloat->new("-00e+3"); $x; ok 401 - $x = Math::BigFloat->new("-00e+3"); $x; ok 402 - $x = Math::BigFloat->new("-00e-03"); $x; ok 403 - $x = Math::BigFloat->new("-00e-03"); $x; ok 404 - $x = Math::BigFloat->new("-00e+03"); $x; ok 405 - $x = Math::BigFloat->new("-00e+03"); $x; ok 406 - $x = Math::BigFloat->new("0"); $x->as_number(); ok 407 - $x = Math::BigFloat->new("1"); $x->as_number(); ok 408 - $x = Math::BigFloat->new("1.2"); $x->as_number(); ok 409 - $x = Math::BigFloat->new("2.345"); $x->as_number(); ok 410 - $x = Math::BigFloat->new("-2"); $x->as_number(); ok 411 - $x = Math::BigFloat->new("-123.456"); $x->as_number(); ok 412 - $x = Math::BigFloat->new("-200"); $x->as_number(); ok 413 - $x = Math::BigFloat->new("-inf"); $x->as_number(); ok 414 - $x = Math::BigFloat->new("inf"); $x->as_number(); ok 415 - $x = Math::BigFloat->new("NaN"); $x->as_number(); ok 416 - $x = Math::BigFloat->new("71243225429896467497217836789578596379"); $x->as_number(); ok 417 - $x = Math::BigFloat->new("0.000641"); $x->as_number(); ok 418 - $x = Math::BigFloat->new("0.0006412"); $x->as_number(); ok 419 - $x = Math::BigFloat->new("0.00064123"); $x->as_number(); ok 420 - $x = Math::BigFloat->new("0.000641234"); $x->as_number(); ok 421 - $x = Math::BigFloat->new("0.0006412345"); $x->as_number(); ok 422 - $x = Math::BigFloat->new("0.00064123456"); $x->as_number(); ok 423 - $x = Math::BigFloat->new("0.000641234567"); $x->as_number(); ok 424 - $x = Math::BigFloat->new("0.0006412345678"); $x->as_number(); ok 425 - $x = Math::BigFloat->new("0.00064123456789"); $x->as_number(); ok 426 - $x = Math::BigFloat->new("0.1"); $x->as_number(); ok 427 - $x = Math::BigFloat->new("0.01"); $x->as_number(); ok 428 - $x = Math::BigFloat->new("0.001"); $x->as_number(); ok 429 - $x = Math::BigFloat->new("0.0001"); $x->as_number(); ok 430 - $x = Math::BigFloat->new("0.00001"); $x->as_number(); ok 431 - $x = Math::BigFloat->new("0.000001"); $x->as_number(); ok 432 - $x = Math::BigFloat->new("0.0000001"); $x->as_number(); ok 433 - $x = Math::BigFloat->new("0.00000001"); $x->as_number(); ok 434 - $x = Math::BigFloat->new("0.000000001"); $x->as_number(); ok 435 - $x = Math::BigFloat->new("0.0000000001"); $x->as_number(); ok 436 - $x = Math::BigFloat->new("0.00000000001"); $x->as_number(); ok 437 - $x = Math::BigFloat->new("0.12345"); $x->as_number(); ok 438 - $x = Math::BigFloat->new("0.123456"); $x->as_number(); ok 439 - $x = Math::BigFloat->new("0.1234567"); $x->as_number(); ok 440 - $x = Math::BigFloat->new("0.12345678"); $x->as_number(); ok 441 - $x = Math::BigFloat->new("0.123456789"); $x->as_number(); ok 442 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 443 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 444 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 445 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 446 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 447 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 448 - $x = Math::BigFloat->new("+inf"); $x->as_hex(); ok 449 - $x = Math::BigFloat->new("-inf"); $x->as_hex(); ok 450 - $x = Math::BigFloat->new("hexNaN"); $x->as_hex(); ok 451 - $x = Math::BigFloat->new("0"); $x->as_hex(); ok 452 - $x = Math::BigFloat->new("5"); $x->as_hex(); ok 453 - $x = Math::BigFloat->new("-5"); $x->as_hex(); ok 454 - $x = Math::BigFloat->new("+inf"); $x->as_bin(); ok 455 - $x = Math::BigFloat->new("-inf"); $x->as_bin(); ok 456 - $x = Math::BigFloat->new("hexNaN"); $x->as_bin(); ok 457 - $x = Math::BigFloat->new("0"); $x->as_bin(); ok 458 - $x = Math::BigFloat->new("5"); $x->as_bin(); ok 459 - $x = Math::BigFloat->new("-5"); $x->as_bin(); ok 460 - $x = Math::BigFloat->new("0"); $x->numify(); ok 461 - $x = Math::BigFloat->new("+1"); $x->numify(); ok 462 - $x = Math::BigFloat->new("1234"); $x->numify(); ok 463 - $x = Math::BigFloat->new("-5"); $x->numify(); ok 464 - $x = Math::BigFloat->new("100"); $x->numify(); ok 465 - $x = Math::BigFloat->new("-100"); $x->numify(); ok 466 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 467 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 468 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 469 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 470 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 471 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 472 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 473 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 474 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 475 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 476 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 477 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 478 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 479 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 480 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 481 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 482 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 483 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 484 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 485 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 486 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 487 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 488 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 489 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 490 - $x = Math::BigFloat->new("+inf"); $x->bsstr(); ok 491 - $x = Math::BigFloat->new("-inf"); $x->bsstr(); ok 492 - $x = Math::BigFloat->new("abcfsstr"); $x->bsstr(); ok 493 - $x = Math::BigFloat->new("-abcfsstr"); $x->bsstr(); ok 494 - $x = Math::BigFloat->new("1234.567"); $x->bsstr(); ok 495 - $x = Math::BigFloat->new("123"); $x->bsstr(); ok 496 - $x = Math::BigFloat->new("-5"); $x->bsstr(); ok 497 - $x = Math::BigFloat->new("-100"); $x->bsstr(); ok 498 - $x = Math::BigFloat->new("+inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 499 - $x = Math::BigFloat->new("-inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 500 - $x = Math::BigFloat->new("abcfstr"); $x->accuracy(); $x->precision(); $x->bstr(); ok 501 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(9); $x->precision(); $x->bstr(); ok 502 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(); $x->precision(-6); $x->bstr(); ok 503 - $x = Math::BigFloat->new("12345"); $x->accuracy(5); $x->precision(); $x->bstr(); ok 504 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(6); $x->precision(); $x->bstr(); ok 505 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(); $x->precision(-8); $x->bstr(); ok 506 - $x = Math::BigFloat->new("0"); $x->accuracy(4); $x->precision(); $x->bstr(); ok 507 - $x = Math::BigFloat->new("0"); $x->accuracy(); $x->precision(-4); $x->bstr(); ok 508 - $x = Math::BigFloat->new("inf"); $x; ok 509 - $x = Math::BigFloat->new("inf"); $x; ok 510 - $x = Math::BigFloat->new("+inf"); $x; ok 511 - $x = Math::BigFloat->new("+inf"); $x; ok 512 - $x = Math::BigFloat->new("-inf"); $x; ok 513 - $x = Math::BigFloat->new("-inf"); $x; ok 514 - $x = Math::BigFloat->new("+infinity"); $x; ok 515 - $x = Math::BigFloat->new("+infinity"); $x; ok 516 - $x = Math::BigFloat->new("+-inf"); $x; ok 517 - $x = Math::BigFloat->new("+-inf"); $x; ok 518 - $x = Math::BigFloat->new("abc"); $x; ok 519 - $x = Math::BigFloat->new("abc"); $x; ok 520 - $x = Math::BigFloat->new(" 1 a"); $x; ok 521 - $x = Math::BigFloat->new(" 1 a"); $x; ok 522 - $x = Math::BigFloat->new("1bcd2"); $x; ok 523 - $x = Math::BigFloat->new("1bcd2"); $x; ok 524 - $x = Math::BigFloat->new("11111b"); $x; ok 525 - $x = Math::BigFloat->new("11111b"); $x; ok 526 - $x = Math::BigFloat->new("+1z"); $x; ok 527 - $x = Math::BigFloat->new("+1z"); $x; ok 528 - $x = Math::BigFloat->new("-1z"); $x; ok 529 - $x = Math::BigFloat->new("-1z"); $x; ok 530 - $x = Math::BigFloat->new("0e999"); $x; ok 531 - $x = Math::BigFloat->new("0e999"); $x; ok 532 - $x = Math::BigFloat->new("0e-999"); $x; ok 533 - $x = Math::BigFloat->new("0e-999"); $x; ok 534 - $x = Math::BigFloat->new("-0e999"); $x; ok 535 - $x = Math::BigFloat->new("-0e999"); $x; ok 536 - $x = Math::BigFloat->new("-0e-999"); $x; ok 537 - $x = Math::BigFloat->new("-0e-999"); $x; ok 538 - $x = Math::BigFloat->new("0"); $x; ok 539 - $x = Math::BigFloat->new("0"); $x; ok 540 - $x = Math::BigFloat->new("+0"); $x; ok 541 - $x = Math::BigFloat->new("+0"); $x; ok 542 - $x = Math::BigFloat->new("+00"); $x; ok 543 - $x = Math::BigFloat->new("+00"); $x; ok 544 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 545 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 546 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 547 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 548 - $x = Math::BigFloat->new("-0"); $x; ok 549 - $x = Math::BigFloat->new("-0"); $x; ok 550 - $x = Math::BigFloat->new("-0000"); $x; ok 551 - $x = Math::BigFloat->new("-0000"); $x; ok 552 - $x = Math::BigFloat->new("+1"); $x; ok 553 - $x = Math::BigFloat->new("+1"); $x; ok 554 - $x = Math::BigFloat->new("+01"); $x; ok 555 - $x = Math::BigFloat->new("+01"); $x; ok 556 - $x = Math::BigFloat->new("+001"); $x; ok 557 - $x = Math::BigFloat->new("+001"); $x; ok 558 - $x = Math::BigFloat->new("+00000100000"); $x; ok 559 - $x = Math::BigFloat->new("+00000100000"); $x; ok 560 - $x = Math::BigFloat->new("123456789"); $x; ok 561 - $x = Math::BigFloat->new("123456789"); $x; ok 562 - $x = Math::BigFloat->new("-1"); $x; ok 563 - $x = Math::BigFloat->new("-1"); $x; ok 564 - $x = Math::BigFloat->new("-01"); $x; ok 565 - $x = Math::BigFloat->new("-01"); $x; ok 566 - $x = Math::BigFloat->new("-001"); $x; ok 567 - $x = Math::BigFloat->new("-001"); $x; ok 568 - $x = Math::BigFloat->new("-123456789"); $x; ok 569 - $x = Math::BigFloat->new("-123456789"); $x; ok 570 - $x = Math::BigFloat->new("-00000100000"); $x; ok 571 - $x = Math::BigFloat->new("-00000100000"); $x; ok 572 - $x = Math::BigFloat->new("123.456a"); $x; ok 573 - $x = Math::BigFloat->new("123.456a"); $x; ok 574 - $x = Math::BigFloat->new("123.456"); $x; ok 575 - $x = Math::BigFloat->new("123.456"); $x; ok 576 - $x = Math::BigFloat->new("0.01"); $x; ok 577 - $x = Math::BigFloat->new("0.01"); $x; ok 578 - $x = Math::BigFloat->new(".002"); $x; ok 579 - $x = Math::BigFloat->new(".002"); $x; ok 580 - $x = Math::BigFloat->new("+.2"); $x; ok 581 - $x = Math::BigFloat->new("+.2"); $x; ok 582 - $x = Math::BigFloat->new("-0.0003"); $x; ok 583 - $x = Math::BigFloat->new("-0.0003"); $x; ok 584 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 585 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 586 - $x = Math::BigFloat->new("123456E2"); $x; ok 587 - $x = Math::BigFloat->new("123456E2"); $x; ok 588 - $x = Math::BigFloat->new("123456E-2"); $x; ok 589 - $x = Math::BigFloat->new("123456E-2"); $x; ok 590 - $x = Math::BigFloat->new("-123456E2"); $x; ok 591 - $x = Math::BigFloat->new("-123456E2"); $x; ok 592 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 593 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 594 - $x = Math::BigFloat->new("1e1"); $x; ok 595 - $x = Math::BigFloat->new("1e1"); $x; ok 596 - $x = Math::BigFloat->new("2e-11"); $x; ok 597 - $x = Math::BigFloat->new("2e-11"); $x; ok 598 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 599 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 600 - $x = Math::BigFloat->new(" 000001"); $x; ok 601 - $x = Math::BigFloat->new(" 000001"); $x; ok 602 - $x = Math::BigFloat->new(" -00001"); $x; ok 603 - $x = Math::BigFloat->new(" -00001"); $x; ok 604 - $x = Math::BigFloat->new(" -1"); $x; ok 605 - $x = Math::BigFloat->new(" -1"); $x; ok 606 - $x = Math::BigFloat->new(" 000.01"); $x; ok 607 - $x = Math::BigFloat->new(" 000.01"); $x; ok 608 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 609 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 610 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 611 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 612 - $x = Math::BigFloat->new("-3e111"); $x; ok 613 - $x = Math::BigFloat->new("-3e111"); $x; ok 614 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 615 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 616 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 617 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 618 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 619 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 620 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 621 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 622 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 623 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 624 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 625 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 626 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 627 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 628 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 629 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 630 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 631 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 632 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 633 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 634 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 635 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 636 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 637 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 638 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 639 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 640 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 641 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 642 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 643 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 644 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 645 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 646 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 647 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 648 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 649 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 650 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 651 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 652 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 653 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 654 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 655 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 656 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 657 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 658 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 659 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 660 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 661 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 662 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 663 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 664 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 665 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 666 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 667 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 668 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 669 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 670 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 671 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 672 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 673 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 674 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 675 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 676 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 677 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 678 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 679 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 680 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 681 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 682 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 683 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 684 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 685 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 686 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 687 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 688 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 689 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 690 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 691 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 692 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 693 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 694 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 695 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 696 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 697 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 698 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 699 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 700 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 701 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 702 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 703 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 704 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 705 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 706 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 707 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 708 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 709 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 710 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 711 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 712 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 713 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 714 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 715 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 716 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 717 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 718 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 719 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 720 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 721 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 722 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 723 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 724 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 725 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 726 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 727 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 728 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 729 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 730 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 731 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 732 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 733 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 734 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 735 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 736 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 737 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 738 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 739 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 740 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 741 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 742 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 743 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 744 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 745 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 746 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 747 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 748 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 749 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 750 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 751 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 752 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 753 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 754 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 755 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 756 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 757 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 758 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 759 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 760 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 761 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 762 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 763 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 764 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 765 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 766 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 767 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 768 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 769 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 770 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 771 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 772 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 773 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 774 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 775 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 776 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 777 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 778 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 779 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 780 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 781 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 782 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 783 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 784 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 785 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 786 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 787 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 788 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 789 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 790 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 791 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 792 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 793 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 794 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 795 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 796 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 797 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 798 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 799 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 800 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 801 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 802 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 803 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 804 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 805 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 806 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 807 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 808 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 809 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 810 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 811 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 812 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 813 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 814 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 815 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 816 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 817 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 818 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 819 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 820 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 821 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 822 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 823 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 824 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 825 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 826 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 827 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 828 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 829 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 830 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 831 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 832 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 833 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 834 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 835 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 836 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 837 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 838 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 839 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 840 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 841 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 842 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 843 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 844 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 845 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 846 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 847 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 848 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 849 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 850 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 851 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 852 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 853 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 854 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 855 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 856 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 857 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 858 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 859 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 860 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 861 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 862 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 863 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 864 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 865 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 866 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 867 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 868 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 869 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 870 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 871 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 872 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 873 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 874 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 875 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 876 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 877 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 878 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 879 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 880 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 881 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 882 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 883 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 884 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 885 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 886 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 887 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 888 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 889 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 890 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 891 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 892 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 893 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 894 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 895 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 896 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 897 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 898 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 899 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 900 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 901 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 902 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 903 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 904 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 905 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 906 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 907 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 908 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 909 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 910 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 911 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 912 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 913 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 914 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 915 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 916 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 917 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 918 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 919 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-4); ok 920 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-5); ok 921 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 922 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 923 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 924 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 925 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 926 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 927 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 928 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 929 - $x = Math::BigFloat->new("+2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 930 - $x = Math::BigFloat->new("-2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 931 - $x = Math::BigFloat->new("+2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 932 - $x = Math::BigFloat->new("-2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 933 - $x = Math::BigFloat->new("+2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 934 - $x = Math::BigFloat->new("-2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 935 - $x = Math::BigFloat->new("+2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 936 - $x = Math::BigFloat->new("-2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 937 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 938 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 939 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-2); ok 940 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-3); ok 941 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-4); ok 942 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-5); ok 943 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 944 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 945 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 946 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 947 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 948 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 949 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 950 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 951 - $x = Math::BigFloat->new("+3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 952 - $x = Math::BigFloat->new("-3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 953 - $x = Math::BigFloat->new("+3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 954 - $x = Math::BigFloat->new("-3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 955 - $x = Math::BigFloat->new("+3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 956 - $x = Math::BigFloat->new("-3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 957 - $x = Math::BigFloat->new("+3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 958 - $x = Math::BigFloat->new("-3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 959 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 960 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 961 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-2); ok 962 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-3); ok 963 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-4); ok 964 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-5); ok 965 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 966 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 967 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 968 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 969 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 970 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 971 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 972 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 973 - $x = Math::BigFloat->new("+4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 974 - $x = Math::BigFloat->new("-4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 975 - $x = Math::BigFloat->new("+4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 976 - $x = Math::BigFloat->new("-4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 977 - $x = Math::BigFloat->new("+4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 978 - $x = Math::BigFloat->new("-4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 979 - $x = Math::BigFloat->new("+4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 980 - $x = Math::BigFloat->new("-4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 981 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 982 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 983 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-2); ok 984 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-3); ok 985 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-4); ok 986 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-5); ok 987 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 988 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 989 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 990 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 991 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 992 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 993 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 994 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 995 - $x = Math::BigFloat->new("+5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 996 - $x = Math::BigFloat->new("-5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 997 - $x = Math::BigFloat->new("+5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 998 - $x = Math::BigFloat->new("-5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 999 - $x = Math::BigFloat->new("+5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1000 - $x = Math::BigFloat->new("-5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1001 - $x = Math::BigFloat->new("+5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1002 - $x = Math::BigFloat->new("-5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1003 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1004 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1005 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-2); ok 1006 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-3); ok 1007 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-4); ok 1008 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-5); ok 1009 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1010 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1011 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1012 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1013 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1014 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1015 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1016 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1017 - $x = Math::BigFloat->new("+6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1018 - $x = Math::BigFloat->new("-6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1019 - $x = Math::BigFloat->new("+6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1020 - $x = Math::BigFloat->new("-6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1021 - $x = Math::BigFloat->new("+6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1022 - $x = Math::BigFloat->new("-6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1023 - $x = Math::BigFloat->new("+6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1024 - $x = Math::BigFloat->new("-6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1025 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1026 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1027 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-2); ok 1028 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1029 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1030 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1031 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1032 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1033 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1034 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1035 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1036 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1037 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1038 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1039 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1040 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1041 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1042 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1043 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1044 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1045 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1046 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1047 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1048 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1049 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1050 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1051 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1052 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1053 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1054 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1055 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1056 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1057 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1058 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1059 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1060 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1061 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1062 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1063 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1064 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1065 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1066 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1067 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1068 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bcmp($y); ok 1069 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1070 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bcmp($y); ok 1071 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1072 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bcmp($y); ok 1073 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1074 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1075 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bcmp($y); ok 1076 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1077 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bcmp($y); ok 1078 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1079 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bcmp($y); ok 1080 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1081 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bcmp($y); ok 1082 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1083 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bcmp($y); ok 1084 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bcmp($y); ok 1085 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1086 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1087 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1088 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1089 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bcmp($y); ok 1090 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bcmp($y); ok 1091 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1092 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1093 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1094 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1095 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1096 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1097 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1098 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1099 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1100 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bcmp($y); ok 1101 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1102 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bcmp($y); ok 1103 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bcmp($y); ok 1104 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bcmp($y); ok 1105 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bcmp($y); ok 1106 - $x = Math::BigFloat->new("1e1234567890987654321"); $y = Math::BigFloat->new("1e1234567890987654320"); $x->bcmp($y); ok 1107 - $x = Math::BigFloat->new("1e-1234567890987654321"); $y = Math::BigFloat->new("1e-1234567890987654320"); $x->bcmp($y); ok 1108 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1109 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1110 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1111 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1112 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1113 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1114 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1115 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1116 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1117 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1118 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1119 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1120 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1121 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $x->bcmp($y); ok 1122 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1123 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1124 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1125 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1126 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1127 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1128 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1129 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1130 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1131 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1132 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1133 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1134 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1135 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1136 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1137 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bacmp($y); ok 1138 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1139 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bacmp($y); ok 1140 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1141 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bacmp($y); ok 1142 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1143 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1144 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bacmp($y); ok 1145 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1146 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bacmp($y); ok 1147 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1148 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bacmp($y); ok 1149 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1150 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bacmp($y); ok 1151 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1152 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bacmp($y); ok 1153 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bacmp($y); ok 1154 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1155 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1156 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1157 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1158 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bacmp($y); ok 1159 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bacmp($y); ok 1160 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1161 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1162 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1163 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1164 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1165 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1166 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1167 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1168 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1169 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bacmp($y); ok 1170 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1171 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bacmp($y); ok 1172 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bacmp($y); ok 1173 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bacmp($y); ok 1174 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bacmp($y); ok 1175 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1176 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1177 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1178 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1179 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1180 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1181 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1182 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1183 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1184 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1185 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1186 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1187 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1188 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1189 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1190 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1191 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1192 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1193 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1194 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1195 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1196 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1197 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1198 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1199 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1200 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1201 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1202 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1203 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1204 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1205 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1206 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1207 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1208 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1209 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1210 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1211 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1212 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1213 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1214 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1215 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1216 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1217 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1218 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1219 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1220 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1221 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1222 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1223 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1224 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1225 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1226 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1227 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1228 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1229 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1230 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1231 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1232 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1233 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1234 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1235 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1236 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1237 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1238 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1239 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1240 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1241 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1242 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1243 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1244 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1245 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1246 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1247 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1248 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1249 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1250 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1251 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1252 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1253 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1254 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1255 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1256 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1257 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1258 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1259 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1260 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1261 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1262 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1263 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1264 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1265 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1266 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1267 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1268 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1269 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1270 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1271 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1272 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1273 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1274 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1275 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1276 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1277 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1278 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1279 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1280 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1281 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1282 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1283 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1284 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1285 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1286 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1287 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1288 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1289 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1290 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1291 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1292 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1293 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1294 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1295 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1296 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1297 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1298 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1299 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1300 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1301 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1302 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1303 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1304 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1305 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1306 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1307 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1308 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1309 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1310 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1311 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1312 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1313 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1314 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1315 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1316 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1317 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1318 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1319 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1320 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1321 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1322 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1323 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1324 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1325 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1326 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1327 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1328 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1329 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1330 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1331 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1332 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1333 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1334 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1335 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1336 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1337 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1338 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1339 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1340 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1341 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1342 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1343 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1344 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1345 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1346 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1347 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1348 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1349 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1350 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1351 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1352 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1353 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1354 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1355 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1356 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1357 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1358 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1359 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1360 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1361 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1362 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1363 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1364 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1365 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1366 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1367 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1368 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1369 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1370 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1371 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1372 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1373 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1374 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1375 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1376 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1377 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1378 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1379 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1380 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1381 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1382 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1383 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1384 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1385 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1386 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1387 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1388 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1389 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1390 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1391 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1392 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1393 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1394 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1395 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1396 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1397 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1398 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1399 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1400 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1401 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1402 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1403 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1404 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1405 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1406 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1407 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1408 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1409 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1410 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1411 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1412 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1413 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1414 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1415 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1416 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1417 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1418 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1419 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1420 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1421 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1422 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1423 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1424 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1425 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1426 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1427 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1428 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1429 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1430 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1431 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1432 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1433 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1434 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1435 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1436 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1437 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1438 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1439 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1440 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1441 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1442 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1443 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1444 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1445 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1446 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1447 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1448 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1449 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1450 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1451 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1452 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1453 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1454 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1455 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1456 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1457 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1458 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1459 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1460 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1461 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1462 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1463 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1464 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1465 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1466 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1467 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1468 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1469 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1470 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1471 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1472 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1473 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1474 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1475 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1476 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1477 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1478 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1479 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1480 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1481 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1482 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1483 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1484 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1485 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1486 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1487 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1488 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1489 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1490 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1491 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1492 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1493 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1494 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1495 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1496 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1497 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1498 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1499 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1500 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1501 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1502 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1503 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1504 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1505 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1506 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1507 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1508 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1509 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1510 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1511 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1512 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1513 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1514 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1515 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1516 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1517 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1518 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1519 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1520 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1521 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1522 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1523 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1524 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1525 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1526 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1527 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1528 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1529 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1530 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1531 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1532 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1533 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1534 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1535 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1536 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1537 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1538 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1539 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1540 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1541 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1542 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1543 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1544 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1545 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1546 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1547 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1548 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1549 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1550 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1551 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1552 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1553 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1554 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1555 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1556 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1557 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1558 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1559 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1560 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1561 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1562 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1563 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1564 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1565 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1566 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1567 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1568 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1569 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1570 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1571 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1572 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1573 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1574 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1575 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1576 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1577 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1578 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1579 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1580 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1581 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1582 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1583 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1584 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1585 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1586 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1587 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1588 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1589 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1590 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1591 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1592 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1593 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1594 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1595 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1596 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1597 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1598 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1599 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1600 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1601 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1602 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1603 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1604 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1605 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1606 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1607 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1608 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1609 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1610 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1611 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1612 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1613 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1614 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1615 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1616 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1617 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1618 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1619 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1620 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1621 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1622 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1623 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1624 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1625 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1626 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1627 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1628 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1629 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1630 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1631 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1632 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1633 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1634 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1635 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1636 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1637 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1638 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1639 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1640 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1641 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1642 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1643 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1644 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1645 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1646 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1647 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1648 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1649 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1650 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1651 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1652 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1653 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1654 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1655 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1656 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1657 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1658 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1659 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1660 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1661 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1662 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1663 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("4"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1664 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("5"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1665 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1666 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1667 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1668 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1669 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1670 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1671 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1672 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1673 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1674 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1675 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1676 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1677 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1678 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1679 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1680 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1681 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1682 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1683 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1684 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1685 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1686 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1687 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1688 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1689 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1690 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1691 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1692 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1693 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1694 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1695 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1696 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1697 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1698 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1699 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1700 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1701 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1702 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1703 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1704 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1705 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1706 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1707 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1708 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1709 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1710 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1711 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1712 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1713 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1714 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1715 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1716 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1717 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1718 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1719 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1720 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1721 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1722 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1723 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1724 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1725 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1726 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1727 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1728 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1729 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1730 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1731 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1732 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1733 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1734 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1735 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1736 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1737 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1738 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1739 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1740 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1741 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1742 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1743 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1744 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1745 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1746 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1747 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1748 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1749 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1750 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1751 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1752 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1753 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1754 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1755 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1756 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1757 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1758 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1759 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1760 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1761 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1762 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1763 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1764 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1765 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1766 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1767 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1768 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1769 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1770 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1771 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1772 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1773 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1774 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1775 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1776 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1777 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1778 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1779 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1780 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1781 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1782 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1783 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1784 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1785 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1786 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1787 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1788 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1789 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1790 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1791 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1792 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1793 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1794 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1795 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1796 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1797 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1798 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1799 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1800 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1801 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1802 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1803 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1804 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1805 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1806 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1807 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1808 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1809 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1810 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1811 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1812 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1813 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1814 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1815 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1816 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1817 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1818 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1819 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1820 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1821 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1822 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1823 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1824 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1825 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1826 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1827 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1828 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1829 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1830 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1831 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1832 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1833 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1834 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1835 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1836 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1837 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1838 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1839 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1840 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1841 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1842 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1843 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1844 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1845 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1846 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1847 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1848 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1849 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1850 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1851 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1852 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1853 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1854 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1855 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1856 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1857 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1858 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1859 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1860 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1861 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1862 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1863 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1864 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1865 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1866 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1867 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1868 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1869 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1870 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1871 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1872 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1873 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1874 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1875 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1876 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1877 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1878 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1879 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1880 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1881 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1882 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1883 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1884 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1885 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1886 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1887 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1888 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1889 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1890 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1891 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1892 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1893 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1894 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1895 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1896 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1897 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1898 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1899 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1900 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1901 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1902 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1903 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1904 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1905 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1906 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1907 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1908 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1909 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1910 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1911 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1912 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1913 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1914 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1915 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1916 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1917 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1918 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1919 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1920 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1921 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1922 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1923 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1924 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1925 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1926 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1927 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1928 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1929 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1930 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1931 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1932 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1933 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1934 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1935 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1936 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1937 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1938 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1939 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1940 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1941 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1942 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1943 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1944 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1945 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1946 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1947 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1948 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1949 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1950 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1951 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1952 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1953 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1954 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1955 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1956 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1957 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1958 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1959 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1960 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1961 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1962 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1963 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1964 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1965 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1966 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1967 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1968 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1969 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1970 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1971 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1972 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1973 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1974 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1975 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1976 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1977 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1978 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1979 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1980 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1981 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1982 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1983 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1984 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1985 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1986 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1987 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1988 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1989 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1990 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1991 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1992 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1993 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1994 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1995 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1996 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1997 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1998 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1999 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2000 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2001 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2002 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2003 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2004 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2005 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2006 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2007 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2008 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2009 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2010 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2011 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2012 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2013 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2014 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2015 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2016 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2017 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2018 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2019 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2020 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2021 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2022 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2023 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2024 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2025 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2026 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2027 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2028 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2029 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2030 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2031 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2032 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2033 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2034 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2035 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2036 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2037 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2038 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2039 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2040 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2041 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2042 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2043 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2044 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2045 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2046 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2047 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2048 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2049 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2050 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2051 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2052 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2053 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2054 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2055 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2056 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2057 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2058 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2059 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2060 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2061 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2062 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2063 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2064 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2065 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2066 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2067 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2068 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2069 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2070 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2071 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2072 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2073 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2074 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2075 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2076 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2077 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2078 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2079 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2080 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2081 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2082 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2083 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2084 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2085 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2086 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2087 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2088 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2089 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2090 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2091 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2092 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2093 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2094 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2095 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2096 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2097 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2098 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2099 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2100 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2101 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2102 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2103 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2104 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2105 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2106 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2107 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2108 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2109 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2110 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2111 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2112 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2113 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2114 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2115 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2116 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2117 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2118 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2119 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2120 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2121 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2122 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2123 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2124 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2125 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2126 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2127 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2128 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2129 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2130 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2131 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2132 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2133 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2134 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2135 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2136 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2137 - $x = Math::BigFloat->new("123"); $x->is_nan(); ok 2138 - $x = Math::BigFloat->new("abc"); $x->is_nan(); ok 2139 - $x = Math::BigFloat->new("NaN"); $x->is_nan(); ok 2140 - $x = Math::BigFloat->new("-123"); $x->is_nan(); ok 2141 - $x = Math::BigFloat->new("+inf"); $x->is_inf(""); ok 2142 - $x = Math::BigFloat->new("-inf"); $x->is_inf(""); ok 2143 - $x = Math::BigFloat->new("abc"); $x->is_inf(""); ok 2144 - $x = Math::BigFloat->new("1"); $x->is_inf(""); ok 2145 - $x = Math::BigFloat->new("NaN"); $x->is_inf(""); ok 2146 - $x = Math::BigFloat->new("-1"); $x->is_inf(""); ok 2147 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-"); ok 2148 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+"); ok 2149 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-"); ok 2150 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+"); ok 2151 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-inf"); ok 2152 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+inf"); ok 2153 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-inf"); ok 2154 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+inf"); ok 2155 - $x = Math::BigFloat->new("+iNfInItY"); $x->is_inf(""); ok 2156 - $x = Math::BigFloat->new("-InFiNiTy"); $x->is_inf(""); ok 2157 - $x = Math::BigFloat->new("abc"); $x->is_odd(); ok 2158 - $x = Math::BigFloat->new("0"); $x->is_odd(); ok 2159 - $x = Math::BigFloat->new("-1"); $x->is_odd(); ok 2160 - $x = Math::BigFloat->new("-3"); $x->is_odd(); ok 2161 - $x = Math::BigFloat->new("1"); $x->is_odd(); ok 2162 - $x = Math::BigFloat->new("3"); $x->is_odd(); ok 2163 - $x = Math::BigFloat->new("1000001"); $x->is_odd(); ok 2164 - $x = Math::BigFloat->new("1000002"); $x->is_odd(); ok 2165 - $x = Math::BigFloat->new("+inf"); $x->is_odd(); ok 2166 - $x = Math::BigFloat->new("-inf"); $x->is_odd(); ok 2167 - $x = Math::BigFloat->new("123.45"); $x->is_odd(); ok 2168 - $x = Math::BigFloat->new("-123.45"); $x->is_odd(); ok 2169 - $x = Math::BigFloat->new("2"); $x->is_odd(); ok 2170 - $x = Math::BigFloat->new("NaNis_int"); $x->is_int(); ok 2171 - $x = Math::BigFloat->new("0"); $x->is_int(); ok 2172 - $x = Math::BigFloat->new("1"); $x->is_int(); ok 2173 - $x = Math::BigFloat->new("2"); $x->is_int(); ok 2174 - $x = Math::BigFloat->new("-2"); $x->is_int(); ok 2175 - $x = Math::BigFloat->new("-1"); $x->is_int(); ok 2176 - $x = Math::BigFloat->new("-inf"); $x->is_int(); ok 2177 - $x = Math::BigFloat->new("+inf"); $x->is_int(); ok 2178 - $x = Math::BigFloat->new("123.4567"); $x->is_int(); ok 2179 - $x = Math::BigFloat->new("-0.1"); $x->is_int(); ok 2180 - $x = Math::BigFloat->new("-0.002"); $x->is_int(); ok 2181 - $x = Math::BigFloat->new("abc"); $x->is_even(); ok 2182 - $x = Math::BigFloat->new("0"); $x->is_even(); ok 2183 - $x = Math::BigFloat->new("-1"); $x->is_even(); ok 2184 - $x = Math::BigFloat->new("-3"); $x->is_even(); ok 2185 - $x = Math::BigFloat->new("1"); $x->is_even(); ok 2186 - $x = Math::BigFloat->new("3"); $x->is_even(); ok 2187 - $x = Math::BigFloat->new("1000001"); $x->is_even(); ok 2188 - $x = Math::BigFloat->new("1000002"); $x->is_even(); ok 2189 - $x = Math::BigFloat->new("2"); $x->is_even(); ok 2190 - $x = Math::BigFloat->new("+inf"); $x->is_even(); ok 2191 - $x = Math::BigFloat->new("-inf"); $x->is_even(); ok 2192 - $x = Math::BigFloat->new("123.456"); $x->is_even(); ok 2193 - $x = Math::BigFloat->new("-123.456"); $x->is_even(); ok 2194 - $x = Math::BigFloat->new("0.01"); $x->is_even(); ok 2195 - $x = Math::BigFloat->new("-0.01"); $x->is_even(); ok 2196 - $x = Math::BigFloat->new("120"); $x->is_even(); ok 2197 - $x = Math::BigFloat->new("1200"); $x->is_even(); ok 2198 - $x = Math::BigFloat->new("-1200"); $x->is_even(); ok 2199 - $x = Math::BigFloat->new("0"); $x->is_positive(); ok 2200 - $x = Math::BigFloat->new("1"); $x->is_positive(); ok 2201 - $x = Math::BigFloat->new("-1"); $x->is_positive(); ok 2202 - $x = Math::BigFloat->new("-123"); $x->is_positive(); ok 2203 - $x = Math::BigFloat->new("NaN"); $x->is_positive(); ok 2204 - $x = Math::BigFloat->new("-inf"); $x->is_positive(); ok 2205 - $x = Math::BigFloat->new("+inf"); $x->is_positive(); ok 2206 - $x = Math::BigFloat->new("0"); $x->is_negative(); ok 2207 - $x = Math::BigFloat->new("1"); $x->is_negative(); ok 2208 - $x = Math::BigFloat->new("-1"); $x->is_negative(); ok 2209 - $x = Math::BigFloat->new("-123"); $x->is_negative(); ok 2210 - $x = Math::BigFloat->new("NaN"); $x->is_negative(); ok 2211 - $x = Math::BigFloat->new("-inf"); $x->is_negative(); ok 2212 - $x = Math::BigFloat->new("+inf"); $x->is_negative(); ok 2213 - $x = Math::BigFloat->new("0"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2214 - $x = Math::BigFloat->new("1"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2215 - $x = Math::BigFloat->new("123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2216 - $x = Math::BigFloat->new("-123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2217 - $x = Math::BigFloat->new("-1200"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2218 - $x = Math::BigFloat->new("NaNparts"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2219 - $x = Math::BigFloat->new("+inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2220 - $x = Math::BigFloat->new("-inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2221 - $x = Math::BigFloat->new("0"); $x->exponent()->bstr(); ok 2222 - $x = Math::BigFloat->new("1"); $x->exponent()->bstr(); ok 2223 - $x = Math::BigFloat->new("123"); $x->exponent()->bstr(); ok 2224 - $x = Math::BigFloat->new("-123"); $x->exponent()->bstr(); ok 2225 - $x = Math::BigFloat->new("-1200"); $x->exponent()->bstr(); ok 2226 - $x = Math::BigFloat->new("+inf"); $x->exponent()->bstr(); ok 2227 - $x = Math::BigFloat->new("-inf"); $x->exponent()->bstr(); ok 2228 - $x = Math::BigFloat->new("NaNexponent"); $x->exponent()->bstr(); ok 2229 - $x = Math::BigFloat->new("0"); $x->mantissa()->bstr(); ok 2230 - $x = Math::BigFloat->new("1"); $x->mantissa()->bstr(); ok 2231 - $x = Math::BigFloat->new("123"); $x->mantissa()->bstr(); ok 2232 - $x = Math::BigFloat->new("-123"); $x->mantissa()->bstr(); ok 2233 - $x = Math::BigFloat->new("-1200"); $x->mantissa()->bstr(); ok 2234 - $x = Math::BigFloat->new("+inf"); $x->mantissa()->bstr(); ok 2235 - $x = Math::BigFloat->new("-inf"); $x->mantissa()->bstr(); ok 2236 - $x = Math::BigFloat->new("NaNmantissa"); $x->mantissa()->bstr(); ok 2237 - $x = Math::BigFloat->new("123"); $x->length(); ok 2238 - $x = Math::BigFloat->new("-123"); $x->length(); ok 2239 - $x = Math::BigFloat->new("0"); $x->length(); ok 2240 - $x = Math::BigFloat->new("1"); $x->length(); ok 2241 - $x = Math::BigFloat->new("12345678901234567890"); $x->length(); ok 2242 - $x = Math::BigFloat->new("NaNzero"); $x->is_zero(); ok 2243 - $x = Math::BigFloat->new("+inf"); $x->is_zero(); ok 2244 - $x = Math::BigFloat->new("-inf"); $x->is_zero(); ok 2245 - $x = Math::BigFloat->new("0"); $x->is_zero(); ok 2246 - $x = Math::BigFloat->new("-1"); $x->is_zero(); ok 2247 - $x = Math::BigFloat->new("1"); $x->is_zero(); ok 2248 - $x = Math::BigFloat->new("NaNone"); $x->is_one(); ok 2249 - $x = Math::BigFloat->new("+inf"); $x->is_one(); ok 2250 - $x = Math::BigFloat->new("-inf"); $x->is_one(); ok 2251 - $x = Math::BigFloat->new("0"); $x->is_one(); ok 2252 - $x = Math::BigFloat->new("2"); $x->is_one(); ok 2253 - $x = Math::BigFloat->new("1"); $x->is_one(); ok 2254 - $x = Math::BigFloat->new("-1"); $x->is_one(); ok 2255 - $x = Math::BigFloat->new("-2"); $x->is_one(); ok 2256 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2257 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2258 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2259 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2260 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2261 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2262 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2263 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2264 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2265 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2266 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2267 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2268 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2269 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2270 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2271 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2272 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2273 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2274 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2275 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2276 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2277 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2278 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2279 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2280 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2281 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2282 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2283 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2284 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2285 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2286 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2287 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2288 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2289 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2290 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2291 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2292 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2293 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2294 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2295 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2296 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2297 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2298 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2299 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2300 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2301 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2302 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2303 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2304 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2305 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2306 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2307 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2308 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2309 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2310 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2311 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2312 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2313 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2314 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2315 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2316 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2317 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2318 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2319 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2320 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2321 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2322 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2323 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2324 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2325 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2326 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2327 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2328 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2329 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2330 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2331 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2332 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2333 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2334 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2335 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2336 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2337 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2338 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $y ok 2339 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $x ok 2340 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsstr() ok 2341 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->exponent() ok 2342 - Math::BigFloat->new("1e1234567890123456789012345678901234567890") > 0 ok 2343 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsub("1e1234567890123456789012345678901234567890") ok 2344 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bmul(2)->bsstr() ok 2345 - Math::BigFloat->new("1234567890123456789012345678901234567890e2")->mantissa() ok 2346 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_a} ok 2347 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_p} ok 2348 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_a} ok 2349 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_p} ok 2350 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_a} ok 2351 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_p} ok 2352 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_a} ok 2353 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_p} ok 2354 - Math::BigFloat->bzero() ok 2355 - Math::BigFloat->bone() ok 2356 - Math::BigFloat->bone("+") ok 2357 - Math::BigFloat->bone("-") ok 2358 - Math::BigFloat->bnan() ok 2359 - Math::BigFloat->binf() ok 2360 - Math::BigFloat->binf("+") ok 2361 - Math::BigFloat->binf("-") ok 2362 - Math::BigFloat->binf("-inf") ok 2363 - $x = Math::BigFloat->new(12); Math::BigFloat->precision(-2); $x->bsqrt(); ok 2364 - Math::BigFloat->precision(undef); $x = Math::BigFloat->new(12); Math::BigFloat->precision(0); $x->bsqrt(); ok 2365 - Math::BigFloat->precision(-3); $x = Math::BigFloat->new(12); $x->bsqrt(); ok 2366 - A and P set => NaN ok 2367 - supplied arg overrides set global ok 2368 - @args = Math::BigFloat::objectify(2, Math::BigFloat, 4, 5); join(" ", @args); ok 2369 - Math::BigFloat->new(-1)->is_one() ok 2370 - Math::BigFloat->new(-1)->is_one("-") ok 2371 - Math::BigFloat->new(1)->bdiv("0.5")->bsstr() ok 2372 - $x = Math::BigFloat->new(3); $x -= $x; ok 2373 - $x = Math::BigFloat->new(-3); $x -= $x; ok 2374 - $x = Math::BigFloat->new(3); $x += $x; ok 2375 - $x = Math::BigFloat->new(-3); $x += $x; ok 2376 - $x = Math::BigFloat->new("NaN"); $x -= $x; ok 2377 - $x = Math::BigFloat->new("inf"); $x -= $x; ok 2378 - $x = Math::BigFloat->new("-inf"); $x -= $x; ok 2379 - $x = Math::BigFloat->new("NaN"); $x += $x; ok 2380 - $x = Math::BigFloat->new("inf"); $x += $x; ok 2381 - $x = Math::BigFloat->new("-inf"); $x += $x; ok 2382 - $x = Math::BigFloat->new("3.14"); $x -= $x; ok 2383 - $x = Math::BigFloat->new("-3.14"); $x -= $x; ok 2384 - 6.28 = Math::BigFloat->new("3.14"); 6.28 += 6.28; ok 2385 - -6.28 = Math::BigFloat->new("-3.14"); -6.28 += -6.28; ok 2386 - 9.8596 = Math::BigFloat->new("3.14"); 9.8596 *= 9.8596; ok 2387 - 9.8596 = Math::BigFloat->new("-3.14"); 9.8596 *= 9.8596; ok 2388 - 1 = Math::BigFloat->new("3.14"); 1 /= 1; ok 2389 - 1 = Math::BigFloat->new("-3.14"); 1 /= 1; ok 2390 - 0 = Math::BigFloat->new("3.14"); 0 %= 0; ok 2391 - 0 = Math::BigFloat->new("-3.14"); 0 %= 0; ok 2392 - $x = Math::BigFloat->new(0); $y = Math::BigFloat->new("0.1"); $x ** $y ok 2393 - 1 = Math::BigFloat->new(".222222222222222222222222222222222222222222"); 1->bceil(); ok 2394 - value of ((2**148)+1)/17 ok 2395 - number of digits in ((2**148)+1)/17 ok 2396 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y ok 2397 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x ok 2398 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y ok 2399 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y; $x ok 2400 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); ok 2401 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y ok 2402 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y; $x ok t/bare_mbi.t .................................. 1..3913 # BareCalc using Calc v1.999807 # Math::BigInt::BareCalc ok 1 - Math::BigInt->config('lib') ok 2 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("-345"); $x .= $y; ok 3 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x += $y; ok 4 - is a valid object ok 5 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x += $y; ok 6 - is a valid object ok 7 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x -= $y; ok 8 - is a valid object ok 9 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x -= $y; ok 10 - is a valid object ok 11 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x *= $y; ok 12 - is a valid object ok 13 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x *= $y; ok 14 - is a valid object ok 15 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x %= $y; ok 16 - is a valid object ok 17 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("9"); $x %= $y; ok 18 - is a valid object ok 19 - $x = Math::BigInt->new("-629"); $y = Math::BigInt->new("5033"); $x %= $y; ok 20 - is a valid object ok 21 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x /= $y; ok 22 - is a valid object ok 23 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("2"); $x /= $y; ok 24 - is a valid object ok 25 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x |= $y; ok 26 - is a valid object ok 27 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x &= $y; ok 28 - is a valid object ok 29 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x ^= $y; ok 30 - is a valid object ok 31 - $x = Math::BigInt->new("NaNlog"); $y = Math::BigInt->new("2"); $x->blog($y); ok 32 - is a valid object ok 33 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("NaNlog"); $x->blog($y); ok 34 - is a valid object ok 35 - $x = Math::BigInt->new("NaNlog1"); $y = Math::BigInt->new("NaNlog"); $x->blog($y); ok 36 - is a valid object ok 37 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 38 - is a valid object ok 39 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("122"); $x->blog($y); ok 40 - is a valid object ok 41 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 42 - is a valid object ok 43 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("122"); $x->blog($y); ok 44 - is a valid object ok 45 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 46 - is a valid object ok 47 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $x->blog($y); ok 48 - is a valid object ok 49 - $x = Math::BigInt->new("-21"); $y = Math::BigInt->new("4"); $x->blog($y); ok 50 - is a valid object ok 51 - $x = Math::BigInt->new("21"); $y = Math::BigInt->new("-21"); $x->blog($y); ok 52 - is a valid object ok 53 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 54 - is a valid object ok 55 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 56 - is a valid object ok 57 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->blog($y); ok 58 - is a valid object ok 59 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->blog($y); ok 60 - is a valid object ok 61 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 62 - is a valid object ok 63 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 64 - is a valid object ok 65 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 66 - is a valid object ok 67 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->blog($y); ok 68 - is a valid object ok 69 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->blog($y); ok 70 - is a valid object ok 71 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $x->blog($y); ok 72 - is a valid object ok 73 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 74 - is a valid object ok 75 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 76 - is a valid object ok 77 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 78 - is a valid object ok 79 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->blog($y); ok 80 - is a valid object ok 81 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("1"); $x->blog($y); ok 82 - is a valid object ok 83 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("4"); $x->blog($y); ok 84 - is a valid object ok 85 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 86 - is a valid object ok 87 - $x = Math::BigInt->new("1024"); $y = Math::BigInt->new("2"); $x->blog($y); ok 88 - is a valid object ok 89 - $x = Math::BigInt->new("81"); $y = Math::BigInt->new("3"); $x->blog($y); ok 90 - is a valid object ok 91 - $x = Math::BigInt->new("82"); $y = Math::BigInt->new("3"); $x->blog($y); ok 92 - is a valid object ok 93 - $x = Math::BigInt->new("80"); $y = Math::BigInt->new("3"); $x->blog($y); ok 94 - is a valid object ok 95 - $x = Math::BigInt->new("4096"); $y = Math::BigInt->new("2"); $x->blog($y); ok 96 - is a valid object ok 97 - $x = Math::BigInt->new("15625"); $y = Math::BigInt->new("5"); $x->blog($y); ok 98 - is a valid object ok 99 - $x = Math::BigInt->new("15626"); $y = Math::BigInt->new("5"); $x->blog($y); ok 100 - is a valid object ok 101 - $x = Math::BigInt->new("15624"); $y = Math::BigInt->new("5"); $x->blog($y); ok 102 - is a valid object ok 103 - $x = Math::BigInt->new("1000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 104 - is a valid object ok 105 - $x = Math::BigInt->new("10000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 106 - is a valid object ok 107 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 108 - is a valid object ok 109 - $x = Math::BigInt->new("1000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 110 - is a valid object ok 111 - $x = Math::BigInt->new("10000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 112 - is a valid object ok 113 - $x = Math::BigInt->new("100000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 114 - is a valid object ok 115 - $x = Math::BigInt->new("8916100448256"); $y = Math::BigInt->new("12"); $x->blog($y); ok 116 - is a valid object ok 117 - $x = Math::BigInt->new("8916100448257"); $y = Math::BigInt->new("12"); $x->blog($y); ok 118 - is a valid object ok 119 - $x = Math::BigInt->new("8916100448255"); $y = Math::BigInt->new("12"); $x->blog($y); ok 120 - is a valid object ok 121 - $x = Math::BigInt->new("2251799813685248"); $y = Math::BigInt->new("8"); $x->blog($y); ok 122 - is a valid object ok 123 - $x = Math::BigInt->new("72057594037927936"); $y = Math::BigInt->new("2"); $x->blog($y); ok 124 - is a valid object ok 125 - $x = Math::BigInt->new("144115188075855872"); $y = Math::BigInt->new("2"); $x->blog($y); ok 126 - is a valid object ok 127 - $x = Math::BigInt->new("288230376151711744"); $y = Math::BigInt->new("2"); $x->blog($y); ok 128 - is a valid object ok 129 - $x = Math::BigInt->new("576460752303423488"); $y = Math::BigInt->new("2"); $x->blog($y); ok 130 - is a valid object ok 131 - $x = Math::BigInt->new("1329227995784915872903807060280344576"); $y = Math::BigInt->new("2"); $x->blog($y); ok 132 - is a valid object ok 133 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x->blog($y); ok 134 - is a valid object ok 135 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $x->blog($y); ok 136 - is a valid object ok 137 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->blog($y); ok 138 - is a valid object ok 139 - $x = Math::BigInt->new("0"); $x->is_negative() || 0; ok 140 - $x = Math::BigInt->new("-1"); $x->is_negative() || 0; ok 141 - $x = Math::BigInt->new("1"); $x->is_negative() || 0; ok 142 - $x = Math::BigInt->new("+inf"); $x->is_negative() || 0; ok 143 - $x = Math::BigInt->new("-inf"); $x->is_negative() || 0; ok 144 - $x = Math::BigInt->new("NaNneg"); $x->is_negative() || 0; ok 145 - $x = Math::BigInt->new("0"); $x->is_positive() || 0; ok 146 - $x = Math::BigInt->new("-1"); $x->is_positive() || 0; ok 147 - $x = Math::BigInt->new("1"); $x->is_positive() || 0; ok 148 - $x = Math::BigInt->new("+inf"); $x->is_positive() || 0; ok 149 - $x = Math::BigInt->new("-inf"); $x->is_positive() || 0; ok 150 - $x = Math::BigInt->new("NaNneg"); $x->is_positive() || 0; ok 151 - $x = Math::BigInt->new("-inf"); $x->is_int() || 0; ok 152 - $x = Math::BigInt->new("+inf"); $x->is_int() || 0; ok 153 - $x = Math::BigInt->new("NaNis_int"); $x->is_int() || 0; ok 154 - $x = Math::BigInt->new("1"); $x->is_int() || 0; ok 155 - $x = Math::BigInt->new("0"); $x->is_int() || 0; ok 156 - $x = Math::BigInt->new("123e12"); $x->is_int() || 0; ok 157 - $x = Math::BigInt->new("abc"); $x->is_odd() || 0; ok 158 - $x = Math::BigInt->new("0"); $x->is_odd() || 0; ok 159 - $x = Math::BigInt->new("1"); $x->is_odd() || 0; ok 160 - $x = Math::BigInt->new("3"); $x->is_odd() || 0; ok 161 - $x = Math::BigInt->new("-1"); $x->is_odd() || 0; ok 162 - $x = Math::BigInt->new("-3"); $x->is_odd() || 0; ok 163 - $x = Math::BigInt->new("10000001"); $x->is_odd() || 0; ok 164 - $x = Math::BigInt->new("10000002"); $x->is_odd() || 0; ok 165 - $x = Math::BigInt->new("2"); $x->is_odd() || 0; ok 166 - $x = Math::BigInt->new("120"); $x->is_odd() || 0; ok 167 - $x = Math::BigInt->new("121"); $x->is_odd() || 0; ok 168 - $x = Math::BigInt->new("abc"); $x->is_even() || 0; ok 169 - $x = Math::BigInt->new("0"); $x->is_even() || 0; ok 170 - $x = Math::BigInt->new("1"); $x->is_even() || 0; ok 171 - $x = Math::BigInt->new("3"); $x->is_even() || 0; ok 172 - $x = Math::BigInt->new("-1"); $x->is_even() || 0; ok 173 - $x = Math::BigInt->new("-3"); $x->is_even() || 0; ok 174 - $x = Math::BigInt->new("10000001"); $x->is_even() || 0; ok 175 - $x = Math::BigInt->new("10000002"); $x->is_even() || 0; ok 176 - $x = Math::BigInt->new("2"); $x->is_even() || 0; ok 177 - $x = Math::BigInt->new("120"); $x->is_even() || 0; ok 178 - $x = Math::BigInt->new("121"); $x->is_even() || 0; ok 179 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-0"); $x->bacmp($y); ok 180 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 181 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 182 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 183 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+2"); $x->bacmp($y); ok 184 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 185 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x->bacmp($y); ok 186 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bacmp($y); ok 187 - $x = Math::BigInt->new("+987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 188 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 189 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("+4567889"); $x->bacmp($y); ok 190 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 191 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 192 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 193 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 194 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 195 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 196 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 197 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 198 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 199 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 200 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 201 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 202 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 203 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 204 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 205 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 206 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 207 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 208 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 209 - $x = Math::BigInt->bnorm("0e999"); ok 210 - is a valid object ok 211 - $x = Math::BigInt->bnorm("0e-999"); ok 212 - is a valid object ok 213 - $x = Math::BigInt->bnorm("-0e999"); ok 214 - is a valid object ok 215 - $x = Math::BigInt->bnorm("-0e-999"); ok 216 - is a valid object ok 217 - $x = Math::BigInt->bnorm("123"); ok 218 - is a valid object ok 219 - $x = Math::BigInt->bnorm("123.000"); ok 220 - is a valid object ok 221 - $x = Math::BigInt->bnorm("123e0"); ok 222 - is a valid object ok 223 - $x = Math::BigInt->bnorm("123e+0"); ok 224 - is a valid object ok 225 - $x = Math::BigInt->bnorm("123e-0"); ok 226 - is a valid object ok 227 - $x = Math::BigInt->bnorm("123.000e0"); ok 228 - is a valid object ok 229 - $x = Math::BigInt->bnorm("123.000e+0"); ok 230 - is a valid object ok 231 - $x = Math::BigInt->bnorm("123.000e-0"); ok 232 - is a valid object ok 233 - $x = Math::BigInt->bnorm("0babc"); ok 234 - is a valid object ok 235 - $x = Math::BigInt->bnorm("0b123"); ok 236 - is a valid object ok 237 - $x = Math::BigInt->bnorm("0b0"); ok 238 - is a valid object ok 239 - $x = Math::BigInt->bnorm("-0b0"); ok 240 - is a valid object ok 241 - $x = Math::BigInt->bnorm("-0b1"); ok 242 - is a valid object ok 243 - $x = Math::BigInt->bnorm("0b0001"); ok 244 - is a valid object ok 245 - $x = Math::BigInt->bnorm("0b001"); ok 246 - is a valid object ok 247 - $x = Math::BigInt->bnorm("0b011"); ok 248 - is a valid object ok 249 - $x = Math::BigInt->bnorm("0b101"); ok 250 - is a valid object ok 251 - $x = Math::BigInt->bnorm("0b1001"); ok 252 - is a valid object ok 253 - $x = Math::BigInt->bnorm("0b10001"); ok 254 - is a valid object ok 255 - $x = Math::BigInt->bnorm("0b100001"); ok 256 - is a valid object ok 257 - $x = Math::BigInt->bnorm("0b1000001"); ok 258 - is a valid object ok 259 - $x = Math::BigInt->bnorm("0b10000001"); ok 260 - is a valid object ok 261 - $x = Math::BigInt->bnorm("0b100000001"); ok 262 - is a valid object ok 263 - $x = Math::BigInt->bnorm("0b1000000001"); ok 264 - is a valid object ok 265 - $x = Math::BigInt->bnorm("0b10000000001"); ok 266 - is a valid object ok 267 - $x = Math::BigInt->bnorm("0b100000000001"); ok 268 - is a valid object ok 269 - $x = Math::BigInt->bnorm("0b1000000000001"); ok 270 - is a valid object ok 271 - $x = Math::BigInt->bnorm("0b10000000000001"); ok 272 - is a valid object ok 273 - $x = Math::BigInt->bnorm("0b100000000000001"); ok 274 - is a valid object ok 275 - $x = Math::BigInt->bnorm("0b1000000000000001"); ok 276 - is a valid object ok 277 - $x = Math::BigInt->bnorm("0b10000000000000001"); ok 278 - is a valid object ok 279 - $x = Math::BigInt->bnorm("0b100000000000000001"); ok 280 - is a valid object ok 281 - $x = Math::BigInt->bnorm("0b1000000000000000001"); ok 282 - is a valid object ok 283 - $x = Math::BigInt->bnorm("0b10000000000000000001"); ok 284 - is a valid object ok 285 - $x = Math::BigInt->bnorm("0b100000000000000000001"); ok 286 - is a valid object ok 287 - $x = Math::BigInt->bnorm("0b1000000000000000000001"); ok 288 - is a valid object ok 289 - $x = Math::BigInt->bnorm("0b10000000000000000000001"); ok 290 - is a valid object ok 291 - $x = Math::BigInt->bnorm("0b100000000000000000000001"); ok 292 - is a valid object ok 293 - $x = Math::BigInt->bnorm("0b1000000000000000000000001"); ok 294 - is a valid object ok 295 - $x = Math::BigInt->bnorm("0b10000000000000000000000001"); ok 296 - is a valid object ok 297 - $x = Math::BigInt->bnorm("0b100000000000000000000000001"); ok 298 - is a valid object ok 299 - $x = Math::BigInt->bnorm("0b1000000000000000000000000001"); ok 300 - is a valid object ok 301 - $x = Math::BigInt->bnorm("0b10000000000000000000000000001"); ok 302 - is a valid object ok 303 - $x = Math::BigInt->bnorm("0b100000000000000000000000000001"); ok 304 - is a valid object ok 305 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000001"); ok 306 - is a valid object ok 307 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000001"); ok 308 - is a valid object ok 309 - $x = Math::BigInt->bnorm("0b100000000000000000000000000000001"); ok 310 - is a valid object ok 311 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000000001"); ok 312 - is a valid object ok 313 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000000001"); ok 314 - is a valid object ok 315 - $x = Math::BigInt->bnorm("0b__101"); ok 316 - is a valid object ok 317 - $x = Math::BigInt->bnorm("0b1_0_1"); ok 318 - is a valid object ok 319 - $x = Math::BigInt->bnorm("0b0_0_0_1"); ok 320 - is a valid object ok 321 - $x = Math::BigInt->bnorm("-0x0"); ok 322 - is a valid object ok 323 - $x = Math::BigInt->bnorm("0xabcdefgh"); ok 324 - is a valid object ok 325 - $x = Math::BigInt->bnorm("0x1234"); ok 326 - is a valid object ok 327 - $x = Math::BigInt->bnorm("0xabcdef"); ok 328 - is a valid object ok 329 - $x = Math::BigInt->bnorm("-0xABCDEF"); ok 330 - is a valid object ok 331 - $x = Math::BigInt->bnorm("-0x1234"); ok 332 - is a valid object ok 333 - $x = Math::BigInt->bnorm("0x12345678"); ok 334 - is a valid object ok 335 - $x = Math::BigInt->bnorm("0x1_2_3_4_56_78"); ok 336 - is a valid object ok 337 - $x = Math::BigInt->bnorm("0xa_b_c_d_e_f"); ok 338 - is a valid object ok 339 - $x = Math::BigInt->bnorm("0x__123"); ok 340 - is a valid object ok 341 - $x = Math::BigInt->bnorm("0x9"); ok 342 - is a valid object ok 343 - $x = Math::BigInt->bnorm("0x11"); ok 344 - is a valid object ok 345 - $x = Math::BigInt->bnorm("0x21"); ok 346 - is a valid object ok 347 - $x = Math::BigInt->bnorm("0x41"); ok 348 - is a valid object ok 349 - $x = Math::BigInt->bnorm("0x81"); ok 350 - is a valid object ok 351 - $x = Math::BigInt->bnorm("0x101"); ok 352 - is a valid object ok 353 - $x = Math::BigInt->bnorm("0x201"); ok 354 - is a valid object ok 355 - $x = Math::BigInt->bnorm("0x401"); ok 356 - is a valid object ok 357 - $x = Math::BigInt->bnorm("0x801"); ok 358 - is a valid object ok 359 - $x = Math::BigInt->bnorm("0x1001"); ok 360 - is a valid object ok 361 - $x = Math::BigInt->bnorm("0x2001"); ok 362 - is a valid object ok 363 - $x = Math::BigInt->bnorm("0x4001"); ok 364 - is a valid object ok 365 - $x = Math::BigInt->bnorm("0x8001"); ok 366 - is a valid object ok 367 - $x = Math::BigInt->bnorm("0x10001"); ok 368 - is a valid object ok 369 - $x = Math::BigInt->bnorm("0x20001"); ok 370 - is a valid object ok 371 - $x = Math::BigInt->bnorm("0x40001"); ok 372 - is a valid object ok 373 - $x = Math::BigInt->bnorm("0x80001"); ok 374 - is a valid object ok 375 - $x = Math::BigInt->bnorm("0x100001"); ok 376 - is a valid object ok 377 - $x = Math::BigInt->bnorm("0x200001"); ok 378 - is a valid object ok 379 - $x = Math::BigInt->bnorm("0x400001"); ok 380 - is a valid object ok 381 - $x = Math::BigInt->bnorm("0x800001"); ok 382 - is a valid object ok 383 - $x = Math::BigInt->bnorm("0x1000001"); ok 384 - is a valid object ok 385 - $x = Math::BigInt->bnorm("0x2000001"); ok 386 - is a valid object ok 387 - $x = Math::BigInt->bnorm("0x4000001"); ok 388 - is a valid object ok 389 - $x = Math::BigInt->bnorm("0x8000001"); ok 390 - is a valid object ok 391 - $x = Math::BigInt->bnorm("0x10000001"); ok 392 - is a valid object ok 393 - $x = Math::BigInt->bnorm("0x20000001"); ok 394 - is a valid object ok 395 - $x = Math::BigInt->bnorm("0x40000001"); ok 396 - is a valid object ok 397 - $x = Math::BigInt->bnorm("0x80000001"); ok 398 - is a valid object ok 399 - $x = Math::BigInt->bnorm("0x100000001"); ok 400 - is a valid object ok 401 - $x = Math::BigInt->bnorm("0x200000001"); ok 402 - is a valid object ok 403 - $x = Math::BigInt->bnorm("0x400000001"); ok 404 - is a valid object ok 405 - $x = Math::BigInt->bnorm("0x800000001"); ok 406 - is a valid object ok 407 - $x = Math::BigInt->bnorm("0x2dd59e18a125dbed30a6ab1d93e9c855569f44f75806f0645dc9a2e98b808c3"); ok 408 - is a valid object ok 409 - $x = Math::BigInt->bnorm("inf"); ok 410 - is a valid object ok 411 - $x = Math::BigInt->bnorm("+inf"); ok 412 - is a valid object ok 413 - $x = Math::BigInt->bnorm("-inf"); ok 414 - is a valid object ok 415 - $x = Math::BigInt->bnorm("0inf"); ok 416 - is a valid object ok 417 - $x = Math::BigInt->bnorm(""); ok 418 - is a valid object ok 419 - $x = Math::BigInt->bnorm("abc"); ok 420 - is a valid object ok 421 - $x = Math::BigInt->bnorm(" 1 a"); ok 422 - is a valid object ok 423 - $x = Math::BigInt->bnorm("1bcd2"); ok 424 - is a valid object ok 425 - $x = Math::BigInt->bnorm("11111b"); ok 426 - is a valid object ok 427 - $x = Math::BigInt->bnorm("+1z"); ok 428 - is a valid object ok 429 - $x = Math::BigInt->bnorm("-1z"); ok 430 - is a valid object ok 431 - $x = Math::BigInt->bnorm("_123"); ok 432 - is a valid object ok 433 - $x = Math::BigInt->bnorm("_123_"); ok 434 - is a valid object ok 435 - $x = Math::BigInt->bnorm("123_"); ok 436 - is a valid object ok 437 - $x = Math::BigInt->bnorm("1__23"); ok 438 - is a valid object ok 439 - $x = Math::BigInt->bnorm("1E1__2"); ok 440 - is a valid object ok 441 - $x = Math::BigInt->bnorm("1_E12"); ok 442 - is a valid object ok 443 - $x = Math::BigInt->bnorm("1E_12"); ok 444 - is a valid object ok 445 - $x = Math::BigInt->bnorm("1_E_12"); ok 446 - is a valid object ok 447 - $x = Math::BigInt->bnorm("+_1E12"); ok 448 - is a valid object ok 449 - $x = Math::BigInt->bnorm("+0_1E2"); ok 450 - is a valid object ok 451 - $x = Math::BigInt->bnorm("+0_0_1E2"); ok 452 - is a valid object ok 453 - $x = Math::BigInt->bnorm("-0_0_1E2"); ok 454 - is a valid object ok 455 - $x = Math::BigInt->bnorm("-0_0_1E+0_0_2"); ok 456 - is a valid object ok 457 - $x = Math::BigInt->bnorm("E1"); ok 458 - is a valid object ok 459 - $x = Math::BigInt->bnorm("E23"); ok 460 - is a valid object ok 461 - $x = Math::BigInt->bnorm("1.23E1"); ok 462 - is a valid object ok 463 - $x = Math::BigInt->bnorm("1.23E-1"); ok 464 - is a valid object ok 465 - $x = Math::BigInt->bnorm("1e2e3"); ok 466 - is a valid object ok 467 - $x = Math::BigInt->bnorm("1e2r"); ok 468 - is a valid object ok 469 - $x = Math::BigInt->bnorm("1e2.0"); ok 470 - is a valid object ok 471 - $x = Math::BigInt->bnorm("1.2.2"); ok 472 - is a valid object ok 473 - $x = Math::BigInt->bnorm("1.2.3e1"); ok 474 - is a valid object ok 475 - $x = Math::BigInt->bnorm("-1.2.3"); ok 476 - is a valid object ok 477 - $x = Math::BigInt->bnorm("-1.2.3e-4"); ok 478 - is a valid object ok 479 - $x = Math::BigInt->bnorm("1.2e3.4"); ok 480 - is a valid object ok 481 - $x = Math::BigInt->bnorm("1.2e-3.4"); ok 482 - is a valid object ok 483 - $x = Math::BigInt->bnorm("1.2.3.4"); ok 484 - is a valid object ok 485 - $x = Math::BigInt->bnorm("1.2.t"); ok 486 - is a valid object ok 487 - $x = Math::BigInt->bnorm("1..2"); ok 488 - is a valid object ok 489 - $x = Math::BigInt->bnorm("1..2e1"); ok 490 - is a valid object ok 491 - $x = Math::BigInt->bnorm("1..2e1..1"); ok 492 - is a valid object ok 493 - $x = Math::BigInt->bnorm("12e1..1"); ok 494 - is a valid object ok 495 - $x = Math::BigInt->bnorm("..2"); ok 496 - is a valid object ok 497 - $x = Math::BigInt->bnorm(".-2"); ok 498 - is a valid object ok 499 - $x = Math::BigInt->bnorm("012"); ok 500 - is a valid object ok 501 - $x = Math::BigInt->bnorm("0123"); ok 502 - is a valid object ok 503 - $x = Math::BigInt->bnorm("01234"); ok 504 - is a valid object ok 505 - $x = Math::BigInt->bnorm("012345"); ok 506 - is a valid object ok 507 - $x = Math::BigInt->bnorm("0123456"); ok 508 - is a valid object ok 509 - $x = Math::BigInt->bnorm("01234567"); ok 510 - is a valid object ok 511 - $x = Math::BigInt->bnorm("012345678"); ok 512 - is a valid object ok 513 - $x = Math::BigInt->bnorm("0123456789"); ok 514 - is a valid object ok 515 - $x = Math::BigInt->bnorm("01234567891"); ok 516 - is a valid object ok 517 - $x = Math::BigInt->bnorm("012345678912"); ok 518 - is a valid object ok 519 - $x = Math::BigInt->bnorm("0123456789123"); ok 520 - is a valid object ok 521 - $x = Math::BigInt->bnorm("01234567891234"); ok 522 - is a valid object ok 523 - $x = Math::BigInt->bnorm("0e0"); ok 524 - is a valid object ok 525 - $x = Math::BigInt->bnorm("+0e0"); ok 526 - is a valid object ok 527 - $x = Math::BigInt->bnorm("+0e+0"); ok 528 - is a valid object ok 529 - $x = Math::BigInt->bnorm("-0e+0"); ok 530 - is a valid object ok 531 - $x = Math::BigInt->bnorm("0e-0"); ok 532 - is a valid object ok 533 - $x = Math::BigInt->bnorm("-0e-0"); ok 534 - is a valid object ok 535 - $x = Math::BigInt->bnorm("+0e-0"); ok 536 - is a valid object ok 537 - $x = Math::BigInt->bnorm("000"); ok 538 - is a valid object ok 539 - $x = Math::BigInt->bnorm("00e2"); ok 540 - is a valid object ok 541 - $x = Math::BigInt->bnorm("00e02"); ok 542 - is a valid object ok 543 - $x = Math::BigInt->bnorm("000e002"); ok 544 - is a valid object ok 545 - $x = Math::BigInt->bnorm("000e1230"); ok 546 - is a valid object ok 547 - $x = Math::BigInt->bnorm("00e-3"); ok 548 - is a valid object ok 549 - $x = Math::BigInt->bnorm("00e+3"); ok 550 - is a valid object ok 551 - $x = Math::BigInt->bnorm("00e-03"); ok 552 - is a valid object ok 553 - $x = Math::BigInt->bnorm("00e+03"); ok 554 - is a valid object ok 555 - $x = Math::BigInt->bnorm("-000"); ok 556 - is a valid object ok 557 - $x = Math::BigInt->bnorm("-00e2"); ok 558 - is a valid object ok 559 - $x = Math::BigInt->bnorm("-00e02"); ok 560 - is a valid object ok 561 - $x = Math::BigInt->bnorm("-000e002"); ok 562 - is a valid object ok 563 - $x = Math::BigInt->bnorm("-000e1230"); ok 564 - is a valid object ok 565 - $x = Math::BigInt->bnorm("-00e-3"); ok 566 - is a valid object ok 567 - $x = Math::BigInt->bnorm("-00e+3"); ok 568 - is a valid object ok 569 - $x = Math::BigInt->bnorm("-00e-03"); ok 570 - is a valid object ok 571 - $x = Math::BigInt->bnorm("-00e+03"); ok 572 - is a valid object ok 573 - $x = Math::BigInt->bnorm("0"); ok 574 - is a valid object ok 575 - $x = Math::BigInt->bnorm("+0"); ok 576 - is a valid object ok 577 - $x = Math::BigInt->bnorm("+00"); ok 578 - is a valid object ok 579 - $x = Math::BigInt->bnorm("+000"); ok 580 - is a valid object ok 581 - $x = Math::BigInt->bnorm("000000000000000000"); ok 582 - is a valid object ok 583 - $x = Math::BigInt->bnorm("-0"); ok 584 - is a valid object ok 585 - $x = Math::BigInt->bnorm("-0000"); ok 586 - is a valid object ok 587 - $x = Math::BigInt->bnorm("+1"); ok 588 - is a valid object ok 589 - $x = Math::BigInt->bnorm("+01"); ok 590 - is a valid object ok 591 - $x = Math::BigInt->bnorm("+001"); ok 592 - is a valid object ok 593 - $x = Math::BigInt->bnorm("+00000100000"); ok 594 - is a valid object ok 595 - $x = Math::BigInt->bnorm("123456789"); ok 596 - is a valid object ok 597 - $x = Math::BigInt->bnorm("-1"); ok 598 - is a valid object ok 599 - $x = Math::BigInt->bnorm("-01"); ok 600 - is a valid object ok 601 - $x = Math::BigInt->bnorm("-001"); ok 602 - is a valid object ok 603 - $x = Math::BigInt->bnorm("-123456789"); ok 604 - is a valid object ok 605 - $x = Math::BigInt->bnorm("-00000100000"); ok 606 - is a valid object ok 607 - $x = Math::BigInt->bnorm("1_2_3"); ok 608 - is a valid object ok 609 - $x = Math::BigInt->bnorm("10000000000E-1_0"); ok 610 - is a valid object ok 611 - $x = Math::BigInt->bnorm("1E2"); ok 612 - is a valid object ok 613 - $x = Math::BigInt->bnorm("1E1"); ok 614 - is a valid object ok 615 - $x = Math::BigInt->bnorm("1E0"); ok 616 - is a valid object ok 617 - $x = Math::BigInt->bnorm("1.23E2"); ok 618 - is a valid object ok 619 - $x = Math::BigInt->bnorm("100E-1"); ok 620 - is a valid object ok 621 - $x = Math::BigInt->bnorm("1.E3"); ok 622 - is a valid object ok 623 - $x = Math::BigInt->bnorm("1.01E2"); ok 624 - is a valid object ok 625 - $x = Math::BigInt->bnorm("1010E-1"); ok 626 - is a valid object ok 627 - $x = Math::BigInt->bnorm("-1010E0"); ok 628 - is a valid object ok 629 - $x = Math::BigInt->bnorm("-1010E1"); ok 630 - is a valid object ok 631 - $x = Math::BigInt->bnorm("1234.00"); ok 632 - is a valid object ok 633 - $x = Math::BigInt->bnorm("-1010E-2"); ok 634 - is a valid object ok 635 - $x = Math::BigInt->bnorm("-1.01E+1"); ok 636 - is a valid object ok 637 - $x = Math::BigInt->bnorm("-1.01E-1"); ok 638 - is a valid object ok 639 - $x = Math::BigInt->bnorm("1E-999999"); ok 640 - is a valid object ok 641 - $x = Math::BigInt->bnorm("0.5"); ok 642 - is a valid object ok 643 - $x = Math::BigInt->new("1"); $x->bnan(); ok 644 - is a valid object ok 645 - $x = Math::BigInt->new("2"); $x->bnan(); ok 646 - is a valid object ok 647 - $x = Math::BigInt->new("abc"); $x->bnan(); ok 648 - is a valid object ok 649 - $x = Math::BigInt->new("2"); $x->bone("+"); ok 650 - is a valid object ok 651 - $x = Math::BigInt->new("2"); $x->bone("-"); ok 652 - is a valid object ok 653 - $x = Math::BigInt->new("boneNaN"); $x->bone("-"); ok 654 - is a valid object ok 655 - $x = Math::BigInt->new("boneNaN"); $x->bone("+"); ok 656 - is a valid object ok 657 - $x = Math::BigInt->new("2"); $x->bone("abc"); ok 658 - is a valid object ok 659 - $x = Math::BigInt->new("3"); $x->bone(""); ok 660 - is a valid object ok 661 - $x = Math::BigInt->new("1"); $x->binf("+"); ok 662 - is a valid object ok 663 - $x = Math::BigInt->new("2"); $x->binf("-"); ok 664 - is a valid object ok 665 - $x = Math::BigInt->new("3"); $x->binf("abc"); ok 666 - is a valid object ok 667 - $x = Math::BigInt->new("123"); $x->is_nan() || 0; ok 668 - $x = Math::BigInt->new("abc"); $x->is_nan() || 0; ok 669 - $x = Math::BigInt->new("NaN"); $x->is_nan() || 0; ok 670 - $x = Math::BigInt->new("-123"); $x->is_nan() || 0; ok 671 - $x = Math::BigInt->new("+inf"); $x->is_inf(""); ok 672 - $x = Math::BigInt->new("-inf"); $x->is_inf(""); ok 673 - $x = Math::BigInt->new("abc"); $x->is_inf(""); ok 674 - $x = Math::BigInt->new("1"); $x->is_inf(""); ok 675 - $x = Math::BigInt->new("NaN"); $x->is_inf(""); ok 676 - $x = Math::BigInt->new("-1"); $x->is_inf(""); ok 677 - $x = Math::BigInt->new("+inf"); $x->is_inf("-"); ok 678 - $x = Math::BigInt->new("+inf"); $x->is_inf("+"); ok 679 - $x = Math::BigInt->new("-inf"); $x->is_inf("-"); ok 680 - $x = Math::BigInt->new("-inf"); $x->is_inf("+"); ok 681 - $x = Math::BigInt->new("-inf"); $x->is_inf("-inf"); ok 682 - $x = Math::BigInt->new("-inf"); $x->is_inf("+inf"); ok 683 - $x = Math::BigInt->new("+inf"); $x->is_inf("-inf"); ok 684 - $x = Math::BigInt->new("+inf"); $x->is_inf("+inf"); ok 685 - $x = Math::BigInt->new("+iNfInItY"); $x->is_inf(""); ok 686 - $x = Math::BigInt->new("-InFiNiTy"); $x->is_inf(""); ok 687 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x << $y; ok 688 - is a valid object ok 689 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+2"); $x << $y; ok 690 - is a valid object ok 691 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+32"); $x << $y; ok 692 - is a valid object ok 693 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+48"); $x << $y; ok 694 - is a valid object ok 695 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("-2"); $x << $y; ok 696 - is a valid object ok 697 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("4"); $x->blsft($y, 10); ok 698 - is a valid object ok 699 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 700 - is a valid object ok 701 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 702 - is a valid object ok 703 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 704 - is a valid object ok 705 - $x = Math::BigInt->new("+12"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 706 - is a valid object ok 707 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->blsft($y, 10); ok 708 - is a valid object ok 709 - $x = Math::BigInt->new("1234567890123"); $y = Math::BigInt->new("12"); $x->blsft($y, 10); ok 710 - is a valid object ok 711 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 712 - is a valid object ok 713 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 714 - is a valid object ok 715 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 716 - is a valid object ok 717 - $x = Math::BigInt->new("-102533203"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 718 - is a valid object ok 719 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x >> $y; ok 720 - is a valid object ok 721 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x >> $y; ok 722 - is a valid object ok 723 - $x = Math::BigInt->new("+4294967296"); $y = Math::BigInt->new("+32"); $x >> $y; ok 724 - is a valid object ok 725 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+48"); $x >> $y; ok 726 - is a valid object ok 727 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-2"); $x >> $y; ok 728 - is a valid object ok 729 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 730 - is a valid object ok 731 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 732 - is a valid object ok 733 - $x = Math::BigInt->new("+200"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 734 - is a valid object ok 735 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("3"); $x->brsft($y, 10); ok 736 - is a valid object ok 737 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 738 - is a valid object ok 739 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->brsft($y, 10); ok 740 - is a valid object ok 741 - $x = Math::BigInt->new("310000"); $y = Math::BigInt->new("4"); $x->brsft($y, 10); ok 742 - is a valid object ok 743 - $x = Math::BigInt->new("12300000"); $y = Math::BigInt->new("5"); $x->brsft($y, 10); ok 744 - is a valid object ok 745 - $x = Math::BigInt->new("1230000000000"); $y = Math::BigInt->new("10"); $x->brsft($y, 10); ok 746 - is a valid object ok 747 - $x = Math::BigInt->new("09876123456789067890"); $y = Math::BigInt->new("12"); $x->brsft($y, 10); ok 748 - is a valid object ok 749 - $x = Math::BigInt->new("1234561234567890123"); $y = Math::BigInt->new("13"); $x->brsft($y, 10); ok 750 - is a valid object ok 751 - $x = Math::BigInt->new("820265627"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 752 - is a valid object ok 753 - $x = Math::BigInt->new("-15"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 754 - is a valid object ok 755 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 756 - is a valid object ok 757 - $x = Math::BigInt->new("-13"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 758 - is a valid object ok 759 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 760 - is a valid object ok 761 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 762 - is a valid object ok 763 - $x = Math::BigInt->new("-10"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 764 - is a valid object ok 765 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 766 - is a valid object ok 767 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 768 - is a valid object ok 769 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 770 - is a valid object ok 771 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 772 - is a valid object ok 773 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 774 - is a valid object ok 775 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 776 - is a valid object ok 777 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 778 - is a valid object ok 779 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 780 - is a valid object ok 781 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 782 - is a valid object ok 783 - $x = Math::BigInt->new("-1640531254"); $y = Math::BigInt->new("2"); $x->brsft($y, 2); ok 784 - is a valid object ok 785 - $x = Math::BigInt->new("-1640531254"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 786 - is a valid object ok 787 - $x = Math::BigInt->new("-820265627"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 788 - is a valid object ok 789 - $x = Math::BigInt->new("-205066405"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 790 - is a valid object ok 791 - $x = Math::BigInt->new("+inf"); $x->bsstr(); ok 792 - $x = Math::BigInt->new("-inf"); $x->bsstr(); ok 793 - $x = Math::BigInt->new("1e+34"); $x->bsstr(); ok 794 - $x = Math::BigInt->new("123.456E3"); $x->bsstr(); ok 795 - $x = Math::BigInt->new("100"); $x->bsstr(); ok 796 - $x = Math::BigInt->new("bsstrabc"); $x->bsstr(); ok 797 - $x = Math::BigInt->new("-5"); $x->bsstr(); ok 798 - $x = Math::BigInt->new("-100"); $x->bsstr(); ok 799 - $x = Math::BigInt->new("5"); $x->numify(); ok 800 - $x = Math::BigInt->new("-5"); $x->numify(); ok 801 - $x = Math::BigInt->new("100"); $x->numify(); ok 802 - $x = Math::BigInt->new("-100"); $x->numify(); ok 803 - $x = Math::BigInt->new("bnegNaN"); $x->bneg(); ok 804 - is a valid object ok 805 - $x = Math::BigInt->new("+inf"); $x->bneg(); ok 806 - is a valid object ok 807 - $x = Math::BigInt->new("-inf"); $x->bneg(); ok 808 - is a valid object ok 809 - $x = Math::BigInt->new("abd"); $x->bneg(); ok 810 - is a valid object ok 811 - $x = Math::BigInt->new("0"); $x->bneg(); ok 812 - is a valid object ok 813 - $x = Math::BigInt->new("1"); $x->bneg(); ok 814 - is a valid object ok 815 - $x = Math::BigInt->new("-1"); $x->bneg(); ok 816 - is a valid object ok 817 - $x = Math::BigInt->new("+123456789"); $x->bneg(); ok 818 - is a valid object ok 819 - $x = Math::BigInt->new("-123456789"); $x->bneg(); ok 820 - is a valid object ok 821 - $x = Math::BigInt->new("babsNaN"); $x->babs(); ok 822 - is a valid object ok 823 - $x = Math::BigInt->new("+inf"); $x->babs(); ok 824 - is a valid object ok 825 - $x = Math::BigInt->new("-inf"); $x->babs(); ok 826 - is a valid object ok 827 - $x = Math::BigInt->new("0"); $x->babs(); ok 828 - is a valid object ok 829 - $x = Math::BigInt->new("1"); $x->babs(); ok 830 - is a valid object ok 831 - $x = Math::BigInt->new("-1"); $x->babs(); ok 832 - is a valid object ok 833 - $x = Math::BigInt->new("+123456789"); $x->babs(); ok 834 - is a valid object ok 835 - $x = Math::BigInt->new("-123456789"); $x->babs(); ok 836 - is a valid object ok 837 - $x = Math::BigInt->new("NaN"); $x->bsgn(); ok 838 - is a valid object ok 839 - $x = Math::BigInt->new("+inf"); $x->bsgn(); ok 840 - is a valid object ok 841 - $x = Math::BigInt->new("-inf"); $x->bsgn(); ok 842 - is a valid object ok 843 - $x = Math::BigInt->new("0"); $x->bsgn(); ok 844 - is a valid object ok 845 - $x = Math::BigInt->new("+123456789"); $x->bsgn(); ok 846 - is a valid object ok 847 - $x = Math::BigInt->new("-123456789"); $x->bsgn(); ok 848 - is a valid object ok 849 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 850 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 851 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 852 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 853 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 854 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 855 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 856 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 857 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 858 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 859 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 860 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 861 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 862 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("12"); $x->bcmp($y); ok 863 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 864 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 865 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-12"); $x->bcmp($y); ok 866 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 867 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("124"); $x->bcmp($y); ok 868 - $x = Math::BigInt->new("124"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 869 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-124"); $x->bcmp($y); ok 870 - $x = Math::BigInt->new("-124"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 871 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("5"); $x->bcmp($y); ok 872 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x->bcmp($y); ok 873 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bcmp($y); ok 874 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("123456789"); $x->bcmp($y); ok 875 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 876 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 877 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 878 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 879 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 880 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 881 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 882 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 883 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 884 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 885 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 886 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 887 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 888 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 889 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 890 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 891 - $x = Math::BigInt->new("abc"); $x->binc(); ok 892 - is a valid object ok 893 - $x = Math::BigInt->new("+inf"); $x->binc(); ok 894 - is a valid object ok 895 - $x = Math::BigInt->new("-inf"); $x->binc(); ok 896 - is a valid object ok 897 - $x = Math::BigInt->new("+0"); $x->binc(); ok 898 - is a valid object ok 899 - $x = Math::BigInt->new("+1"); $x->binc(); ok 900 - is a valid object ok 901 - $x = Math::BigInt->new("-1"); $x->binc(); ok 902 - is a valid object ok 903 - $x = Math::BigInt->new("abc"); $x->bdec(); ok 904 - is a valid object ok 905 - $x = Math::BigInt->new("+inf"); $x->bdec(); ok 906 - is a valid object ok 907 - $x = Math::BigInt->new("-inf"); $x->bdec(); ok 908 - is a valid object ok 909 - $x = Math::BigInt->new("+0"); $x->bdec(); ok 910 - is a valid object ok 911 - $x = Math::BigInt->new("+1"); $x->bdec(); ok 912 - is a valid object ok 913 - $x = Math::BigInt->new("-1"); $x->bdec(); ok 914 - is a valid object ok 915 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->badd($y); ok 916 - is a valid object ok 917 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x->badd($y); ok 918 - is a valid object ok 919 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->badd($y); ok 920 - is a valid object ok 921 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->badd($y); ok 922 - is a valid object ok 923 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 924 - is a valid object ok 925 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 926 - is a valid object ok 927 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->badd($y); ok 928 - is a valid object ok 929 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 930 - is a valid object ok 931 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 932 - is a valid object ok 933 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("baddNaN"); $x->badd($y); ok 934 - is a valid object ok 935 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("baddNaN"); $x->badd($y); ok 936 - is a valid object ok 937 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->badd($y); ok 938 - is a valid object ok 939 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->badd($y); ok 940 - is a valid object ok 941 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->badd($y); ok 942 - is a valid object ok 943 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->badd($y); ok 944 - is a valid object ok 945 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->badd($y); ok 946 - is a valid object ok 947 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 948 - is a valid object ok 949 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 950 - is a valid object ok 951 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 952 - is a valid object ok 953 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 954 - is a valid object ok 955 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 956 - is a valid object ok 957 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 958 - is a valid object ok 959 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 960 - is a valid object ok 961 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 962 - is a valid object ok 963 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 964 - is a valid object ok 965 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 966 - is a valid object ok 967 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 968 - is a valid object ok 969 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 970 - is a valid object ok 971 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 972 - is a valid object ok 973 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 974 - is a valid object ok 975 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 976 - is a valid object ok 977 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 978 - is a valid object ok 979 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 980 - is a valid object ok 981 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 982 - is a valid object ok 983 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 984 - is a valid object ok 985 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 986 - is a valid object ok 987 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 988 - is a valid object ok 989 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 990 - is a valid object ok 991 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 992 - is a valid object ok 993 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 994 - is a valid object ok 995 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 996 - is a valid object ok 997 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("987654321"); $x->badd($y); ok 998 - is a valid object ok 999 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x->badd($y); ok 1000 - is a valid object ok 1001 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x->badd($y); ok 1002 - is a valid object ok 1003 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->badd($y); ok 1004 - is a valid object ok 1005 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10001"); $x->badd($y); ok 1006 - is a valid object ok 1007 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100001"); $x->badd($y); ok 1008 - is a valid object ok 1009 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000001"); $x->badd($y); ok 1010 - is a valid object ok 1011 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000001"); $x->badd($y); ok 1012 - is a valid object ok 1013 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100000001"); $x->badd($y); ok 1014 - is a valid object ok 1015 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000000001"); $x->badd($y); ok 1016 - is a valid object ok 1017 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000000001"); $x->badd($y); ok 1018 - is a valid object ok 1019 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100000000001"); $x->badd($y); ok 1020 - is a valid object ok 1021 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000000000001"); $x->badd($y); ok 1022 - is a valid object ok 1023 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000000000001"); $x->badd($y); ok 1024 - is a valid object ok 1025 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10001"); $x->badd($y); ok 1026 - is a valid object ok 1027 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100001"); $x->badd($y); ok 1028 - is a valid object ok 1029 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000001"); $x->badd($y); ok 1030 - is a valid object ok 1031 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000001"); $x->badd($y); ok 1032 - is a valid object ok 1033 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100000001"); $x->badd($y); ok 1034 - is a valid object ok 1035 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000000001"); $x->badd($y); ok 1036 - is a valid object ok 1037 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000000001"); $x->badd($y); ok 1038 - is a valid object ok 1039 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100000000001"); $x->badd($y); ok 1040 - is a valid object ok 1041 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000000000001"); $x->badd($y); ok 1042 - is a valid object ok 1043 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000000000001"); $x->badd($y); ok 1044 - is a valid object ok 1045 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bsub($y); ok 1046 - is a valid object ok 1047 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1048 - is a valid object ok 1049 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->bsub($y); ok 1050 - is a valid object ok 1051 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bsub($y); ok 1052 - is a valid object ok 1053 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bsub($y); ok 1054 - is a valid object ok 1055 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bsub($y); ok 1056 - is a valid object ok 1057 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bsub($y); ok 1058 - is a valid object ok 1059 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1060 - is a valid object ok 1061 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1062 - is a valid object ok 1063 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1064 - is a valid object ok 1065 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1066 - is a valid object ok 1067 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1068 - is a valid object ok 1069 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1070 - is a valid object ok 1071 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1072 - is a valid object ok 1073 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1074 - is a valid object ok 1075 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1076 - is a valid object ok 1077 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1078 - is a valid object ok 1079 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1080 - is a valid object ok 1081 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1082 - is a valid object ok 1083 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1084 - is a valid object ok 1085 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1086 - is a valid object ok 1087 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1088 - is a valid object ok 1089 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1090 - is a valid object ok 1091 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1092 - is a valid object ok 1093 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1094 - is a valid object ok 1095 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1096 - is a valid object ok 1097 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1098 - is a valid object ok 1099 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1100 - is a valid object ok 1101 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1102 - is a valid object ok 1103 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1104 - is a valid object ok 1105 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1106 - is a valid object ok 1107 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1108 - is a valid object ok 1109 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1110 - is a valid object ok 1111 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1112 - is a valid object ok 1113 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1114 - is a valid object ok 1115 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1116 - is a valid object ok 1117 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1118 - is a valid object ok 1119 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("+987654321"); $x->bsub($y); ok 1120 - is a valid object ok 1121 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x->bsub($y); ok 1122 - is a valid object ok 1123 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x->bsub($y); ok 1124 - is a valid object ok 1125 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bsub($y); ok 1126 - is a valid object ok 1127 - $x = Math::BigInt->new("10001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1128 - is a valid object ok 1129 - $x = Math::BigInt->new("100001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1130 - is a valid object ok 1131 - $x = Math::BigInt->new("1000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1132 - is a valid object ok 1133 - $x = Math::BigInt->new("10000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1134 - is a valid object ok 1135 - $x = Math::BigInt->new("100000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1136 - is a valid object ok 1137 - $x = Math::BigInt->new("1000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1138 - is a valid object ok 1139 - $x = Math::BigInt->new("10000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1140 - is a valid object ok 1141 - $x = Math::BigInt->new("100000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1142 - is a valid object ok 1143 - $x = Math::BigInt->new("1000000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1144 - is a valid object ok 1145 - $x = Math::BigInt->new("10000000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1146 - is a valid object ok 1147 - $x = Math::BigInt->new("10001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1148 - is a valid object ok 1149 - $x = Math::BigInt->new("100001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1150 - is a valid object ok 1151 - $x = Math::BigInt->new("1000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1152 - is a valid object ok 1153 - $x = Math::BigInt->new("10000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1154 - is a valid object ok 1155 - $x = Math::BigInt->new("100000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1156 - is a valid object ok 1157 - $x = Math::BigInt->new("1000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1158 - is a valid object ok 1159 - $x = Math::BigInt->new("10000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1160 - is a valid object ok 1161 - $x = Math::BigInt->new("100000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1162 - is a valid object ok 1163 - $x = Math::BigInt->new("1000000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1164 - is a valid object ok 1165 - $x = Math::BigInt->new("10000000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1166 - is a valid object ok 1167 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1168 - is a valid object ok 1169 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1170 - is a valid object ok 1171 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1172 - is a valid object ok 1173 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("abc"); $x->bmuladd($y, $z); ok 1174 - is a valid object ok 1175 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1176 - is a valid object ok 1177 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1178 - is a valid object ok 1179 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaNmul"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1180 - is a valid object ok 1181 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaNmul"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1182 - is a valid object ok 1183 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1184 - is a valid object ok 1185 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1186 - is a valid object ok 1187 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1188 - is a valid object ok 1189 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1190 - is a valid object ok 1191 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1192 - is a valid object ok 1193 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1194 - is a valid object ok 1195 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1196 - is a valid object ok 1197 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1198 - is a valid object ok 1199 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1200 - is a valid object ok 1201 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1202 - is a valid object ok 1203 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("123456789123456789"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1204 - is a valid object ok 1205 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1206 - is a valid object ok 1207 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1208 - is a valid object ok 1209 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1210 - is a valid object ok 1211 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1212 - is a valid object ok 1213 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1214 - is a valid object ok 1215 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1216 - is a valid object ok 1217 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("+3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1218 - is a valid object ok 1219 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1220 - is a valid object ok 1221 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1222 - is a valid object ok 1223 - $x = Math::BigInt->new("111"); $y = Math::BigInt->new("111"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1224 - is a valid object ok 1225 - $x = Math::BigInt->new("10101"); $y = Math::BigInt->new("10101"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1226 - is a valid object ok 1227 - $x = Math::BigInt->new("1001001"); $y = Math::BigInt->new("1001001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1228 - is a valid object ok 1229 - $x = Math::BigInt->new("100010001"); $y = Math::BigInt->new("100010001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1230 - is a valid object ok 1231 - $x = Math::BigInt->new("10000100001"); $y = Math::BigInt->new("10000100001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1232 - is a valid object ok 1233 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1234 - is a valid object ok 1235 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1236 - is a valid object ok 1237 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1238 - is a valid object ok 1239 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1240 - is a valid object ok 1241 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1242 - is a valid object ok 1243 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1244 - is a valid object ok 1245 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1246 - is a valid object ok 1247 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1248 - is a valid object ok 1249 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1250 - is a valid object ok 1251 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1252 - is a valid object ok 1253 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1254 - is a valid object ok 1255 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1256 - is a valid object ok 1257 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1258 - is a valid object ok 1259 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1260 - is a valid object ok 1261 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1262 - is a valid object ok 1263 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1264 - is a valid object ok 1265 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1266 - is a valid object ok 1267 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1268 - is a valid object ok 1269 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1270 - is a valid object ok 1271 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1272 - is a valid object ok 1273 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1274 - is a valid object ok 1275 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1276 - is a valid object ok 1277 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("5"); $x->bmuladd($y, $z); ok 1278 - is a valid object ok 1279 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("5"); $x->bmuladd($y, $z); ok 1280 - is a valid object ok 1281 - $x = Math::BigInt->new("9999999999999999999"); $y = Math::BigInt->new("10000000000000000000"); $z = Math::BigInt->new("1234567890"); $x->bmuladd($y, $z); ok 1282 - is a valid object ok 1283 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("12345678901234567890"); $x->bmuladd($y, $z); ok 1284 - is a valid object ok 1285 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bmul($y); ok 1286 - is a valid object ok 1287 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1288 - is a valid object ok 1289 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->bmul($y); ok 1290 - is a valid object ok 1291 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1292 - is a valid object ok 1293 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1294 - is a valid object ok 1295 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaNmul"); $x->bmul($y); ok 1296 - is a valid object ok 1297 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaNmul"); $x->bmul($y); ok 1298 - is a valid object ok 1299 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1300 - is a valid object ok 1301 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1302 - is a valid object ok 1303 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1304 - is a valid object ok 1305 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1306 - is a valid object ok 1307 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1308 - is a valid object ok 1309 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1310 - is a valid object ok 1311 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1312 - is a valid object ok 1313 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1314 - is a valid object ok 1315 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1316 - is a valid object ok 1317 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("0"); $x->bmul($y); ok 1318 - is a valid object ok 1319 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("123456789123456789"); $x->bmul($y); ok 1320 - is a valid object ok 1321 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1322 - is a valid object ok 1323 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1324 - is a valid object ok 1325 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1326 - is a valid object ok 1327 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1328 - is a valid object ok 1329 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); $x->bmul($y); ok 1330 - is a valid object ok 1331 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("+3"); $x->bmul($y); ok 1332 - is a valid object ok 1333 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-3"); $x->bmul($y); ok 1334 - is a valid object ok 1335 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x->bmul($y); ok 1336 - is a valid object ok 1337 - $x = Math::BigInt->new("111"); $y = Math::BigInt->new("111"); $x->bmul($y); ok 1338 - is a valid object ok 1339 - $x = Math::BigInt->new("10101"); $y = Math::BigInt->new("10101"); $x->bmul($y); ok 1340 - is a valid object ok 1341 - $x = Math::BigInt->new("1001001"); $y = Math::BigInt->new("1001001"); $x->bmul($y); ok 1342 - is a valid object ok 1343 - $x = Math::BigInt->new("100010001"); $y = Math::BigInt->new("100010001"); $x->bmul($y); ok 1344 - is a valid object ok 1345 - $x = Math::BigInt->new("10000100001"); $y = Math::BigInt->new("10000100001"); $x->bmul($y); ok 1346 - is a valid object ok 1347 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1348 - is a valid object ok 1349 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1350 - is a valid object ok 1351 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1352 - is a valid object ok 1353 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1354 - is a valid object ok 1355 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1356 - is a valid object ok 1357 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1358 - is a valid object ok 1359 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1360 - is a valid object ok 1361 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1362 - is a valid object ok 1363 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1364 - is a valid object ok 1365 - $x = Math::BigInt->new("+25"); $y = Math::BigInt->new("+25"); $x->bmul($y); ok 1366 - is a valid object ok 1367 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("+12345"); $x->bmul($y); ok 1368 - is a valid object ok 1369 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+11111"); $x->bmul($y); ok 1370 - is a valid object ok 1371 - $x = Math::BigInt->new("9999"); $y = Math::BigInt->new("10000"); $x->bmul($y); ok 1372 - is a valid object ok 1373 - $x = Math::BigInt->new("99999"); $y = Math::BigInt->new("100000"); $x->bmul($y); ok 1374 - is a valid object ok 1375 - $x = Math::BigInt->new("999999"); $y = Math::BigInt->new("1000000"); $x->bmul($y); ok 1376 - is a valid object ok 1377 - $x = Math::BigInt->new("9999999"); $y = Math::BigInt->new("10000000"); $x->bmul($y); ok 1378 - is a valid object ok 1379 - $x = Math::BigInt->new("99999999"); $y = Math::BigInt->new("100000000"); $x->bmul($y); ok 1380 - is a valid object ok 1381 - $x = Math::BigInt->new("999999999"); $y = Math::BigInt->new("1000000000"); $x->bmul($y); ok 1382 - is a valid object ok 1383 - $x = Math::BigInt->new("9999999999"); $y = Math::BigInt->new("10000000000"); $x->bmul($y); ok 1384 - is a valid object ok 1385 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("100000000000"); $x->bmul($y); ok 1386 - is a valid object ok 1387 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("1000000000000"); $x->bmul($y); ok 1388 - is a valid object ok 1389 - $x = Math::BigInt->new("9999999999999"); $y = Math::BigInt->new("10000000000000"); $x->bmul($y); ok 1390 - is a valid object ok 1391 - $x = Math::BigInt->new("99999999999999"); $y = Math::BigInt->new("100000000000000"); $x->bmul($y); ok 1392 - is a valid object ok 1393 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("1000000000000000"); $x->bmul($y); ok 1394 - is a valid object ok 1395 - $x = Math::BigInt->new("9999999999999999"); $y = Math::BigInt->new("10000000000000000"); $x->bmul($y); ok 1396 - is a valid object ok 1397 - $x = Math::BigInt->new("99999999999999999"); $y = Math::BigInt->new("100000000000000000"); $x->bmul($y); ok 1398 - is a valid object ok 1399 - $x = Math::BigInt->new("999999999999999999"); $y = Math::BigInt->new("1000000000000000000"); $x->bmul($y); ok 1400 - is a valid object ok 1401 - $x = Math::BigInt->new("9999999999999999999"); $y = Math::BigInt->new("10000000000000000000"); $x->bmul($y); ok 1402 - is a valid object ok 1403 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1404 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1405 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1406 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1407 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1408 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1409 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1410 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1411 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1412 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1413 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1414 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1415 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1416 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1417 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1418 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1419 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1420 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1421 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1422 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1423 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1424 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1425 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1426 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1427 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1428 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1429 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1430 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1431 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1432 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1433 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1434 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1435 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1436 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1437 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1438 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1439 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1440 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1441 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1442 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1443 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1444 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1445 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1446 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1447 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1448 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1449 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1450 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1451 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1452 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1453 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1454 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1455 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1456 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1457 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1458 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1459 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1460 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1461 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1462 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1463 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1464 - $x = Math::BigInt->new("1234567812345678"); $y = Math::BigInt->new("123456712345678"); join(",", $x->bdiv($y)); ok 1465 - $x = Math::BigInt->new("12345671234567"); $y = Math::BigInt->new("1234561234567"); join(",", $x->bdiv($y)); ok 1466 - $x = Math::BigInt->new("123456123456"); $y = Math::BigInt->new("12345123456"); join(",", $x->bdiv($y)); ok 1467 - $x = Math::BigInt->new("1234512345"); $y = Math::BigInt->new("123412345"); join(",", $x->bdiv($y)); ok 1468 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("1234567890"); join(",", $x->bdiv($y)); ok 1469 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("1234567890"); join(",", $x->bdiv($y)); ok 1470 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("9876543210"); join(",", $x->bdiv($y)); ok 1471 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("9876543210"); join(",", $x->bdiv($y)); ok 1472 - $x = Math::BigInt->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt->new("484848484848484848484848486666666666666689898989898989898989"); join(",", $x->bdiv($y)); ok 1473 - $x = Math::BigInt->new("1267650600228229401496703205375"); $y = Math::BigInt->new("1267650600228229401496703205376"); join(",", $x->bdiv($y)); ok 1474 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("999999999999999999999999999999999"); join(",", $x->bdiv($y)); ok 1475 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("888888888888888888888888888888888"); join(",", $x->bdiv($y)); ok 1476 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("777777777777777777777777777777777"); join(",", $x->bdiv($y)); ok 1477 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("666666666666666666666666666666666"); join(",", $x->bdiv($y)); ok 1478 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("555555555555555555555555555555555"); join(",", $x->bdiv($y)); ok 1479 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("444444444444444444444444444444444"); join(",", $x->bdiv($y)); ok 1480 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("333333333333333333333333333333333"); join(",", $x->bdiv($y)); ok 1481 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("222222222222222222222222222222222"); join(",", $x->bdiv($y)); ok 1482 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("111111111111111111111111111111111"); join(",", $x->bdiv($y)); ok 1483 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_3333333_3333333_3333333"); join(",", $x->bdiv($y)); ok 1484 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1485 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1486 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("2000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1487 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1488 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1489 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1490 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1491 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1492 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1493 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1494 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1495 - is a valid object ok 1496 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1497 - is a valid object ok 1498 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1499 - is a valid object ok 1500 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1501 - is a valid object ok 1502 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1503 - is a valid object ok 1504 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1505 - is a valid object ok 1506 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1507 - is a valid object ok 1508 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1509 - is a valid object ok 1510 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1511 - is a valid object ok 1512 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1513 - is a valid object ok 1514 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1515 - is a valid object ok 1516 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1517 - is a valid object ok 1518 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1519 - is a valid object ok 1520 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1521 - is a valid object ok 1522 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1523 - is a valid object ok 1524 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1525 - is a valid object ok 1526 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1527 - is a valid object ok 1528 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1529 - is a valid object ok 1530 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1531 - is a valid object ok 1532 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1533 - is a valid object ok 1534 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1535 - is a valid object ok 1536 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1537 - is a valid object ok 1538 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("-2"); $x->bdiv($y); ok 1539 - is a valid object ok 1540 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1541 - is a valid object ok 1542 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("-2"); $x->bdiv($y); ok 1543 - is a valid object ok 1544 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1545 - is a valid object ok 1546 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1547 - is a valid object ok 1548 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1549 - is a valid object ok 1550 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1551 - is a valid object ok 1552 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1553 - is a valid object ok 1554 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1555 - is a valid object ok 1556 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1557 - is a valid object ok 1558 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1559 - is a valid object ok 1560 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("26"); $x->bdiv($y); ok 1561 - is a valid object ok 1562 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1563 - is a valid object ok 1564 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1565 - is a valid object ok 1566 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1567 - is a valid object ok 1568 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1569 - is a valid object ok 1570 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1571 - is a valid object ok 1572 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1573 - is a valid object ok 1574 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1575 - is a valid object ok 1576 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1577 - is a valid object ok 1578 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1579 - is a valid object ok 1580 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x->bdiv($y); ok 1581 - is a valid object ok 1582 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x->bdiv($y); ok 1583 - is a valid object ok 1584 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x->bdiv($y); ok 1585 - is a valid object ok 1586 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1587 - is a valid object ok 1588 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("+5"); $x->bdiv($y); ok 1589 - is a valid object ok 1590 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("+4"); $x->bdiv($y); ok 1591 - is a valid object ok 1592 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("+8"); $x->bdiv($y); ok 1593 - is a valid object ok 1594 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("+16"); $x->bdiv($y); ok 1595 - is a valid object ok 1596 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1597 - is a valid object ok 1598 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x->bdiv($y); ok 1599 - is a valid object ok 1600 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x->bdiv($y); ok 1601 - is a valid object ok 1602 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x->bdiv($y); ok 1603 - is a valid object ok 1604 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x->bdiv($y); ok 1605 - is a valid object ok 1606 - $x = Math::BigInt->new("+1111088889"); $y = Math::BigInt->new("99999"); $x->bdiv($y); ok 1607 - is a valid object ok 1608 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1609 - is a valid object ok 1610 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1611 - is a valid object ok 1612 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1613 - is a valid object ok 1614 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1615 - is a valid object ok 1616 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1617 - is a valid object ok 1618 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1619 - is a valid object ok 1620 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1621 - is a valid object ok 1622 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1623 - is a valid object ok 1624 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1625 - is a valid object ok 1626 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1627 - is a valid object ok 1628 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1629 - is a valid object ok 1630 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1631 - is a valid object ok 1632 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1633 - is a valid object ok 1634 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1635 - is a valid object ok 1636 - $x = Math::BigInt->new("10000000000000000000000000000000000000000000000000000000000000000000000000000000000"); $y = Math::BigInt->new("10000000375084540248994272022843165711074"); $x->bdiv($y); ok 1637 - is a valid object ok 1638 - $x = Math::BigInt->new("1234567812345678"); $y = Math::BigInt->new("123456712345678"); $x->bdiv($y); ok 1639 - is a valid object ok 1640 - $x = Math::BigInt->new("12345671234567"); $y = Math::BigInt->new("1234561234567"); $x->bdiv($y); ok 1641 - is a valid object ok 1642 - $x = Math::BigInt->new("123456123456"); $y = Math::BigInt->new("12345123456"); $x->bdiv($y); ok 1643 - is a valid object ok 1644 - $x = Math::BigInt->new("1234512345"); $y = Math::BigInt->new("123412345"); $x->bdiv($y); ok 1645 - is a valid object ok 1646 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("1234567890"); $x->bdiv($y); ok 1647 - is a valid object ok 1648 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("1234567890"); $x->bdiv($y); ok 1649 - is a valid object ok 1650 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("9876543210"); $x->bdiv($y); ok 1651 - is a valid object ok 1652 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("9876543210"); $x->bdiv($y); ok 1653 - is a valid object ok 1654 - $x = Math::BigInt->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt->new("484848484848484848484848486666666666666689898989898989898989"); $x->bdiv($y); ok 1655 - is a valid object ok 1656 - $x = Math::BigInt->new("84696969696969696956565656566184292929292929292847474747436308080808080808086765396464646464646465"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1657 - is a valid object ok 1658 - $x = Math::BigInt->new("84696969696969696943434343434871161616161616161452525252486813131313131313143230042929292929292930"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1659 - is a valid object ok 1660 - $x = Math::BigInt->new("84696969696969696969696969697497424242424242424242424242385803030303030303030300750000000000000000"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1661 - is a valid object ok 1662 - $x = Math::BigInt->new("84696969696969696930303030303558030303030303030057575757537318181818181818199694689393939393939395"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1663 - is a valid object ok 1664 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("999999999999999999999999999999999"); $x->bdiv($y); ok 1665 - is a valid object ok 1666 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("888888888888888888888888888888888"); $x->bdiv($y); ok 1667 - is a valid object ok 1668 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("777777777777777777777777777777777"); $x->bdiv($y); ok 1669 - is a valid object ok 1670 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("666666666666666666666666666666666"); $x->bdiv($y); ok 1671 - is a valid object ok 1672 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("555555555555555555555555555555555"); $x->bdiv($y); ok 1673 - is a valid object ok 1674 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("444444444444444444444444444444444"); $x->bdiv($y); ok 1675 - is a valid object ok 1676 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("333333333333333333333333333333333"); $x->bdiv($y); ok 1677 - is a valid object ok 1678 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("222222222222222222222222222222222"); $x->bdiv($y); ok 1679 - is a valid object ok 1680 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("111111111111111111111111111111111"); $x->bdiv($y); ok 1681 - is a valid object ok 1682 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_3333333_3333333_3333333"); $x->bdiv($y); ok 1683 - is a valid object ok 1684 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_0000000_0000000_0000000"); $x->bdiv($y); ok 1685 - is a valid object ok 1686 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1687 - is a valid object ok 1688 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("2000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1689 - is a valid object ok 1690 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1691 - is a valid object ok 1692 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100000_0000000_0000000_0000000"); $x->bdiv($y); ok 1693 - is a valid object ok 1694 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10000_0000000_0000000_0000000"); $x->bdiv($y); ok 1695 - is a valid object ok 1696 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000_0000000_0000000_0000000"); $x->bdiv($y); ok 1697 - is a valid object ok 1698 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100_0000000_0000000_0000000"); $x->bdiv($y); ok 1699 - is a valid object ok 1700 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10_0000000_0000000_0000000"); $x->bdiv($y); ok 1701 - is a valid object ok 1702 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1_0000000_0000000_0000000"); $x->bdiv($y); ok 1703 - is a valid object ok 1704 - $x = Math::BigInt->new("949418181818187070707070707070707070"); $y = Math::BigInt->new("181818181853535353535353535353535353"); $x->bdiv($y); ok 1705 - is a valid object ok 1706 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1707 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1708 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1709 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1710 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1711 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1712 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1713 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1714 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1715 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1716 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1717 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1718 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1719 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1720 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1721 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1722 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1723 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1724 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1725 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1726 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1727 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1728 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1729 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1730 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1731 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1732 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1733 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1734 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1735 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1736 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1737 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1738 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1739 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1740 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1741 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1742 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1743 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1744 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1745 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1746 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1747 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1748 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1749 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1750 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1751 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1752 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1753 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1754 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1755 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1756 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1757 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1758 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1759 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1760 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1761 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1762 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1763 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1764 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1765 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1766 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1767 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1768 - is a valid object ok 1769 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1770 - is a valid object ok 1771 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1772 - is a valid object ok 1773 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1774 - is a valid object ok 1775 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1776 - is a valid object ok 1777 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1778 - is a valid object ok 1779 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1780 - is a valid object ok 1781 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1782 - is a valid object ok 1783 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1784 - is a valid object ok 1785 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1786 - is a valid object ok 1787 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1788 - is a valid object ok 1789 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1790 - is a valid object ok 1791 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1792 - is a valid object ok 1793 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1794 - is a valid object ok 1795 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1796 - is a valid object ok 1797 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1798 - is a valid object ok 1799 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1800 - is a valid object ok 1801 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1802 - is a valid object ok 1803 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1804 - is a valid object ok 1805 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1806 - is a valid object ok 1807 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1808 - is a valid object ok 1809 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1810 - is a valid object ok 1811 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1812 - is a valid object ok 1813 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1814 - is a valid object ok 1815 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1816 - is a valid object ok 1817 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1818 - is a valid object ok 1819 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1820 - is a valid object ok 1821 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1822 - is a valid object ok 1823 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1824 - is a valid object ok 1825 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1826 - is a valid object ok 1827 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1828 - is a valid object ok 1829 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1830 - is a valid object ok 1831 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1832 - is a valid object ok 1833 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1834 - is a valid object ok 1835 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1836 - is a valid object ok 1837 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1838 - is a valid object ok 1839 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1840 - is a valid object ok 1841 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1842 - is a valid object ok 1843 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1844 - is a valid object ok 1845 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1846 - is a valid object ok 1847 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1848 - is a valid object ok 1849 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1850 - is a valid object ok 1851 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1852 - is a valid object ok 1853 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1854 - is a valid object ok 1855 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1856 - is a valid object ok 1857 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1858 - is a valid object ok 1859 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1860 - is a valid object ok 1861 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1862 - is a valid object ok 1863 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1864 - is a valid object ok 1865 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1866 - is a valid object ok 1867 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1868 - is a valid object ok 1869 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1870 - is a valid object ok 1871 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1872 - is a valid object ok 1873 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1874 - is a valid object ok 1875 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1876 - is a valid object ok 1877 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1878 - is a valid object ok 1879 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1880 - is a valid object ok 1881 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1882 - is a valid object ok 1883 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1884 - is a valid object ok 1885 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1886 - is a valid object ok 1887 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1888 - is a valid object ok 1889 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bmodinv($y); ok 1890 - is a valid object ok 1891 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1892 - is a valid object ok 1893 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $x->bmodinv($y); ok 1894 - is a valid object ok 1895 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1896 - is a valid object ok 1897 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1898 - is a valid object ok 1899 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-5"); $x->bmodinv($y); ok 1900 - is a valid object ok 1901 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1902 - is a valid object ok 1903 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("5033"); $x->bmodinv($y); ok 1904 - is a valid object ok 1905 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("13"); $x->bmodinv($y); ok 1906 - is a valid object ok 1907 - $x = Math::BigInt->new("-1234567891"); $y = Math::BigInt->new("13"); $x->bmodinv($y); ok 1908 - is a valid object ok 1909 - $x = Math::BigInt->new("324958749843759385732954874325984357439658735983745"); $y = Math::BigInt->new("2348249874968739"); $x->bmodinv($y); ok 1910 - is a valid object ok 1911 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1912 - is a valid object ok 1913 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1914 - is a valid object ok 1915 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1916 - is a valid object ok 1917 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1918 - is a valid object ok 1919 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1920 - is a valid object ok 1921 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1922 - is a valid object ok 1923 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1924 - is a valid object ok 1925 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1926 - is a valid object ok 1927 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1928 - is a valid object ok 1929 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1930 - is a valid object ok 1931 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1932 - is a valid object ok 1933 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1934 - is a valid object ok 1935 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1936 - is a valid object ok 1937 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1938 - is a valid object ok 1939 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1940 - is a valid object ok 1941 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1942 - is a valid object ok 1943 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1944 - is a valid object ok 1945 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1946 - is a valid object ok 1947 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1948 - is a valid object ok 1949 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1950 - is a valid object ok 1951 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1952 - is a valid object ok 1953 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1954 - is a valid object ok 1955 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bmodinv($y); ok 1956 - is a valid object ok 1957 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1958 - is a valid object ok 1959 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->bmodinv($y); ok 1960 - is a valid object ok 1961 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1962 - is a valid object ok 1963 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1964 - is a valid object ok 1965 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1966 - is a valid object ok 1967 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1968 - is a valid object ok 1969 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1970 - is a valid object ok 1971 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1972 - is a valid object ok 1973 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1974 - is a valid object ok 1975 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("0"); $x->bmodpow($y, $z); ok 1976 - is a valid object ok 1977 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("2"); $x->bmodpow($y, $z); ok 1978 - is a valid object ok 1979 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("2"); $x->bmodpow($y, $z); ok 1980 - is a valid object ok 1981 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1982 - is a valid object ok 1983 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1984 - is a valid object ok 1985 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1986 - is a valid object ok 1987 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1988 - is a valid object ok 1989 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1990 - is a valid object ok 1991 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1992 - is a valid object ok 1993 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1994 - is a valid object ok 1995 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1996 - is a valid object ok 1997 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 1998 - is a valid object ok 1999 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2000 - is a valid object ok 2001 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2002 - is a valid object ok 2003 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2004 - is a valid object ok 2005 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2006 - is a valid object ok 2007 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2008 - is a valid object ok 2009 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2010 - is a valid object ok 2011 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2012 - is a valid object ok 2013 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2014 - is a valid object ok 2015 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2016 - is a valid object ok 2017 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2018 - is a valid object ok 2019 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2020 - is a valid object ok 2021 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2022 - is a valid object ok 2023 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2024 - is a valid object ok 2025 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2026 - is a valid object ok 2027 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2028 - is a valid object ok 2029 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2030 - is a valid object ok 2031 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2032 - is a valid object ok 2033 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2034 - is a valid object ok 2035 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2036 - is a valid object ok 2037 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2038 - is a valid object ok 2039 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2040 - is a valid object ok 2041 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2042 - is a valid object ok 2043 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2044 - is a valid object ok 2045 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2046 - is a valid object ok 2047 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2048 - is a valid object ok 2049 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2050 - is a valid object ok 2051 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2052 - is a valid object ok 2053 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2054 - is a valid object ok 2055 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2056 - is a valid object ok 2057 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2058 - is a valid object ok 2059 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2060 - is a valid object ok 2061 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2062 - is a valid object ok 2063 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2064 - is a valid object ok 2065 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2066 - is a valid object ok 2067 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2068 - is a valid object ok 2069 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2070 - is a valid object ok 2071 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2072 - is a valid object ok 2073 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2074 - is a valid object ok 2075 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2076 - is a valid object ok 2077 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2078 - is a valid object ok 2079 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2080 - is a valid object ok 2081 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2082 - is a valid object ok 2083 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2084 - is a valid object ok 2085 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2086 - is a valid object ok 2087 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2088 - is a valid object ok 2089 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2090 - is a valid object ok 2091 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2092 - is a valid object ok 2093 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2094 - is a valid object ok 2095 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2096 - is a valid object ok 2097 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2098 - is a valid object ok 2099 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2100 - is a valid object ok 2101 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2102 - is a valid object ok 2103 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2104 - is a valid object ok 2105 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2106 - is a valid object ok 2107 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2108 - is a valid object ok 2109 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2110 - is a valid object ok 2111 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2112 - is a valid object ok 2113 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2114 - is a valid object ok 2115 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2116 - is a valid object ok 2117 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2118 - is a valid object ok 2119 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2120 - is a valid object ok 2121 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2122 - is a valid object ok 2123 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2124 - is a valid object ok 2125 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2126 - is a valid object ok 2127 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2128 - is a valid object ok 2129 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2130 - is a valid object ok 2131 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2132 - is a valid object ok 2133 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2134 - is a valid object ok 2135 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2136 - is a valid object ok 2137 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2138 - is a valid object ok 2139 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2140 - is a valid object ok 2141 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2142 - is a valid object ok 2143 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2144 - is a valid object ok 2145 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2146 - is a valid object ok 2147 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2148 - is a valid object ok 2149 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2150 - is a valid object ok 2151 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2152 - is a valid object ok 2153 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2154 - is a valid object ok 2155 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2156 - is a valid object ok 2157 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2158 - is a valid object ok 2159 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2160 - is a valid object ok 2161 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2162 - is a valid object ok 2163 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2164 - is a valid object ok 2165 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2166 - is a valid object ok 2167 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2168 - is a valid object ok 2169 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2170 - is a valid object ok 2171 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2172 - is a valid object ok 2173 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2174 - is a valid object ok 2175 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2176 - is a valid object ok 2177 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2178 - is a valid object ok 2179 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2180 - is a valid object ok 2181 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2182 - is a valid object ok 2183 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2184 - is a valid object ok 2185 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2186 - is a valid object ok 2187 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2188 - is a valid object ok 2189 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2190 - is a valid object ok 2191 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2192 - is a valid object ok 2193 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2194 - is a valid object ok 2195 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2196 - is a valid object ok 2197 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2198 - is a valid object ok 2199 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2200 - is a valid object ok 2201 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2202 - is a valid object ok 2203 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2204 - is a valid object ok 2205 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2206 - is a valid object ok 2207 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2208 - is a valid object ok 2209 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2210 - is a valid object ok 2211 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2212 - is a valid object ok 2213 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2214 - is a valid object ok 2215 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2216 - is a valid object ok 2217 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2218 - is a valid object ok 2219 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2220 - is a valid object ok 2221 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2222 - is a valid object ok 2223 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2224 - is a valid object ok 2225 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2226 - is a valid object ok 2227 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2228 - is a valid object ok 2229 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2230 - is a valid object ok 2231 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2232 - is a valid object ok 2233 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2234 - is a valid object ok 2235 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2236 - is a valid object ok 2237 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2238 - is a valid object ok 2239 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2240 - is a valid object ok 2241 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2242 - is a valid object ok 2243 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2244 - is a valid object ok 2245 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2246 - is a valid object ok 2247 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2248 - is a valid object ok 2249 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2250 - is a valid object ok 2251 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2252 - is a valid object ok 2253 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2254 - is a valid object ok 2255 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2256 - is a valid object ok 2257 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2258 - is a valid object ok 2259 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2260 - is a valid object ok 2261 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2262 - is a valid object ok 2263 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2264 - is a valid object ok 2265 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2266 - is a valid object ok 2267 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2268 - is a valid object ok 2269 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2270 - is a valid object ok 2271 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2272 - is a valid object ok 2273 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2274 - is a valid object ok 2275 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2276 - is a valid object ok 2277 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("16"); $x->bmodpow($y, $z); ok 2278 - is a valid object ok 2279 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("5033"); $x->bmodpow($y, $z); ok 2280 - is a valid object ok 2281 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("7"); $z = Math::BigInt->new("5032"); $x->bmodpow($y, $z); ok 2282 - is a valid object ok 2283 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("8"); $z = Math::BigInt->new("-5"); $x->bmodpow($y, $z); ok 2284 - is a valid object ok 2285 - $x = Math::BigInt->new("1e50"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2286 - is a valid object ok 2287 - $x = Math::BigInt->new("98436739867439843769485798542749827593285729587325"); $y = Math::BigInt->new("43698764986460981048259837659386739857456983759328457"); $z = Math::BigInt->new("6943857329857295827698367"); $x->bmodpow($y, $z); ok 2288 - is a valid object ok 2289 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("13"); $x->bmodpow($y, $z); ok 2290 - is a valid object ok 2291 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $z = Math::BigInt->new("13"); $x->bmodpow($y, $z); ok 2292 - is a valid object ok 2293 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x % $y; ok 2294 - is a valid object ok 2295 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x % $y; ok 2296 - is a valid object ok 2297 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x % $y; ok 2298 - is a valid object ok 2299 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x % $y; ok 2300 - is a valid object ok 2301 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x % $y; ok 2302 - is a valid object ok 2303 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2304 - is a valid object ok 2305 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 2306 - is a valid object ok 2307 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x % $y; ok 2308 - is a valid object ok 2309 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 2310 - is a valid object ok 2311 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2312 - is a valid object ok 2313 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 2314 - is a valid object ok 2315 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x % $y; ok 2316 - is a valid object ok 2317 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 2318 - is a valid object ok 2319 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x % $y; ok 2320 - is a valid object ok 2321 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x % $y; ok 2322 - is a valid object ok 2323 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x % $y; ok 2324 - is a valid object ok 2325 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2326 - is a valid object ok 2327 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2328 - is a valid object ok 2329 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2330 - is a valid object ok 2331 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x % $y; ok 2332 - is a valid object ok 2333 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x % $y; ok 2334 - is a valid object ok 2335 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x % $y; ok 2336 - is a valid object ok 2337 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x % $y; ok 2338 - is a valid object ok 2339 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x % $y; ok 2340 - is a valid object ok 2341 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x % $y; ok 2342 - is a valid object ok 2343 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x % $y; ok 2344 - is a valid object ok 2345 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x % $y; ok 2346 - is a valid object ok 2347 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x % $y; ok 2348 - is a valid object ok 2349 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x % $y; ok 2350 - is a valid object ok 2351 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2352 - is a valid object ok 2353 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2354 - is a valid object ok 2355 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2356 - is a valid object ok 2357 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2358 - is a valid object ok 2359 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2360 - is a valid object ok 2361 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2362 - is a valid object ok 2363 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2364 - is a valid object ok 2365 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2366 - is a valid object ok 2367 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2368 - is a valid object ok 2369 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x % $y; ok 2370 - is a valid object ok 2371 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x % $y; ok 2372 - is a valid object ok 2373 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x % $y; ok 2374 - is a valid object ok 2375 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x % $y; ok 2376 - is a valid object ok 2377 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x % $y; ok 2378 - is a valid object ok 2379 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("4"); $x % $y; ok 2380 - is a valid object ok 2381 - $x = Math::BigInt->new("1000"); $y = Math::BigInt->new("8"); $x % $y; ok 2382 - is a valid object ok 2383 - $x = Math::BigInt->new("10000"); $y = Math::BigInt->new("16"); $x % $y; ok 2384 - is a valid object ok 2385 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x % $y; ok 2386 - is a valid object ok 2387 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x % $y; ok 2388 - is a valid object ok 2389 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x % $y; ok 2390 - is a valid object ok 2391 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x % $y; ok 2392 - is a valid object ok 2393 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x % $y; ok 2394 - is a valid object ok 2395 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("+5"); $x % $y; ok 2396 - is a valid object ok 2397 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("-5"); $x % $y; ok 2398 - is a valid object ok 2399 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("-5"); $x % $y; ok 2400 - is a valid object ok 2401 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x % $y; ok 2402 - is a valid object ok 2403 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x % $y; ok 2404 - is a valid object ok 2405 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x % $y; ok 2406 - is a valid object ok 2407 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x % $y; ok 2408 - is a valid object ok 2409 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x % $y; ok 2410 - is a valid object ok 2411 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x % $y; ok 2412 - is a valid object ok 2413 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x % $y; ok 2414 - is a valid object ok 2415 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x % $y; ok 2416 - is a valid object ok 2417 - $x = Math::BigInt->new("4095"); $y = Math::BigInt->new("4095"); $x % $y; ok 2418 - is a valid object ok 2419 - $x = Math::BigInt->new("100041000510123"); $y = Math::BigInt->new("3"); $x % $y; ok 2420 - is a valid object ok 2421 - $x = Math::BigInt->new("152403346"); $y = Math::BigInt->new("12345"); $x % $y; ok 2422 - is a valid object ok 2423 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("5"); $x % $y; ok 2424 - is a valid object ok 2425 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("9"); $x % $y; ok 2426 - is a valid object ok 2427 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("9"); $x % $y; ok 2428 - is a valid object ok 2429 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("9"); $x % $y; ok 2430 - is a valid object ok 2431 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("9"); $x % $y; ok 2432 - is a valid object ok 2433 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("9"); $x % $y; ok 2434 - is a valid object ok 2435 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("9"); $x % $y; ok 2436 - is a valid object ok 2437 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("9"); $x % $y; ok 2438 - is a valid object ok 2439 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("9"); $x % $y; ok 2440 - is a valid object ok 2441 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("10"); $x % $y; ok 2442 - is a valid object ok 2443 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("10"); $x % $y; ok 2444 - is a valid object ok 2445 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("10"); $x % $y; ok 2446 - is a valid object ok 2447 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("10"); $x % $y; ok 2448 - is a valid object ok 2449 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("10"); $x % $y; ok 2450 - is a valid object ok 2451 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("10"); $x % $y; ok 2452 - is a valid object ok 2453 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("10"); $x % $y; ok 2454 - is a valid object ok 2455 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("10"); $x % $y; ok 2456 - is a valid object ok 2457 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("113"); $x % $y; ok 2458 - is a valid object ok 2459 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("113"); $x % $y; ok 2460 - is a valid object ok 2461 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("113"); $x % $y; ok 2462 - is a valid object ok 2463 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("113"); $x % $y; ok 2464 - is a valid object ok 2465 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("113"); $x % $y; ok 2466 - is a valid object ok 2467 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("113"); $x % $y; ok 2468 - is a valid object ok 2469 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("113"); $x % $y; ok 2470 - is a valid object ok 2471 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("113"); $x % $y; ok 2472 - is a valid object ok 2473 - $x = Math::BigInt->new("-629"); $y = Math::BigInt->new("5033"); $x % $y; ok 2474 - is a valid object ok 2475 - $x = Math::BigInt->new("111111111111111111111111111111"); $y = Math::BigInt->new("111111111111111111111111111111"); $x % $y; ok 2476 - is a valid object ok 2477 - $x = Math::BigInt->new("12345678901234567890"); $y = Math::BigInt->new("12345678901234567890"); $x % $y; ok 2478 - is a valid object ok 2479 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("12"); Math::BigInt::bgcd($x, $y); ok 2480 - is a valid object ok 2481 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("12"); Math::BigInt::bgcd($x, $y); ok 2482 - is a valid object ok 2483 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("inf"); Math::BigInt::bgcd($x, $y); ok 2484 - is a valid object ok 2485 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2486 - is a valid object ok 2487 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); Math::BigInt::bgcd($x, $y); ok 2488 - is a valid object ok 2489 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2490 - is a valid object ok 2491 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2492 - is a valid object ok 2493 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 2494 - is a valid object ok 2495 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2496 - is a valid object ok 2497 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 2498 - is a valid object ok 2499 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2500 - is a valid object ok 2501 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 2502 - is a valid object ok 2503 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2504 - is a valid object ok 2505 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 2506 - is a valid object ok 2507 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); Math::BigInt::bgcd($x, $y); ok 2508 - is a valid object ok 2509 - $x = Math::BigInt->new("+3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 2510 - is a valid object ok 2511 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 2512 - is a valid object ok 2513 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("-2"); Math::BigInt::bgcd($x, $y); ok 2514 - is a valid object ok 2515 - $x = Math::BigInt->new("-144"); $y = Math::BigInt->new("-60"); Math::BigInt::bgcd($x, $y); ok 2516 - is a valid object ok 2517 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("-60"); Math::BigInt::bgcd($x, $y); ok 2518 - is a valid object ok 2519 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("60"); Math::BigInt::bgcd($x, $y); ok 2520 - is a valid object ok 2521 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("625"); Math::BigInt::bgcd($x, $y); ok 2522 - is a valid object ok 2523 - $x = Math::BigInt->new("4096"); $y = Math::BigInt->new("81"); Math::BigInt::bgcd($x, $y); ok 2524 - is a valid object ok 2525 - $x = Math::BigInt->new("1034"); $y = Math::BigInt->new("804"); Math::BigInt::bgcd($x, $y); ok 2526 - is a valid object ok 2527 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("56"); Math::BigInt::bgcd($x, $y, $z); ok 2528 - is a valid object ok 2529 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("54"); Math::BigInt::bgcd($x, $y, $z); ok 2530 - is a valid object ok 2531 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 2532 - is a valid object ok 2533 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2534 - is a valid object ok 2535 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 2536 - is a valid object ok 2537 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2538 - is a valid object ok 2539 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2540 - is a valid object ok 2541 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::blcm($x, $y); ok 2542 - is a valid object ok 2543 - $x = Math::BigInt->new("+27"); $y = Math::BigInt->new("+90"); Math::BigInt::blcm($x, $y); ok 2544 - is a valid object ok 2545 - $x = Math::BigInt->new("+1034"); $y = Math::BigInt->new("+804"); Math::BigInt::blcm($x, $y); ok 2546 - is a valid object ok 2547 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x & $y; ok 2548 - is a valid object ok 2549 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x & $y; ok 2550 - is a valid object ok 2551 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x & $y; ok 2552 - is a valid object ok 2553 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x & $y; ok 2554 - is a valid object ok 2555 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $x & $y; ok 2556 - is a valid object ok 2557 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x & $y; ok 2558 - is a valid object ok 2559 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x & $y; ok 2560 - is a valid object ok 2561 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x & $y; ok 2562 - is a valid object ok 2563 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+281474976710656"); $x & $y; ok 2564 - is a valid object ok 2565 - $x = Math::BigInt->new("281474976710656"); $y = Math::BigInt->new("-1"); $x & $y; ok 2566 - is a valid object ok 2567 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x & $y; ok 2568 - is a valid object ok 2569 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x & $y; ok 2570 - is a valid object ok 2571 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x & $y; ok 2572 - is a valid object ok 2573 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("-4"); $x & $y; ok 2574 - is a valid object ok 2575 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x & $y; ok 2576 - is a valid object ok 2577 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x & $y; ok 2578 - is a valid object ok 2579 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x & $y; ok 2580 - is a valid object ok 2581 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-1"); $x & $y; ok 2582 - is a valid object ok 2583 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x & $y; ok 2584 - is a valid object ok 2585 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x & $y; ok 2586 - is a valid object ok 2587 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x & $y; ok 2588 - is a valid object ok 2589 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x & $y; ok 2590 - is a valid object ok 2591 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x & $y; ok 2592 - is a valid object ok 2593 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x & $y; ok 2594 - is a valid object ok 2595 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x & $y; ok 2596 - is a valid object ok 2597 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x & $y; ok 2598 - is a valid object ok 2599 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x & $y; ok 2600 - is a valid object ok 2601 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x & $y; ok 2602 - is a valid object ok 2603 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x & $y; ok 2604 - is a valid object ok 2605 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x & $y; ok 2606 - is a valid object ok 2607 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x & $y; ok 2608 - is a valid object ok 2609 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x & $y; ok 2610 - is a valid object ok 2611 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x & $y; ok 2612 - is a valid object ok 2613 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0x3F0F0F0F0F0F"); $x & $y; ok 2614 - is a valid object ok 2615 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x | $y; ok 2616 - is a valid object ok 2617 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x | $y; ok 2618 - is a valid object ok 2619 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x | $y; ok 2620 - is a valid object ok 2621 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x | $y; ok 2622 - is a valid object ok 2623 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x | $y; ok 2624 - is a valid object ok 2625 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x | $y; ok 2626 - is a valid object ok 2627 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x | $y; ok 2628 - is a valid object ok 2629 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x | $y; ok 2630 - is a valid object ok 2631 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x | $y; ok 2632 - is a valid object ok 2633 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x | $y; ok 2634 - is a valid object ok 2635 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x | $y; ok 2636 - is a valid object ok 2637 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x | $y; ok 2638 - is a valid object ok 2639 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x | $y; ok 2640 - is a valid object ok 2641 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("-1"); $x | $y; ok 2642 - is a valid object ok 2643 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x | $y; ok 2644 - is a valid object ok 2645 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-4"); $x | $y; ok 2646 - is a valid object ok 2647 - $x = Math::BigInt->new("300"); $y = Math::BigInt->new("-76"); $x | $y; ok 2648 - is a valid object ok 2649 - $x = Math::BigInt->new("-76"); $y = Math::BigInt->new("300"); $x | $y; ok 2650 - is a valid object ok 2651 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 2652 - is a valid object ok 2653 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 2654 - is a valid object ok 2655 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 2656 - is a valid object ok 2657 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 2658 - is a valid object ok 2659 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 2660 - is a valid object ok 2661 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 2662 - is a valid object ok 2663 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 2664 - is a valid object ok 2665 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 2666 - is a valid object ok 2667 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 2668 - is a valid object ok 2669 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 2670 - is a valid object ok 2671 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2672 - is a valid object ok 2673 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2674 - is a valid object ok 2675 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2676 - is a valid object ok 2677 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2678 - is a valid object ok 2679 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2680 - is a valid object ok 2681 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x | $y; ok 2682 - is a valid object ok 2683 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 2684 - is a valid object ok 2685 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 2686 - is a valid object ok 2687 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 2688 - is a valid object ok 2689 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x | $y; ok 2690 - is a valid object ok 2691 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 2692 - is a valid object ok 2693 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 2694 - is a valid object ok 2695 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x | $y; ok 2696 - is a valid object ok 2697 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 2698 - is a valid object ok 2699 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 2700 - is a valid object ok 2701 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x | $y; ok 2702 - is a valid object ok 2703 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 2704 - is a valid object ok 2705 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2706 - is a valid object ok 2707 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x | $y; ok 2708 - is a valid object ok 2709 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2710 - is a valid object ok 2711 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2712 - is a valid object ok 2713 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 2714 - is a valid object ok 2715 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2716 - is a valid object ok 2717 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 2718 - is a valid object ok 2719 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ^ $y; ok 2720 - is a valid object ok 2721 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x ^ $y; ok 2722 - is a valid object ok 2723 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2724 - is a valid object ok 2725 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x ^ $y; ok 2726 - is a valid object ok 2727 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x ^ $y; ok 2728 - is a valid object ok 2729 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x ^ $y; ok 2730 - is a valid object ok 2731 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ^ $y; ok 2732 - is a valid object ok 2733 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x ^ $y; ok 2734 - is a valid object ok 2735 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x ^ $y; ok 2736 - is a valid object ok 2737 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x ^ $y; ok 2738 - is a valid object ok 2739 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 2740 - is a valid object ok 2741 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 2742 - is a valid object ok 2743 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x ^ $y; ok 2744 - is a valid object ok 2745 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-4"); $x ^ $y; ok 2746 - is a valid object ok 2747 - $x = Math::BigInt->new("300"); $y = Math::BigInt->new("-76"); $x ^ $y; ok 2748 - is a valid object ok 2749 - $x = Math::BigInt->new("-76"); $y = Math::BigInt->new("300"); $x ^ $y; ok 2750 - is a valid object ok 2751 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 2752 - is a valid object ok 2753 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 2754 - is a valid object ok 2755 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 2756 - is a valid object ok 2757 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 2758 - is a valid object ok 2759 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2760 - is a valid object ok 2761 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 2762 - is a valid object ok 2763 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 2764 - is a valid object ok 2765 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 2766 - is a valid object ok 2767 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 2768 - is a valid object ok 2769 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2770 - is a valid object ok 2771 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2772 - is a valid object ok 2773 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2774 - is a valid object ok 2775 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2776 - is a valid object ok 2777 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2778 - is a valid object ok 2779 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2780 - is a valid object ok 2781 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x ^ $y; ok 2782 - is a valid object ok 2783 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 2784 - is a valid object ok 2785 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 2786 - is a valid object ok 2787 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 2788 - is a valid object ok 2789 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x ^ $y; ok 2790 - is a valid object ok 2791 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 2792 - is a valid object ok 2793 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 2794 - is a valid object ok 2795 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x ^ $y; ok 2796 - is a valid object ok 2797 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 2798 - is a valid object ok 2799 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 2800 - is a valid object ok 2801 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x ^ $y; ok 2802 - is a valid object ok 2803 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 2804 - is a valid object ok 2805 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2806 - is a valid object ok 2807 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x ^ $y; ok 2808 - is a valid object ok 2809 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2810 - is a valid object ok 2811 - $x = Math::BigInt->new("abc"); $x->bnot(); ok 2812 - is a valid object ok 2813 - $x = Math::BigInt->new("+0"); $x->bnot(); ok 2814 - is a valid object ok 2815 - $x = Math::BigInt->new("+8"); $x->bnot(); ok 2816 - is a valid object ok 2817 - $x = Math::BigInt->new("+281474976710656"); $x->bnot(); ok 2818 - is a valid object ok 2819 - $x = Math::BigInt->new("-1"); $x->bnot(); ok 2820 - is a valid object ok 2821 - $x = Math::BigInt->new("-2"); $x->bnot(); ok 2822 - is a valid object ok 2823 - $x = Math::BigInt->new("-12"); $x->bnot(); ok 2824 - is a valid object ok 2825 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2826 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2827 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2828 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2829 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2830 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); $x->digit($y); ok 2831 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-1"); $x->digit($y); ok 2832 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-2"); $x->digit($y); ok 2833 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2834 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2835 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2836 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("2"); $x->digit($y); ok 2837 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("3"); $x->digit($y); ok 2838 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("4"); $x->digit($y); ok 2839 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("5"); $x->digit($y); ok 2840 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-1"); $x->digit($y); ok 2841 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-2"); $x->digit($y); ok 2842 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2843 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2844 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2845 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2846 - $x = Math::BigInt->new("abc"); $x = $x->mantissa()->bstr(); ok 2847 - $x = Math::BigInt->new("1e4"); $x = $x->mantissa()->bstr(); ok 2848 - $x = Math::BigInt->new("2e0"); $x = $x->mantissa()->bstr(); ok 2849 - $x = Math::BigInt->new("123"); $x = $x->mantissa()->bstr(); ok 2850 - $x = Math::BigInt->new("-1"); $x = $x->mantissa()->bstr(); ok 2851 - $x = Math::BigInt->new("-2"); $x = $x->mantissa()->bstr(); ok 2852 - $x = Math::BigInt->new("+inf"); $x = $x->mantissa()->bstr(); ok 2853 - $x = Math::BigInt->new("-inf"); $x = $x->mantissa()->bstr(); ok 2854 - $x = Math::BigInt->new("abc"); $x = $x->exponent()->bstr(); ok 2855 - $x = Math::BigInt->new("1e4"); $x = $x->exponent()->bstr(); ok 2856 - $x = Math::BigInt->new("2e0"); $x = $x->exponent()->bstr(); ok 2857 - $x = Math::BigInt->new("123"); $x = $x->exponent()->bstr(); ok 2858 - $x = Math::BigInt->new("-1"); $x = $x->exponent()->bstr(); ok 2859 - $x = Math::BigInt->new("-2"); $x = $x->exponent()->bstr(); ok 2860 - $x = Math::BigInt->new("0"); $x = $x->exponent()->bstr(); ok 2861 - $x = Math::BigInt->new("+inf"); $x = $x->exponent()->bstr(); ok 2862 - $x = Math::BigInt->new("-inf"); $x = $x->exponent()->bstr(); ok 2863 - $x = Math::BigInt->new("abc"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2864 - $x = Math::BigInt->new("1e4"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2865 - $x = Math::BigInt->new("2e0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2866 - $x = Math::BigInt->new("123"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2867 - $x = Math::BigInt->new("-1"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2868 - $x = Math::BigInt->new("-2"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2869 - $x = Math::BigInt->new("0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2870 - $x = Math::BigInt->new("+inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2871 - $x = Math::BigInt->new("-inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2872 - $x = Math::BigInt->new("-1"); $x->bfac(); ok 2873 - is a valid object ok 2874 - $x = Math::BigInt->new("NaNfac"); $x->bfac(); ok 2875 - is a valid object ok 2876 - $x = Math::BigInt->new("+inf"); $x->bfac(); ok 2877 - is a valid object ok 2878 - $x = Math::BigInt->new("-inf"); $x->bfac(); ok 2879 - is a valid object ok 2880 - $x = Math::BigInt->new("0"); $x->bfac(); ok 2881 - is a valid object ok 2882 - $x = Math::BigInt->new("1"); $x->bfac(); ok 2883 - is a valid object ok 2884 - $x = Math::BigInt->new("2"); $x->bfac(); ok 2885 - is a valid object ok 2886 - $x = Math::BigInt->new("3"); $x->bfac(); ok 2887 - is a valid object ok 2888 - $x = Math::BigInt->new("4"); $x->bfac(); ok 2889 - is a valid object ok 2890 - $x = Math::BigInt->new("5"); $x->bfac(); ok 2891 - is a valid object ok 2892 - $x = Math::BigInt->new("6"); $x->bfac(); ok 2893 - is a valid object ok 2894 - $x = Math::BigInt->new("7"); $x->bfac(); ok 2895 - is a valid object ok 2896 - $x = Math::BigInt->new("8"); $x->bfac(); ok 2897 - is a valid object ok 2898 - $x = Math::BigInt->new("9"); $x->bfac(); ok 2899 - is a valid object ok 2900 - $x = Math::BigInt->new("10"); $x->bfac(); ok 2901 - is a valid object ok 2902 - $x = Math::BigInt->new("11"); $x->bfac(); ok 2903 - is a valid object ok 2904 - $x = Math::BigInt->new("12"); $x->bfac(); ok 2905 - is a valid object ok 2906 - $x = Math::BigInt->new("20"); $x->bfac(); ok 2907 - is a valid object ok 2908 - $x = Math::BigInt->new("22"); $x->bfac(); ok 2909 - is a valid object ok 2910 - $x = Math::BigInt->new("69"); $x->bfac(); ok 2911 - is a valid object ok 2912 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("12"); $x ** $y; ok 2913 - is a valid object ok 2914 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("abc"); $x ** $y; ok 2915 - is a valid object ok 2916 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x ** $y; ok 2917 - is a valid object ok 2918 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x ** $y; ok 2919 - is a valid object ok 2920 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x ** $y; ok 2921 - is a valid object ok 2922 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2923 - is a valid object ok 2924 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2925 - is a valid object ok 2926 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x ** $y; ok 2927 - is a valid object ok 2928 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x ** $y; ok 2929 - is a valid object ok 2930 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ** $y; ok 2931 - is a valid object ok 2932 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x ** $y; ok 2933 - is a valid object ok 2934 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2935 - is a valid object ok 2936 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2937 - is a valid object ok 2938 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 2939 - is a valid object ok 2940 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x ** $y; ok 2941 - is a valid object ok 2942 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x ** $y; ok 2943 - is a valid object ok 2944 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x ** $y; ok 2945 - is a valid object ok 2946 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x ** $y; ok 2947 - is a valid object ok 2948 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x ** $y; ok 2949 - is a valid object ok 2950 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x ** $y; ok 2951 - is a valid object ok 2952 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x ** $y; ok 2953 - is a valid object ok 2954 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x ** $y; ok 2955 - is a valid object ok 2956 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x ** $y; ok 2957 - is a valid object ok 2958 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2959 - is a valid object ok 2960 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2961 - is a valid object ok 2962 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2963 - is a valid object ok 2964 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2965 - is a valid object ok 2966 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 2967 - is a valid object ok 2968 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 2969 - is a valid object ok 2970 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500013"); $x ** $y; ok 2971 - is a valid object ok 2972 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 2973 - is a valid object ok 2974 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 2975 - is a valid object ok 2976 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("2"); $x ** $y; ok 2977 - is a valid object ok 2978 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x ** $y; ok 2979 - is a valid object ok 2980 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2981 - is a valid object ok 2982 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x ** $y; ok 2983 - is a valid object ok 2984 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("inf"); $x ** $y; ok 2985 - is a valid object ok 2986 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 2987 - is a valid object ok 2988 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x ** $y; ok 2989 - is a valid object ok 2990 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 2991 - is a valid object ok 2992 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 2993 - is a valid object ok 2994 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("inf"); $x ** $y; ok 2995 - is a valid object ok 2996 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("inf"); $x ** $y; ok 2997 - is a valid object ok 2998 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 2999 - is a valid object ok 3000 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3001 - is a valid object ok 3002 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3003 - is a valid object ok 3004 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x ** $y; ok 3005 - is a valid object ok 3006 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("NaN"); $x ** $y; ok 3007 - is a valid object ok 3008 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3009 - is a valid object ok 3010 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3011 - is a valid object ok 3012 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3013 - is a valid object ok 3014 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x ** $y; ok 3015 - is a valid object ok 3016 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x ** $y; ok 3017 - is a valid object ok 3018 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x ** $y; ok 3019 - is a valid object ok 3020 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x ** $y; ok 3021 - is a valid object ok 3022 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $x ** $y; ok 3023 - is a valid object ok 3024 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $x ** $y; ok 3025 - is a valid object ok 3026 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x ** $y; ok 3027 - is a valid object ok 3028 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 3029 - is a valid object ok 3030 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 3031 - is a valid object ok 3032 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 3033 - is a valid object ok 3034 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-4"); $x ** $y; ok 3035 - is a valid object ok 3036 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("2"); $x ** $y; ok 3037 - is a valid object ok 3038 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("3"); $x ** $y; ok 3039 - is a valid object ok 3040 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("4"); $x ** $y; ok 3041 - is a valid object ok 3042 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x ** $y; ok 3043 - is a valid object ok 3044 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("6"); $x ** $y; ok 3045 - is a valid object ok 3046 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("7"); $x ** $y; ok 3047 - is a valid object ok 3048 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("8"); $x ** $y; ok 3049 - is a valid object ok 3050 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("9"); $x ** $y; ok 3051 - is a valid object ok 3052 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("20"); $x ** $y; ok 3053 - is a valid object ok 3054 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("2"); $x ** $y; ok 3055 - is a valid object ok 3056 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x ** $y; ok 3057 - is a valid object ok 3058 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x ** $y; ok 3059 - is a valid object ok 3060 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x ** $y; ok 3061 - is a valid object ok 3062 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x ** $y; ok 3063 - is a valid object ok 3064 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("2"); $x ** $y; ok 3065 - is a valid object ok 3066 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("3"); $x ** $y; ok 3067 - is a valid object ok 3068 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $x ** $y; ok 3069 - is a valid object ok 3070 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("5"); $x ** $y; ok 3071 - is a valid object ok 3072 - $x = Math::BigInt->new("100"); $x->length(); ok 3073 - $x = Math::BigInt->new("10"); $x->length(); ok 3074 - $x = Math::BigInt->new("1"); $x->length(); ok 3075 - $x = Math::BigInt->new("0"); $x->length(); ok 3076 - $x = Math::BigInt->new("12345"); $x->length(); ok 3077 - $x = Math::BigInt->new("10000000000000000"); $x->length(); ok 3078 - $x = Math::BigInt->new("-123"); $x->length(); ok 3079 - $x = Math::BigInt->new("215960156869840440586892398248"); $x->length(); ok 3080 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3081 - is a valid object ok 3082 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3083 - is a valid object ok 3084 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3085 - is a valid object ok 3086 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3087 - is a valid object ok 3088 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3089 - is a valid object ok 3090 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3091 - is a valid object ok 3092 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3093 - is a valid object ok 3094 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3095 - is a valid object ok 3096 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3097 - is a valid object ok 3098 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3099 - is a valid object ok 3100 - $x = Math::BigInt->new("16"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3101 - is a valid object ok 3102 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3103 - is a valid object ok 3104 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3105 - is a valid object ok 3106 - $x = Math::BigInt->new("15241"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3107 - is a valid object ok 3108 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3109 - is a valid object ok 3110 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3111 - is a valid object ok 3112 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3113 - is a valid object ok 3114 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3115 - is a valid object ok 3116 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3117 - is a valid object ok 3118 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3119 - is a valid object ok 3120 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3121 - is a valid object ok 3122 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3123 - is a valid object ok 3124 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3125 - is a valid object ok 3126 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3127 - is a valid object ok 3128 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3129 - is a valid object ok 3130 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("-inf"); $x->broot($y); ok 3131 - is a valid object ok 3132 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3133 - is a valid object ok 3134 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3135 - is a valid object ok 3136 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3137 - is a valid object ok 3138 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3139 - is a valid object ok 3140 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3141 - is a valid object ok 3142 - $x = Math::BigInt->new("-123.45"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3143 - is a valid object ok 3144 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3145 - is a valid object ok 3146 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("1"); $x->broot($y); ok 3147 - is a valid object ok 3148 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("1"); $x->broot($y); ok 3149 - is a valid object ok 3150 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $x->broot($y); ok 3151 - is a valid object ok 3152 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("-1"); $x->broot($y); ok 3153 - is a valid object ok 3154 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("3"); $x->broot($y); ok 3155 - is a valid object ok 3156 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("3"); $x->broot($y); ok 3157 - is a valid object ok 3158 - $x = Math::BigInt->new("16"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3159 - is a valid object ok 3160 - $x = Math::BigInt->new("81"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3161 - is a valid object ok 3162 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3163 - is a valid object ok 3164 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("8"); $x->broot($y); ok 3165 - is a valid object ok 3166 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("16"); $x->broot($y); ok 3167 - is a valid object ok 3168 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("32"); $x->broot($y); ok 3169 - is a valid object ok 3170 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("64"); $x->broot($y); ok 3171 - is a valid object ok 3172 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("128"); $x->broot($y); ok 3173 - is a valid object ok 3174 - $x = Math::BigInt->new("84274086103068221283760416414557757"); $y = Math::BigInt->new("15"); $x->broot($y); ok 3175 - is a valid object ok 3176 - $x = Math::BigInt->new("145"); $x->bsqrt(); ok 3177 - is a valid object ok 3178 - $x = Math::BigInt->new("144"); $x->bsqrt(); ok 3179 - is a valid object ok 3180 - $x = Math::BigInt->new("143"); $x->bsqrt(); ok 3181 - is a valid object ok 3182 - $x = Math::BigInt->new("16"); $x->bsqrt(); ok 3183 - is a valid object ok 3184 - $x = Math::BigInt->new("170"); $x->bsqrt(); ok 3185 - is a valid object ok 3186 - $x = Math::BigInt->new("169"); $x->bsqrt(); ok 3187 - is a valid object ok 3188 - $x = Math::BigInt->new("168"); $x->bsqrt(); ok 3189 - is a valid object ok 3190 - $x = Math::BigInt->new("4"); $x->bsqrt(); ok 3191 - is a valid object ok 3192 - $x = Math::BigInt->new("3"); $x->bsqrt(); ok 3193 - is a valid object ok 3194 - $x = Math::BigInt->new("2"); $x->bsqrt(); ok 3195 - is a valid object ok 3196 - $x = Math::BigInt->new("9"); $x->bsqrt(); ok 3197 - is a valid object ok 3198 - $x = Math::BigInt->new("12"); $x->bsqrt(); ok 3199 - is a valid object ok 3200 - $x = Math::BigInt->new("256"); $x->bsqrt(); ok 3201 - is a valid object ok 3202 - $x = Math::BigInt->new("100000000"); $x->bsqrt(); ok 3203 - is a valid object ok 3204 - $x = Math::BigInt->new("4000000000000"); $x->bsqrt(); ok 3205 - is a valid object ok 3206 - $x = Math::BigInt->new("152399026"); $x->bsqrt(); ok 3207 - is a valid object ok 3208 - $x = Math::BigInt->new("152399025"); $x->bsqrt(); ok 3209 - is a valid object ok 3210 - $x = Math::BigInt->new("152399024"); $x->bsqrt(); ok 3211 - is a valid object ok 3212 - $x = Math::BigInt->new("18446744073709551616"); $x->bsqrt(); ok 3213 - is a valid object ok 3214 - $x = Math::BigInt->new("84274086103068221283760416414557757"); $x->bsqrt(); ok 3215 - is a valid object ok 3216 - $x = Math::BigInt->new("1"); $x->bsqrt(); ok 3217 - is a valid object ok 3218 - $x = Math::BigInt->new("0"); $x->bsqrt(); ok 3219 - is a valid object ok 3220 - $x = Math::BigInt->new("-2"); $x->bsqrt(); ok 3221 - is a valid object ok 3222 - $x = Math::BigInt->new("-123"); $x->bsqrt(); ok 3223 - is a valid object ok 3224 - $x = Math::BigInt->new("Nan"); $x->bsqrt(); ok 3225 - is a valid object ok 3226 - $x = Math::BigInt->new("+inf"); $x->bsqrt(); ok 3227 - is a valid object ok 3228 - $x = Math::BigInt->new("-inf"); $x->bsqrt(); ok 3229 - is a valid object ok 3230 - $x = Math::BigInt->new("NaN"); $x->bexp(); ok 3231 - is a valid object ok 3232 - $x = Math::BigInt->new("inf"); $x->bexp(); ok 3233 - is a valid object ok 3234 - $x = Math::BigInt->new("1"); $x->bexp(); ok 3235 - is a valid object ok 3236 - $x = Math::BigInt->new("2"); $x->bexp(); ok 3237 - is a valid object ok 3238 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3239 - is a valid object ok 3240 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("NaN"); $x->batan2($y); ok 3241 - is a valid object ok 3242 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->batan2($y); ok 3243 - is a valid object ok 3244 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3245 - is a valid object ok 3246 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3247 - is a valid object ok 3248 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3249 - is a valid object ok 3250 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3251 - is a valid object ok 3252 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3253 - is a valid object ok 3254 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->batan2($y); ok 3255 - is a valid object ok 3256 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3257 - is a valid object ok 3258 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3259 - is a valid object ok 3260 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("+inf"); $x->batan2($y); ok 3261 - is a valid object ok 3262 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->batan2($y); ok 3263 - is a valid object ok 3264 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3265 - is a valid object ok 3266 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3267 - is a valid object ok 3268 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3269 - is a valid object ok 3270 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3271 - is a valid object ok 3272 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x->batan2($y); ok 3273 - is a valid object ok 3274 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3275 - is a valid object ok 3276 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3277 - is a valid object ok 3278 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3279 - is a valid object ok 3280 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3281 - is a valid object ok 3282 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3283 - is a valid object ok 3284 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3285 - is a valid object ok 3286 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3287 - is a valid object ok 3288 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("8"); $x->batan2($y); ok 3289 - is a valid object ok 3290 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("8"); $x->batan2($y); ok 3291 - is a valid object ok 3292 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3293 - is a valid object ok 3294 - $x = Math::BigInt->new("77"); Math::BigInt->bpi($x); ok 3295 - is a valid object ok 3296 - $x = Math::BigInt->new("+0"); Math::BigInt->bpi($x); ok 3297 - is a valid object ok 3298 - $x = Math::BigInt->new("11"); Math::BigInt->bpi($x); ok 3299 - is a valid object ok 3300 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("10"); $x->bnok($y); ok 3301 - is a valid object ok 3302 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("NaN"); $x->bnok($y); ok 3303 - is a valid object ok 3304 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3305 - is a valid object ok 3306 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->bnok($y); ok 3307 - is a valid object ok 3308 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3309 - is a valid object ok 3310 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->bnok($y); ok 3311 - is a valid object ok 3312 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->bnok($y); ok 3313 - is a valid object ok 3314 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x->bnok($y); ok 3315 - is a valid object ok 3316 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("3"); $x->bnok($y); ok 3317 - is a valid object ok 3318 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("6"); $x->bnok($y); ok 3319 - is a valid object ok 3320 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("90"); $x->bnok($y); ok 3321 - is a valid object ok 3322 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("95"); $x->bnok($y); ok 3323 - is a valid object ok 3324 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->bnok($y); ok 3325 - is a valid object ok 3326 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("0"); $x->bnok($y); ok 3327 - is a valid object ok 3328 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3329 - is a valid object ok 3330 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3331 - is a valid object ok 3332 - $x = Math::BigInt->new("NaNbround"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3333 - is a valid object ok 3334 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3335 - is a valid object ok 3336 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3337 - is a valid object ok 3338 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3339 - is a valid object ok 3340 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("2"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3341 - is a valid object ok 3342 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3343 - is a valid object ok 3344 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3345 - is a valid object ok 3346 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3347 - is a valid object ok 3348 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3349 - is a valid object ok 3350 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3351 - is a valid object ok 3352 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3353 - is a valid object ok 3354 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3355 - is a valid object ok 3356 - $x = Math::BigInt->new("+101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3357 - is a valid object ok 3358 - $x = Math::BigInt->new("-101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3359 - is a valid object ok 3360 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3361 - is a valid object ok 3362 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3363 - is a valid object ok 3364 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3365 - is a valid object ok 3366 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3367 - is a valid object ok 3368 - $x = Math::BigInt->new("+201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3369 - is a valid object ok 3370 - $x = Math::BigInt->new("-201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3371 - is a valid object ok 3372 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3373 - is a valid object ok 3374 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3375 - is a valid object ok 3376 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3377 - is a valid object ok 3378 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3379 - is a valid object ok 3380 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3381 - is a valid object ok 3382 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3383 - is a valid object ok 3384 - $x = Math::BigInt->new("+301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3385 - is a valid object ok 3386 - $x = Math::BigInt->new("-301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3387 - is a valid object ok 3388 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3389 - is a valid object ok 3390 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3391 - is a valid object ok 3392 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3393 - is a valid object ok 3394 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3395 - is a valid object ok 3396 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3397 - is a valid object ok 3398 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3399 - is a valid object ok 3400 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3401 - is a valid object ok 3402 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3403 - is a valid object ok 3404 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3405 - is a valid object ok 3406 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3407 - is a valid object ok 3408 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3409 - is a valid object ok 3410 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3411 - is a valid object ok 3412 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3413 - is a valid object ok 3414 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3415 - is a valid object ok 3416 - $x = Math::BigInt->new("+501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3417 - is a valid object ok 3418 - $x = Math::BigInt->new("-501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3419 - is a valid object ok 3420 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3421 - is a valid object ok 3422 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3423 - is a valid object ok 3424 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3425 - is a valid object ok 3426 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3427 - is a valid object ok 3428 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3429 - is a valid object ok 3430 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3431 - is a valid object ok 3432 - $x = Math::BigInt->new("+601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3433 - is a valid object ok 3434 - $x = Math::BigInt->new("-601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3435 - is a valid object ok 3436 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("7"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3437 - is a valid object ok 3438 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3439 - is a valid object ok 3440 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3441 - is a valid object ok 3442 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3443 - is a valid object ok 3444 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3445 - is a valid object ok 3446 - $x = Math::BigInt->new("+60123199999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3447 - is a valid object ok 3448 - $x = Math::BigInt->new("+60123299999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3449 - is a valid object ok 3450 - $x = Math::BigInt->new("+60123399999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3451 - is a valid object ok 3452 - $x = Math::BigInt->new("+60123499999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3453 - is a valid object ok 3454 - $x = Math::BigInt->new("+60123500000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3455 - is a valid object ok 3456 - $x = Math::BigInt->new("+60123600000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3457 - is a valid object ok 3458 - $x = Math::BigInt->new("+60123700000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3459 - is a valid object ok 3460 - $x = Math::BigInt->new("+60123800000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3461 - is a valid object ok 3462 - $x = Math::BigInt->new("+60123900000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3463 - is a valid object ok 3464 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3465 - is a valid object ok 3466 - $x = Math::BigInt->new("-60123199999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3467 - is a valid object ok 3468 - $x = Math::BigInt->new("-60123299999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3469 - is a valid object ok 3470 - $x = Math::BigInt->new("-60123399999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3471 - is a valid object ok 3472 - $x = Math::BigInt->new("-60123499999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3473 - is a valid object ok 3474 - $x = Math::BigInt->new("-60123500000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3475 - is a valid object ok 3476 - $x = Math::BigInt->new("-60123600000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3477 - is a valid object ok 3478 - $x = Math::BigInt->new("-60123700000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3479 - is a valid object ok 3480 - $x = Math::BigInt->new("-60123800000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3481 - is a valid object ok 3482 - $x = Math::BigInt->new("-60123900000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3483 - is a valid object ok 3484 - $x = Math::BigInt->new("0"); $x->is_zero() || 0; ok 3485 - $x = Math::BigInt->new("NaNzero"); $x->is_zero() || 0; ok 3486 - $x = Math::BigInt->new("+inf"); $x->is_zero() || 0; ok 3487 - $x = Math::BigInt->new("-inf"); $x->is_zero() || 0; ok 3488 - $x = Math::BigInt->new("123"); $x->is_zero() || 0; ok 3489 - $x = Math::BigInt->new("-1"); $x->is_zero() || 0; ok 3490 - $x = Math::BigInt->new("1"); $x->is_zero() || 0; ok 3491 - $x = Math::BigInt->new("0"); $x->is_one() || 0; ok 3492 - $x = Math::BigInt->new("NaNone"); $x->is_one() || 0; ok 3493 - $x = Math::BigInt->new("+inf"); $x->is_one() || 0; ok 3494 - $x = Math::BigInt->new("-inf"); $x->is_one() || 0; ok 3495 - $x = Math::BigInt->new("1"); $x->is_one() || 0; ok 3496 - $x = Math::BigInt->new("2"); $x->is_one() || 0; ok 3497 - $x = Math::BigInt->new("-1"); $x->is_one() || 0; ok 3498 - $x = Math::BigInt->new("-2"); $x->is_one() || 0; ok 3499 - $x = Math::BigInt->new("0"); $x->bfloor(); ok 3500 - is a valid object ok 3501 - $x = Math::BigInt->new("NaNfloor"); $x->bfloor(); ok 3502 - is a valid object ok 3503 - $x = Math::BigInt->new("+inf"); $x->bfloor(); ok 3504 - is a valid object ok 3505 - $x = Math::BigInt->new("-inf"); $x->bfloor(); ok 3506 - is a valid object ok 3507 - $x = Math::BigInt->new("-1"); $x->bfloor(); ok 3508 - is a valid object ok 3509 - $x = Math::BigInt->new("-2"); $x->bfloor(); ok 3510 - is a valid object ok 3511 - $x = Math::BigInt->new("2"); $x->bfloor(); ok 3512 - is a valid object ok 3513 - $x = Math::BigInt->new("3"); $x->bfloor(); ok 3514 - is a valid object ok 3515 - $x = Math::BigInt->new("abc"); $x->bfloor(); ok 3516 - is a valid object ok 3517 - $x = Math::BigInt->new("NaNceil"); $x->bceil(); ok 3518 - is a valid object ok 3519 - $x = Math::BigInt->new("+inf"); $x->bceil(); ok 3520 - is a valid object ok 3521 - $x = Math::BigInt->new("-inf"); $x->bceil(); ok 3522 - is a valid object ok 3523 - $x = Math::BigInt->new("0"); $x->bceil(); ok 3524 - is a valid object ok 3525 - $x = Math::BigInt->new("-1"); $x->bceil(); ok 3526 - is a valid object ok 3527 - $x = Math::BigInt->new("-2"); $x->bceil(); ok 3528 - is a valid object ok 3529 - $x = Math::BigInt->new("2"); $x->bceil(); ok 3530 - is a valid object ok 3531 - $x = Math::BigInt->new("3"); $x->bceil(); ok 3532 - is a valid object ok 3533 - $x = Math::BigInt->new("abc"); $x->bceil(); ok 3534 - is a valid object ok 3535 - $x = Math::BigInt->new("NaN"); $x->bint(); ok 3536 - is a valid object ok 3537 - $x = Math::BigInt->new("+inf"); $x->bint(); ok 3538 - is a valid object ok 3539 - $x = Math::BigInt->new("-inf"); $x->bint(); ok 3540 - is a valid object ok 3541 - $x = Math::BigInt->new("0"); $x->bint(); ok 3542 - is a valid object ok 3543 - $x = Math::BigInt->new("-1"); $x->bint(); ok 3544 - is a valid object ok 3545 - $x = Math::BigInt->new("-2"); $x->bint(); ok 3546 - is a valid object ok 3547 - $x = Math::BigInt->new("2"); $x->bint(); ok 3548 - is a valid object ok 3549 - $x = Math::BigInt->new("3"); $x->bint(); ok 3550 - is a valid object ok 3551 - $x = Math::BigInt->new("128"); $x->as_hex(); ok 3552 - $x = Math::BigInt->new("-128"); $x->as_hex(); ok 3553 - $x = Math::BigInt->new("0"); $x->as_hex(); ok 3554 - $x = Math::BigInt->new("-0"); $x->as_hex(); ok 3555 - $x = Math::BigInt->new("1"); $x->as_hex(); ok 3556 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_hex(); ok 3557 - $x = Math::BigInt->new("+inf"); $x->as_hex(); ok 3558 - $x = Math::BigInt->new("-inf"); $x->as_hex(); ok 3559 - $x = Math::BigInt->new("NaNas_hex"); $x->as_hex(); ok 3560 - $x = Math::BigInt->new("128"); $x->as_bin(); ok 3561 - $x = Math::BigInt->new("-128"); $x->as_bin(); ok 3562 - $x = Math::BigInt->new("0"); $x->as_bin(); ok 3563 - $x = Math::BigInt->new("-0"); $x->as_bin(); ok 3564 - $x = Math::BigInt->new("1"); $x->as_bin(); ok 3565 - $x = Math::BigInt->new("0b1010111101010101010110110110110110101"); $x->as_bin(); ok 3566 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_bin(); ok 3567 - $x = Math::BigInt->new("+inf"); $x->as_bin(); ok 3568 - $x = Math::BigInt->new("-inf"); $x->as_bin(); ok 3569 - $x = Math::BigInt->new("NaNas_bin"); $x->as_bin(); ok 3570 - $x = Math::BigInt->new("128"); $x->as_oct(); ok 3571 - $x = Math::BigInt->new("-128"); $x->as_oct(); ok 3572 - $x = Math::BigInt->new("0"); $x->as_oct(); ok 3573 - $x = Math::BigInt->new("-0"); $x->as_oct(); ok 3574 - $x = Math::BigInt->new("1"); $x->as_oct(); ok 3575 - $x = Math::BigInt->new("0b1010111101010101010110110110110110101"); $x->as_oct(); ok 3576 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_oct(); ok 3577 - $x = Math::BigInt->new("+inf"); $x->as_oct(); ok 3578 - $x = Math::BigInt->new("-inf"); $x->as_oct(); ok 3579 - $x = Math::BigInt->new("NaNas_oct"); $x->as_oct(); ok 3580 - $x = Math::BigInt->new("-1"); $x = log($x); ok 3581 - is a valid object ok 3582 - $x = Math::BigInt->new("0"); $x = log($x); ok 3583 - is a valid object ok 3584 - $x = Math::BigInt->new("1"); $x = log($x); ok 3585 - is a valid object ok 3586 - $x = Math::BigInt->new("2"); $x = log($x); ok 3587 - is a valid object ok 3588 - $x = Math::BigInt->new("3"); $x = log($x); ok 3589 - is a valid object ok 3590 - $x = Math::BigInt->new("123456789"); $x = log($x); ok 3591 - is a valid object ok 3592 - $x = Math::BigInt->new("1234567890987654321"); $x = log($x); ok 3593 - is a valid object ok 3594 - $x = Math::BigInt->new("-inf"); $x = log($x); ok 3595 - is a valid object ok 3596 - $x = Math::BigInt->new("inf"); $x = log($x); ok 3597 - is a valid object ok 3598 - $x = Math::BigInt->new("NaN"); $x = log($x); ok 3599 - is a valid object ok 3600 - $x = Math::BigInt->new("4294967296"); $a = $x->bmul($x); ok 3601 - $x = Math::BigInt->new(10); $a = $x->bpow($x); ok 3602 - $z = $x & $y; $x ok 3603 - $z = $x & $y; $y ok 3604 - $z = $x & $y; $z ok 3605 - $z = $x | $y; $x ok 3606 - $z = $x | $y; $y ok 3607 - $z = $x | $y; $z ok 3608 - $z = $x | $y; $x ok 3609 - $z = $x | $y; $y ok 3610 - $z = $x | $y; $z ok 3611 - $z = $x ^ $y; $x ok 3612 - $z = $x ^ $y; $y ok 3613 - $z = $x ^ $y; $z ok 3614 - $y = -$x; $x ok 3615 - $y = abs($x); $x ok 3616 - $x->copy()->bmodpow($y, $z); $u ok 3617 - $x->copy()->bmodpow($y, $z); $y ok 3618 - $x->copy()->bmodpow($y, $z); $z ok 3619 - $y = -$x; $x ok 3620 - $y = -$x; $y ok 3621 - $y = $x->copy()->bneg(); $x ok 3622 - $y = $x->copy()->bneg(); $y ok 3623 - $x->bmul($y); $x ok 3624 - $x->bmul($y); $y ok 3625 - $x->badd($y); $x ok 3626 - $x->badd($y); $y ok 3627 - $x->bsub($y); $x ok 3628 - $x->bsub($y); $y ok 3629 - $x->bdiv($y); $x ok 3630 - $x->bdiv($y); $y ok 3631 - $x->bmod($y); $x ok 3632 - $x->bmod($y); $y ok 3633 - $x->bmul($y); $x ok 3634 - $x->bmul($y); $y ok 3635 - $x->badd($y); $x ok 3636 - $x->badd($y); $y ok 3637 - $x->bsub($y); $x ok 3638 - $x->bsub($y); $y ok 3639 - $x->bdiv($y); $x ok 3640 - $x->bdiv($y); $y ok 3641 - $x->bmod($y); $x ok 3642 - $x->bmod($y); $y ok 3643 - $x->bmul($y); $x ok 3644 - $x->bmul($y); $y ok 3645 - $x->badd($y); $x ok 3646 - $x->badd($y); $y ok 3647 - $x->bsub($y); $x ok 3648 - $x->bsub($y); $y ok 3649 - $x->bdiv($y); $x ok 3650 - $x->bdiv($y); $y ok 3651 - $x->bmod($y); $x ok 3652 - $x->bmod($y); $y ok 3653 - overloading cmp works ok 3654 - $x = Math::BigInt->new(10); $x = 2 ** $x; $x == 1024; ok 3655 - $x = Math::BigInt->new(10); $x = 2 * $x; $x == 20; ok 3656 - $x = Math::BigInt->new(10); $x = 2 + $x; $x == 12; ok 3657 - $x = Math::BigInt->new(10); $x = 2 - $x; $x == -8; ok 3658 - $x = Math::BigInt->new(10); $x = 20 / $x; $x == 2; ok 3659 - $x = Math::BigInt->new(3); $x = 20 % $x; $x == 2; ok 3660 - $x = Math::BigInt->new(7); $x = 20 & $x; $x == 4; ok 3661 - $x = Math::BigInt->new(7); $x = 0x20 | $x; $x == 0x27; ok 3662 - $x = Math::BigInt->new(7); $x = 0x20 ^ $x; $x == 0x27; ok 3663 - $x = Math::BigInt->badd(4, 5); $x == 9; ok 3664 - $x = Math::BigInt->new(1); $x is true ok 3665 - $x = Math::BigInt->new(0); !$x is false ok 3666 - objectify(2, 4, 5) gives Math::BigInt, 4, 5 ok 3667 - first arg matches /^Math::BigInt/ ok 3668 - second arg is 4 ok 3669 - third arg is 5 ok 3670 - objectify(0, 4, 5) gives Math::BigInt, 4, 5 ok 3671 - first arg matches /^Math::BigInt/ ok 3672 - second arg is 4 ok 3673 - third arg is 5 ok 3674 - objectify(2, 4, 5) gives Math::BigInt, 4, 5 ok 3675 - first arg matches /^Math::BigInt/ ok 3676 - second arg is 4 ok 3677 - third arg is 5 ok 3678 - objectify(2, 4, 5, 6, 7) gives Math::BigInt, 4, 5, 6, 7 ok 3679 - first arg matches /^Math::BigInt/ ok 3680 - second arg is 4 ok 3681 - second arg is a Math::BigInt object ok 3682 - third arg is 5 ok 3683 - third arg is a Math::BigInt object ok 3684 - fourth arg is 6 ok 3685 - fourth arg is a scalar ok 3686 - fifth arg is 7 ok 3687 - fifth arg is a scalar ok 3688 - objectify(2, Math::BigInt, 4, 5, 6, 7) gives Math::BigInt, 4, 5, 6, 7 ok 3689 - first arg is Math::BigInt ok 3690 - second arg is 4 ok 3691 - second arg is a Math::BigInt object ok 3692 - third arg is 5 ok 3693 - third arg is a Math::BigInt object ok 3694 - fourth arg is 6 ok 3695 - fourth arg is a scalar ok 3696 - fifth arg is 7 ok 3697 - fifth arg is a scalar ok 3698 - Math::BigInt->new(123)->badd(123) = 246 ok 3699 - Math::BigInt->badd(123, 321) = 444 ok 3700 - Math::BigInt->badd(123, Math::BigInt->new(321)) = 444 ok 3701 - Math::BigInt->new(123)->bsub(122) = 1 ok 3702 - Math::BigInt->bsub(321, 123) = 198 ok 3703 - Math::BigInt->bsub(321, Math::BigInt->new(123)) = 198 ok 3704 - Math::BigInt->new(123)->bmul(123) = 15129 ok 3705 - Math::BigInt->bmul(123, 123) = 15129 ok 3706 - Math::BigInt->bmul(123, Math::BigInt->new(123)) = 15129 ok 3707 - Math::BigInt->new(15129)->bdiv(123) = 123 ok 3708 - Math::BigInt->bdiv(15129, 123) = 123 ok 3709 - Math::BigInt->bdiv(15129, Math::BigInt->new(123)) = 123 ok 3710 - Math::BigInt->new(15131)->bmod(123) = 2 ok 3711 - Math::BigInt->bmod(15131, 123) = 2 ok 3712 - Math::BigInt->bmod(15131, Math::BigInt->new(123)) = 2 ok 3713 - Math::BigInt->new(2)->bpow(16) = 65536 ok 3714 - Math::BigInt->bpow(2, 16) = 65536 ok 3715 - Math::BigInt->bpow(2, Math::BigInt->new(16)) = 65536 ok 3716 - Math::BigInt->new(2**15)->brsft(1) = 2**14 ok 3717 - Math::BigInt->brsft(2**15, 1) = 2**14 ok 3718 - Math::BigInt->brsft(2**15, Math::BigInt->new(1)) = 2**14 ok 3719 - Math::BigInt->new(2**13)->blsft(1) = 2**14 ok 3720 - Math::BigInt->blsft(2**13, 1) = 2**14 ok 3721 - Math::BigInt->blsft(2**13, Math::BigInt->new(1)) = 2**14 ok 3722 - $x = Math::BigInt->new(1050000000000000); $x->bsstr() = "105e+13" ok 3723 - $x = Math::BigInt->new(1e+129); $x->bsstr() = "1e+129" ok 3724 - Math::BigInt->new("1") = 1 ok 3725 - Math::BigInt->new(" 1") = 1 ok 3726 - Math::BigInt->new("1 ") = 1 ok 3727 - Math::BigInt->new(" 1 ") = 1 ok 3728 - Math::BigInt->new("\n1") = 1 ok 3729 - Math::BigInt->new("1\n") = 1 ok 3730 - Math::BigInt->new("\n1\n") = 1 ok 3731 - Math::BigInt->new(" \n1\n") = 1 ok 3732 - Math::BigInt->new(" \n1 \n") = 1 ok 3733 - Math::BigInt->new(" \n1\n ") = 1 ok 3734 - Math::BigInt->new(" \n1\n1") = 'NaN' ok 3735 - Math::BigInt->new("1 \n1\n1") = 'NaN' ok 3736 - Math::BigInt->new("12") = 12 ok 3737 - Math::BigInt->new(" 12") = 12 ok 3738 - Math::BigInt->new("12 ") = 12 ok 3739 - Math::BigInt->new(" 12 ") = 12 ok 3740 - Math::BigInt->new("\n12") = 12 ok 3741 - Math::BigInt->new("12\n") = 12 ok 3742 - Math::BigInt->new("\n12\n") = 12 ok 3743 - Math::BigInt->new(" \n12\n") = 12 ok 3744 - Math::BigInt->new(" \n12 \n") = 12 ok 3745 - Math::BigInt->new(" \n12\n ") = 12 ok 3746 - Math::BigInt->new(" \n12\n1") = 'NaN' ok 3747 - Math::BigInt->new("1 \n12\n1") = 'NaN' ok 3748 - Math::BigInt->new("123") = 123 ok 3749 - Math::BigInt->new(" 123") = 123 ok 3750 - Math::BigInt->new("123 ") = 123 ok 3751 - Math::BigInt->new(" 123 ") = 123 ok 3752 - Math::BigInt->new("\n123") = 123 ok 3753 - Math::BigInt->new("123\n") = 123 ok 3754 - Math::BigInt->new("\n123\n") = 123 ok 3755 - Math::BigInt->new(" \n123\n") = 123 ok 3756 - Math::BigInt->new(" \n123 \n") = 123 ok 3757 - Math::BigInt->new(" \n123\n ") = 123 ok 3758 - Math::BigInt->new(" \n123\n1") = 'NaN' ok 3759 - Math::BigInt->new("1 \n123\n1") = 'NaN' ok 3760 - Math::BigInt->new("1234") = 1234 ok 3761 - Math::BigInt->new(" 1234") = 1234 ok 3762 - Math::BigInt->new("1234 ") = 1234 ok 3763 - Math::BigInt->new(" 1234 ") = 1234 ok 3764 - Math::BigInt->new("\n1234") = 1234 ok 3765 - Math::BigInt->new("1234\n") = 1234 ok 3766 - Math::BigInt->new("\n1234\n") = 1234 ok 3767 - Math::BigInt->new(" \n1234\n") = 1234 ok 3768 - Math::BigInt->new(" \n1234 \n") = 1234 ok 3769 - Math::BigInt->new(" \n1234\n ") = 1234 ok 3770 - Math::BigInt->new(" \n1234\n1") = 'NaN' ok 3771 - Math::BigInt->new("1 \n1234\n1") = 'NaN' ok 3772 - Math::BigInt->new("12345") = 12345 ok 3773 - Math::BigInt->new(" 12345") = 12345 ok 3774 - Math::BigInt->new("12345 ") = 12345 ok 3775 - Math::BigInt->new(" 12345 ") = 12345 ok 3776 - Math::BigInt->new("\n12345") = 12345 ok 3777 - Math::BigInt->new("12345\n") = 12345 ok 3778 - Math::BigInt->new("\n12345\n") = 12345 ok 3779 - Math::BigInt->new(" \n12345\n") = 12345 ok 3780 - Math::BigInt->new(" \n12345 \n") = 12345 ok 3781 - Math::BigInt->new(" \n12345\n ") = 12345 ok 3782 - Math::BigInt->new(" \n12345\n1") = 'NaN' ok 3783 - Math::BigInt->new("1 \n12345\n1") = 'NaN' ok 3784 - Math::BigInt->new("123456") = 123456 ok 3785 - Math::BigInt->new(" 123456") = 123456 ok 3786 - Math::BigInt->new("123456 ") = 123456 ok 3787 - Math::BigInt->new(" 123456 ") = 123456 ok 3788 - Math::BigInt->new("\n123456") = 123456 ok 3789 - Math::BigInt->new("123456\n") = 123456 ok 3790 - Math::BigInt->new("\n123456\n") = 123456 ok 3791 - Math::BigInt->new(" \n123456\n") = 123456 ok 3792 - Math::BigInt->new(" \n123456 \n") = 123456 ok 3793 - Math::BigInt->new(" \n123456\n ") = 123456 ok 3794 - Math::BigInt->new(" \n123456\n1") = 'NaN' ok 3795 - Math::BigInt->new("1 \n123456\n1") = 'NaN' ok 3796 - Math::BigInt->new("1234567") = 1234567 ok 3797 - Math::BigInt->new(" 1234567") = 1234567 ok 3798 - Math::BigInt->new("1234567 ") = 1234567 ok 3799 - Math::BigInt->new(" 1234567 ") = 1234567 ok 3800 - Math::BigInt->new("\n1234567") = 1234567 ok 3801 - Math::BigInt->new("1234567\n") = 1234567 ok 3802 - Math::BigInt->new("\n1234567\n") = 1234567 ok 3803 - Math::BigInt->new(" \n1234567\n") = 1234567 ok 3804 - Math::BigInt->new(" \n1234567 \n") = 1234567 ok 3805 - Math::BigInt->new(" \n1234567\n ") = 1234567 ok 3806 - Math::BigInt->new(" \n1234567\n1") = 'NaN' ok 3807 - Math::BigInt->new("1 \n1234567\n1") = 'NaN' ok 3808 - Math::BigInt->new("12345678") = 12345678 ok 3809 - Math::BigInt->new(" 12345678") = 12345678 ok 3810 - Math::BigInt->new("12345678 ") = 12345678 ok 3811 - Math::BigInt->new(" 12345678 ") = 12345678 ok 3812 - Math::BigInt->new("\n12345678") = 12345678 ok 3813 - Math::BigInt->new("12345678\n") = 12345678 ok 3814 - Math::BigInt->new("\n12345678\n") = 12345678 ok 3815 - Math::BigInt->new(" \n12345678\n") = 12345678 ok 3816 - Math::BigInt->new(" \n12345678 \n") = 12345678 ok 3817 - Math::BigInt->new(" \n12345678\n ") = 12345678 ok 3818 - Math::BigInt->new(" \n12345678\n1") = 'NaN' ok 3819 - Math::BigInt->new("1 \n12345678\n1") = 'NaN' ok 3820 - Math::BigInt->new("123456789") = 123456789 ok 3821 - Math::BigInt->new(" 123456789") = 123456789 ok 3822 - Math::BigInt->new("123456789 ") = 123456789 ok 3823 - Math::BigInt->new(" 123456789 ") = 123456789 ok 3824 - Math::BigInt->new("\n123456789") = 123456789 ok 3825 - Math::BigInt->new("123456789\n") = 123456789 ok 3826 - Math::BigInt->new("\n123456789\n") = 123456789 ok 3827 - Math::BigInt->new(" \n123456789\n") = 123456789 ok 3828 - Math::BigInt->new(" \n123456789 \n") = 123456789 ok 3829 - Math::BigInt->new(" \n123456789\n ") = 123456789 ok 3830 - Math::BigInt->new(" \n123456789\n1") = 'NaN' ok 3831 - Math::BigInt->new("1 \n123456789\n1") = 'NaN' ok 3832 - Math::BigInt->new("1234567890") = 1234567890 ok 3833 - Math::BigInt->new(" 1234567890") = 1234567890 ok 3834 - Math::BigInt->new("1234567890 ") = 1234567890 ok 3835 - Math::BigInt->new(" 1234567890 ") = 1234567890 ok 3836 - Math::BigInt->new("\n1234567890") = 1234567890 ok 3837 - Math::BigInt->new("1234567890\n") = 1234567890 ok 3838 - Math::BigInt->new("\n1234567890\n") = 1234567890 ok 3839 - Math::BigInt->new(" \n1234567890\n") = 1234567890 ok 3840 - Math::BigInt->new(" \n1234567890 \n") = 1234567890 ok 3841 - Math::BigInt->new(" \n1234567890\n ") = 1234567890 ok 3842 - Math::BigInt->new(" \n1234567890\n1") = 'NaN' ok 3843 - Math::BigInt->new("1 \n1234567890\n1") = 'NaN' ok 3844 - value of ((2^148)+1)/17 ok 3845 - number of digits in ((2^148)+1)/17 ok 3846 - value of 2^127-1 ok 3847 - number of digits in 2^127-1 ok 3848 - number of digits in fraction part of 2^127-1 ok 3849 - number of digits in 1_000_000_000_000 ok 3850 - number of digits in fraction part of 1_000_000_000_000 ok 3851 - 2 <<= 18 with Math::BigInt objects ok 3852 - 2 <<= 18 with Math::BigInt objects ok 3853 - 2 >>= 18 with Math::BigInt objects ok 3854 - 2 >>= 18 with Math::BigInt objects ok 3855 - $x = Math::Foo->new(5); $x = $x - 8; $x = 3 ok 3856 - $x is an object of class "Math::Foo" ok 3857 - $x = Math::Foo->new(5); $x = 8 - $x; $x = -3 ok 3858 - $x is an object of class "Math::Foo" ok 3859 - Math::BigInt->new("+inf") = "inf" ok 3860 # skip no 64 bit integer support ok 3861 # skip no 64 bit integer support ok 3862 # skip no 64 bit integer support ok 3863 # skip no 64 bit integer support ok 3864 - is a valid object ok 3865 - $x == 1000000000 ok 3866 - is a valid object ok 3867 - $x == 999999999 ok 3868 - is a valid object ok 3869 - $x->numify() = $BASE-1 ok 3870 - $x->numify() = -($BASE-1) ok 3871 - $x->numify()+0 = $BASE+0 ok 3872 - $x->numify() = -$BASE ok 3873 - $x->numify() = -($BASE*$BASE*1+$BASE*1+1)) ok 3874 - $x > $BASE ok 3875 - $x > $BASE ok 3876 - $x->length() = length($MAX) ok 3877 - Math::BigInt->digit(123, 2) = 1 ok 3878 - testing bug in sub ok 3879 - testing bug in sub ok 3880 - testing number with a zero-hole of BASE_LEN_SMALL ok 3881 - see if mul shortcut for small numbers works ok 3882 - -322056000 / -12882240 has remainder 0 ok 3883 - is a valid object ok 3884 - $x->bmod(5033) = 4404 ok 3885 - Math::BigInt->bzero() = 0 ok 3886 - Math::BigInt->bone() = 1 ok 3887 - Math::BigInt->bone("+") = 1 ok 3888 - Math::BigInt->bone("-") = -1 ok 3889 - Math::BigInt->bnan() = "NaN" ok 3890 - Math::BigInt->binf() = "inf" ok 3891 - Math::BigInt->binf("+") = "inf" ok 3892 - Math::BigInt->binf("-") = "-inf" ok 3893 - Math::BigInt->binf("-inf") = "-inf" ok 3894 - Math::BigInt->new(1)->is_one("-") = 0 ok 3895 - Math::BigInt->new(-1)->is_one("-") = 1 ok 3896 - Math::BigInt->new(1)->is_one() = 1 ok 3897 - Math::BigInt->new(-1)->is_one() = 0 ok 3898 - $x = Math::BigInt->new(3); $x -= $x; = 0 ok 3899 - $x = Math::BigInt->new(-3); $x -= $x; = 0 ok 3900 - $x = Math::BigInt->new("NaN"); $x -= $x; $x->is_nan() = 1 ok 3901 - $x = Math::BigInt->new("inf"); $x -= $x; $x->is_nan() = 1 ok 3902 - $x = Math::BigInt->new("-inf"); $x -= $x; $x->is_nan() = 1 ok 3903 - $x = Math::BigInt->new("NaN"); $x += $x; $x->is_nan() = 1 ok 3904 - $x = Math::BigInt->new("inf"); $x += $x; $x->is_inf() = 1 ok 3905 - $x = Math::BigInt->new("-inf"); $x += $x; $x->is_inf("-") = 1 ok 3906 - $x = Math::BigInt->new(3); $x += $x; $x = 6 ok 3907 - $x = Math::BigInt->new(-3); $x += $x; $x = -6 ok 3908 - $x = Math::BigInt->new(3); $x *= $x; $x = 9 ok 3909 - $x = Math::BigInt->new(-3); $x *= $x; $x = 9 ok 3910 - $x = Math::BigInt->new(3); $x /= $x; $x = 1 ok 3911 - $x = Math::BigInt->new(-3); $x /= $x; $x = 1 ok 3912 - $x = Math::BigInt->new(3); $x %= $x; $x = 0 ok 3913 - $x = Math::BigInt->new(-3); $x %= $x; $x = 0 ok t/bare_mif.t .................................. 1..713 # BareCalc using Calc v1.999807 ok 1 - Math::BigInt->config('lib') ok 2 - ${"Math::BigInt::accuracy"} ok 3 - ${"Math::BigInt::precision"} ok 4 - Math::BigInt->accuracy() ok 5 - Math::BigInt->precision() ok 6 - ${"Math::BigInt::div_scale"} ok 7 - ${"Math::BigInt::round_mode"} ok 8 - Math::BigInt->round_mode() ok 9 - ${"Math::BigFloat::accuracy"} ok 10 - ${"Math::BigFloat::precision"} ok 11 - Math::BigFloat->precision() ok 12 - Math::BigFloat->precision() ok 13 - ${"Math::BigFloat::div_scale"} ok 14 - ${"Math::BigFloat::round_mode"} ok 15 - Math::BigFloat->round_mode() ok 16 - Math::BigInt->accuracy() ok 17 - Math::BigInt->precision() ok 18 - Math::BigInt->round_mode() ok 19 - Math::BigInt->div_scale() ok 20 - Math::BigInt->div_scale(20) ok 21 - Math::BigInt->div_scale() ok 22 - Math::BigInt->round_mode("odd") ok 23 - Math::BigInt->round_mode() ok 24 - Math::BigInt->accuracy(2) ok 25 - Math::BigInt->accuracy() ok 26 - Math::BigInt->accuracy(undef) ok 27 - Math::BigInt->precision(2) ok 28 - Math::BigInt->precision(-2) ok 29 - Math::BigInt->precision() ok 30 - Math::BigInt->precision(undef) ok 31 - Math::BigFloat->accuracy() ok 32 - Math::BigFloat->precision() ok 33 - Math::BigFloat->round_mode() ok 34 - Math::BigFloat->div_scale() ok 35 - Math::BigFloat->div_scale(20) ok 36 - Math::BigFloat->div_scale() ok 37 - Math::BigFloat->round_mode("odd") ok 38 - Math::BigFloat->round_mode() ok 39 - Math::BigFloat->accuracy(2) ok 40 - Math::BigFloat->accuracy() ok 41 - Math::BigFloat->accuracy(undef) ok 42 - Math::BigFloat->precision(2) ok 43 - Math::BigFloat->precision(-2) ok 44 - Math::BigFloat->precision() ok 45 - Math::BigFloat->precision(undef) ok 46 - ${"Math::BigFloat::accuracy"} = 5 ok 47 - ${"Math::BigInt::accuracy"} = 5 ok 48 - ${"Math::BigFloat::accuracy"} = 42 ok 49 - ${"Math::BigInt::accuracy"} = 42 ok 50 - ${"Math::BigFloat::accuracy"} = -1 ok 51 - ${"Math::BigInt::accuracy"} = -1 ok 52 - ${"Math::BigFloat::accuracy"} = 0 ok 53 - ${"Math::BigInt::accuracy"} = 0 ok 54 - ${"Math::BigFloat::accuracy"} = undef ok 55 - ${"Math::BigInt::accuracy"} = undef ok 56 - ${"Math::BigFloat::precision"} = 5 ok 57 - ${"Math::BigInt::precision"} = 5 ok 58 - ${"Math::BigFloat::precision"} = 42 ok 59 - ${"Math::BigInt::precision"} = 42 ok 60 - ${"Math::BigFloat::precision"} = -1 ok 61 - ${"Math::BigInt::precision"} = -1 ok 62 - ${"Math::BigFloat::precision"} = 0 ok 63 - ${"Math::BigInt::precision"} = 0 ok 64 - ${"Math::BigFloat::precision"} = undef ok 65 - ${"Math::BigInt::precision"} = undef ok 66 - ${"Math::BigFloat::div_scale"} = 5 ok 67 - ${"Math::BigInt::div_scale"} = 5 ok 68 - ${"Math::BigFloat::div_scale"} = 42 ok 69 - ${"Math::BigInt::div_scale"} = 42 ok 70 - ${"Math::BigFloat::div_scale"} = 1 ok 71 - ${"Math::BigInt::div_scale"} = 1 ok 72 - ${"Math::BigFloat::round_mode"} = "odd" ok 73 - ${"Math::BigInt::round_mode"} = "odd" ok 74 - ${"Math::BigFloat::round_mode"} = "even" ok 75 - ${"Math::BigInt::round_mode"} = "even" ok 76 - ${"Math::BigFloat::round_mode"} = "zero" ok 77 - ${"Math::BigInt::round_mode"} = "zero" ok 78 - ${"Math::BigFloat::round_mode"} = "trunc" ok 79 - ${"Math::BigInt::round_mode"} = "trunc" ok 80 - ${"Math::BigFloat::round_mode"} = "+inf" ok 81 - ${"Math::BigInt::round_mode"} = "+inf" ok 82 - ${"Math::BigFloat::round_mode"} = "-inf" ok 83 - ${"Math::BigInt::round_mode"} = "-inf" ok 84 - ${"Math::BigFloat::round_mode"} ok 85 - ${"Math::BigInt::round_mode"} ok 86 - $x->accuracy() ok 87 - $x->accuracy(5) ok 88 - $x->accuracy(undef) ok 89 - $x->precision() ok 90 - $x->precision(5) ok 91 - $x->precision(undef) ok 92 - ${"Math::BigInt::accuracy"} = 42 ok 93 - ${"Math::BigFloat::accuracy"} = 64 ok 94 - ${"Math::BigInt::accuracy"} = 42 ok 95 - ${"Math::BigFloat::accuracy"} = 64 ok 96 - Math::BigInt->new(123456) = 123500 ok 97 - Math::BigInt->new(123456) = 123000 ok 98 - Math::BigFloat->new("123.456") = 123.5 ok 99 - Math::BigFloat->new("123.456") = 123.5 ok 100 - Math::BigFloat->new("123.456") = 123.456 ok 101 - $x = Math::BigFloat->new("123.456"); $x->accuracy(4) ok 102 - $x = Math::BigFloat->new("123.456"); $x->precision(-2) ok 103 - $x = Math::BigInt->new(123456); $x->accuracy(4) ok 104 - $x = Math::BigInt->new(123456); $x->precision(2) ok 105 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(5) ok 106 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(4) ok 107 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(5, 2) ok 108 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(undef, -2) ok 109 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(undef, 2) ok 110 - $x = Math::BigInt->new("123"); $x->round(5, 2) ok 111 - $x = Math::BigFloat->new("123.45000"); $x->copy()->round(undef, -1, "odd") ok 112 - $x = Math::BigFloat->new("123.4567"); $y = $x->copy()->bround() ok 113 - $y = $x->copy()->round(5); $y->accuracy() ok 114 - $y = $x->copy()->round(5); $y->precision() ok 115 - $y = $x->copy()->round(undef, 2); $y->precision() ok 116 - $y = $x->copy()->round(undef, 2); $y->accuracy() ok 117 - $x = $mbf->new("123.4567") ok 118 - $x->accuracy(4) ok 119 - $x->precision(-2) ok 120 - $x->accuracy() ok 121 - $x = $mbf->new("123.4567") ok 122 - $x->precision(-2) ok 123 - $x->accuracy(4) ok 124 - $x->precision() ok 125 - $z = $x->copy(); $z->accuracy() ok 126 - $z = $x->copy(); $z->precision() ok 127 - $x->copy()->bdiv(3, 4) ok 128 - $x->copy()->bdiv(3, 8) ok 129 - $x->copy()->bdiv(3, 16) ok 130 - $x->copy()->bdiv(3, 32) ok 131 - $x = Math::BigInt->bzero(); $x->accuracy(5); $x->{_a} ok 132 - $x = Math::BigInt->bzero(); $x->precision(5); $x->{_p} ok 133 - $x = Math::BigInt->new(0); $x->accuracy(5); $x->{_a} ok 134 - $x = Math::BigInt->new(0); $x->precision(5); $x->{_p} ok 135 - $x = Math::BigInt->bzero(); $x->round(5); $x->{_a} ok 136 - $x = Math::BigInt->bzero(); $x->round(undef, 5); $x->{_p} ok 137 - $x = Math::BigInt->new(0); $x->round(5); $x->{_a} ok 138 - $x = Math::BigInt->new(0); $x->round(undef, 5); $x->{_p} ok 139 - $x = Math::BigInt->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 140 - $x = Math::BigFloat->bzero(); $x->accuracy(5); $x->{_a} ok 141 - $x = Math::BigFloat->bzero(); $x->precision(5); $x->{_p} ok 142 - $x = Math::BigFloat->new(0); $x->accuracy(5); $x->{_a} ok 143 - $x = Math::BigFloat->new(0); $x->precision(5); $x->{_p} ok 144 - $x = Math::BigFloat->bzero(); $x->round(5); $x->{_a} ok 145 - $x = Math::BigFloat->bzero(); $x->round(undef, 5); $x->{_p} ok 146 - $x = Math::BigFloat->new(0); $x->round(5); $x->{_a} ok 147 - $x = Math::BigFloat->new(0); $x->round(undef, 5); $x->{_p} ok 148 - $x = Math::BigFloat->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 149 - Math::BigInt->new(123)->badd(123) ok 150 - Math::BigInt->badd(123, 321) ok 151 - Math::BigInt->badd(123, Math::BigInt->new(321)) ok 152 - Math::BigInt->new(123)->bsub(122) ok 153 - Math::BigInt->bsub(321, 123) ok 154 - Math::BigInt->bsub(321, Math::BigInt->new(123)) ok 155 - Math::BigInt->new(123)->bmul(123) ok 156 - Math::BigInt->bmul(123, 123) ok 157 - Math::BigInt->bmul(123, Math::BigInt->new(123)) ok 158 - Math::BigInt->new(15131)->bmod(123) ok 159 - Math::BigInt->bmod(15131, 123) ok 160 - Math::BigInt->bmod(15131, Math::BigInt->new(123)) ok 161 - Math::BigInt->new(2)->bpow(16) ok 162 - Math::BigInt->bpow(2, 16) ok 163 - Math::BigInt->bpow(2, Math::BigInt->new(16)) ok 164 - Math::BigInt->new(2**15)->brsft(1) ok 165 - Math::BigInt->brsft(2**15, 1) ok 166 - Math::BigInt->brsft(2**15, Math::BigInt->new(1)) ok 167 - Math::BigInt->new(2**13)->blsft(1) ok 168 - Math::BigInt->blsft(2**13, 1) ok 169 - Math::BigInt->blsft(2**13, Math::BigInt->new(1)) ok 170 - Math::BigFloat->new(123)->badd(123) ok 171 - Math::BigFloat->badd(123, 321) ok 172 - Math::BigFloat->badd(123, Math::BigFloat->new(321)) ok 173 - Math::BigFloat->new(123)->bsub(122) ok 174 - Math::BigFloat->bsub(321, 123) ok 175 - Math::BigFloat->bsub(321, Math::BigFloat->new(123)) ok 176 - Math::BigFloat->new(123)->bmul(123) ok 177 - Math::BigFloat->bmul(123, 123) ok 178 - Math::BigFloat->bmul(123, Math::BigFloat->new(123)) ok 179 - Math::BigFloat->new(15131)->bmod(123) ok 180 - Math::BigFloat->bmod(15131, 123) ok 181 - Math::BigFloat->bmod(15131, Math::BigFloat->new(123)) ok 182 - Math::BigFloat->new(2)->bpow(16) ok 183 - Math::BigFloat->bpow(2, 16) ok 184 - Math::BigFloat->bpow(2, Math::BigFloat->new(16)) ok 185 - Math::BigFloat->new(2**15)->brsft(1) ok 186 - Math::BigFloat->brsft(2**15, 1) ok 187 - Math::BigFloat->brsft(2**15, Math::BigFloat->new(1)) ok 188 - Math::BigFloat->new(2**13)->blsft(1) ok 189 - Math::BigFloat->blsft(2**13, 1) ok 190 - Math::BigFloat->blsft(2**13, Math::BigFloat->new(1)) ok 191 - $z = $x + $y ok 192 - $z = $y - $x ok 193 - $z = $y * $x ok 194 - $z = $x ** 2 ok 195 - $z = $x * $x ok 196 - $z = $z / 2 ok 197 - $z++ ok 198 - $z = $x + $y ok 199 - $z = $y - $x ok 200 - $z = $y * $x ok 201 - $z = $x ** 2 ok 202 - $z++ ok 203 - $z = $z / 2 ok 204 - $x->bnot() ok 205 - $x->babs() ok 206 - $x->bneg() ok 207 - $x ok 208 - $x->bdiv($y) ok 209 - $x->{_a} ok 210 - $x->bdiv($y) ok 211 - $x->{_a} ok 212 - $x->bdiv($y) ok 213 - $x->{_a} ok 214 - $x->bdiv($y) ok 215 - $x->{_a} ok 216 - $x->copy()->bsqrt(...) ok 217 - $x->copy->bsqrt(...) ok 218 - $x->{_a} ok 219 - $z = $x->bsqrt(); $z ok 220 - $z = $x->bsqrt(); $x ok 221 - $x->copy()->bpow(...) ok 222 - $x->copy()->bpow(...) vs. $x->copy()->bsqrt(...) ok 223 - $x->copy()->bpow('2', 0) ok 224 - $mbi->new(12)->bfac() ok 225 - $mbi->new(12)->bfac(2) ok 226 - $x = Math::BigInt->new(12); $x->accuracy(2); $x->bfac() ok 227 - $x = Math::BigInt->new(13); $x->accuracy(2); $x->bfac() ok 228 - $x = Math::BigInt->new(13); $x->accuracy(3); $x->bfac() ok 229 - $x = Math::BigInt->new(13); $x->accuracy(4); $x->bfac() ok 230 - $x = Math::BigInt->new(20); $x->accuracy(1); $x->bfac() ok 231 - $x = Math::BigInt->new("123456")->bsqrt(2, undef) ok 232 - $x->accuracy() ok 233 - $x = 360 ok 234 - $x = 400 ok 235 - $z = $x + $y; ok 236 - $z is a "Math::BigFloat" object ok 237 - $z = $x / $y; ok 238 - $z is a "Math::BigFloat" object ok 239 - $z = $u * $y; ok 240 - $z is a "Math::BigFloat" object ok 241 - $z = 31000 ok 242 - $z = 30900 ok 243 - $z = 30863 ok 244 - $z = 30863 ok 245 - $z = 30860 ok 246 - $z = 30900 ok 247 - $z = 30862.5 ok 248 - $z = "" ok 249 - "$z = $y >= 3.17" gives warning as expected ok 250 - $z = "" ok 251 - "$z = $y >= 3.17" gives warning as expected ok 252 - $x->bdiv(3) ok 253 - $x->{_a} ok 254 - $x->bdiv($y) ok 255 - $x->{_a} ok 256 - $x->bdiv(3) ok 257 - $x->bdiv(3, undef, -2) ok 258 - $x->bdiv(3, undef, -8) = "3.33333333" ok 259 - $x->bdiv($y) = '3.333' ok 260 - $x->{_a} = 4 ok 261 - $y->{_a} = 4 ok 262 - $x->{_p} = undef ok 263 - $y->{_p} = undef ok 264 - $x->bdiv($y) = '3.33' ok 265 - $x->{_p} = -2 ok 266 - $y->{_p} = -2 ok 267 - $x->{_a} = undef ok 268 - $y->{_a} = undef ok 269 - "$x->bround(-2)" gives warning as expected ok 270 - $x = "1.000" ok 271 - $x->{_a} = 4 ok 272 - $x = "1.000" ok 273 - $x = "1230" ok 274 - $x->{_a} = 3 ok 275 - $x = "1230" ok 276 - $x = "1200" ok 277 - $x->{_a} = 2 ok 278 - $x = "12300" ok 279 - $x->{_a} = 4 ok 280 - $x = "12000" ok 281 - $x->{_a} = 3 ok 282 - $x = "10000" ok 283 - $x->{_a} = 2 ok 284 - $x = "0" ok 285 - $x->{_a} = 1 ok 286 - $x = "0" ok 287 - $x->{_a} = 0 ok 288 - $x = "100000" ok 289 - $x->{_a} = 0 ok 290 - $x = "100000" ok 291 - $x->{_a} = 0 ok 292 - $x = "12345" ok 293 - $x->{_a} = 5 ok 294 - $x = "12345" ok 295 - $x = "0.01" ok 296 - $x = "0.00" ok 297 - $x = "0.00" ok 298 - $x = "12340" ok 299 - $x = "12340" ok 300 - $x->{_a} = undef ok 301 - $x = "0.000176118351532229658330398027474462839027826699542092286016203" ok 302 - $x = "0.000176118351532229658330398027474462839027826699542092286016202888340965128566396618527651" ok 303 - $x = "0.00017611835153222965833039802747446283902782669954209228601620288834096512856639662" ok 304 - $x = "1.00000" ok 305 - $x->bfround(-2) = "1.00" ok 306 - $x->{_p} = -2 ok 307 - $x->bround(2) = "12000" ok 308 - $x->{_a} = 2 ok 309 - $x->bround(2) = "1.2" ok 310 - $x->{_a} = 2 ok 311 - $x = "12350" ok 312 - $x->{_a} = 4 ok 313 - $x->{_p} = undef ok 314 - $x->{_a} = undef ok 315 - $x->{_p} = undef ok 316 - $x->{_a} = undef ok 317 - $x->{_p} = undef ok 318 - $y->{_a} = undef ok 319 - $y->{_p} = undef ok 320 - $x+$y = 24000 ok 321 - $x-$y = 42000 ok 322 - $x+$y = "2.46" ok 323 - scalar(@params) = 1 ok 324 - scalar(@params) = 4 ok 325 - $params[0] = $x ok 326 - $params[1] = 1 ok 327 - $params[2] = undef ok 328 - $params[3] = "odd" ok 329 - scalar(@params) = 4 ok 330 - $params[0] = $x ok 331 - $params[1] = undef ok 332 - $params[2] = 2 ok 333 - $params[3] = "odd" ok 334 - round mode "foo" gives a warning as expected ok 335 - scalar(@params) = 4 ok 336 - $params[0] = $x ok 337 - $params[1] = undef ok 338 - $params[2] = 2 ok 339 - $params[3] = "+inf" ok 340 - scalar(@params) = 1 ok 341 - $params[0] = $x ok 342 - scalar(@params) = 1 ok 343 - $params[0] = $x ok 344 - $x->is_nan() = 1 ok 345 - scalar(@params) = 1 ok 346 - $params[0] = $x ok 347 - $x->is_nan() = 1 ok 348 - $x = Math::BigInt->new(2)->bzero(); $x->{_a} ok 349 - $x = Math::BigInt->new(2)->bzero(); $x->{_p} ok 350 - $x = Math::BigInt->new(2)->bone(); $x->{_a} ok 351 - $x = Math::BigInt->new(2)->bone(); $x->{_p} ok 352 - $x = Math::BigInt->new(2)->binf(); $x->{_a} ok 353 - $x = Math::BigInt->new(2)->binf(); $x->{_p} ok 354 - $x = Math::BigInt->new(2)->bnan(); $x->{_a} ok 355 - $x = Math::BigInt->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 356 - $x = Math::BigInt->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 357 - $x = Math::BigInt->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 358 - $x = Math::BigInt->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 359 - $x = Math::BigInt->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 360 - $x = Math::BigInt->new(2, 1); $x->{_a} ok 361 - $x = Math::BigInt->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 362 - $x = Math::BigInt->new(2, undef, 1); $x->{_a} ok 363 - $x = Math::BigInt->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 364 - $x = Math::BigInt->new(2, 1)->bzero(); $x->{_a} ok 365 - $x = Math::BigInt->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 366 - $x = Math::BigInt->new(2, undef, 1)->bzero(); $x->{_a} ok 367 - $x = Math::BigInt->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 368 - $x = Math::BigInt->new(2, 1)->bone(); $x->{_a} ok 369 - $x = Math::BigInt->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 370 - $x = Math::BigInt->new(2, undef, 1)->bone(); $x->{_a} ok 371 - $x = Math::BigInt->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 372 - $x = Math::BigInt->new(2); $x->{_a} ok 373 - $x = Math::BigInt->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 374 - $x = Math::BigInt->new(2); $x->bone('+', undef, 2); $x->{_a} ok 375 - $x = Math::BigInt->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 376 - $x = Math::BigInt->new(2); $x->bone('-', 2, undef); $x->{_a} ok 377 - $x = Math::BigInt->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 378 - $x = Math::BigInt->new(2); $x->bone('-', undef, 2); $x->{_a} ok 379 - $x = Math::BigInt->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 380 - $x = Math::BigInt->new(2);$x->bzero(2, undef); $x->{_a} ok 381 - $x = Math::BigInt->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 382 - $x = Math::BigInt->new(2); $x->bzero(undef, 2); $x->{_a} ok 383 - $x = Math::BigInt->new(2); $x->bzero(undef, 2); $x->{_p} ok 384 - $x = Math::BigFloat->new(2)->bzero(); $x->{_a} ok 385 - $x = Math::BigFloat->new(2)->bzero(); $x->{_p} ok 386 - $x = Math::BigFloat->new(2)->bone(); $x->{_a} ok 387 - $x = Math::BigFloat->new(2)->bone(); $x->{_p} ok 388 - $x = Math::BigFloat->new(2)->binf(); $x->{_a} ok 389 - $x = Math::BigFloat->new(2)->binf(); $x->{_p} ok 390 - $x = Math::BigFloat->new(2)->bnan(); $x->{_a} ok 391 - $x = Math::BigFloat->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 392 - $x = Math::BigFloat->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 393 - $x = Math::BigFloat->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 394 - $x = Math::BigFloat->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 395 - $x = Math::BigFloat->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 396 - $x = Math::BigFloat->new(2, 1); $x->{_a} ok 397 - $x = Math::BigFloat->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 398 - $x = Math::BigFloat->new(2, undef, 1); $x->{_a} ok 399 - $x = Math::BigFloat->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 400 - $x = Math::BigFloat->new(2, 1)->bzero(); $x->{_a} ok 401 - $x = Math::BigFloat->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 402 - $x = Math::BigFloat->new(2, undef, 1)->bzero(); $x->{_a} ok 403 - $x = Math::BigFloat->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 404 - $x = Math::BigFloat->new(2, 1)->bone(); $x->{_a} ok 405 - $x = Math::BigFloat->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 406 - $x = Math::BigFloat->new(2, undef, 1)->bone(); $x->{_a} ok 407 - $x = Math::BigFloat->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 408 - $x = Math::BigFloat->new(2); $x->{_a} ok 409 - $x = Math::BigFloat->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 410 - $x = Math::BigFloat->new(2); $x->bone('+', undef, 2); $x->{_a} ok 411 - $x = Math::BigFloat->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 412 - $x = Math::BigFloat->new(2); $x->bone('-', 2, undef); $x->{_a} ok 413 - $x = Math::BigFloat->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 414 - $x = Math::BigFloat->new(2); $x->bone('-', undef, 2); $x->{_a} ok 415 - $x = Math::BigFloat->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 416 - $x = Math::BigFloat->new(2);$x->bzero(2, undef); $x->{_a} ok 417 - $x = Math::BigFloat->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 418 - $x = Math::BigFloat->new(2); $x->bzero(undef, 2); $x->{_a} ok 419 - $x = Math::BigFloat->new(2); $x->bzero(undef, 2); $x->{_p} # Verify that class accuracy is copied into new objects. ok 420 - Math::BigInt->accuracy(3); $x = Math::BigInt->bzero(); $x->accuracy() ok 421 - Math::BigInt->accuracy(3); $x = Math::BigInt->bone(); $x->accuracy() ok 422 - Math::BigInt->accuracy(3); $x = Math::BigInt->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 423 - Math::BigInt->precision(-4); $x = Math::BigInt->bzero(); $x->precision() ok 424 - Math::BigInt->precision(-4); $x = Math::BigInt->bone(); $x->precision() ok 425 - Math::BigInt->precision(-4); $x = Math::BigInt->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 426 - Math::BigInt->accuracy(2); $x = Math::BigInt->bzero(5); $x->accuracy() ok 427 # skip 1 ok 428 - Math::BigInt->accuracy(2); $x = Math::BigInt->bone("+", 5); $x->accuracy() ok 429 # skip 1 ok 430 - Math::BigInt->accuracy(2); $x = Math::BigInt->new(2, 5); $x->accuracy() ok 431 # skip 1 # Verify that setting precision as method argument overrides class variable ok 432 - Math::BigInt->precision(-2); $x = Math::BigInt->bzero(undef, -6); $x->precision() ok 433 # skip 1 ok 434 - Math::BigInt->precision(-2); $x = Math::BigInt->bone("+", undef, -6); $x->precision() ok 435 # skip 1 ok 436 - Math::BigInt->precision(-2); $x = Math::BigInt->new(2, undef, -6); $x->precision() ok 437 # skip 1 # Verify that class accuracy is copied into new objects. ok 438 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->bzero(); $x->accuracy() ok 439 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->bone(); $x->accuracy() ok 440 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 441 - Math::BigFloat->precision(-4); $x = Math::BigFloat->bzero(); $x->precision() ok 442 - Math::BigFloat->precision(-4); $x = Math::BigFloat->bone(); $x->precision() ok 443 - Math::BigFloat->precision(-4); $x = Math::BigFloat->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 444 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->bzero(5); $x->accuracy() ok 445 # skip 1 ok 446 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->bone("+", 5); $x->accuracy() ok 447 # skip 1 ok 448 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->new(2, 5); $x->accuracy() ok 449 # skip 1 # Verify that setting precision as method argument overrides class variable ok 450 - Math::BigFloat->precision(-2); $x = Math::BigFloat->bzero(undef, -6); $x->precision() ok 451 # skip 1 ok 452 - Math::BigFloat->precision(-2); $x = Math::BigFloat->bone("+", undef, -6); $x->precision() ok 453 # skip 1 ok 454 - Math::BigFloat->precision(-2); $x = Math::BigFloat->new(2, undef, -6); $x->precision() ok 455 # skip 1 ok 456 - mixing A and P creates a NaN ok 457 - $class->new(123) = "NaN" ok 458 - mixing A and P creates a NaN ok 459 - $class->new(123) = "NaN" ok 460 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->badd($y); ok 461 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bsub($y); ok 462 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bmul($y); ok 463 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bpow($y); ok 464 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bmod($y); ok 465 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->badd($y); ok 466 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bsub($y); ok 467 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bmul($y); ok 468 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bpow($y); ok 469 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bmod($y); ok 470 - my $x = Math::BigInt->new(1234, 5, -3); ok 471 - my $x = Math::BigInt->bsqrt(1234, 5, -3); ok 472 - $x = 120 ok 473 - $x = 120 ok 474 - $x = 120 ok 475 - $x = 120 ok 476 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("123"); $x->$f($y); ok 477 - is a valid object ok 478 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 479 - is a valid object ok 480 - $x->{_a} == 3 ok 481 - $x->{_p} is undef ok 482 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("0"); $x->$f($y); ok 483 - is a valid object ok 484 - $x->{_p} == -3 ok 485 - $x->{_a} is undef ok 486 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->accuracy(3); $x->$f($y); ok 487 - is a valid object ok 488 - $x->{_a} == 3 ok 489 - $x->{_p} is undef ok 490 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->precision(-3); $x->$f($y); ok 491 - is a valid object ok 492 - $x->{_p} == -3 ok 493 - $x->{_a} is undef ok 494 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->$f($y); ok 495 - is a valid object ok 496 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 497 - is a valid object ok 498 - $x->{_a} == 3 ok 499 - $x->{_p} is undef ok 500 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("0"); $x->$f($y); ok 501 - is a valid object ok 502 - $x->{_p} == -3 ok 503 - $x->{_a} is undef ok 504 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->accuracy(3); $x->$f($y); ok 505 - is a valid object ok 506 - $x->{_a} == 3 ok 507 - $x->{_p} is undef ok 508 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->precision(-3); $x->$f($y); ok 509 - is a valid object ok 510 - $x->{_p} == -3 ok 511 - $x->{_a} is undef ok 512 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("1"); $x->$f($y); ok 513 - is a valid object ok 514 - $x->{_a} == 3 ok 515 - $x->{_p} is undef ok 516 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("1"); $x->$f($y); ok 517 - is a valid object ok 518 - $x->{_p} == -3 ok 519 - $x->{_a} is undef ok 520 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->accuracy(3); $x->$f($y); ok 521 - is a valid object ok 522 - $x->{_a} == 3 ok 523 - $x->{_p} is undef ok 524 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->precision(-3); $x->$f($y); ok 525 - is a valid object ok 526 - $x->{_p} == -3 ok 527 - $x->{_a} is undef ok 528 - $x = Math::BigInt->new("1"); $x->accuracy(3); $y = Math::BigInt->new("123"); $x->$f($y); ok 529 - is a valid object ok 530 - $x->{_a} == 3 ok 531 - $x->{_p} is undef ok 532 - $x = Math::BigInt->new("1"); $x->precision(-3); $y = Math::BigInt->new("123"); $x->$f($y); ok 533 - is a valid object ok 534 - $x->{_p} == -3 ok 535 - $x->{_a} is undef ok 536 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->accuracy(3); $x->$f($y); ok 537 - is a valid object ok 538 - $x->{_a} == 3 ok 539 - $x->{_p} is undef ok 540 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->precision(-3); $x->$f($y); ok 541 - is a valid object ok 542 - $x->{_p} == -3 ok 543 - $x->{_a} is undef ok 544 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->$f($y); ok 545 - is a valid object ok 546 - $x = Math::BigInt->new("123"); $x->accuracy(4); $y = Math::BigInt->new("1"); $x->$f($y); ok 547 - is a valid object ok 548 - $x->{_a} == 4 ok 549 - $x->{_p} is undef ok 550 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->accuracy(4); $x->$f($y); ok 551 - is a valid object ok 552 - $x->{_a} == 4 ok 553 - $x->{_p} is undef ok 554 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->precision(-4); $x->$f($y); ok 555 - is a valid object ok 556 - $x->{_p} == -4 ok 557 - $x->{_a} is undef ok 558 - $x = Math::BigInt->new("123"); $x->precision(-4); $y = Math::BigInt->new("1"); $x->$f($y); ok 559 - is a valid object ok 560 - $x->{_p} == -4 ok 561 - $x->{_a} is undef ok 562 - $x = Math::BigInt->new("1"); $x->accuracy(4); $y = Math::BigInt->new("123"); $x->$f($y); ok 563 - is a valid object ok 564 - $x->{_a} == 4 ok 565 - $x->{_p} is undef ok 566 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->accuracy(4); $x->$f($y); ok 567 - is a valid object ok 568 - $x->{_a} == 4 ok 569 - $x->{_p} is undef ok 570 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->precision(-4); $x->$f($y); ok 571 - is a valid object ok 572 - $x->{_p} == -4 ok 573 - $x->{_a} is undef ok 574 - $x = Math::BigInt->new("1"); $x->precision(-4); $y = Math::BigInt->new("123"); $x->$f($y); ok 575 - is a valid object ok 576 - $x->{_p} == -4 ok 577 - $x->{_a} is undef ok 578 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 579 - is a valid object ok 580 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 581 - is a valid object ok 582 - $x->{_a} == 1 ok 583 - $x->{_p} is undef ok 584 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 585 - is a valid object ok 586 - $x->{_a} == 1 ok 587 - $x->{_p} is undef ok 588 - $x = Math::BigInt->new("1234"); $x->precision(-1); $y = Math::BigInt->new("0"); $x->$f($y); ok 589 - is a valid object ok 590 - $x->{_p} == -1 ok 591 - $x->{_a} is undef ok 592 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(-1); $x->$f($y); ok 593 - is a valid object ok 594 - $x->{_p} == -1 ok 595 - $x->{_a} is undef ok 596 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 597 - is a valid object ok 598 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 599 - is a valid object ok 600 - $x->{_a} == 2 ok 601 - $x->{_p} is undef ok 602 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 603 - is a valid object ok 604 - $x->{_a} == 2 ok 605 - $x->{_p} is undef ok 606 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 607 - is a valid object ok 608 - $x->{_p} == 1 ok 609 - $x->{_a} is undef ok 610 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 611 - is a valid object ok 612 - $x->{_p} == 1 ok 613 - $x->{_a} is undef ok 614 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 615 - is a valid object ok 616 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 617 - is a valid object ok 618 - $x->{_a} == 1 ok 619 - $x->{_p} is undef ok 620 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 621 - is a valid object ok 622 - $x->{_a} == 1 ok 623 - $x->{_p} is undef ok 624 - $x = Math::BigInt->new("1234"); $x->precision(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 625 - is a valid object ok 626 - $x->{_p} == 3 ok 627 - $x->{_a} is undef ok 628 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(3); $x->$f($y); ok 629 - is a valid object ok 630 - $x->{_p} == 3 ok 631 - $x->{_a} is undef ok 632 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 633 - is a valid object ok 634 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 635 - is a valid object ok 636 - $x->{_a} == 2 ok 637 - $x->{_p} is undef ok 638 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 639 - is a valid object ok 640 - $x->{_a} == 2 ok 641 - $x->{_p} is undef ok 642 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 643 - is a valid object ok 644 - $x->{_p} == 1 ok 645 - $x->{_a} is undef ok 646 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 647 - is a valid object ok 648 - $x->{_p} == 1 ok 649 - $x->{_a} is undef ok 650 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFFF"); $x->$f($y); ok 651 - is a valid object ok 652 - $x->{_a} == 2 ok 653 - $x->{_p} is undef ok 654 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFFF"); $y->accuracy(2); $x->$f($y); ok 655 - is a valid object ok 656 - $x->{_a} == 2 ok 657 - $x->{_p} is undef ok 658 - $x = Math::BigInt->new("0xFF"); $x->precision(2); $y = Math::BigInt->new("0xFFF"); $x->$f($y); ok 659 - is a valid object ok 660 - $x->{_p} == 2 ok 661 - $x->{_a} is undef ok 662 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFFF"); $y->precision(2); $x->$f($y); ok 663 - is a valid object ok 664 - $x->{_p} == 2 ok 665 - $x->{_a} is undef ok 666 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 667 - is a valid object ok 668 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 669 - is a valid object ok 670 - $x->{_a} == 1 ok 671 - $x->{_p} is undef ok 672 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 673 - is a valid object ok 674 - $x->{_a} == 1 ok 675 - $x->{_p} is undef ok 676 - $x = Math::BigInt->new("1234"); $x->precision(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 677 - is a valid object ok 678 - $x->{_p} == 3 ok 679 - $x->{_a} is undef ok 680 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(3); $x->$f($y); ok 681 - is a valid object ok 682 - $x->{_p} == 3 ok 683 - $x->{_a} is undef ok 684 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 685 - is a valid object ok 686 - $x = Math::BigInt->new("250"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 687 - is a valid object ok 688 - $x->{_a} == 2 ok 689 - $x->{_p} is undef ok 690 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("250"); $y->accuracy(2); $x->$f($y); ok 691 - is a valid object ok 692 - $x->{_a} == 2 ok 693 - $x->{_p} is undef ok 694 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 695 - is a valid object ok 696 - $x->{_p} == 1 ok 697 - $x->{_a} is undef ok 698 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 699 - is a valid object ok 700 - $x->{_p} == 1 ok 701 - $x->{_a} is undef ok 702 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->$f($y); ok 703 - is a valid object ok 704 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->$f($y); ok 705 - is a valid object ok 706 - $x = Math::BigInt->new("2"); $x->accuracy(2); $y = Math::BigInt->new("0"); $x->$f($y); ok 707 - is a valid object ok 708 - $x->{_a} == 2 ok 709 - $x->{_p} is undef ok 710 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $y->accuracy(2); $x->$f($y); ok 711 - is a valid object ok 712 - $x->{_a} == 2 ok 713 - $x->{_p} is undef ok t/bdstr-mbf.t ................................. 1..460 # # $x = Math::BigFloat -> new("NaN"); $str = $x -> bdstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigFloat -> new("inf"); $str = $x -> bdstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigFloat -> new("-inf"); $str = $x -> bdstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigFloat -> new("0"); $str = $x -> bdstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $str = $x -> bdstr(); # ok 9 - input value is "0.000000000001" ok 10 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $str = $x -> bdstr(); # ok 11 - input value is "0.00000000001" ok 12 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $str = $x -> bdstr(); # ok 13 - input value is "0.0000000001" ok 14 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $str = $x -> bdstr(); # ok 15 - input value is "0.000000001" ok 16 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $str = $x -> bdstr(); # ok 17 - input value is "0.00000001" ok 18 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $str = $x -> bdstr(); # ok 19 - input value is "0.0000001" ok 20 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001"); $str = $x -> bdstr(); # ok 21 - input value is "0.000001" ok 22 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001"); $str = $x -> bdstr(); # ok 23 - input value is "0.00001" ok 24 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001"); $str = $x -> bdstr(); # ok 25 - input value is "0.0001" ok 26 - input object is unmodified # # $x = Math::BigFloat -> new("0.001"); $str = $x -> bdstr(); # ok 27 - input value is "0.001" ok 28 - input object is unmodified # # $x = Math::BigFloat -> new("0.01"); $str = $x -> bdstr(); # ok 29 - input value is "0.01" ok 30 - input object is unmodified # # $x = Math::BigFloat -> new("0.1"); $str = $x -> bdstr(); # ok 31 - input value is "0.1" ok 32 - input object is unmodified # # $x = Math::BigFloat -> new("1"); $str = $x -> bdstr(); # ok 33 - input value is "1" ok 34 - input object is unmodified # # $x = Math::BigFloat -> new("10"); $str = $x -> bdstr(); # ok 35 - input value is "10" ok 36 - input object is unmodified # # $x = Math::BigFloat -> new("100"); $str = $x -> bdstr(); # ok 37 - input value is "100" ok 38 - input object is unmodified # # $x = Math::BigFloat -> new("1000"); $str = $x -> bdstr(); # ok 39 - input value is "1000" ok 40 - input object is unmodified # # $x = Math::BigFloat -> new("10000"); $str = $x -> bdstr(); # ok 41 - input value is "10000" ok 42 - input object is unmodified # # $x = Math::BigFloat -> new("100000"); $str = $x -> bdstr(); # ok 43 - input value is "100000" ok 44 - input object is unmodified # # $x = Math::BigFloat -> new("1000000"); $str = $x -> bdstr(); # ok 45 - input value is "1000000" ok 46 - input object is unmodified # # $x = Math::BigFloat -> new("10000000"); $str = $x -> bdstr(); # ok 47 - input value is "10000000" ok 48 - input object is unmodified # # $x = Math::BigFloat -> new("100000000"); $str = $x -> bdstr(); # ok 49 - input value is "100000000" ok 50 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000"); $str = $x -> bdstr(); # ok 51 - input value is "1000000000" ok 52 - input object is unmodified # # $x = Math::BigFloat -> new("10000000000"); $str = $x -> bdstr(); # ok 53 - input value is "10000000000" ok 54 - input object is unmodified # # $x = Math::BigFloat -> new("100000000000"); $str = $x -> bdstr(); # ok 55 - input value is "100000000000" ok 56 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $str = $x -> bdstr(); # ok 57 - input value is "1000000000000" ok 58 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $str = $x -> bdstr(); # ok 59 - input value is "0.0000000000012" ok 60 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $str = $x -> bdstr(); # ok 61 - input value is "0.000000000012" ok 62 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $str = $x -> bdstr(); # ok 63 - input value is "0.00000000012" ok 64 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $str = $x -> bdstr(); # ok 65 - input value is "0.0000000012" ok 66 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $str = $x -> bdstr(); # ok 67 - input value is "0.000000012" ok 68 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $str = $x -> bdstr(); # ok 69 - input value is "0.00000012" ok 70 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $str = $x -> bdstr(); # ok 71 - input value is "0.0000012" ok 72 - input object is unmodified # # $x = Math::BigFloat -> new("0.000012"); $str = $x -> bdstr(); # ok 73 - input value is "0.000012" ok 74 - input object is unmodified # # $x = Math::BigFloat -> new("0.00012"); $str = $x -> bdstr(); # ok 75 - input value is "0.00012" ok 76 - input object is unmodified # # $x = Math::BigFloat -> new("0.0012"); $str = $x -> bdstr(); # ok 77 - input value is "0.0012" ok 78 - input object is unmodified # # $x = Math::BigFloat -> new("0.012"); $str = $x -> bdstr(); # ok 79 - input value is "0.012" ok 80 - input object is unmodified # # $x = Math::BigFloat -> new("0.12"); $str = $x -> bdstr(); # ok 81 - input value is "0.12" ok 82 - input object is unmodified # # $x = Math::BigFloat -> new("1.2"); $str = $x -> bdstr(); # ok 83 - input value is "1.2" ok 84 - input object is unmodified # # $x = Math::BigFloat -> new("12"); $str = $x -> bdstr(); # ok 85 - input value is "12" ok 86 - input object is unmodified # # $x = Math::BigFloat -> new("120"); $str = $x -> bdstr(); # ok 87 - input value is "120" ok 88 - input object is unmodified # # $x = Math::BigFloat -> new("1200"); $str = $x -> bdstr(); # ok 89 - input value is "1200" ok 90 - input object is unmodified # # $x = Math::BigFloat -> new("12000"); $str = $x -> bdstr(); # ok 91 - input value is "12000" ok 92 - input object is unmodified # # $x = Math::BigFloat -> new("120000"); $str = $x -> bdstr(); # ok 93 - input value is "120000" ok 94 - input object is unmodified # # $x = Math::BigFloat -> new("1200000"); $str = $x -> bdstr(); # ok 95 - input value is "1200000" ok 96 - input object is unmodified # # $x = Math::BigFloat -> new("12000000"); $str = $x -> bdstr(); # ok 97 - input value is "12000000" ok 98 - input object is unmodified # # $x = Math::BigFloat -> new("120000000"); $str = $x -> bdstr(); # ok 99 - input value is "120000000" ok 100 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000"); $str = $x -> bdstr(); # ok 101 - input value is "1200000000" ok 102 - input object is unmodified # # $x = Math::BigFloat -> new("12000000000"); $str = $x -> bdstr(); # ok 103 - input value is "12000000000" ok 104 - input object is unmodified # # $x = Math::BigFloat -> new("120000000000"); $str = $x -> bdstr(); # ok 105 - input value is "120000000000" ok 106 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $str = $x -> bdstr(); # ok 107 - input value is "1200000000000" ok 108 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $str = $x -> bdstr(); # ok 109 - input value is "0.00000000000123" ok 110 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $str = $x -> bdstr(); # ok 111 - input value is "0.0000000000123" ok 112 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $str = $x -> bdstr(); # ok 113 - input value is "0.000000000123" ok 114 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $str = $x -> bdstr(); # ok 115 - input value is "0.00000000123" ok 116 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $str = $x -> bdstr(); # ok 117 - input value is "0.0000000123" ok 118 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $str = $x -> bdstr(); # ok 119 - input value is "0.000000123" ok 120 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $str = $x -> bdstr(); # ok 121 - input value is "0.00000123" ok 122 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $str = $x -> bdstr(); # ok 123 - input value is "0.0000123" ok 124 - input object is unmodified # # $x = Math::BigFloat -> new("0.000123"); $str = $x -> bdstr(); # ok 125 - input value is "0.000123" ok 126 - input object is unmodified # # $x = Math::BigFloat -> new("0.00123"); $str = $x -> bdstr(); # ok 127 - input value is "0.00123" ok 128 - input object is unmodified # # $x = Math::BigFloat -> new("0.0123"); $str = $x -> bdstr(); # ok 129 - input value is "0.0123" ok 130 - input object is unmodified # # $x = Math::BigFloat -> new("0.123"); $str = $x -> bdstr(); # ok 131 - input value is "0.123" ok 132 - input object is unmodified # # $x = Math::BigFloat -> new("1.23"); $str = $x -> bdstr(); # ok 133 - input value is "1.23" ok 134 - input object is unmodified # # $x = Math::BigFloat -> new("12.3"); $str = $x -> bdstr(); # ok 135 - input value is "12.3" ok 136 - input object is unmodified # # $x = Math::BigFloat -> new("123"); $str = $x -> bdstr(); # ok 137 - input value is "123" ok 138 - input object is unmodified # # $x = Math::BigFloat -> new("1230"); $str = $x -> bdstr(); # ok 139 - input value is "1230" ok 140 - input object is unmodified # # $x = Math::BigFloat -> new("12300"); $str = $x -> bdstr(); # ok 141 - input value is "12300" ok 142 - input object is unmodified # # $x = Math::BigFloat -> new("123000"); $str = $x -> bdstr(); # ok 143 - input value is "123000" ok 144 - input object is unmodified # # $x = Math::BigFloat -> new("1230000"); $str = $x -> bdstr(); # ok 145 - input value is "1230000" ok 146 - input object is unmodified # # $x = Math::BigFloat -> new("12300000"); $str = $x -> bdstr(); # ok 147 - input value is "12300000" ok 148 - input object is unmodified # # $x = Math::BigFloat -> new("123000000"); $str = $x -> bdstr(); # ok 149 - input value is "123000000" ok 150 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000"); $str = $x -> bdstr(); # ok 151 - input value is "1230000000" ok 152 - input object is unmodified # # $x = Math::BigFloat -> new("12300000000"); $str = $x -> bdstr(); # ok 153 - input value is "12300000000" ok 154 - input object is unmodified # # $x = Math::BigFloat -> new("123000000000"); $str = $x -> bdstr(); # ok 155 - input value is "123000000000" ok 156 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $str = $x -> bdstr(); # ok 157 - input value is "1230000000000" ok 158 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $str = $x -> bdstr(); # ok 159 - input value is "0.000000000001234" ok 160 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $str = $x -> bdstr(); # ok 161 - input value is "0.00000000001234" ok 162 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $str = $x -> bdstr(); # ok 163 - input value is "0.0000000001234" ok 164 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $str = $x -> bdstr(); # ok 165 - input value is "0.000000001234" ok 166 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $str = $x -> bdstr(); # ok 167 - input value is "0.00000001234" ok 168 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $str = $x -> bdstr(); # ok 169 - input value is "0.0000001234" ok 170 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $str = $x -> bdstr(); # ok 171 - input value is "0.000001234" ok 172 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $str = $x -> bdstr(); # ok 173 - input value is "0.00001234" ok 174 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $str = $x -> bdstr(); # ok 175 - input value is "0.0001234" ok 176 - input object is unmodified # # $x = Math::BigFloat -> new("0.001234"); $str = $x -> bdstr(); # ok 177 - input value is "0.001234" ok 178 - input object is unmodified # # $x = Math::BigFloat -> new("0.01234"); $str = $x -> bdstr(); # ok 179 - input value is "0.01234" ok 180 - input object is unmodified # # $x = Math::BigFloat -> new("0.1234"); $str = $x -> bdstr(); # ok 181 - input value is "0.1234" ok 182 - input object is unmodified # # $x = Math::BigFloat -> new("1.234"); $str = $x -> bdstr(); # ok 183 - input value is "1.234" ok 184 - input object is unmodified # # $x = Math::BigFloat -> new("12.34"); $str = $x -> bdstr(); # ok 185 - input value is "12.34" ok 186 - input object is unmodified # # $x = Math::BigFloat -> new("123.4"); $str = $x -> bdstr(); # ok 187 - input value is "123.4" ok 188 - input object is unmodified # # $x = Math::BigFloat -> new("1234"); $str = $x -> bdstr(); # ok 189 - input value is "1234" ok 190 - input object is unmodified # # $x = Math::BigFloat -> new("12340"); $str = $x -> bdstr(); # ok 191 - input value is "12340" ok 192 - input object is unmodified # # $x = Math::BigFloat -> new("123400"); $str = $x -> bdstr(); # ok 193 - input value is "123400" ok 194 - input object is unmodified # # $x = Math::BigFloat -> new("1234000"); $str = $x -> bdstr(); # ok 195 - input value is "1234000" ok 196 - input object is unmodified # # $x = Math::BigFloat -> new("12340000"); $str = $x -> bdstr(); # ok 197 - input value is "12340000" ok 198 - input object is unmodified # # $x = Math::BigFloat -> new("123400000"); $str = $x -> bdstr(); # ok 199 - input value is "123400000" ok 200 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000"); $str = $x -> bdstr(); # ok 201 - input value is "1234000000" ok 202 - input object is unmodified # # $x = Math::BigFloat -> new("12340000000"); $str = $x -> bdstr(); # ok 203 - input value is "12340000000" ok 204 - input object is unmodified # # $x = Math::BigFloat -> new("123400000000"); $str = $x -> bdstr(); # ok 205 - input value is "123400000000" ok 206 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $str = $x -> bdstr(); # ok 207 - input value is "1234000000000" ok 208 - input object is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $str = $x -> bdstr(); # ok 209 - input value is "0.000003141592" ok 210 - input object is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $str = $x -> bdstr(); # ok 211 - input value is "0.00003141592" ok 212 - input object is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $str = $x -> bdstr(); # ok 213 - input value is "0.0003141592" ok 214 - input object is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $str = $x -> bdstr(); # ok 215 - input value is "0.003141592" ok 216 - input object is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $str = $x -> bdstr(); # ok 217 - input value is "0.03141592" ok 218 - input object is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $str = $x -> bdstr(); # ok 219 - input value is "0.3141592" ok 220 - input object is unmodified # # $x = Math::BigFloat -> new("3.141592"); $str = $x -> bdstr(); # ok 221 - input value is "3.141592" ok 222 - input object is unmodified # # $x = Math::BigFloat -> new("31.41592"); $str = $x -> bdstr(); # ok 223 - input value is "31.41592" ok 224 - input object is unmodified # # $x = Math::BigFloat -> new("314.1592"); $str = $x -> bdstr(); # ok 225 - input value is "314.1592" ok 226 - input object is unmodified # # $x = Math::BigFloat -> new("3141.592"); $str = $x -> bdstr(); # ok 227 - input value is "3141.592" ok 228 - input object is unmodified # # $x = Math::BigFloat -> new("31415.92"); $str = $x -> bdstr(); # ok 229 - input value is "31415.92" ok 230 - input object is unmodified # # $x = Math::BigFloat -> new("314159.2"); $str = $x -> bdstr(); # ok 231 - input value is "314159.2" ok 232 - input object is unmodified # # $x = Math::BigFloat -> new("3141592"); $str = $x -> bdstr(); # ok 233 - input value is "3141592" ok 234 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $str = $x -> bdstr(); # ok 235 - input value is "-0.000000000001" ok 236 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $str = $x -> bdstr(); # ok 237 - input value is "-0.00000000001" ok 238 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $str = $x -> bdstr(); # ok 239 - input value is "-0.0000000001" ok 240 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $str = $x -> bdstr(); # ok 241 - input value is "-0.000000001" ok 242 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $str = $x -> bdstr(); # ok 243 - input value is "-0.00000001" ok 244 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $str = $x -> bdstr(); # ok 245 - input value is "-0.0000001" ok 246 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $str = $x -> bdstr(); # ok 247 - input value is "-0.000001" ok 248 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $str = $x -> bdstr(); # ok 249 - input value is "-0.00001" ok 250 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $str = $x -> bdstr(); # ok 251 - input value is "-0.0001" ok 252 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001"); $str = $x -> bdstr(); # ok 253 - input value is "-0.001" ok 254 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01"); $str = $x -> bdstr(); # ok 255 - input value is "-0.01" ok 256 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1"); $str = $x -> bdstr(); # ok 257 - input value is "-0.1" ok 258 - input object is unmodified # # $x = Math::BigFloat -> new("-1"); $str = $x -> bdstr(); # ok 259 - input value is "-1" ok 260 - input object is unmodified # # $x = Math::BigFloat -> new("-10"); $str = $x -> bdstr(); # ok 261 - input value is "-10" ok 262 - input object is unmodified # # $x = Math::BigFloat -> new("-100"); $str = $x -> bdstr(); # ok 263 - input value is "-100" ok 264 - input object is unmodified # # $x = Math::BigFloat -> new("-1000"); $str = $x -> bdstr(); # ok 265 - input value is "-1000" ok 266 - input object is unmodified # # $x = Math::BigFloat -> new("-10000"); $str = $x -> bdstr(); # ok 267 - input value is "-10000" ok 268 - input object is unmodified # # $x = Math::BigFloat -> new("-100000"); $str = $x -> bdstr(); # ok 269 - input value is "-100000" ok 270 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000"); $str = $x -> bdstr(); # ok 271 - input value is "-1000000" ok 272 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000"); $str = $x -> bdstr(); # ok 273 - input value is "-10000000" ok 274 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000"); $str = $x -> bdstr(); # ok 275 - input value is "-100000000" ok 276 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $str = $x -> bdstr(); # ok 277 - input value is "-1000000000" ok 278 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $str = $x -> bdstr(); # ok 279 - input value is "-10000000000" ok 280 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $str = $x -> bdstr(); # ok 281 - input value is "-100000000000" ok 282 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $str = $x -> bdstr(); # ok 283 - input value is "-1000000000000" ok 284 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $str = $x -> bdstr(); # ok 285 - input value is "-0.0000000000012" ok 286 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $str = $x -> bdstr(); # ok 287 - input value is "-0.000000000012" ok 288 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $str = $x -> bdstr(); # ok 289 - input value is "-0.00000000012" ok 290 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $str = $x -> bdstr(); # ok 291 - input value is "-0.0000000012" ok 292 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $str = $x -> bdstr(); # ok 293 - input value is "-0.000000012" ok 294 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $str = $x -> bdstr(); # ok 295 - input value is "-0.00000012" ok 296 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $str = $x -> bdstr(); # ok 297 - input value is "-0.0000012" ok 298 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $str = $x -> bdstr(); # ok 299 - input value is "-0.000012" ok 300 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $str = $x -> bdstr(); # ok 301 - input value is "-0.00012" ok 302 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $str = $x -> bdstr(); # ok 303 - input value is "-0.0012" ok 304 - input object is unmodified # # $x = Math::BigFloat -> new("-0.012"); $str = $x -> bdstr(); # ok 305 - input value is "-0.012" ok 306 - input object is unmodified # # $x = Math::BigFloat -> new("-0.12"); $str = $x -> bdstr(); # ok 307 - input value is "-0.12" ok 308 - input object is unmodified # # $x = Math::BigFloat -> new("-1.2"); $str = $x -> bdstr(); # ok 309 - input value is "-1.2" ok 310 - input object is unmodified # # $x = Math::BigFloat -> new("-12"); $str = $x -> bdstr(); # ok 311 - input value is "-12" ok 312 - input object is unmodified # # $x = Math::BigFloat -> new("-120"); $str = $x -> bdstr(); # ok 313 - input value is "-120" ok 314 - input object is unmodified # # $x = Math::BigFloat -> new("-1200"); $str = $x -> bdstr(); # ok 315 - input value is "-1200" ok 316 - input object is unmodified # # $x = Math::BigFloat -> new("-12000"); $str = $x -> bdstr(); # ok 317 - input value is "-12000" ok 318 - input object is unmodified # # $x = Math::BigFloat -> new("-120000"); $str = $x -> bdstr(); # ok 319 - input value is "-120000" ok 320 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000"); $str = $x -> bdstr(); # ok 321 - input value is "-1200000" ok 322 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000"); $str = $x -> bdstr(); # ok 323 - input value is "-12000000" ok 324 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000"); $str = $x -> bdstr(); # ok 325 - input value is "-120000000" ok 326 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $str = $x -> bdstr(); # ok 327 - input value is "-1200000000" ok 328 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $str = $x -> bdstr(); # ok 329 - input value is "-12000000000" ok 330 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $str = $x -> bdstr(); # ok 331 - input value is "-120000000000" ok 332 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $str = $x -> bdstr(); # ok 333 - input value is "-1200000000000" ok 334 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $str = $x -> bdstr(); # ok 335 - input value is "-0.00000000000123" ok 336 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $str = $x -> bdstr(); # ok 337 - input value is "-0.0000000000123" ok 338 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $str = $x -> bdstr(); # ok 339 - input value is "-0.000000000123" ok 340 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $str = $x -> bdstr(); # ok 341 - input value is "-0.00000000123" ok 342 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $str = $x -> bdstr(); # ok 343 - input value is "-0.0000000123" ok 344 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $str = $x -> bdstr(); # ok 345 - input value is "-0.000000123" ok 346 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $str = $x -> bdstr(); # ok 347 - input value is "-0.00000123" ok 348 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $str = $x -> bdstr(); # ok 349 - input value is "-0.0000123" ok 350 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $str = $x -> bdstr(); # ok 351 - input value is "-0.000123" ok 352 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $str = $x -> bdstr(); # ok 353 - input value is "-0.00123" ok 354 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $str = $x -> bdstr(); # ok 355 - input value is "-0.0123" ok 356 - input object is unmodified # # $x = Math::BigFloat -> new("-0.123"); $str = $x -> bdstr(); # ok 357 - input value is "-0.123" ok 358 - input object is unmodified # # $x = Math::BigFloat -> new("-1.23"); $str = $x -> bdstr(); # ok 359 - input value is "-1.23" ok 360 - input object is unmodified # # $x = Math::BigFloat -> new("-12.3"); $str = $x -> bdstr(); # ok 361 - input value is "-12.3" ok 362 - input object is unmodified # # $x = Math::BigFloat -> new("-123"); $str = $x -> bdstr(); # ok 363 - input value is "-123" ok 364 - input object is unmodified # # $x = Math::BigFloat -> new("-1230"); $str = $x -> bdstr(); # ok 365 - input value is "-1230" ok 366 - input object is unmodified # # $x = Math::BigFloat -> new("-12300"); $str = $x -> bdstr(); # ok 367 - input value is "-12300" ok 368 - input object is unmodified # # $x = Math::BigFloat -> new("-123000"); $str = $x -> bdstr(); # ok 369 - input value is "-123000" ok 370 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000"); $str = $x -> bdstr(); # ok 371 - input value is "-1230000" ok 372 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000"); $str = $x -> bdstr(); # ok 373 - input value is "-12300000" ok 374 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000"); $str = $x -> bdstr(); # ok 375 - input value is "-123000000" ok 376 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $str = $x -> bdstr(); # ok 377 - input value is "-1230000000" ok 378 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $str = $x -> bdstr(); # ok 379 - input value is "-12300000000" ok 380 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $str = $x -> bdstr(); # ok 381 - input value is "-123000000000" ok 382 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $str = $x -> bdstr(); # ok 383 - input value is "-1230000000000" ok 384 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $str = $x -> bdstr(); # ok 385 - input value is "-0.000000000001234" ok 386 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $str = $x -> bdstr(); # ok 387 - input value is "-0.00000000001234" ok 388 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $str = $x -> bdstr(); # ok 389 - input value is "-0.0000000001234" ok 390 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $str = $x -> bdstr(); # ok 391 - input value is "-0.000000001234" ok 392 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $str = $x -> bdstr(); # ok 393 - input value is "-0.00000001234" ok 394 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $str = $x -> bdstr(); # ok 395 - input value is "-0.0000001234" ok 396 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $str = $x -> bdstr(); # ok 397 - input value is "-0.000001234" ok 398 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $str = $x -> bdstr(); # ok 399 - input value is "-0.00001234" ok 400 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $str = $x -> bdstr(); # ok 401 - input value is "-0.0001234" ok 402 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $str = $x -> bdstr(); # ok 403 - input value is "-0.001234" ok 404 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $str = $x -> bdstr(); # ok 405 - input value is "-0.01234" ok 406 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $str = $x -> bdstr(); # ok 407 - input value is "-0.1234" ok 408 - input object is unmodified # # $x = Math::BigFloat -> new("-1.234"); $str = $x -> bdstr(); # ok 409 - input value is "-1.234" ok 410 - input object is unmodified # # $x = Math::BigFloat -> new("-12.34"); $str = $x -> bdstr(); # ok 411 - input value is "-12.34" ok 412 - input object is unmodified # # $x = Math::BigFloat -> new("-123.4"); $str = $x -> bdstr(); # ok 413 - input value is "-123.4" ok 414 - input object is unmodified # # $x = Math::BigFloat -> new("-1234"); $str = $x -> bdstr(); # ok 415 - input value is "-1234" ok 416 - input object is unmodified # # $x = Math::BigFloat -> new("-12340"); $str = $x -> bdstr(); # ok 417 - input value is "-12340" ok 418 - input object is unmodified # # $x = Math::BigFloat -> new("-123400"); $str = $x -> bdstr(); # ok 419 - input value is "-123400" ok 420 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000"); $str = $x -> bdstr(); # ok 421 - input value is "-1234000" ok 422 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000"); $str = $x -> bdstr(); # ok 423 - input value is "-12340000" ok 424 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000"); $str = $x -> bdstr(); # ok 425 - input value is "-123400000" ok 426 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $str = $x -> bdstr(); # ok 427 - input value is "-1234000000" ok 428 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $str = $x -> bdstr(); # ok 429 - input value is "-12340000000" ok 430 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $str = $x -> bdstr(); # ok 431 - input value is "-123400000000" ok 432 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $str = $x -> bdstr(); # ok 433 - input value is "-1234000000000" ok 434 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $str = $x -> bdstr(); # ok 435 - input value is "-0.000003141592" ok 436 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $str = $x -> bdstr(); # ok 437 - input value is "-0.00003141592" ok 438 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $str = $x -> bdstr(); # ok 439 - input value is "-0.0003141592" ok 440 - input object is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $str = $x -> bdstr(); # ok 441 - input value is "-0.003141592" ok 442 - input object is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $str = $x -> bdstr(); # ok 443 - input value is "-0.03141592" ok 444 - input object is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $str = $x -> bdstr(); # ok 445 - input value is "-0.3141592" ok 446 - input object is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $str = $x -> bdstr(); # ok 447 - input value is "-3.141592" ok 448 - input object is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $str = $x -> bdstr(); # ok 449 - input value is "-31.41592" ok 450 - input object is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $str = $x -> bdstr(); # ok 451 - input value is "-314.1592" ok 452 - input object is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $str = $x -> bdstr(); # ok 453 - input value is "-3141.592" ok 454 - input object is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $str = $x -> bdstr(); # ok 455 - input value is "-31415.92" ok 456 - input object is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $str = $x -> bdstr(); # ok 457 - input value is "-314159.2" ok 458 - input object is unmodified # # $x = Math::BigFloat -> new("-3141592"); $str = $x -> bdstr(); # ok 459 - input value is "-3141592" ok 460 - input object is unmodified ok t/bdstr-mbi.t ................................. 1..220 # # $x = Math::BigInt -> new("NaN"); $str = $x -> bdstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigInt -> new("inf"); $str = $x -> bdstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigInt -> new("-inf"); $str = $x -> bdstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigInt -> new("0"); $str = $x -> bdstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigInt -> new("1"); $str = $x -> bdstr(); # ok 9 - input value is "1" ok 10 - input object is unmodified # # $x = Math::BigInt -> new("10"); $str = $x -> bdstr(); # ok 11 - input value is "10" ok 12 - input object is unmodified # # $x = Math::BigInt -> new("100"); $str = $x -> bdstr(); # ok 13 - input value is "100" ok 14 - input object is unmodified # # $x = Math::BigInt -> new("1000"); $str = $x -> bdstr(); # ok 15 - input value is "1000" ok 16 - input object is unmodified # # $x = Math::BigInt -> new("10000"); $str = $x -> bdstr(); # ok 17 - input value is "10000" ok 18 - input object is unmodified # # $x = Math::BigInt -> new("100000"); $str = $x -> bdstr(); # ok 19 - input value is "100000" ok 20 - input object is unmodified # # $x = Math::BigInt -> new("1000000"); $str = $x -> bdstr(); # ok 21 - input value is "1000000" ok 22 - input object is unmodified # # $x = Math::BigInt -> new("10000000"); $str = $x -> bdstr(); # ok 23 - input value is "10000000" ok 24 - input object is unmodified # # $x = Math::BigInt -> new("100000000"); $str = $x -> bdstr(); # ok 25 - input value is "100000000" ok 26 - input object is unmodified # # $x = Math::BigInt -> new("1000000000"); $str = $x -> bdstr(); # ok 27 - input value is "1000000000" ok 28 - input object is unmodified # # $x = Math::BigInt -> new("10000000000"); $str = $x -> bdstr(); # ok 29 - input value is "10000000000" ok 30 - input object is unmodified # # $x = Math::BigInt -> new("100000000000"); $str = $x -> bdstr(); # ok 31 - input value is "100000000000" ok 32 - input object is unmodified # # $x = Math::BigInt -> new("1000000000000"); $str = $x -> bdstr(); # ok 33 - input value is "1000000000000" ok 34 - input object is unmodified # # $x = Math::BigInt -> new("12"); $str = $x -> bdstr(); # ok 35 - input value is "12" ok 36 - input object is unmodified # # $x = Math::BigInt -> new("120"); $str = $x -> bdstr(); # ok 37 - input value is "120" ok 38 - input object is unmodified # # $x = Math::BigInt -> new("1200"); $str = $x -> bdstr(); # ok 39 - input value is "1200" ok 40 - input object is unmodified # # $x = Math::BigInt -> new("12000"); $str = $x -> bdstr(); # ok 41 - input value is "12000" ok 42 - input object is unmodified # # $x = Math::BigInt -> new("120000"); $str = $x -> bdstr(); # ok 43 - input value is "120000" ok 44 - input object is unmodified # # $x = Math::BigInt -> new("1200000"); $str = $x -> bdstr(); # ok 45 - input value is "1200000" ok 46 - input object is unmodified # # $x = Math::BigInt -> new("12000000"); $str = $x -> bdstr(); # ok 47 - input value is "12000000" ok 48 - input object is unmodified # # $x = Math::BigInt -> new("120000000"); $str = $x -> bdstr(); # ok 49 - input value is "120000000" ok 50 - input object is unmodified # # $x = Math::BigInt -> new("1200000000"); $str = $x -> bdstr(); # ok 51 - input value is "1200000000" ok 52 - input object is unmodified # # $x = Math::BigInt -> new("12000000000"); $str = $x -> bdstr(); # ok 53 - input value is "12000000000" ok 54 - input object is unmodified # # $x = Math::BigInt -> new("120000000000"); $str = $x -> bdstr(); # ok 55 - input value is "120000000000" ok 56 - input object is unmodified # # $x = Math::BigInt -> new("1200000000000"); $str = $x -> bdstr(); # ok 57 - input value is "1200000000000" ok 58 - input object is unmodified # # $x = Math::BigInt -> new("123"); $str = $x -> bdstr(); # ok 59 - input value is "123" ok 60 - input object is unmodified # # $x = Math::BigInt -> new("1230"); $str = $x -> bdstr(); # ok 61 - input value is "1230" ok 62 - input object is unmodified # # $x = Math::BigInt -> new("12300"); $str = $x -> bdstr(); # ok 63 - input value is "12300" ok 64 - input object is unmodified # # $x = Math::BigInt -> new("123000"); $str = $x -> bdstr(); # ok 65 - input value is "123000" ok 66 - input object is unmodified # # $x = Math::BigInt -> new("1230000"); $str = $x -> bdstr(); # ok 67 - input value is "1230000" ok 68 - input object is unmodified # # $x = Math::BigInt -> new("12300000"); $str = $x -> bdstr(); # ok 69 - input value is "12300000" ok 70 - input object is unmodified # # $x = Math::BigInt -> new("123000000"); $str = $x -> bdstr(); # ok 71 - input value is "123000000" ok 72 - input object is unmodified # # $x = Math::BigInt -> new("1230000000"); $str = $x -> bdstr(); # ok 73 - input value is "1230000000" ok 74 - input object is unmodified # # $x = Math::BigInt -> new("12300000000"); $str = $x -> bdstr(); # ok 75 - input value is "12300000000" ok 76 - input object is unmodified # # $x = Math::BigInt -> new("123000000000"); $str = $x -> bdstr(); # ok 77 - input value is "123000000000" ok 78 - input object is unmodified # # $x = Math::BigInt -> new("1230000000000"); $str = $x -> bdstr(); # ok 79 - input value is "1230000000000" ok 80 - input object is unmodified # # $x = Math::BigInt -> new("1234"); $str = $x -> bdstr(); # ok 81 - input value is "1234" ok 82 - input object is unmodified # # $x = Math::BigInt -> new("12340"); $str = $x -> bdstr(); # ok 83 - input value is "12340" ok 84 - input object is unmodified # # $x = Math::BigInt -> new("123400"); $str = $x -> bdstr(); # ok 85 - input value is "123400" ok 86 - input object is unmodified # # $x = Math::BigInt -> new("1234000"); $str = $x -> bdstr(); # ok 87 - input value is "1234000" ok 88 - input object is unmodified # # $x = Math::BigInt -> new("12340000"); $str = $x -> bdstr(); # ok 89 - input value is "12340000" ok 90 - input object is unmodified # # $x = Math::BigInt -> new("123400000"); $str = $x -> bdstr(); # ok 91 - input value is "123400000" ok 92 - input object is unmodified # # $x = Math::BigInt -> new("1234000000"); $str = $x -> bdstr(); # ok 93 - input value is "1234000000" ok 94 - input object is unmodified # # $x = Math::BigInt -> new("12340000000"); $str = $x -> bdstr(); # ok 95 - input value is "12340000000" ok 96 - input object is unmodified # # $x = Math::BigInt -> new("123400000000"); $str = $x -> bdstr(); # ok 97 - input value is "123400000000" ok 98 - input object is unmodified # # $x = Math::BigInt -> new("1234000000000"); $str = $x -> bdstr(); # ok 99 - input value is "1234000000000" ok 100 - input object is unmodified # # $x = Math::BigInt -> new("3"); $str = $x -> bdstr(); # ok 101 - input value is "3" ok 102 - input object is unmodified # # $x = Math::BigInt -> new("31"); $str = $x -> bdstr(); # ok 103 - input value is "31" ok 104 - input object is unmodified # # $x = Math::BigInt -> new("314"); $str = $x -> bdstr(); # ok 105 - input value is "314" ok 106 - input object is unmodified # # $x = Math::BigInt -> new("3141"); $str = $x -> bdstr(); # ok 107 - input value is "3141" ok 108 - input object is unmodified # # $x = Math::BigInt -> new("31415"); $str = $x -> bdstr(); # ok 109 - input value is "31415" ok 110 - input object is unmodified # # $x = Math::BigInt -> new("314159"); $str = $x -> bdstr(); # ok 111 - input value is "314159" ok 112 - input object is unmodified # # $x = Math::BigInt -> new("3141592"); $str = $x -> bdstr(); # ok 113 - input value is "3141592" ok 114 - input object is unmodified # # $x = Math::BigInt -> new("-1"); $str = $x -> bdstr(); # ok 115 - input value is "-1" ok 116 - input object is unmodified # # $x = Math::BigInt -> new("-10"); $str = $x -> bdstr(); # ok 117 - input value is "-10" ok 118 - input object is unmodified # # $x = Math::BigInt -> new("-100"); $str = $x -> bdstr(); # ok 119 - input value is "-100" ok 120 - input object is unmodified # # $x = Math::BigInt -> new("-1000"); $str = $x -> bdstr(); # ok 121 - input value is "-1000" ok 122 - input object is unmodified # # $x = Math::BigInt -> new("-10000"); $str = $x -> bdstr(); # ok 123 - input value is "-10000" ok 124 - input object is unmodified # # $x = Math::BigInt -> new("-100000"); $str = $x -> bdstr(); # ok 125 - input value is "-100000" ok 126 - input object is unmodified # # $x = Math::BigInt -> new("-1000000"); $str = $x -> bdstr(); # ok 127 - input value is "-1000000" ok 128 - input object is unmodified # # $x = Math::BigInt -> new("-10000000"); $str = $x -> bdstr(); # ok 129 - input value is "-10000000" ok 130 - input object is unmodified # # $x = Math::BigInt -> new("-100000000"); $str = $x -> bdstr(); # ok 131 - input value is "-100000000" ok 132 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000"); $str = $x -> bdstr(); # ok 133 - input value is "-1000000000" ok 134 - input object is unmodified # # $x = Math::BigInt -> new("-10000000000"); $str = $x -> bdstr(); # ok 135 - input value is "-10000000000" ok 136 - input object is unmodified # # $x = Math::BigInt -> new("-100000000000"); $str = $x -> bdstr(); # ok 137 - input value is "-100000000000" ok 138 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $str = $x -> bdstr(); # ok 139 - input value is "-1000000000000" ok 140 - input object is unmodified # # $x = Math::BigInt -> new("-12"); $str = $x -> bdstr(); # ok 141 - input value is "-12" ok 142 - input object is unmodified # # $x = Math::BigInt -> new("-120"); $str = $x -> bdstr(); # ok 143 - input value is "-120" ok 144 - input object is unmodified # # $x = Math::BigInt -> new("-1200"); $str = $x -> bdstr(); # ok 145 - input value is "-1200" ok 146 - input object is unmodified # # $x = Math::BigInt -> new("-12000"); $str = $x -> bdstr(); # ok 147 - input value is "-12000" ok 148 - input object is unmodified # # $x = Math::BigInt -> new("-120000"); $str = $x -> bdstr(); # ok 149 - input value is "-120000" ok 150 - input object is unmodified # # $x = Math::BigInt -> new("-1200000"); $str = $x -> bdstr(); # ok 151 - input value is "-1200000" ok 152 - input object is unmodified # # $x = Math::BigInt -> new("-12000000"); $str = $x -> bdstr(); # ok 153 - input value is "-12000000" ok 154 - input object is unmodified # # $x = Math::BigInt -> new("-120000000"); $str = $x -> bdstr(); # ok 155 - input value is "-120000000" ok 156 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000"); $str = $x -> bdstr(); # ok 157 - input value is "-1200000000" ok 158 - input object is unmodified # # $x = Math::BigInt -> new("-12000000000"); $str = $x -> bdstr(); # ok 159 - input value is "-12000000000" ok 160 - input object is unmodified # # $x = Math::BigInt -> new("-120000000000"); $str = $x -> bdstr(); # ok 161 - input value is "-120000000000" ok 162 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $str = $x -> bdstr(); # ok 163 - input value is "-1200000000000" ok 164 - input object is unmodified # # $x = Math::BigInt -> new("-123"); $str = $x -> bdstr(); # ok 165 - input value is "-123" ok 166 - input object is unmodified # # $x = Math::BigInt -> new("-1230"); $str = $x -> bdstr(); # ok 167 - input value is "-1230" ok 168 - input object is unmodified # # $x = Math::BigInt -> new("-12300"); $str = $x -> bdstr(); # ok 169 - input value is "-12300" ok 170 - input object is unmodified # # $x = Math::BigInt -> new("-123000"); $str = $x -> bdstr(); # ok 171 - input value is "-123000" ok 172 - input object is unmodified # # $x = Math::BigInt -> new("-1230000"); $str = $x -> bdstr(); # ok 173 - input value is "-1230000" ok 174 - input object is unmodified # # $x = Math::BigInt -> new("-12300000"); $str = $x -> bdstr(); # ok 175 - input value is "-12300000" ok 176 - input object is unmodified # # $x = Math::BigInt -> new("-123000000"); $str = $x -> bdstr(); # ok 177 - input value is "-123000000" ok 178 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000"); $str = $x -> bdstr(); # ok 179 - input value is "-1230000000" ok 180 - input object is unmodified # # $x = Math::BigInt -> new("-12300000000"); $str = $x -> bdstr(); # ok 181 - input value is "-12300000000" ok 182 - input object is unmodified # # $x = Math::BigInt -> new("-123000000000"); $str = $x -> bdstr(); # ok 183 - input value is "-123000000000" ok 184 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $str = $x -> bdstr(); # ok 185 - input value is "-1230000000000" ok 186 - input object is unmodified # # $x = Math::BigInt -> new("-1234"); $str = $x -> bdstr(); # ok 187 - input value is "-1234" ok 188 - input object is unmodified # # $x = Math::BigInt -> new("-12340"); $str = $x -> bdstr(); # ok 189 - input value is "-12340" ok 190 - input object is unmodified # # $x = Math::BigInt -> new("-123400"); $str = $x -> bdstr(); # ok 191 - input value is "-123400" ok 192 - input object is unmodified # # $x = Math::BigInt -> new("-1234000"); $str = $x -> bdstr(); # ok 193 - input value is "-1234000" ok 194 - input object is unmodified # # $x = Math::BigInt -> new("-12340000"); $str = $x -> bdstr(); # ok 195 - input value is "-12340000" ok 196 - input object is unmodified # # $x = Math::BigInt -> new("-123400000"); $str = $x -> bdstr(); # ok 197 - input value is "-123400000" ok 198 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000"); $str = $x -> bdstr(); # ok 199 - input value is "-1234000000" ok 200 - input object is unmodified # # $x = Math::BigInt -> new("-12340000000"); $str = $x -> bdstr(); # ok 201 - input value is "-12340000000" ok 202 - input object is unmodified # # $x = Math::BigInt -> new("-123400000000"); $str = $x -> bdstr(); # ok 203 - input value is "-123400000000" ok 204 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $str = $x -> bdstr(); # ok 205 - input value is "-1234000000000" ok 206 - input object is unmodified # # $x = Math::BigInt -> new("-3"); $str = $x -> bdstr(); # ok 207 - input value is "-3" ok 208 - input object is unmodified # # $x = Math::BigInt -> new("-31"); $str = $x -> bdstr(); # ok 209 - input value is "-31" ok 210 - input object is unmodified # # $x = Math::BigInt -> new("-314"); $str = $x -> bdstr(); # ok 211 - input value is "-314" ok 212 - input object is unmodified # # $x = Math::BigInt -> new("-3141"); $str = $x -> bdstr(); # ok 213 - input value is "-3141" ok 214 - input object is unmodified # # $x = Math::BigInt -> new("-31415"); $str = $x -> bdstr(); # ok 215 - input value is "-31415" ok 216 - input object is unmodified # # $x = Math::BigInt -> new("-314159"); $str = $x -> bdstr(); # ok 217 - input value is "-314159" ok 218 - input object is unmodified # # $x = Math::BigInt -> new("-3141592"); $str = $x -> bdstr(); # ok 219 - input value is "-3141592" ok 220 - input object is unmodified ok t/bestr-mbf.t ................................. 1..460 # # $x = Math::BigFloat -> new("NaN"); $str = $x -> bestr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigFloat -> new("inf"); $str = $x -> bestr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigFloat -> new("-inf"); $str = $x -> bestr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigFloat -> new("0"); $str = $x -> bestr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $str = $x -> bestr(); # ok 9 - input value is "0.000000000001" ok 10 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $str = $x -> bestr(); # ok 11 - input value is "0.00000000001" ok 12 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $str = $x -> bestr(); # ok 13 - input value is "0.0000000001" ok 14 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $str = $x -> bestr(); # ok 15 - input value is "0.000000001" ok 16 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $str = $x -> bestr(); # ok 17 - input value is "0.00000001" ok 18 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $str = $x -> bestr(); # ok 19 - input value is "0.0000001" ok 20 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001"); $str = $x -> bestr(); # ok 21 - input value is "0.000001" ok 22 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001"); $str = $x -> bestr(); # ok 23 - input value is "0.00001" ok 24 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001"); $str = $x -> bestr(); # ok 25 - input value is "0.0001" ok 26 - input object is unmodified # # $x = Math::BigFloat -> new("0.001"); $str = $x -> bestr(); # ok 27 - input value is "0.001" ok 28 - input object is unmodified # # $x = Math::BigFloat -> new("0.01"); $str = $x -> bestr(); # ok 29 - input value is "0.01" ok 30 - input object is unmodified # # $x = Math::BigFloat -> new("0.1"); $str = $x -> bestr(); # ok 31 - input value is "0.1" ok 32 - input object is unmodified # # $x = Math::BigFloat -> new("1"); $str = $x -> bestr(); # ok 33 - input value is "1" ok 34 - input object is unmodified # # $x = Math::BigFloat -> new("10"); $str = $x -> bestr(); # ok 35 - input value is "10" ok 36 - input object is unmodified # # $x = Math::BigFloat -> new("100"); $str = $x -> bestr(); # ok 37 - input value is "100" ok 38 - input object is unmodified # # $x = Math::BigFloat -> new("1000"); $str = $x -> bestr(); # ok 39 - input value is "1000" ok 40 - input object is unmodified # # $x = Math::BigFloat -> new("10000"); $str = $x -> bestr(); # ok 41 - input value is "10000" ok 42 - input object is unmodified # # $x = Math::BigFloat -> new("100000"); $str = $x -> bestr(); # ok 43 - input value is "100000" ok 44 - input object is unmodified # # $x = Math::BigFloat -> new("1000000"); $str = $x -> bestr(); # ok 45 - input value is "1000000" ok 46 - input object is unmodified # # $x = Math::BigFloat -> new("10000000"); $str = $x -> bestr(); # ok 47 - input value is "10000000" ok 48 - input object is unmodified # # $x = Math::BigFloat -> new("100000000"); $str = $x -> bestr(); # ok 49 - input value is "100000000" ok 50 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000"); $str = $x -> bestr(); # ok 51 - input value is "1000000000" ok 52 - input object is unmodified # # $x = Math::BigFloat -> new("10000000000"); $str = $x -> bestr(); # ok 53 - input value is "10000000000" ok 54 - input object is unmodified # # $x = Math::BigFloat -> new("100000000000"); $str = $x -> bestr(); # ok 55 - input value is "100000000000" ok 56 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $str = $x -> bestr(); # ok 57 - input value is "1000000000000" ok 58 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $str = $x -> bestr(); # ok 59 - input value is "0.0000000000012" ok 60 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $str = $x -> bestr(); # ok 61 - input value is "0.000000000012" ok 62 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $str = $x -> bestr(); # ok 63 - input value is "0.00000000012" ok 64 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $str = $x -> bestr(); # ok 65 - input value is "0.0000000012" ok 66 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $str = $x -> bestr(); # ok 67 - input value is "0.000000012" ok 68 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $str = $x -> bestr(); # ok 69 - input value is "0.00000012" ok 70 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $str = $x -> bestr(); # ok 71 - input value is "0.0000012" ok 72 - input object is unmodified # # $x = Math::BigFloat -> new("0.000012"); $str = $x -> bestr(); # ok 73 - input value is "0.000012" ok 74 - input object is unmodified # # $x = Math::BigFloat -> new("0.00012"); $str = $x -> bestr(); # ok 75 - input value is "0.00012" ok 76 - input object is unmodified # # $x = Math::BigFloat -> new("0.0012"); $str = $x -> bestr(); # ok 77 - input value is "0.0012" ok 78 - input object is unmodified # # $x = Math::BigFloat -> new("0.012"); $str = $x -> bestr(); # ok 79 - input value is "0.012" ok 80 - input object is unmodified # # $x = Math::BigFloat -> new("0.12"); $str = $x -> bestr(); # ok 81 - input value is "0.12" ok 82 - input object is unmodified # # $x = Math::BigFloat -> new("1.2"); $str = $x -> bestr(); # ok 83 - input value is "1.2" ok 84 - input object is unmodified # # $x = Math::BigFloat -> new("12"); $str = $x -> bestr(); # ok 85 - input value is "12" ok 86 - input object is unmodified # # $x = Math::BigFloat -> new("120"); $str = $x -> bestr(); # ok 87 - input value is "120" ok 88 - input object is unmodified # # $x = Math::BigFloat -> new("1200"); $str = $x -> bestr(); # ok 89 - input value is "1200" ok 90 - input object is unmodified # # $x = Math::BigFloat -> new("12000"); $str = $x -> bestr(); # ok 91 - input value is "12000" ok 92 - input object is unmodified # # $x = Math::BigFloat -> new("120000"); $str = $x -> bestr(); # ok 93 - input value is "120000" ok 94 - input object is unmodified # # $x = Math::BigFloat -> new("1200000"); $str = $x -> bestr(); # ok 95 - input value is "1200000" ok 96 - input object is unmodified # # $x = Math::BigFloat -> new("12000000"); $str = $x -> bestr(); # ok 97 - input value is "12000000" ok 98 - input object is unmodified # # $x = Math::BigFloat -> new("120000000"); $str = $x -> bestr(); # ok 99 - input value is "120000000" ok 100 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000"); $str = $x -> bestr(); # ok 101 - input value is "1200000000" ok 102 - input object is unmodified # # $x = Math::BigFloat -> new("12000000000"); $str = $x -> bestr(); # ok 103 - input value is "12000000000" ok 104 - input object is unmodified # # $x = Math::BigFloat -> new("120000000000"); $str = $x -> bestr(); # ok 105 - input value is "120000000000" ok 106 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $str = $x -> bestr(); # ok 107 - input value is "1200000000000" ok 108 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $str = $x -> bestr(); # ok 109 - input value is "0.00000000000123" ok 110 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $str = $x -> bestr(); # ok 111 - input value is "0.0000000000123" ok 112 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $str = $x -> bestr(); # ok 113 - input value is "0.000000000123" ok 114 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $str = $x -> bestr(); # ok 115 - input value is "0.00000000123" ok 116 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $str = $x -> bestr(); # ok 117 - input value is "0.0000000123" ok 118 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $str = $x -> bestr(); # ok 119 - input value is "0.000000123" ok 120 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $str = $x -> bestr(); # ok 121 - input value is "0.00000123" ok 122 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $str = $x -> bestr(); # ok 123 - input value is "0.0000123" ok 124 - input object is unmodified # # $x = Math::BigFloat -> new("0.000123"); $str = $x -> bestr(); # ok 125 - input value is "0.000123" ok 126 - input object is unmodified # # $x = Math::BigFloat -> new("0.00123"); $str = $x -> bestr(); # ok 127 - input value is "0.00123" ok 128 - input object is unmodified # # $x = Math::BigFloat -> new("0.0123"); $str = $x -> bestr(); # ok 129 - input value is "0.0123" ok 130 - input object is unmodified # # $x = Math::BigFloat -> new("0.123"); $str = $x -> bestr(); # ok 131 - input value is "0.123" ok 132 - input object is unmodified # # $x = Math::BigFloat -> new("1.23"); $str = $x -> bestr(); # ok 133 - input value is "1.23" ok 134 - input object is unmodified # # $x = Math::BigFloat -> new("12.3"); $str = $x -> bestr(); # ok 135 - input value is "12.3" ok 136 - input object is unmodified # # $x = Math::BigFloat -> new("123"); $str = $x -> bestr(); # ok 137 - input value is "123" ok 138 - input object is unmodified # # $x = Math::BigFloat -> new("1230"); $str = $x -> bestr(); # ok 139 - input value is "1230" ok 140 - input object is unmodified # # $x = Math::BigFloat -> new("12300"); $str = $x -> bestr(); # ok 141 - input value is "12300" ok 142 - input object is unmodified # # $x = Math::BigFloat -> new("123000"); $str = $x -> bestr(); # ok 143 - input value is "123000" ok 144 - input object is unmodified # # $x = Math::BigFloat -> new("1230000"); $str = $x -> bestr(); # ok 145 - input value is "1230000" ok 146 - input object is unmodified # # $x = Math::BigFloat -> new("12300000"); $str = $x -> bestr(); # ok 147 - input value is "12300000" ok 148 - input object is unmodified # # $x = Math::BigFloat -> new("123000000"); $str = $x -> bestr(); # ok 149 - input value is "123000000" ok 150 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000"); $str = $x -> bestr(); # ok 151 - input value is "1230000000" ok 152 - input object is unmodified # # $x = Math::BigFloat -> new("12300000000"); $str = $x -> bestr(); # ok 153 - input value is "12300000000" ok 154 - input object is unmodified # # $x = Math::BigFloat -> new("123000000000"); $str = $x -> bestr(); # ok 155 - input value is "123000000000" ok 156 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $str = $x -> bestr(); # ok 157 - input value is "1230000000000" ok 158 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $str = $x -> bestr(); # ok 159 - input value is "0.000000000001234" ok 160 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $str = $x -> bestr(); # ok 161 - input value is "0.00000000001234" ok 162 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $str = $x -> bestr(); # ok 163 - input value is "0.0000000001234" ok 164 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $str = $x -> bestr(); # ok 165 - input value is "0.000000001234" ok 166 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $str = $x -> bestr(); # ok 167 - input value is "0.00000001234" ok 168 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $str = $x -> bestr(); # ok 169 - input value is "0.0000001234" ok 170 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $str = $x -> bestr(); # ok 171 - input value is "0.000001234" ok 172 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $str = $x -> bestr(); # ok 173 - input value is "0.00001234" ok 174 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $str = $x -> bestr(); # ok 175 - input value is "0.0001234" ok 176 - input object is unmodified # # $x = Math::BigFloat -> new("0.001234"); $str = $x -> bestr(); # ok 177 - input value is "0.001234" ok 178 - input object is unmodified # # $x = Math::BigFloat -> new("0.01234"); $str = $x -> bestr(); # ok 179 - input value is "0.01234" ok 180 - input object is unmodified # # $x = Math::BigFloat -> new("0.1234"); $str = $x -> bestr(); # ok 181 - input value is "0.1234" ok 182 - input object is unmodified # # $x = Math::BigFloat -> new("1.234"); $str = $x -> bestr(); # ok 183 - input value is "1.234" ok 184 - input object is unmodified # # $x = Math::BigFloat -> new("12.34"); $str = $x -> bestr(); # ok 185 - input value is "12.34" ok 186 - input object is unmodified # # $x = Math::BigFloat -> new("123.4"); $str = $x -> bestr(); # ok 187 - input value is "123.4" ok 188 - input object is unmodified # # $x = Math::BigFloat -> new("1234"); $str = $x -> bestr(); # ok 189 - input value is "1234" ok 190 - input object is unmodified # # $x = Math::BigFloat -> new("12340"); $str = $x -> bestr(); # ok 191 - input value is "12340" ok 192 - input object is unmodified # # $x = Math::BigFloat -> new("123400"); $str = $x -> bestr(); # ok 193 - input value is "123400" ok 194 - input object is unmodified # # $x = Math::BigFloat -> new("1234000"); $str = $x -> bestr(); # ok 195 - input value is "1234000" ok 196 - input object is unmodified # # $x = Math::BigFloat -> new("12340000"); $str = $x -> bestr(); # ok 197 - input value is "12340000" ok 198 - input object is unmodified # # $x = Math::BigFloat -> new("123400000"); $str = $x -> bestr(); # ok 199 - input value is "123400000" ok 200 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000"); $str = $x -> bestr(); # ok 201 - input value is "1234000000" ok 202 - input object is unmodified # # $x = Math::BigFloat -> new("12340000000"); $str = $x -> bestr(); # ok 203 - input value is "12340000000" ok 204 - input object is unmodified # # $x = Math::BigFloat -> new("123400000000"); $str = $x -> bestr(); # ok 205 - input value is "123400000000" ok 206 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $str = $x -> bestr(); # ok 207 - input value is "1234000000000" ok 208 - input object is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $str = $x -> bestr(); # ok 209 - input value is "0.000003141592" ok 210 - input object is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $str = $x -> bestr(); # ok 211 - input value is "0.00003141592" ok 212 - input object is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $str = $x -> bestr(); # ok 213 - input value is "0.0003141592" ok 214 - input object is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $str = $x -> bestr(); # ok 215 - input value is "0.003141592" ok 216 - input object is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $str = $x -> bestr(); # ok 217 - input value is "0.03141592" ok 218 - input object is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $str = $x -> bestr(); # ok 219 - input value is "0.3141592" ok 220 - input object is unmodified # # $x = Math::BigFloat -> new("3.141592"); $str = $x -> bestr(); # ok 221 - input value is "3.141592" ok 222 - input object is unmodified # # $x = Math::BigFloat -> new("31.41592"); $str = $x -> bestr(); # ok 223 - input value is "31.41592" ok 224 - input object is unmodified # # $x = Math::BigFloat -> new("314.1592"); $str = $x -> bestr(); # ok 225 - input value is "314.1592" ok 226 - input object is unmodified # # $x = Math::BigFloat -> new("3141.592"); $str = $x -> bestr(); # ok 227 - input value is "3141.592" ok 228 - input object is unmodified # # $x = Math::BigFloat -> new("31415.92"); $str = $x -> bestr(); # ok 229 - input value is "31415.92" ok 230 - input object is unmodified # # $x = Math::BigFloat -> new("314159.2"); $str = $x -> bestr(); # ok 231 - input value is "314159.2" ok 232 - input object is unmodified # # $x = Math::BigFloat -> new("3141592"); $str = $x -> bestr(); # ok 233 - input value is "3141592" ok 234 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $str = $x -> bestr(); # ok 235 - input value is "-0.000000000001" ok 236 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $str = $x -> bestr(); # ok 237 - input value is "-0.00000000001" ok 238 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $str = $x -> bestr(); # ok 239 - input value is "-0.0000000001" ok 240 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $str = $x -> bestr(); # ok 241 - input value is "-0.000000001" ok 242 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $str = $x -> bestr(); # ok 243 - input value is "-0.00000001" ok 244 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $str = $x -> bestr(); # ok 245 - input value is "-0.0000001" ok 246 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $str = $x -> bestr(); # ok 247 - input value is "-0.000001" ok 248 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $str = $x -> bestr(); # ok 249 - input value is "-0.00001" ok 250 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $str = $x -> bestr(); # ok 251 - input value is "-0.0001" ok 252 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001"); $str = $x -> bestr(); # ok 253 - input value is "-0.001" ok 254 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01"); $str = $x -> bestr(); # ok 255 - input value is "-0.01" ok 256 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1"); $str = $x -> bestr(); # ok 257 - input value is "-0.1" ok 258 - input object is unmodified # # $x = Math::BigFloat -> new("-1"); $str = $x -> bestr(); # ok 259 - input value is "-1" ok 260 - input object is unmodified # # $x = Math::BigFloat -> new("-10"); $str = $x -> bestr(); # ok 261 - input value is "-10" ok 262 - input object is unmodified # # $x = Math::BigFloat -> new("-100"); $str = $x -> bestr(); # ok 263 - input value is "-100" ok 264 - input object is unmodified # # $x = Math::BigFloat -> new("-1000"); $str = $x -> bestr(); # ok 265 - input value is "-1000" ok 266 - input object is unmodified # # $x = Math::BigFloat -> new("-10000"); $str = $x -> bestr(); # ok 267 - input value is "-10000" ok 268 - input object is unmodified # # $x = Math::BigFloat -> new("-100000"); $str = $x -> bestr(); # ok 269 - input value is "-100000" ok 270 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000"); $str = $x -> bestr(); # ok 271 - input value is "-1000000" ok 272 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000"); $str = $x -> bestr(); # ok 273 - input value is "-10000000" ok 274 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000"); $str = $x -> bestr(); # ok 275 - input value is "-100000000" ok 276 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $str = $x -> bestr(); # ok 277 - input value is "-1000000000" ok 278 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $str = $x -> bestr(); # ok 279 - input value is "-10000000000" ok 280 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $str = $x -> bestr(); # ok 281 - input value is "-100000000000" ok 282 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $str = $x -> bestr(); # ok 283 - input value is "-1000000000000" ok 284 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $str = $x -> bestr(); # ok 285 - input value is "-0.0000000000012" ok 286 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $str = $x -> bestr(); # ok 287 - input value is "-0.000000000012" ok 288 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $str = $x -> bestr(); # ok 289 - input value is "-0.00000000012" ok 290 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $str = $x -> bestr(); # ok 291 - input value is "-0.0000000012" ok 292 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $str = $x -> bestr(); # ok 293 - input value is "-0.000000012" ok 294 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $str = $x -> bestr(); # ok 295 - input value is "-0.00000012" ok 296 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $str = $x -> bestr(); # ok 297 - input value is "-0.0000012" ok 298 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $str = $x -> bestr(); # ok 299 - input value is "-0.000012" ok 300 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $str = $x -> bestr(); # ok 301 - input value is "-0.00012" ok 302 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $str = $x -> bestr(); # ok 303 - input value is "-0.0012" ok 304 - input object is unmodified # # $x = Math::BigFloat -> new("-0.012"); $str = $x -> bestr(); # ok 305 - input value is "-0.012" ok 306 - input object is unmodified # # $x = Math::BigFloat -> new("-0.12"); $str = $x -> bestr(); # ok 307 - input value is "-0.12" ok 308 - input object is unmodified # # $x = Math::BigFloat -> new("-1.2"); $str = $x -> bestr(); # ok 309 - input value is "-1.2" ok 310 - input object is unmodified # # $x = Math::BigFloat -> new("-12"); $str = $x -> bestr(); # ok 311 - input value is "-12" ok 312 - input object is unmodified # # $x = Math::BigFloat -> new("-120"); $str = $x -> bestr(); # ok 313 - input value is "-120" ok 314 - input object is unmodified # # $x = Math::BigFloat -> new("-1200"); $str = $x -> bestr(); # ok 315 - input value is "-1200" ok 316 - input object is unmodified # # $x = Math::BigFloat -> new("-12000"); $str = $x -> bestr(); # ok 317 - input value is "-12000" ok 318 - input object is unmodified # # $x = Math::BigFloat -> new("-120000"); $str = $x -> bestr(); # ok 319 - input value is "-120000" ok 320 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000"); $str = $x -> bestr(); # ok 321 - input value is "-1200000" ok 322 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000"); $str = $x -> bestr(); # ok 323 - input value is "-12000000" ok 324 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000"); $str = $x -> bestr(); # ok 325 - input value is "-120000000" ok 326 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $str = $x -> bestr(); # ok 327 - input value is "-1200000000" ok 328 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $str = $x -> bestr(); # ok 329 - input value is "-12000000000" ok 330 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $str = $x -> bestr(); # ok 331 - input value is "-120000000000" ok 332 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $str = $x -> bestr(); # ok 333 - input value is "-1200000000000" ok 334 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $str = $x -> bestr(); # ok 335 - input value is "-0.00000000000123" ok 336 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $str = $x -> bestr(); # ok 337 - input value is "-0.0000000000123" ok 338 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $str = $x -> bestr(); # ok 339 - input value is "-0.000000000123" ok 340 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $str = $x -> bestr(); # ok 341 - input value is "-0.00000000123" ok 342 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $str = $x -> bestr(); # ok 343 - input value is "-0.0000000123" ok 344 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $str = $x -> bestr(); # ok 345 - input value is "-0.000000123" ok 346 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $str = $x -> bestr(); # ok 347 - input value is "-0.00000123" ok 348 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $str = $x -> bestr(); # ok 349 - input value is "-0.0000123" ok 350 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $str = $x -> bestr(); # ok 351 - input value is "-0.000123" ok 352 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $str = $x -> bestr(); # ok 353 - input value is "-0.00123" ok 354 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $str = $x -> bestr(); # ok 355 - input value is "-0.0123" ok 356 - input object is unmodified # # $x = Math::BigFloat -> new("-0.123"); $str = $x -> bestr(); # ok 357 - input value is "-0.123" ok 358 - input object is unmodified # # $x = Math::BigFloat -> new("-1.23"); $str = $x -> bestr(); # ok 359 - input value is "-1.23" ok 360 - input object is unmodified # # $x = Math::BigFloat -> new("-12.3"); $str = $x -> bestr(); # ok 361 - input value is "-12.3" ok 362 - input object is unmodified # # $x = Math::BigFloat -> new("-123"); $str = $x -> bestr(); # ok 363 - input value is "-123" ok 364 - input object is unmodified # # $x = Math::BigFloat -> new("-1230"); $str = $x -> bestr(); # ok 365 - input value is "-1230" ok 366 - input object is unmodified # # $x = Math::BigFloat -> new("-12300"); $str = $x -> bestr(); # ok 367 - input value is "-12300" ok 368 - input object is unmodified # # $x = Math::BigFloat -> new("-123000"); $str = $x -> bestr(); # ok 369 - input value is "-123000" ok 370 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000"); $str = $x -> bestr(); # ok 371 - input value is "-1230000" ok 372 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000"); $str = $x -> bestr(); # ok 373 - input value is "-12300000" ok 374 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000"); $str = $x -> bestr(); # ok 375 - input value is "-123000000" ok 376 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $str = $x -> bestr(); # ok 377 - input value is "-1230000000" ok 378 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $str = $x -> bestr(); # ok 379 - input value is "-12300000000" ok 380 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $str = $x -> bestr(); # ok 381 - input value is "-123000000000" ok 382 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $str = $x -> bestr(); # ok 383 - input value is "-1230000000000" ok 384 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $str = $x -> bestr(); # ok 385 - input value is "-0.000000000001234" ok 386 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $str = $x -> bestr(); # ok 387 - input value is "-0.00000000001234" ok 388 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $str = $x -> bestr(); # ok 389 - input value is "-0.0000000001234" ok 390 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $str = $x -> bestr(); # ok 391 - input value is "-0.000000001234" ok 392 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $str = $x -> bestr(); # ok 393 - input value is "-0.00000001234" ok 394 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $str = $x -> bestr(); # ok 395 - input value is "-0.0000001234" ok 396 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $str = $x -> bestr(); # ok 397 - input value is "-0.000001234" ok 398 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $str = $x -> bestr(); # ok 399 - input value is "-0.00001234" ok 400 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $str = $x -> bestr(); # ok 401 - input value is "-0.0001234" ok 402 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $str = $x -> bestr(); # ok 403 - input value is "-0.001234" ok 404 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $str = $x -> bestr(); # ok 405 - input value is "-0.01234" ok 406 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $str = $x -> bestr(); # ok 407 - input value is "-0.1234" ok 408 - input object is unmodified # # $x = Math::BigFloat -> new("-1.234"); $str = $x -> bestr(); # ok 409 - input value is "-1.234" ok 410 - input object is unmodified # # $x = Math::BigFloat -> new("-12.34"); $str = $x -> bestr(); # ok 411 - input value is "-12.34" ok 412 - input object is unmodified # # $x = Math::BigFloat -> new("-123.4"); $str = $x -> bestr(); # ok 413 - input value is "-123.4" ok 414 - input object is unmodified # # $x = Math::BigFloat -> new("-1234"); $str = $x -> bestr(); # ok 415 - input value is "-1234" ok 416 - input object is unmodified # # $x = Math::BigFloat -> new("-12340"); $str = $x -> bestr(); # ok 417 - input value is "-12340" ok 418 - input object is unmodified # # $x = Math::BigFloat -> new("-123400"); $str = $x -> bestr(); # ok 419 - input value is "-123400" ok 420 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000"); $str = $x -> bestr(); # ok 421 - input value is "-1234000" ok 422 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000"); $str = $x -> bestr(); # ok 423 - input value is "-12340000" ok 424 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000"); $str = $x -> bestr(); # ok 425 - input value is "-123400000" ok 426 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $str = $x -> bestr(); # ok 427 - input value is "-1234000000" ok 428 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $str = $x -> bestr(); # ok 429 - input value is "-12340000000" ok 430 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $str = $x -> bestr(); # ok 431 - input value is "-123400000000" ok 432 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $str = $x -> bestr(); # ok 433 - input value is "-1234000000000" ok 434 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $str = $x -> bestr(); # ok 435 - input value is "-0.000003141592" ok 436 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $str = $x -> bestr(); # ok 437 - input value is "-0.00003141592" ok 438 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $str = $x -> bestr(); # ok 439 - input value is "-0.0003141592" ok 440 - input object is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $str = $x -> bestr(); # ok 441 - input value is "-0.003141592" ok 442 - input object is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $str = $x -> bestr(); # ok 443 - input value is "-0.03141592" ok 444 - input object is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $str = $x -> bestr(); # ok 445 - input value is "-0.3141592" ok 446 - input object is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $str = $x -> bestr(); # ok 447 - input value is "-3.141592" ok 448 - input object is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $str = $x -> bestr(); # ok 449 - input value is "-31.41592" ok 450 - input object is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $str = $x -> bestr(); # ok 451 - input value is "-314.1592" ok 452 - input object is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $str = $x -> bestr(); # ok 453 - input value is "-3141.592" ok 454 - input object is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $str = $x -> bestr(); # ok 455 - input value is "-31415.92" ok 456 - input object is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $str = $x -> bestr(); # ok 457 - input value is "-314159.2" ok 458 - input object is unmodified # # $x = Math::BigFloat -> new("-3141592"); $str = $x -> bestr(); # ok 459 - input value is "-3141592" ok 460 - input object is unmodified ok t/bestr-mbi.t ................................. 1..220 # # $x = Math::BigInt -> new("NaN"); $str = $x -> bestr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigInt -> new("inf"); $str = $x -> bestr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigInt -> new("-inf"); $str = $x -> bestr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigInt -> new("0"); $str = $x -> bestr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigInt -> new("1"); $str = $x -> bestr(); # ok 9 - input value is "1" ok 10 - input object is unmodified # # $x = Math::BigInt -> new("10"); $str = $x -> bestr(); # ok 11 - input value is "10" ok 12 - input object is unmodified # # $x = Math::BigInt -> new("100"); $str = $x -> bestr(); # ok 13 - input value is "100" ok 14 - input object is unmodified # # $x = Math::BigInt -> new("1000"); $str = $x -> bestr(); # ok 15 - input value is "1000" ok 16 - input object is unmodified # # $x = Math::BigInt -> new("10000"); $str = $x -> bestr(); # ok 17 - input value is "10000" ok 18 - input object is unmodified # # $x = Math::BigInt -> new("100000"); $str = $x -> bestr(); # ok 19 - input value is "100000" ok 20 - input object is unmodified # # $x = Math::BigInt -> new("1000000"); $str = $x -> bestr(); # ok 21 - input value is "1000000" ok 22 - input object is unmodified # # $x = Math::BigInt -> new("10000000"); $str = $x -> bestr(); # ok 23 - input value is "10000000" ok 24 - input object is unmodified # # $x = Math::BigInt -> new("100000000"); $str = $x -> bestr(); # ok 25 - input value is "100000000" ok 26 - input object is unmodified # # $x = Math::BigInt -> new("1000000000"); $str = $x -> bestr(); # ok 27 - input value is "1000000000" ok 28 - input object is unmodified # # $x = Math::BigInt -> new("10000000000"); $str = $x -> bestr(); # ok 29 - input value is "10000000000" ok 30 - input object is unmodified # # $x = Math::BigInt -> new("100000000000"); $str = $x -> bestr(); # ok 31 - input value is "100000000000" ok 32 - input object is unmodified # # $x = Math::BigInt -> new("1000000000000"); $str = $x -> bestr(); # ok 33 - input value is "1000000000000" ok 34 - input object is unmodified # # $x = Math::BigInt -> new("12"); $str = $x -> bestr(); # ok 35 - input value is "12" ok 36 - input object is unmodified # # $x = Math::BigInt -> new("120"); $str = $x -> bestr(); # ok 37 - input value is "120" ok 38 - input object is unmodified # # $x = Math::BigInt -> new("1200"); $str = $x -> bestr(); # ok 39 - input value is "1200" ok 40 - input object is unmodified # # $x = Math::BigInt -> new("12000"); $str = $x -> bestr(); # ok 41 - input value is "12000" ok 42 - input object is unmodified # # $x = Math::BigInt -> new("120000"); $str = $x -> bestr(); # ok 43 - input value is "120000" ok 44 - input object is unmodified # # $x = Math::BigInt -> new("1200000"); $str = $x -> bestr(); # ok 45 - input value is "1200000" ok 46 - input object is unmodified # # $x = Math::BigInt -> new("12000000"); $str = $x -> bestr(); # ok 47 - input value is "12000000" ok 48 - input object is unmodified # # $x = Math::BigInt -> new("120000000"); $str = $x -> bestr(); # ok 49 - input value is "120000000" ok 50 - input object is unmodified # # $x = Math::BigInt -> new("1200000000"); $str = $x -> bestr(); # ok 51 - input value is "1200000000" ok 52 - input object is unmodified # # $x = Math::BigInt -> new("12000000000"); $str = $x -> bestr(); # ok 53 - input value is "12000000000" ok 54 - input object is unmodified # # $x = Math::BigInt -> new("120000000000"); $str = $x -> bestr(); # ok 55 - input value is "120000000000" ok 56 - input object is unmodified # # $x = Math::BigInt -> new("1200000000000"); $str = $x -> bestr(); # ok 57 - input value is "1200000000000" ok 58 - input object is unmodified # # $x = Math::BigInt -> new("123"); $str = $x -> bestr(); # ok 59 - input value is "123" ok 60 - input object is unmodified # # $x = Math::BigInt -> new("1230"); $str = $x -> bestr(); # ok 61 - input value is "1230" ok 62 - input object is unmodified # # $x = Math::BigInt -> new("12300"); $str = $x -> bestr(); # ok 63 - input value is "12300" ok 64 - input object is unmodified # # $x = Math::BigInt -> new("123000"); $str = $x -> bestr(); # ok 65 - input value is "123000" ok 66 - input object is unmodified # # $x = Math::BigInt -> new("1230000"); $str = $x -> bestr(); # ok 67 - input value is "1230000" ok 68 - input object is unmodified # # $x = Math::BigInt -> new("12300000"); $str = $x -> bestr(); # ok 69 - input value is "12300000" ok 70 - input object is unmodified # # $x = Math::BigInt -> new("123000000"); $str = $x -> bestr(); # ok 71 - input value is "123000000" ok 72 - input object is unmodified # # $x = Math::BigInt -> new("1230000000"); $str = $x -> bestr(); # ok 73 - input value is "1230000000" ok 74 - input object is unmodified # # $x = Math::BigInt -> new("12300000000"); $str = $x -> bestr(); # ok 75 - input value is "12300000000" ok 76 - input object is unmodified # # $x = Math::BigInt -> new("123000000000"); $str = $x -> bestr(); # ok 77 - input value is "123000000000" ok 78 - input object is unmodified # # $x = Math::BigInt -> new("1230000000000"); $str = $x -> bestr(); # ok 79 - input value is "1230000000000" ok 80 - input object is unmodified # # $x = Math::BigInt -> new("1234"); $str = $x -> bestr(); # ok 81 - input value is "1234" ok 82 - input object is unmodified # # $x = Math::BigInt -> new("12340"); $str = $x -> bestr(); # ok 83 - input value is "12340" ok 84 - input object is unmodified # # $x = Math::BigInt -> new("123400"); $str = $x -> bestr(); # ok 85 - input value is "123400" ok 86 - input object is unmodified # # $x = Math::BigInt -> new("1234000"); $str = $x -> bestr(); # ok 87 - input value is "1234000" ok 88 - input object is unmodified # # $x = Math::BigInt -> new("12340000"); $str = $x -> bestr(); # ok 89 - input value is "12340000" ok 90 - input object is unmodified # # $x = Math::BigInt -> new("123400000"); $str = $x -> bestr(); # ok 91 - input value is "123400000" ok 92 - input object is unmodified # # $x = Math::BigInt -> new("1234000000"); $str = $x -> bestr(); # ok 93 - input value is "1234000000" ok 94 - input object is unmodified # # $x = Math::BigInt -> new("12340000000"); $str = $x -> bestr(); # ok 95 - input value is "12340000000" ok 96 - input object is unmodified # # $x = Math::BigInt -> new("123400000000"); $str = $x -> bestr(); # ok 97 - input value is "123400000000" ok 98 - input object is unmodified # # $x = Math::BigInt -> new("1234000000000"); $str = $x -> bestr(); # ok 99 - input value is "1234000000000" ok 100 - input object is unmodified # # $x = Math::BigInt -> new("3"); $str = $x -> bestr(); # ok 101 - input value is "3" ok 102 - input object is unmodified # # $x = Math::BigInt -> new("31"); $str = $x -> bestr(); # ok 103 - input value is "31" ok 104 - input object is unmodified # # $x = Math::BigInt -> new("314"); $str = $x -> bestr(); # ok 105 - input value is "314" ok 106 - input object is unmodified # # $x = Math::BigInt -> new("3141"); $str = $x -> bestr(); # ok 107 - input value is "3141" ok 108 - input object is unmodified # # $x = Math::BigInt -> new("31415"); $str = $x -> bestr(); # ok 109 - input value is "31415" ok 110 - input object is unmodified # # $x = Math::BigInt -> new("314159"); $str = $x -> bestr(); # ok 111 - input value is "314159" ok 112 - input object is unmodified # # $x = Math::BigInt -> new("3141592"); $str = $x -> bestr(); # ok 113 - input value is "3141592" ok 114 - input object is unmodified # # $x = Math::BigInt -> new("-1"); $str = $x -> bestr(); # ok 115 - input value is "-1" ok 116 - input object is unmodified # # $x = Math::BigInt -> new("-10"); $str = $x -> bestr(); # ok 117 - input value is "-10" ok 118 - input object is unmodified # # $x = Math::BigInt -> new("-100"); $str = $x -> bestr(); # ok 119 - input value is "-100" ok 120 - input object is unmodified # # $x = Math::BigInt -> new("-1000"); $str = $x -> bestr(); # ok 121 - input value is "-1000" ok 122 - input object is unmodified # # $x = Math::BigInt -> new("-10000"); $str = $x -> bestr(); # ok 123 - input value is "-10000" ok 124 - input object is unmodified # # $x = Math::BigInt -> new("-100000"); $str = $x -> bestr(); # ok 125 - input value is "-100000" ok 126 - input object is unmodified # # $x = Math::BigInt -> new("-1000000"); $str = $x -> bestr(); # ok 127 - input value is "-1000000" ok 128 - input object is unmodified # # $x = Math::BigInt -> new("-10000000"); $str = $x -> bestr(); # ok 129 - input value is "-10000000" ok 130 - input object is unmodified # # $x = Math::BigInt -> new("-100000000"); $str = $x -> bestr(); # ok 131 - input value is "-100000000" ok 132 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000"); $str = $x -> bestr(); # ok 133 - input value is "-1000000000" ok 134 - input object is unmodified # # $x = Math::BigInt -> new("-10000000000"); $str = $x -> bestr(); # ok 135 - input value is "-10000000000" ok 136 - input object is unmodified # # $x = Math::BigInt -> new("-100000000000"); $str = $x -> bestr(); # ok 137 - input value is "-100000000000" ok 138 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $str = $x -> bestr(); # ok 139 - input value is "-1000000000000" ok 140 - input object is unmodified # # $x = Math::BigInt -> new("-12"); $str = $x -> bestr(); # ok 141 - input value is "-12" ok 142 - input object is unmodified # # $x = Math::BigInt -> new("-120"); $str = $x -> bestr(); # ok 143 - input value is "-120" ok 144 - input object is unmodified # # $x = Math::BigInt -> new("-1200"); $str = $x -> bestr(); # ok 145 - input value is "-1200" ok 146 - input object is unmodified # # $x = Math::BigInt -> new("-12000"); $str = $x -> bestr(); # ok 147 - input value is "-12000" ok 148 - input object is unmodified # # $x = Math::BigInt -> new("-120000"); $str = $x -> bestr(); # ok 149 - input value is "-120000" ok 150 - input object is unmodified # # $x = Math::BigInt -> new("-1200000"); $str = $x -> bestr(); # ok 151 - input value is "-1200000" ok 152 - input object is unmodified # # $x = Math::BigInt -> new("-12000000"); $str = $x -> bestr(); # ok 153 - input value is "-12000000" ok 154 - input object is unmodified # # $x = Math::BigInt -> new("-120000000"); $str = $x -> bestr(); # ok 155 - input value is "-120000000" ok 156 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000"); $str = $x -> bestr(); # ok 157 - input value is "-1200000000" ok 158 - input object is unmodified # # $x = Math::BigInt -> new("-12000000000"); $str = $x -> bestr(); # ok 159 - input value is "-12000000000" ok 160 - input object is unmodified # # $x = Math::BigInt -> new("-120000000000"); $str = $x -> bestr(); # ok 161 - input value is "-120000000000" ok 162 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $str = $x -> bestr(); # ok 163 - input value is "-1200000000000" ok 164 - input object is unmodified # # $x = Math::BigInt -> new("-123"); $str = $x -> bestr(); # ok 165 - input value is "-123" ok 166 - input object is unmodified # # $x = Math::BigInt -> new("-1230"); $str = $x -> bestr(); # ok 167 - input value is "-1230" ok 168 - input object is unmodified # # $x = Math::BigInt -> new("-12300"); $str = $x -> bestr(); # ok 169 - input value is "-12300" ok 170 - input object is unmodified # # $x = Math::BigInt -> new("-123000"); $str = $x -> bestr(); # ok 171 - input value is "-123000" ok 172 - input object is unmodified # # $x = Math::BigInt -> new("-1230000"); $str = $x -> bestr(); # ok 173 - input value is "-1230000" ok 174 - input object is unmodified # # $x = Math::BigInt -> new("-12300000"); $str = $x -> bestr(); # ok 175 - input value is "-12300000" ok 176 - input object is unmodified # # $x = Math::BigInt -> new("-123000000"); $str = $x -> bestr(); # ok 177 - input value is "-123000000" ok 178 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000"); $str = $x -> bestr(); # ok 179 - input value is "-1230000000" ok 180 - input object is unmodified # # $x = Math::BigInt -> new("-12300000000"); $str = $x -> bestr(); # ok 181 - input value is "-12300000000" ok 182 - input object is unmodified # # $x = Math::BigInt -> new("-123000000000"); $str = $x -> bestr(); # ok 183 - input value is "-123000000000" ok 184 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $str = $x -> bestr(); # ok 185 - input value is "-1230000000000" ok 186 - input object is unmodified # # $x = Math::BigInt -> new("-1234"); $str = $x -> bestr(); # ok 187 - input value is "-1234" ok 188 - input object is unmodified # # $x = Math::BigInt -> new("-12340"); $str = $x -> bestr(); # ok 189 - input value is "-12340" ok 190 - input object is unmodified # # $x = Math::BigInt -> new("-123400"); $str = $x -> bestr(); # ok 191 - input value is "-123400" ok 192 - input object is unmodified # # $x = Math::BigInt -> new("-1234000"); $str = $x -> bestr(); # ok 193 - input value is "-1234000" ok 194 - input object is unmodified # # $x = Math::BigInt -> new("-12340000"); $str = $x -> bestr(); # ok 195 - input value is "-12340000" ok 196 - input object is unmodified # # $x = Math::BigInt -> new("-123400000"); $str = $x -> bestr(); # ok 197 - input value is "-123400000" ok 198 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000"); $str = $x -> bestr(); # ok 199 - input value is "-1234000000" ok 200 - input object is unmodified # # $x = Math::BigInt -> new("-12340000000"); $str = $x -> bestr(); # ok 201 - input value is "-12340000000" ok 202 - input object is unmodified # # $x = Math::BigInt -> new("-123400000000"); $str = $x -> bestr(); # ok 203 - input value is "-123400000000" ok 204 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $str = $x -> bestr(); # ok 205 - input value is "-1234000000000" ok 206 - input object is unmodified # # $x = Math::BigInt -> new("-3"); $str = $x -> bestr(); # ok 207 - input value is "-3" ok 208 - input object is unmodified # # $x = Math::BigInt -> new("-31"); $str = $x -> bestr(); # ok 209 - input value is "-31" ok 210 - input object is unmodified # # $x = Math::BigInt -> new("-314"); $str = $x -> bestr(); # ok 211 - input value is "-314" ok 212 - input object is unmodified # # $x = Math::BigInt -> new("-3141"); $str = $x -> bestr(); # ok 213 - input value is "-3141" ok 214 - input object is unmodified # # $x = Math::BigInt -> new("-31415"); $str = $x -> bestr(); # ok 215 - input value is "-31415" ok 216 - input object is unmodified # # $x = Math::BigInt -> new("-314159"); $str = $x -> bestr(); # ok 217 - input value is "-314159" ok 218 - input object is unmodified # # $x = Math::BigInt -> new("-3141592"); $str = $x -> bestr(); # ok 219 - input value is "-3141592" ok 220 - input object is unmodified ok t/big_pi_e.t .................................. 1..8 ok 1 - A is not defined ok 2 - P is not defined ok 3 - A is not defined ok 4 - P is not defined ok 5 - A is defined ok 6 - P is not defined ok 7 - A is not defined ok 8 - P is not defined ok t/bigfltpm.t .................................. 1..2421 ok 1 - Math::BigFloat->config()->{class} ok 2 - Math::BigFloat->config()->{with} ok 3 - $c = Math::BigFloat -> new("123.3"); $y = $c -> bsub("123") ok 4 - 0.008 / 3 = 0.0027 ok 5 - 'bgcd() as function' isa 'Math::BigFloat' ok 6 - bgcd() as function ok 7 - 'bgcd() as class method' isa 'Math::BigFloat' ok 8 - bgcd() as class method ok 9 - 'bgcd() as instance method' isa 'Math::BigFloat' ok 10 - bgcd() as instance method ok 11 - bgcd() does not modify invocand ok 12 - 'blcm() as function' isa 'Math::BigFloat' ok 13 - blcm() as function ok 14 - 'blcm() as class method' isa 'Math::BigFloat' ok 15 - blcm() as class method ok 16 - 'blcm() as instance method' isa 'Math::BigFloat' ok 17 - blcm() as instance method ok 18 - blcm() does not modify invocand ok 19 - $e->{_e}->[0] is a scalar ok 20 - Math::BigFloat->config('lib') ok 21 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 22 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 23 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 24 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 25 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 26 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 27 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 28 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 29 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 30 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 31 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 32 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 33 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 34 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 35 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 36 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 37 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 38 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 39 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 40 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 41 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 42 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 43 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 44 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 45 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 46 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 47 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 48 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 49 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 50 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 51 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 52 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 53 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 54 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 55 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 56 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 57 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 58 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 59 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 60 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 61 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 62 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 63 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 64 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 65 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 66 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 67 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 68 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 69 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 70 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 71 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 72 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 73 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 74 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 75 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 76 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 77 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 78 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 79 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 80 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 81 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 82 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 83 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 84 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 85 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 86 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 87 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 88 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 89 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 90 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 91 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 92 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 93 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 94 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 95 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 96 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 97 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 98 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 99 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 100 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 101 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 102 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 103 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 104 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 105 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 106 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 107 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 108 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 109 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 110 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 111 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 112 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 113 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 114 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 115 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 116 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 117 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 118 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 119 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 120 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 121 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 122 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 123 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 124 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 125 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 126 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 127 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 128 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 129 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 130 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 131 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 132 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 133 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 134 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 135 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 136 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 137 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 138 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 139 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 140 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 141 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 142 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 143 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 144 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 145 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 146 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 147 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 148 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 149 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 150 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 151 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 152 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 153 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 154 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 155 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 156 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 157 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 158 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 159 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 160 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 161 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 162 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 163 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 164 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 165 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 166 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 167 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 168 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 169 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 170 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 171 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 172 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 173 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 174 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 175 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 176 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 177 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 178 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 179 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 180 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 181 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 182 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 183 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 184 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 185 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 186 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 187 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 188 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 189 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 190 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 191 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 192 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 193 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 194 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 195 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 196 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 197 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 198 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 199 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 200 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 201 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 202 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 203 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 204 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 205 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 206 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 207 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 208 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 209 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 210 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 211 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 212 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 213 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 214 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 215 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 216 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 217 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 218 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 219 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 220 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 221 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 222 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 223 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 224 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 225 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 226 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 227 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 228 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 229 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 230 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 231 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 232 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 233 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 234 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 235 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 236 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 237 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 238 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 239 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 240 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 241 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 242 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 243 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 244 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 245 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 246 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 247 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 248 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 249 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 250 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 251 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 252 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 253 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 254 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 255 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 256 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 257 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 258 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 259 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 260 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 261 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 262 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 263 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 264 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 265 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 266 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 267 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 268 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 269 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 270 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 271 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 272 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 273 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 274 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 275 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 276 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 277 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 278 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 279 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 280 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 281 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 282 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 283 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 284 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 285 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 286 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 287 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 288 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 289 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 290 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 291 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 292 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 293 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 294 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 295 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 296 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 297 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 298 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 299 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 300 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 301 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 302 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 303 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 304 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 305 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 306 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 307 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 308 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 309 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 310 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 311 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 312 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 313 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 314 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 315 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 316 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 317 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 318 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 319 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 320 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 321 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 322 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 323 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 324 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 325 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 326 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 327 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 328 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 329 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 330 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 331 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 332 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 333 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 334 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 335 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 336 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 337 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 338 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 339 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 340 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 341 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 342 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 343 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 344 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 345 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 346 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 347 - $x = Math::BigFloat->new("1"); $x; ok 348 - $x = Math::BigFloat->new("1"); $x; ok 349 - $x = Math::BigFloat->new("-0"); $x; ok 350 - $x = Math::BigFloat->new("-0"); $x; ok 351 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 352 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 353 - $x = Math::BigFloat->new("+inf"); $x; ok 354 - $x = Math::BigFloat->new("+inf"); $x; ok 355 - $x = Math::BigFloat->new("-inf"); $x; ok 356 - $x = Math::BigFloat->new("-inf"); $x; ok 357 - $x = Math::BigFloat->new("123"); $x; ok 358 - $x = Math::BigFloat->new("123"); $x; ok 359 - $x = Math::BigFloat->new("-123.4567"); $x; ok 360 - $x = Math::BigFloat->new("-123.4567"); $x; ok 361 - $x = Math::BigFloat->new("1__2"); $x; ok 362 - $x = Math::BigFloat->new("1__2"); $x; ok 363 - $x = Math::BigFloat->new("1E1__2"); $x; ok 364 - $x = Math::BigFloat->new("1E1__2"); $x; ok 365 - $x = Math::BigFloat->new("11__2E2"); $x; ok 366 - $x = Math::BigFloat->new("11__2E2"); $x; ok 367 - $x = Math::BigFloat->new(".2E-3."); $x; ok 368 - $x = Math::BigFloat->new(".2E-3."); $x; ok 369 - $x = Math::BigFloat->new("1e3e4"); $x; ok 370 - $x = Math::BigFloat->new("1e3e4"); $x; ok 371 - $x = Math::BigFloat->new(".2E2"); $x; ok 372 - $x = Math::BigFloat->new(".2E2"); $x; ok 373 - $x = Math::BigFloat->new("1.E3"); $x; ok 374 - $x = Math::BigFloat->new("1.E3"); $x; ok 375 - $x = Math::BigFloat->new("0e0"); $x; ok 376 - $x = Math::BigFloat->new("0e0"); $x; ok 377 - $x = Math::BigFloat->new("+0e0"); $x; ok 378 - $x = Math::BigFloat->new("+0e0"); $x; ok 379 - $x = Math::BigFloat->new("+0e+0"); $x; ok 380 - $x = Math::BigFloat->new("+0e+0"); $x; ok 381 - $x = Math::BigFloat->new("-0e+0"); $x; ok 382 - $x = Math::BigFloat->new("-0e+0"); $x; ok 383 - $x = Math::BigFloat->new("0e-0"); $x; ok 384 - $x = Math::BigFloat->new("0e-0"); $x; ok 385 - $x = Math::BigFloat->new("-0e-0"); $x; ok 386 - $x = Math::BigFloat->new("-0e-0"); $x; ok 387 - $x = Math::BigFloat->new("+0e-0"); $x; ok 388 - $x = Math::BigFloat->new("+0e-0"); $x; ok 389 - $x = Math::BigFloat->new("000"); $x; ok 390 - $x = Math::BigFloat->new("000"); $x; ok 391 - $x = Math::BigFloat->new("00e2"); $x; ok 392 - $x = Math::BigFloat->new("00e2"); $x; ok 393 - $x = Math::BigFloat->new("00e02"); $x; ok 394 - $x = Math::BigFloat->new("00e02"); $x; ok 395 - $x = Math::BigFloat->new("000e002"); $x; ok 396 - $x = Math::BigFloat->new("000e002"); $x; ok 397 - $x = Math::BigFloat->new("000e1230"); $x; ok 398 - $x = Math::BigFloat->new("000e1230"); $x; ok 399 - $x = Math::BigFloat->new("00e-3"); $x; ok 400 - $x = Math::BigFloat->new("00e-3"); $x; ok 401 - $x = Math::BigFloat->new("00e+3"); $x; ok 402 - $x = Math::BigFloat->new("00e+3"); $x; ok 403 - $x = Math::BigFloat->new("00e-03"); $x; ok 404 - $x = Math::BigFloat->new("00e-03"); $x; ok 405 - $x = Math::BigFloat->new("00e+03"); $x; ok 406 - $x = Math::BigFloat->new("00e+03"); $x; ok 407 - $x = Math::BigFloat->new("-000"); $x; ok 408 - $x = Math::BigFloat->new("-000"); $x; ok 409 - $x = Math::BigFloat->new("-00e2"); $x; ok 410 - $x = Math::BigFloat->new("-00e2"); $x; ok 411 - $x = Math::BigFloat->new("-00e02"); $x; ok 412 - $x = Math::BigFloat->new("-00e02"); $x; ok 413 - $x = Math::BigFloat->new("-000e002"); $x; ok 414 - $x = Math::BigFloat->new("-000e002"); $x; ok 415 - $x = Math::BigFloat->new("-000e1230"); $x; ok 416 - $x = Math::BigFloat->new("-000e1230"); $x; ok 417 - $x = Math::BigFloat->new("-00e-3"); $x; ok 418 - $x = Math::BigFloat->new("-00e-3"); $x; ok 419 - $x = Math::BigFloat->new("-00e+3"); $x; ok 420 - $x = Math::BigFloat->new("-00e+3"); $x; ok 421 - $x = Math::BigFloat->new("-00e-03"); $x; ok 422 - $x = Math::BigFloat->new("-00e-03"); $x; ok 423 - $x = Math::BigFloat->new("-00e+03"); $x; ok 424 - $x = Math::BigFloat->new("-00e+03"); $x; ok 425 - $x = Math::BigFloat->new("0"); $x->as_number(); ok 426 - $x = Math::BigFloat->new("1"); $x->as_number(); ok 427 - $x = Math::BigFloat->new("1.2"); $x->as_number(); ok 428 - $x = Math::BigFloat->new("2.345"); $x->as_number(); ok 429 - $x = Math::BigFloat->new("-2"); $x->as_number(); ok 430 - $x = Math::BigFloat->new("-123.456"); $x->as_number(); ok 431 - $x = Math::BigFloat->new("-200"); $x->as_number(); ok 432 - $x = Math::BigFloat->new("-inf"); $x->as_number(); ok 433 - $x = Math::BigFloat->new("inf"); $x->as_number(); ok 434 - $x = Math::BigFloat->new("NaN"); $x->as_number(); ok 435 - $x = Math::BigFloat->new("71243225429896467497217836789578596379"); $x->as_number(); ok 436 - $x = Math::BigFloat->new("0.000641"); $x->as_number(); ok 437 - $x = Math::BigFloat->new("0.0006412"); $x->as_number(); ok 438 - $x = Math::BigFloat->new("0.00064123"); $x->as_number(); ok 439 - $x = Math::BigFloat->new("0.000641234"); $x->as_number(); ok 440 - $x = Math::BigFloat->new("0.0006412345"); $x->as_number(); ok 441 - $x = Math::BigFloat->new("0.00064123456"); $x->as_number(); ok 442 - $x = Math::BigFloat->new("0.000641234567"); $x->as_number(); ok 443 - $x = Math::BigFloat->new("0.0006412345678"); $x->as_number(); ok 444 - $x = Math::BigFloat->new("0.00064123456789"); $x->as_number(); ok 445 - $x = Math::BigFloat->new("0.1"); $x->as_number(); ok 446 - $x = Math::BigFloat->new("0.01"); $x->as_number(); ok 447 - $x = Math::BigFloat->new("0.001"); $x->as_number(); ok 448 - $x = Math::BigFloat->new("0.0001"); $x->as_number(); ok 449 - $x = Math::BigFloat->new("0.00001"); $x->as_number(); ok 450 - $x = Math::BigFloat->new("0.000001"); $x->as_number(); ok 451 - $x = Math::BigFloat->new("0.0000001"); $x->as_number(); ok 452 - $x = Math::BigFloat->new("0.00000001"); $x->as_number(); ok 453 - $x = Math::BigFloat->new("0.000000001"); $x->as_number(); ok 454 - $x = Math::BigFloat->new("0.0000000001"); $x->as_number(); ok 455 - $x = Math::BigFloat->new("0.00000000001"); $x->as_number(); ok 456 - $x = Math::BigFloat->new("0.12345"); $x->as_number(); ok 457 - $x = Math::BigFloat->new("0.123456"); $x->as_number(); ok 458 - $x = Math::BigFloat->new("0.1234567"); $x->as_number(); ok 459 - $x = Math::BigFloat->new("0.12345678"); $x->as_number(); ok 460 - $x = Math::BigFloat->new("0.123456789"); $x->as_number(); ok 461 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 462 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 463 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 464 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 465 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 466 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 467 - $x = Math::BigFloat->new("+inf"); $x->as_hex(); ok 468 - $x = Math::BigFloat->new("-inf"); $x->as_hex(); ok 469 - $x = Math::BigFloat->new("hexNaN"); $x->as_hex(); ok 470 - $x = Math::BigFloat->new("0"); $x->as_hex(); ok 471 - $x = Math::BigFloat->new("5"); $x->as_hex(); ok 472 - $x = Math::BigFloat->new("-5"); $x->as_hex(); ok 473 - $x = Math::BigFloat->new("+inf"); $x->as_bin(); ok 474 - $x = Math::BigFloat->new("-inf"); $x->as_bin(); ok 475 - $x = Math::BigFloat->new("hexNaN"); $x->as_bin(); ok 476 - $x = Math::BigFloat->new("0"); $x->as_bin(); ok 477 - $x = Math::BigFloat->new("5"); $x->as_bin(); ok 478 - $x = Math::BigFloat->new("-5"); $x->as_bin(); ok 479 - $x = Math::BigFloat->new("0"); $x->numify(); ok 480 - $x = Math::BigFloat->new("+1"); $x->numify(); ok 481 - $x = Math::BigFloat->new("1234"); $x->numify(); ok 482 - $x = Math::BigFloat->new("-5"); $x->numify(); ok 483 - $x = Math::BigFloat->new("100"); $x->numify(); ok 484 - $x = Math::BigFloat->new("-100"); $x->numify(); ok 485 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 486 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 487 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 488 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 489 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 490 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 491 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 492 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 493 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 494 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 495 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 496 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 497 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 498 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 499 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 500 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 501 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 502 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 503 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 504 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 505 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 506 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 507 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 508 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 509 - $x = Math::BigFloat->new("+inf"); $x->bsstr(); ok 510 - $x = Math::BigFloat->new("-inf"); $x->bsstr(); ok 511 - $x = Math::BigFloat->new("abcfsstr"); $x->bsstr(); ok 512 - $x = Math::BigFloat->new("-abcfsstr"); $x->bsstr(); ok 513 - $x = Math::BigFloat->new("1234.567"); $x->bsstr(); ok 514 - $x = Math::BigFloat->new("123"); $x->bsstr(); ok 515 - $x = Math::BigFloat->new("-5"); $x->bsstr(); ok 516 - $x = Math::BigFloat->new("-100"); $x->bsstr(); ok 517 - $x = Math::BigFloat->new("+inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 518 - $x = Math::BigFloat->new("-inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 519 - $x = Math::BigFloat->new("abcfstr"); $x->accuracy(); $x->precision(); $x->bstr(); ok 520 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(9); $x->precision(); $x->bstr(); ok 521 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(); $x->precision(-6); $x->bstr(); ok 522 - $x = Math::BigFloat->new("12345"); $x->accuracy(5); $x->precision(); $x->bstr(); ok 523 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(6); $x->precision(); $x->bstr(); ok 524 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(); $x->precision(-8); $x->bstr(); ok 525 - $x = Math::BigFloat->new("0"); $x->accuracy(4); $x->precision(); $x->bstr(); ok 526 - $x = Math::BigFloat->new("0"); $x->accuracy(); $x->precision(-4); $x->bstr(); ok 527 - $x = Math::BigFloat->new("inf"); $x; ok 528 - $x = Math::BigFloat->new("inf"); $x; ok 529 - $x = Math::BigFloat->new("+inf"); $x; ok 530 - $x = Math::BigFloat->new("+inf"); $x; ok 531 - $x = Math::BigFloat->new("-inf"); $x; ok 532 - $x = Math::BigFloat->new("-inf"); $x; ok 533 - $x = Math::BigFloat->new("+infinity"); $x; ok 534 - $x = Math::BigFloat->new("+infinity"); $x; ok 535 - $x = Math::BigFloat->new("+-inf"); $x; ok 536 - $x = Math::BigFloat->new("+-inf"); $x; ok 537 - $x = Math::BigFloat->new("abc"); $x; ok 538 - $x = Math::BigFloat->new("abc"); $x; ok 539 - $x = Math::BigFloat->new(" 1 a"); $x; ok 540 - $x = Math::BigFloat->new(" 1 a"); $x; ok 541 - $x = Math::BigFloat->new("1bcd2"); $x; ok 542 - $x = Math::BigFloat->new("1bcd2"); $x; ok 543 - $x = Math::BigFloat->new("11111b"); $x; ok 544 - $x = Math::BigFloat->new("11111b"); $x; ok 545 - $x = Math::BigFloat->new("+1z"); $x; ok 546 - $x = Math::BigFloat->new("+1z"); $x; ok 547 - $x = Math::BigFloat->new("-1z"); $x; ok 548 - $x = Math::BigFloat->new("-1z"); $x; ok 549 - $x = Math::BigFloat->new("0e999"); $x; ok 550 - $x = Math::BigFloat->new("0e999"); $x; ok 551 - $x = Math::BigFloat->new("0e-999"); $x; ok 552 - $x = Math::BigFloat->new("0e-999"); $x; ok 553 - $x = Math::BigFloat->new("-0e999"); $x; ok 554 - $x = Math::BigFloat->new("-0e999"); $x; ok 555 - $x = Math::BigFloat->new("-0e-999"); $x; ok 556 - $x = Math::BigFloat->new("-0e-999"); $x; ok 557 - $x = Math::BigFloat->new("0"); $x; ok 558 - $x = Math::BigFloat->new("0"); $x; ok 559 - $x = Math::BigFloat->new("+0"); $x; ok 560 - $x = Math::BigFloat->new("+0"); $x; ok 561 - $x = Math::BigFloat->new("+00"); $x; ok 562 - $x = Math::BigFloat->new("+00"); $x; ok 563 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 564 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 565 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 566 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 567 - $x = Math::BigFloat->new("-0"); $x; ok 568 - $x = Math::BigFloat->new("-0"); $x; ok 569 - $x = Math::BigFloat->new("-0000"); $x; ok 570 - $x = Math::BigFloat->new("-0000"); $x; ok 571 - $x = Math::BigFloat->new("+1"); $x; ok 572 - $x = Math::BigFloat->new("+1"); $x; ok 573 - $x = Math::BigFloat->new("+01"); $x; ok 574 - $x = Math::BigFloat->new("+01"); $x; ok 575 - $x = Math::BigFloat->new("+001"); $x; ok 576 - $x = Math::BigFloat->new("+001"); $x; ok 577 - $x = Math::BigFloat->new("+00000100000"); $x; ok 578 - $x = Math::BigFloat->new("+00000100000"); $x; ok 579 - $x = Math::BigFloat->new("123456789"); $x; ok 580 - $x = Math::BigFloat->new("123456789"); $x; ok 581 - $x = Math::BigFloat->new("-1"); $x; ok 582 - $x = Math::BigFloat->new("-1"); $x; ok 583 - $x = Math::BigFloat->new("-01"); $x; ok 584 - $x = Math::BigFloat->new("-01"); $x; ok 585 - $x = Math::BigFloat->new("-001"); $x; ok 586 - $x = Math::BigFloat->new("-001"); $x; ok 587 - $x = Math::BigFloat->new("-123456789"); $x; ok 588 - $x = Math::BigFloat->new("-123456789"); $x; ok 589 - $x = Math::BigFloat->new("-00000100000"); $x; ok 590 - $x = Math::BigFloat->new("-00000100000"); $x; ok 591 - $x = Math::BigFloat->new("123.456a"); $x; ok 592 - $x = Math::BigFloat->new("123.456a"); $x; ok 593 - $x = Math::BigFloat->new("123.456"); $x; ok 594 - $x = Math::BigFloat->new("123.456"); $x; ok 595 - $x = Math::BigFloat->new("0.01"); $x; ok 596 - $x = Math::BigFloat->new("0.01"); $x; ok 597 - $x = Math::BigFloat->new(".002"); $x; ok 598 - $x = Math::BigFloat->new(".002"); $x; ok 599 - $x = Math::BigFloat->new("+.2"); $x; ok 600 - $x = Math::BigFloat->new("+.2"); $x; ok 601 - $x = Math::BigFloat->new("-0.0003"); $x; ok 602 - $x = Math::BigFloat->new("-0.0003"); $x; ok 603 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 604 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 605 - $x = Math::BigFloat->new("123456E2"); $x; ok 606 - $x = Math::BigFloat->new("123456E2"); $x; ok 607 - $x = Math::BigFloat->new("123456E-2"); $x; ok 608 - $x = Math::BigFloat->new("123456E-2"); $x; ok 609 - $x = Math::BigFloat->new("-123456E2"); $x; ok 610 - $x = Math::BigFloat->new("-123456E2"); $x; ok 611 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 612 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 613 - $x = Math::BigFloat->new("1e1"); $x; ok 614 - $x = Math::BigFloat->new("1e1"); $x; ok 615 - $x = Math::BigFloat->new("2e-11"); $x; ok 616 - $x = Math::BigFloat->new("2e-11"); $x; ok 617 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 618 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 619 - $x = Math::BigFloat->new(" 000001"); $x; ok 620 - $x = Math::BigFloat->new(" 000001"); $x; ok 621 - $x = Math::BigFloat->new(" -00001"); $x; ok 622 - $x = Math::BigFloat->new(" -00001"); $x; ok 623 - $x = Math::BigFloat->new(" -1"); $x; ok 624 - $x = Math::BigFloat->new(" -1"); $x; ok 625 - $x = Math::BigFloat->new(" 000.01"); $x; ok 626 - $x = Math::BigFloat->new(" 000.01"); $x; ok 627 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 628 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 629 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 630 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 631 - $x = Math::BigFloat->new("-3e111"); $x; ok 632 - $x = Math::BigFloat->new("-3e111"); $x; ok 633 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 634 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 635 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 636 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 637 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 638 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 639 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 640 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 641 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 642 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 643 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 644 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 645 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 646 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 647 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 648 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 649 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 650 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 651 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 652 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 653 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 654 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 655 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 656 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 657 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 658 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 659 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 660 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 661 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 662 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 663 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 664 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 665 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 666 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 667 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 668 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 669 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 670 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 671 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 672 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 673 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 674 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 675 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 676 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 677 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 678 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 679 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 680 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 681 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 682 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 683 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 684 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 685 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 686 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 687 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 688 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 689 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 690 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 691 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 692 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 693 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 694 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 695 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 696 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 697 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 698 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 699 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 700 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 701 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 702 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 703 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 704 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 705 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 706 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 707 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 708 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 709 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 710 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 711 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 712 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 713 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 714 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 715 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 716 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 717 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 718 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 719 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 720 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 721 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 722 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 723 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 724 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 725 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 726 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 727 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 728 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 729 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 730 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 731 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 732 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 733 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 734 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 735 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 736 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 737 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 738 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 739 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 740 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 741 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 742 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 743 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 744 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 745 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 746 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 747 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 748 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 749 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 750 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 751 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 752 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 753 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 754 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 755 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 756 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 757 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 758 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 759 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 760 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 761 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 762 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 763 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 764 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 765 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 766 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 767 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 768 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 769 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 770 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 771 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 772 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 773 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 774 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 775 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 776 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 777 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 778 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 779 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 780 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 781 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 782 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 783 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 784 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 785 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 786 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 787 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 788 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 789 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 790 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 791 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 792 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 793 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 794 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 795 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 796 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 797 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 798 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 799 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 800 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 801 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 802 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 803 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 804 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 805 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 806 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 807 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 808 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 809 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 810 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 811 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 812 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 813 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 814 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 815 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 816 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 817 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 818 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 819 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 820 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 821 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 822 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 823 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 824 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 825 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 826 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 827 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 828 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 829 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 830 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 831 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 832 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 833 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 834 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 835 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 836 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 837 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 838 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 839 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 840 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 841 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 842 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 843 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 844 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 845 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 846 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 847 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 848 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 849 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 850 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 851 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 852 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 853 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 854 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 855 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 856 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 857 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 858 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 859 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 860 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 861 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 862 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 863 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 864 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 865 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 866 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 867 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 868 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 869 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 870 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 871 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 872 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 873 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 874 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 875 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 876 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 877 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 878 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 879 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 880 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 881 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 882 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 883 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 884 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 885 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 886 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 887 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 888 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 889 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 890 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 891 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 892 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 893 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 894 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 895 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 896 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 897 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 898 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 899 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 900 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 901 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 902 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 903 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 904 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 905 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 906 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 907 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 908 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 909 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 910 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 911 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 912 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 913 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 914 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 915 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 916 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 917 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 918 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 919 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 920 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 921 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 922 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 923 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 924 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 925 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 926 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 927 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 928 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 929 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 930 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 931 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 932 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 933 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 934 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 935 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 936 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 937 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 938 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-4); ok 939 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-5); ok 940 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 941 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 942 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 943 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 944 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 945 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 946 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 947 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 948 - $x = Math::BigFloat->new("+2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 949 - $x = Math::BigFloat->new("-2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 950 - $x = Math::BigFloat->new("+2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 951 - $x = Math::BigFloat->new("-2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 952 - $x = Math::BigFloat->new("+2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 953 - $x = Math::BigFloat->new("-2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 954 - $x = Math::BigFloat->new("+2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 955 - $x = Math::BigFloat->new("-2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 956 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 957 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 958 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-2); ok 959 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-3); ok 960 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-4); ok 961 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-5); ok 962 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 963 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 964 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 965 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 966 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 967 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 968 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 969 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 970 - $x = Math::BigFloat->new("+3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 971 - $x = Math::BigFloat->new("-3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 972 - $x = Math::BigFloat->new("+3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 973 - $x = Math::BigFloat->new("-3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 974 - $x = Math::BigFloat->new("+3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 975 - $x = Math::BigFloat->new("-3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 976 - $x = Math::BigFloat->new("+3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 977 - $x = Math::BigFloat->new("-3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 978 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 979 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 980 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-2); ok 981 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-3); ok 982 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-4); ok 983 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-5); ok 984 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 985 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 986 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 987 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 988 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 989 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 990 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 991 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 992 - $x = Math::BigFloat->new("+4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 993 - $x = Math::BigFloat->new("-4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 994 - $x = Math::BigFloat->new("+4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 995 - $x = Math::BigFloat->new("-4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 996 - $x = Math::BigFloat->new("+4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 997 - $x = Math::BigFloat->new("-4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 998 - $x = Math::BigFloat->new("+4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 999 - $x = Math::BigFloat->new("-4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 1000 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 1001 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 1002 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-2); ok 1003 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-3); ok 1004 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-4); ok 1005 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-5); ok 1006 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1007 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1008 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1009 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1010 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1011 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1012 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1013 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 1014 - $x = Math::BigFloat->new("+5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1015 - $x = Math::BigFloat->new("-5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1016 - $x = Math::BigFloat->new("+5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1017 - $x = Math::BigFloat->new("-5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1018 - $x = Math::BigFloat->new("+5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1019 - $x = Math::BigFloat->new("-5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1020 - $x = Math::BigFloat->new("+5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1021 - $x = Math::BigFloat->new("-5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1022 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1023 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1024 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-2); ok 1025 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-3); ok 1026 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-4); ok 1027 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-5); ok 1028 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1029 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1030 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1031 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1032 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1033 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1034 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1035 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1036 - $x = Math::BigFloat->new("+6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1037 - $x = Math::BigFloat->new("-6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1038 - $x = Math::BigFloat->new("+6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1039 - $x = Math::BigFloat->new("-6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1040 - $x = Math::BigFloat->new("+6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1041 - $x = Math::BigFloat->new("-6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1042 - $x = Math::BigFloat->new("+6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1043 - $x = Math::BigFloat->new("-6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1044 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1045 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1046 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-2); ok 1047 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1048 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1049 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1050 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1051 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1052 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1053 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1054 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1055 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1056 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1057 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1058 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1059 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1060 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1061 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1062 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1063 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1064 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1065 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1066 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1067 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1068 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1069 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1070 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1071 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1072 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1073 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1074 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1075 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1076 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1077 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1078 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1079 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1080 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1081 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1082 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1083 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1084 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1085 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1086 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1087 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bcmp($y); ok 1088 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1089 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bcmp($y); ok 1090 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1091 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bcmp($y); ok 1092 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1093 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1094 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bcmp($y); ok 1095 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1096 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bcmp($y); ok 1097 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1098 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bcmp($y); ok 1099 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1100 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bcmp($y); ok 1101 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1102 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bcmp($y); ok 1103 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bcmp($y); ok 1104 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1105 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1106 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1107 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1108 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bcmp($y); ok 1109 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bcmp($y); ok 1110 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1111 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1112 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1113 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1114 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1115 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1116 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1117 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1118 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1119 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bcmp($y); ok 1120 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1121 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bcmp($y); ok 1122 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bcmp($y); ok 1123 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bcmp($y); ok 1124 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bcmp($y); ok 1125 - $x = Math::BigFloat->new("1e1234567890987654321"); $y = Math::BigFloat->new("1e1234567890987654320"); $x->bcmp($y); ok 1126 - $x = Math::BigFloat->new("1e-1234567890987654321"); $y = Math::BigFloat->new("1e-1234567890987654320"); $x->bcmp($y); ok 1127 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1128 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1129 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1130 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1131 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1132 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1133 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1134 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1135 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1136 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1137 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1138 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1139 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1140 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $x->bcmp($y); ok 1141 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1142 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1143 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1144 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1145 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1146 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1147 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1148 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1149 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1150 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1151 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1152 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1153 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1154 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1155 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1156 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bacmp($y); ok 1157 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1158 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bacmp($y); ok 1159 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1160 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bacmp($y); ok 1161 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1162 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1163 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bacmp($y); ok 1164 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1165 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bacmp($y); ok 1166 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1167 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bacmp($y); ok 1168 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1169 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bacmp($y); ok 1170 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1171 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bacmp($y); ok 1172 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bacmp($y); ok 1173 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1174 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1175 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1176 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1177 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bacmp($y); ok 1178 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bacmp($y); ok 1179 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1180 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1181 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1182 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1183 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1184 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1185 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1186 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1187 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1188 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bacmp($y); ok 1189 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1190 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bacmp($y); ok 1191 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bacmp($y); ok 1192 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bacmp($y); ok 1193 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bacmp($y); ok 1194 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1195 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1196 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1197 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1198 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1199 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1200 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1201 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1202 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1203 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1204 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1205 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1206 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1207 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1208 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1209 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1210 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1211 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1212 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1213 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1214 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1215 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1216 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1217 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1218 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1219 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1220 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1221 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1222 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1223 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1224 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1225 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1226 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1227 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1228 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1229 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1230 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1231 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1232 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1233 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1234 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1235 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1236 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1237 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1238 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1239 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1240 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1241 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1242 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1243 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1244 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1245 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1246 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1247 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1248 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1249 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1250 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1251 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1252 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1253 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1254 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1255 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1256 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1257 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1258 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1259 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1260 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1261 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1262 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1263 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1264 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1265 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1266 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1267 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1268 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1269 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1270 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1271 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1272 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1273 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1274 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1275 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1276 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1277 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1278 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1279 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1280 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1281 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1282 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1283 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1284 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1285 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1286 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1287 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1288 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1289 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1290 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1291 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1292 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1293 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1294 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1295 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1296 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1297 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1298 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1299 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1300 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1301 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1302 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1303 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1304 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1305 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1306 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1307 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1308 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1309 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1310 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1311 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1312 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1313 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1314 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1315 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1316 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1317 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1318 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1319 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1320 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1321 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1322 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1323 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1324 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1325 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1326 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1327 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1328 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1329 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1330 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1331 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1332 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1333 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1334 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1335 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1336 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1337 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1338 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1339 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1340 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1341 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1342 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1343 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1344 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1345 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1346 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1347 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1348 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1349 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1350 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1351 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1352 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1353 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1354 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1355 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1356 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1357 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1358 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1359 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1360 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1361 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1362 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1363 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1364 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1365 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1366 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1367 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1368 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1369 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1370 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1371 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1372 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1373 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1374 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1375 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1376 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1377 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1378 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1379 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1380 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1381 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1382 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1383 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1384 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1385 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1386 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1387 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1388 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1389 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1390 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1391 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1392 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1393 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1394 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1395 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1396 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1397 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1398 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1399 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1400 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1401 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1402 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1403 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1404 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1405 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1406 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1407 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1408 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1409 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1410 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1411 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1412 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1413 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1414 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1415 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1416 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1417 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1418 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1419 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1420 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1421 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1422 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1423 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1424 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1425 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1426 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1427 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1428 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1429 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1430 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1431 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1432 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1433 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1434 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1435 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1436 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1437 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1438 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1439 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1440 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1441 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1442 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1443 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1444 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1445 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1446 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1447 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1448 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1449 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1450 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1451 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1452 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1453 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1454 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1455 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1456 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1457 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1458 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1459 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1460 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1461 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1462 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1463 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1464 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1465 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1466 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1467 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1468 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1469 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1470 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1471 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1472 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1473 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1474 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1475 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1476 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1477 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1478 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1479 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1480 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1481 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1482 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1483 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1484 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1485 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1486 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1487 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1488 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1489 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1490 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1491 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1492 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1493 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1494 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1495 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1496 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1497 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1498 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1499 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1500 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1501 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1502 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1503 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1504 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1505 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1506 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1507 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1508 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1509 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1510 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1511 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1512 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1513 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1514 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1515 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1516 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1517 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1518 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1519 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1520 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1521 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1522 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1523 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1524 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1525 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1526 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1527 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1528 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1529 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1530 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1531 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1532 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1533 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1534 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1535 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1536 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1537 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1538 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1539 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1540 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1541 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1542 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1543 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1544 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1545 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1546 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1547 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1548 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1549 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1550 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1551 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1552 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1553 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1554 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1555 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1556 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1557 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1558 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1559 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1560 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1561 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1562 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1563 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1564 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1565 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1566 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1567 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1568 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1569 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1570 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1571 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1572 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1573 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1574 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1575 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1576 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1577 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1578 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1579 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1580 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1581 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1582 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1583 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1584 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1585 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1586 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1587 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1588 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1589 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1590 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1591 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1592 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1593 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1594 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1595 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1596 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1597 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1598 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1599 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1600 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1601 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1602 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1603 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1604 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1605 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1606 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1607 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1608 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1609 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1610 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1611 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1612 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1613 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1614 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1615 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1616 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1617 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1618 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1619 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1620 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1621 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1622 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1623 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1624 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1625 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1626 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1627 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1628 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1629 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1630 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1631 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1632 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1633 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1634 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1635 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1636 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1637 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1638 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1639 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1640 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1641 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1642 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1643 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1644 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1645 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1646 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1647 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1648 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1649 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1650 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1651 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1652 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1653 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1654 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1655 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1656 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1657 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1658 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1659 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1660 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1661 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1662 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1663 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1664 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1665 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1666 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1667 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1668 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1669 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1670 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1671 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1672 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1673 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1674 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1675 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1676 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1677 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1678 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1679 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1680 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1681 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1682 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("4"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1683 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("5"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1684 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1685 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1686 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1687 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1688 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1689 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1690 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1691 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1692 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1693 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1694 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1695 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1696 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1697 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1698 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1699 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1700 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1701 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1702 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1703 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1704 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1705 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1706 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1707 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1708 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1709 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1710 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1711 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1712 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1713 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1714 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1715 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1716 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1717 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1718 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1719 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1720 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1721 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1722 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1723 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1724 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1725 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1726 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1727 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1728 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1729 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1730 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1731 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1732 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1733 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1734 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1735 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1736 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1737 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1738 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1739 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1740 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1741 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1742 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1743 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1744 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1745 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1746 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1747 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1748 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1749 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1750 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1751 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1752 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1753 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1754 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1755 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1756 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1757 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1758 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1759 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1760 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1761 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1762 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1763 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1764 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1765 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1766 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1767 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1768 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1769 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1770 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1771 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1772 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1773 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1774 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1775 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1776 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1777 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1778 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1779 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1780 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1781 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1782 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1783 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1784 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1785 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1786 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1787 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1788 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1789 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1790 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1791 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1792 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1793 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1794 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1795 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1796 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1797 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1798 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1799 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1800 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1801 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1802 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1803 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1804 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1805 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1806 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1807 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1808 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1809 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1810 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1811 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1812 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1813 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1814 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1815 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1816 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1817 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1818 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1819 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1820 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1821 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1822 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1823 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1824 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1825 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1826 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1827 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1828 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1829 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1830 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1831 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1832 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1833 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1834 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1835 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1836 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1837 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1838 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1839 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1840 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1841 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1842 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1843 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1844 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1845 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1846 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1847 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1848 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1849 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1850 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1851 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1852 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1853 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1854 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1855 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1856 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1857 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1858 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1859 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1860 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1861 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1862 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1863 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1864 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1865 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1866 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1867 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1868 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1869 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1870 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1871 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1872 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1873 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1874 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1875 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1876 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1877 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1878 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1879 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1880 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1881 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1882 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1883 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1884 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1885 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1886 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1887 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1888 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1889 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1890 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1891 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1892 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1893 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1894 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1895 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1896 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1897 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1898 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1899 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1900 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1901 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1902 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1903 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1904 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1905 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1906 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1907 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1908 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1909 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1910 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1911 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1912 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1913 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1914 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1915 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1916 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1917 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1918 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1919 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1920 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1921 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1922 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1923 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1924 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1925 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1926 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1927 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1928 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1929 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1930 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1931 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1932 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1933 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1934 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1935 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1936 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1937 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1938 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1939 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1940 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1941 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1942 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1943 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1944 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1945 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1946 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1947 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1948 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1949 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1950 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1951 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1952 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1953 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1954 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1955 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1956 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1957 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1958 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1959 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1960 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1961 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1962 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1963 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1964 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1965 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1966 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1967 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1968 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1969 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1970 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1971 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1972 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1973 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1974 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1975 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1976 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1977 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1978 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1979 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1980 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1981 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1982 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1983 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1984 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1985 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1986 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1987 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1988 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1989 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1990 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1991 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1992 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1993 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1994 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1995 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1996 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1997 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1998 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1999 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2000 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2001 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2002 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2003 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2004 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2005 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2006 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2007 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2008 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2009 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2010 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2011 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2012 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2013 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2014 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2015 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2016 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2017 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2018 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2019 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2020 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2021 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2022 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2023 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2024 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2025 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2026 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2027 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2028 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2029 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2030 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2031 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2032 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2033 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2034 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2035 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2036 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2037 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2038 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2039 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2040 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2041 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2042 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2043 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2044 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2045 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2046 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2047 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2048 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2049 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2050 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2051 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2052 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2053 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2054 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2055 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2056 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2057 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2058 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2059 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2060 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2061 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2062 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2063 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2064 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2065 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2066 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2067 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2068 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2069 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2070 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2071 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2072 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2073 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2074 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2075 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2076 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2077 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2078 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2079 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2080 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2081 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2082 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2083 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2084 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2085 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2086 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2087 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2088 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2089 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2090 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2091 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2092 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2093 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2094 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2095 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2096 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2097 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2098 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2099 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2100 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2101 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2102 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2103 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2104 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2105 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2106 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2107 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2108 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2109 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2110 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2111 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2112 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2113 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2114 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2115 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2116 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2117 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2118 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2119 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2120 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2121 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2122 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2123 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2124 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2125 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2126 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2127 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2128 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2129 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2130 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2131 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2132 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2133 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2134 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2135 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2136 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2137 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2138 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2139 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2140 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2141 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2142 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2143 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2144 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2145 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2146 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2147 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2148 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2149 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2150 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2151 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2152 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2153 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2154 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2155 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2156 - $x = Math::BigFloat->new("123"); $x->is_nan(); ok 2157 - $x = Math::BigFloat->new("abc"); $x->is_nan(); ok 2158 - $x = Math::BigFloat->new("NaN"); $x->is_nan(); ok 2159 - $x = Math::BigFloat->new("-123"); $x->is_nan(); ok 2160 - $x = Math::BigFloat->new("+inf"); $x->is_inf(""); ok 2161 - $x = Math::BigFloat->new("-inf"); $x->is_inf(""); ok 2162 - $x = Math::BigFloat->new("abc"); $x->is_inf(""); ok 2163 - $x = Math::BigFloat->new("1"); $x->is_inf(""); ok 2164 - $x = Math::BigFloat->new("NaN"); $x->is_inf(""); ok 2165 - $x = Math::BigFloat->new("-1"); $x->is_inf(""); ok 2166 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-"); ok 2167 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+"); ok 2168 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-"); ok 2169 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+"); ok 2170 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-inf"); ok 2171 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+inf"); ok 2172 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-inf"); ok 2173 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+inf"); ok 2174 - $x = Math::BigFloat->new("+iNfInItY"); $x->is_inf(""); ok 2175 - $x = Math::BigFloat->new("-InFiNiTy"); $x->is_inf(""); ok 2176 - $x = Math::BigFloat->new("abc"); $x->is_odd(); ok 2177 - $x = Math::BigFloat->new("0"); $x->is_odd(); ok 2178 - $x = Math::BigFloat->new("-1"); $x->is_odd(); ok 2179 - $x = Math::BigFloat->new("-3"); $x->is_odd(); ok 2180 - $x = Math::BigFloat->new("1"); $x->is_odd(); ok 2181 - $x = Math::BigFloat->new("3"); $x->is_odd(); ok 2182 - $x = Math::BigFloat->new("1000001"); $x->is_odd(); ok 2183 - $x = Math::BigFloat->new("1000002"); $x->is_odd(); ok 2184 - $x = Math::BigFloat->new("+inf"); $x->is_odd(); ok 2185 - $x = Math::BigFloat->new("-inf"); $x->is_odd(); ok 2186 - $x = Math::BigFloat->new("123.45"); $x->is_odd(); ok 2187 - $x = Math::BigFloat->new("-123.45"); $x->is_odd(); ok 2188 - $x = Math::BigFloat->new("2"); $x->is_odd(); ok 2189 - $x = Math::BigFloat->new("NaNis_int"); $x->is_int(); ok 2190 - $x = Math::BigFloat->new("0"); $x->is_int(); ok 2191 - $x = Math::BigFloat->new("1"); $x->is_int(); ok 2192 - $x = Math::BigFloat->new("2"); $x->is_int(); ok 2193 - $x = Math::BigFloat->new("-2"); $x->is_int(); ok 2194 - $x = Math::BigFloat->new("-1"); $x->is_int(); ok 2195 - $x = Math::BigFloat->new("-inf"); $x->is_int(); ok 2196 - $x = Math::BigFloat->new("+inf"); $x->is_int(); ok 2197 - $x = Math::BigFloat->new("123.4567"); $x->is_int(); ok 2198 - $x = Math::BigFloat->new("-0.1"); $x->is_int(); ok 2199 - $x = Math::BigFloat->new("-0.002"); $x->is_int(); ok 2200 - $x = Math::BigFloat->new("abc"); $x->is_even(); ok 2201 - $x = Math::BigFloat->new("0"); $x->is_even(); ok 2202 - $x = Math::BigFloat->new("-1"); $x->is_even(); ok 2203 - $x = Math::BigFloat->new("-3"); $x->is_even(); ok 2204 - $x = Math::BigFloat->new("1"); $x->is_even(); ok 2205 - $x = Math::BigFloat->new("3"); $x->is_even(); ok 2206 - $x = Math::BigFloat->new("1000001"); $x->is_even(); ok 2207 - $x = Math::BigFloat->new("1000002"); $x->is_even(); ok 2208 - $x = Math::BigFloat->new("2"); $x->is_even(); ok 2209 - $x = Math::BigFloat->new("+inf"); $x->is_even(); ok 2210 - $x = Math::BigFloat->new("-inf"); $x->is_even(); ok 2211 - $x = Math::BigFloat->new("123.456"); $x->is_even(); ok 2212 - $x = Math::BigFloat->new("-123.456"); $x->is_even(); ok 2213 - $x = Math::BigFloat->new("0.01"); $x->is_even(); ok 2214 - $x = Math::BigFloat->new("-0.01"); $x->is_even(); ok 2215 - $x = Math::BigFloat->new("120"); $x->is_even(); ok 2216 - $x = Math::BigFloat->new("1200"); $x->is_even(); ok 2217 - $x = Math::BigFloat->new("-1200"); $x->is_even(); ok 2218 - $x = Math::BigFloat->new("0"); $x->is_positive(); ok 2219 - $x = Math::BigFloat->new("1"); $x->is_positive(); ok 2220 - $x = Math::BigFloat->new("-1"); $x->is_positive(); ok 2221 - $x = Math::BigFloat->new("-123"); $x->is_positive(); ok 2222 - $x = Math::BigFloat->new("NaN"); $x->is_positive(); ok 2223 - $x = Math::BigFloat->new("-inf"); $x->is_positive(); ok 2224 - $x = Math::BigFloat->new("+inf"); $x->is_positive(); ok 2225 - $x = Math::BigFloat->new("0"); $x->is_negative(); ok 2226 - $x = Math::BigFloat->new("1"); $x->is_negative(); ok 2227 - $x = Math::BigFloat->new("-1"); $x->is_negative(); ok 2228 - $x = Math::BigFloat->new("-123"); $x->is_negative(); ok 2229 - $x = Math::BigFloat->new("NaN"); $x->is_negative(); ok 2230 - $x = Math::BigFloat->new("-inf"); $x->is_negative(); ok 2231 - $x = Math::BigFloat->new("+inf"); $x->is_negative(); ok 2232 - $x = Math::BigFloat->new("0"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2233 - $x = Math::BigFloat->new("1"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2234 - $x = Math::BigFloat->new("123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2235 - $x = Math::BigFloat->new("-123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2236 - $x = Math::BigFloat->new("-1200"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2237 - $x = Math::BigFloat->new("NaNparts"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2238 - $x = Math::BigFloat->new("+inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2239 - $x = Math::BigFloat->new("-inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2240 - $x = Math::BigFloat->new("0"); $x->exponent()->bstr(); ok 2241 - $x = Math::BigFloat->new("1"); $x->exponent()->bstr(); ok 2242 - $x = Math::BigFloat->new("123"); $x->exponent()->bstr(); ok 2243 - $x = Math::BigFloat->new("-123"); $x->exponent()->bstr(); ok 2244 - $x = Math::BigFloat->new("-1200"); $x->exponent()->bstr(); ok 2245 - $x = Math::BigFloat->new("+inf"); $x->exponent()->bstr(); ok 2246 - $x = Math::BigFloat->new("-inf"); $x->exponent()->bstr(); ok 2247 - $x = Math::BigFloat->new("NaNexponent"); $x->exponent()->bstr(); ok 2248 - $x = Math::BigFloat->new("0"); $x->mantissa()->bstr(); ok 2249 - $x = Math::BigFloat->new("1"); $x->mantissa()->bstr(); ok 2250 - $x = Math::BigFloat->new("123"); $x->mantissa()->bstr(); ok 2251 - $x = Math::BigFloat->new("-123"); $x->mantissa()->bstr(); ok 2252 - $x = Math::BigFloat->new("-1200"); $x->mantissa()->bstr(); ok 2253 - $x = Math::BigFloat->new("+inf"); $x->mantissa()->bstr(); ok 2254 - $x = Math::BigFloat->new("-inf"); $x->mantissa()->bstr(); ok 2255 - $x = Math::BigFloat->new("NaNmantissa"); $x->mantissa()->bstr(); ok 2256 - $x = Math::BigFloat->new("123"); $x->length(); ok 2257 - $x = Math::BigFloat->new("-123"); $x->length(); ok 2258 - $x = Math::BigFloat->new("0"); $x->length(); ok 2259 - $x = Math::BigFloat->new("1"); $x->length(); ok 2260 - $x = Math::BigFloat->new("12345678901234567890"); $x->length(); ok 2261 - $x = Math::BigFloat->new("NaNzero"); $x->is_zero(); ok 2262 - $x = Math::BigFloat->new("+inf"); $x->is_zero(); ok 2263 - $x = Math::BigFloat->new("-inf"); $x->is_zero(); ok 2264 - $x = Math::BigFloat->new("0"); $x->is_zero(); ok 2265 - $x = Math::BigFloat->new("-1"); $x->is_zero(); ok 2266 - $x = Math::BigFloat->new("1"); $x->is_zero(); ok 2267 - $x = Math::BigFloat->new("NaNone"); $x->is_one(); ok 2268 - $x = Math::BigFloat->new("+inf"); $x->is_one(); ok 2269 - $x = Math::BigFloat->new("-inf"); $x->is_one(); ok 2270 - $x = Math::BigFloat->new("0"); $x->is_one(); ok 2271 - $x = Math::BigFloat->new("2"); $x->is_one(); ok 2272 - $x = Math::BigFloat->new("1"); $x->is_one(); ok 2273 - $x = Math::BigFloat->new("-1"); $x->is_one(); ok 2274 - $x = Math::BigFloat->new("-2"); $x->is_one(); ok 2275 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2276 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2277 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2278 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2279 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2280 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2281 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2282 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2283 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2284 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2285 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2286 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2287 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2288 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2289 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2290 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2291 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2292 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2293 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2294 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2295 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2296 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2297 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2298 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2299 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2300 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2301 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2302 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2303 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2304 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2305 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2306 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2307 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2308 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2309 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2310 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2311 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2312 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2313 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2314 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2315 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2316 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2317 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2318 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2319 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2320 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2321 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2322 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2323 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2324 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2325 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2326 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2327 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2328 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2329 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2330 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2331 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2332 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2333 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2334 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2335 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2336 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2337 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2338 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2339 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2340 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2341 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2342 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2343 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2344 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2345 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2346 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2347 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2348 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2349 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2350 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2351 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2352 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2353 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2354 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2355 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2356 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2357 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $y ok 2358 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $x ok 2359 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsstr() ok 2360 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->exponent() ok 2361 - Math::BigFloat->new("1e1234567890123456789012345678901234567890") > 0 ok 2362 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsub("1e1234567890123456789012345678901234567890") ok 2363 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bmul(2)->bsstr() ok 2364 - Math::BigFloat->new("1234567890123456789012345678901234567890e2")->mantissa() ok 2365 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_a} ok 2366 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_p} ok 2367 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_a} ok 2368 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_p} ok 2369 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_a} ok 2370 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_p} ok 2371 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_a} ok 2372 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_p} ok 2373 - Math::BigFloat->bzero() ok 2374 - Math::BigFloat->bone() ok 2375 - Math::BigFloat->bone("+") ok 2376 - Math::BigFloat->bone("-") ok 2377 - Math::BigFloat->bnan() ok 2378 - Math::BigFloat->binf() ok 2379 - Math::BigFloat->binf("+") ok 2380 - Math::BigFloat->binf("-") ok 2381 - Math::BigFloat->binf("-inf") ok 2382 - $x = Math::BigFloat->new(12); Math::BigFloat->precision(-2); $x->bsqrt(); ok 2383 - Math::BigFloat->precision(undef); $x = Math::BigFloat->new(12); Math::BigFloat->precision(0); $x->bsqrt(); ok 2384 - Math::BigFloat->precision(-3); $x = Math::BigFloat->new(12); $x->bsqrt(); ok 2385 - A and P set => NaN ok 2386 - supplied arg overrides set global ok 2387 - @args = Math::BigFloat::objectify(2, Math::BigFloat, 4, 5); join(" ", @args); ok 2388 - Math::BigFloat->new(-1)->is_one() ok 2389 - Math::BigFloat->new(-1)->is_one("-") ok 2390 - Math::BigFloat->new(1)->bdiv("0.5")->bsstr() ok 2391 - $x = Math::BigFloat->new(3); $x -= $x; ok 2392 - $x = Math::BigFloat->new(-3); $x -= $x; ok 2393 - $x = Math::BigFloat->new(3); $x += $x; ok 2394 - $x = Math::BigFloat->new(-3); $x += $x; ok 2395 - $x = Math::BigFloat->new("NaN"); $x -= $x; ok 2396 - $x = Math::BigFloat->new("inf"); $x -= $x; ok 2397 - $x = Math::BigFloat->new("-inf"); $x -= $x; ok 2398 - $x = Math::BigFloat->new("NaN"); $x += $x; ok 2399 - $x = Math::BigFloat->new("inf"); $x += $x; ok 2400 - $x = Math::BigFloat->new("-inf"); $x += $x; ok 2401 - $x = Math::BigFloat->new("3.14"); $x -= $x; ok 2402 - $x = Math::BigFloat->new("-3.14"); $x -= $x; ok 2403 - 6.28 = Math::BigFloat->new("3.14"); 6.28 += 6.28; ok 2404 - -6.28 = Math::BigFloat->new("-3.14"); -6.28 += -6.28; ok 2405 - 9.8596 = Math::BigFloat->new("3.14"); 9.8596 *= 9.8596; ok 2406 - 9.8596 = Math::BigFloat->new("-3.14"); 9.8596 *= 9.8596; ok 2407 - 1 = Math::BigFloat->new("3.14"); 1 /= 1; ok 2408 - 1 = Math::BigFloat->new("-3.14"); 1 /= 1; ok 2409 - 0 = Math::BigFloat->new("3.14"); 0 %= 0; ok 2410 - 0 = Math::BigFloat->new("-3.14"); 0 %= 0; ok 2411 - $x = Math::BigFloat->new(0); $y = Math::BigFloat->new("0.1"); $x ** $y ok 2412 - 1 = Math::BigFloat->new(".222222222222222222222222222222222222222222"); 1->bceil(); ok 2413 - value of ((2**148)+1)/17 ok 2414 - number of digits in ((2**148)+1)/17 ok 2415 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y ok 2416 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x ok 2417 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y ok 2418 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y; $x ok 2419 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); ok 2420 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y ok 2421 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y; $x ok t/bigintc.t ................................... 1..379 # BASE_LEN = 9 # MAX_VAL = 999999999 # AND_BITS = 29 # XOR_BITS = 29 # IOR_BITS = 29 ok 1 - ref($x) is an Math::BigInt::Calc ok 2 - Math::BigInt::Calc->_str($x) = 123 ok 3 - Math::BigInt::Calc->_str($y) = 321 ok 4 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_add($x, $y)) = 444 ok 5 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_sub($x, $y)) = 123 ok 6 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_mul($x, $y)) = 39483 ok 7 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_div($x, $y)) = 123 ok 8 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_mul($x, $y)) = 39483 ok 9 - Math::BigInt::Calc->_str($x) = 39483 ok 10 - Math::BigInt::Calc->_str($y) = 321 ok 11 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_div($x, $y)) = 123 ok 12 - Math::BigInt::Calc->_str($x) = 123 ok 13 - Math::BigInt::Calc->_str($y) = 321 ok 14 - "$x1" = "$x" ok 15 - "$x1" = "$x" ok 16 - Math::BigInt::Calc->_str($r1) = "0" ok 17 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_add($x, $z)) = 39485 ok 18 - Math::BigInt::Calc->_str($re) = 123 ok 19 - Math::BigInt::Calc->_str($rr) = 2 ok 20 - Math::BigInt::Calc->_is_zero($x) || 0 = 0 ok 21 - Math::BigInt::Calc->_is_one($x) || 0 = 0 ok 22 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_zero()) = "0" ok 23 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_one()) = "1" ok 24 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_two()) = "2" ok 25 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_ten()) = "10" ok 26 - Math::BigInt::Calc->_is_ten(Math::BigInt::Calc->_two()) = 0 ok 27 - Math::BigInt::Calc->_is_two(Math::BigInt::Calc->_two()) = 1 ok 28 - Math::BigInt::Calc->_is_ten(Math::BigInt::Calc->_ten()) = 1 ok 29 - Math::BigInt::Calc->_is_two(Math::BigInt::Calc->_ten()) = 0 ok 30 - Math::BigInt::Calc->_is_one(Math::BigInt::Calc->_one()) = 1 ok 31 - Math::BigInt::Calc->_is_one(Math::BigInt::Calc->_two()) = 0 ok 32 - Math::BigInt::Calc->_is_one(Math::BigInt::Calc->_ten()) = 0 ok 33 - Math::BigInt::Calc->_is_one(Math::BigInt::Calc->_zero()) || 0 = 0 ok 34 - Math::BigInt::Calc->_is_zero(Math::BigInt::Calc->_zero()) = 1 ok 35 - Math::BigInt::Calc->_is_zero(Math::BigInt::Calc->_one()) || 0 = 0 ok 36 - Math::BigInt::Calc->_is_odd(Math::BigInt::Calc->_one()) = 1 ok 37 - Math::BigInt::Calc->_is_odd(Math::BigInt::Calc->_zero()) || 0 = 0 ok 38 - Math::BigInt::Calc->_is_even(Math::BigInt::Calc->_one()) || 0 = 0 ok 39 - Math::BigInt::Calc->_is_even(Math::BigInt::Calc->_zero()) = 1 ok 40 - Math::BigInt::Calc->_alen($x) = 1 ok 41 - Math::BigInt::Calc->_alen($x) = 2 ok 42 - Math::BigInt::Calc->_alen($x) = 3 ok 43 - Math::BigInt::Calc->_alen($x) = 4 ok 44 - Math::BigInt::Calc->_alen($x) = 5 ok 45 - Math::BigInt::Calc->_alen($x) = 6 ok 46 - Math::BigInt::Calc->_alen($x) = 7 ok 47 - Math::BigInt::Calc->_alen($x) = 8 ok 48 - Math::BigInt::Calc->_alen($x) = 9 ok 49 - Math::BigInt::Calc->_alen($x) = 1 ok 50 - Math::BigInt::Calc->_alen($x) = 2 ok 51 - Math::BigInt::Calc->_alen($x) = 3 ok 52 - Math::BigInt::Calc->_alen($x) = 4 ok 53 - Math::BigInt::Calc->_alen($x) = 5 ok 54 - Math::BigInt::Calc->_alen($x) = 6 ok 55 - Math::BigInt::Calc->_alen($x) = 7 ok 56 - Math::BigInt::Calc->_alen($x) = 8 ok 57 - Math::BigInt::Calc->_alen($x) = 9 ok 58 - Math::BigInt::Calc->_alen($x) = 1 ok 59 - Math::BigInt::Calc->_alen($x) = 2 ok 60 - Math::BigInt::Calc->_alen($x) = 3 ok 61 - Math::BigInt::Calc->_alen($x) = 4 ok 62 - Math::BigInt::Calc->_alen($x) = 5 ok 63 - Math::BigInt::Calc->_alen($x) = 6 ok 64 - Math::BigInt::Calc->_alen($x) = 7 ok 65 - Math::BigInt::Calc->_alen($x) = 8 ok 66 - Math::BigInt::Calc->_alen($x) = 9 ok 67 - Math::BigInt::Calc->_len($x) = 1 ok 68 - Math::BigInt::Calc->_len($x) = 2 ok 69 - Math::BigInt::Calc->_len($x) = 3 ok 70 - Math::BigInt::Calc->_len($x) = 4 ok 71 - Math::BigInt::Calc->_len($x) = 5 ok 72 - Math::BigInt::Calc->_len($x) = 6 ok 73 - Math::BigInt::Calc->_len($x) = 7 ok 74 - Math::BigInt::Calc->_len($x) = 8 ok 75 - Math::BigInt::Calc->_len($x) = 1 ok 76 - Math::BigInt::Calc->_len($x) = 2 ok 77 - Math::BigInt::Calc->_len($x) = 3 ok 78 - Math::BigInt::Calc->_len($x) = 4 ok 79 - Math::BigInt::Calc->_len($x) = 5 ok 80 - Math::BigInt::Calc->_len($x) = 6 ok 81 - Math::BigInt::Calc->_len($x) = 7 ok 82 - Math::BigInt::Calc->_len($x) = 8 ok 83 - Math::BigInt::Calc->_len($x) = 9 ok 84 - Math::BigInt::Calc->_len($x) = 1 ok 85 - Math::BigInt::Calc->_len($x) = 2 ok 86 - Math::BigInt::Calc->_len($x) = 3 ok 87 - Math::BigInt::Calc->_len($x) = 4 ok 88 - Math::BigInt::Calc->_len($x) = 5 ok 89 - Math::BigInt::Calc->_len($x) = 6 ok 90 - Math::BigInt::Calc->_len($x) = 7 ok 91 - Math::BigInt::Calc->_len($x) = 8 ok 92 - Math::BigInt::Calc->_len($x) = 9 ok 93 - Math::BigInt::Calc->_len($x) = 1 ok 94 - Math::BigInt::Calc->_len($x) = 2 ok 95 - Math::BigInt::Calc->_len($x) = 3 ok 96 - Math::BigInt::Calc->_len($x) = 4 ok 97 - Math::BigInt::Calc->_len($x) = 5 ok 98 - Math::BigInt::Calc->_len($x) = 6 ok 99 - Math::BigInt::Calc->_len($x) = 7 ok 100 - Math::BigInt::Calc->_len($x) = 8 ok 101 - Math::BigInt::Calc->_len($x) = 9 ok 102 - Math::BigInt::Calc->_len($x) = 1 ok 103 - Math::BigInt::Calc->_len($x) = 2 ok 104 - Math::BigInt::Calc->_len($x) = 3 ok 105 - Math::BigInt::Calc->_len($x) = 4 ok 106 - Math::BigInt::Calc->_len($x) = 5 ok 107 - Math::BigInt::Calc->_len($x) = 6 ok 108 - Math::BigInt::Calc->_len($x) = 7 ok 109 - Math::BigInt::Calc->_len($x) = 8 ok 110 - Math::BigInt::Calc->_digit($x, 0) = 9 ok 111 - Math::BigInt::Calc->_digit($x, 1) = 8 ok 112 - Math::BigInt::Calc->_digit($x, 2) = 7 ok 113 - Math::BigInt::Calc->_digit($x, 8) = 1 ok 114 - Math::BigInt::Calc->_digit($x, 9) = 0 ok 115 - Math::BigInt::Calc->_digit($x, -1) = 1 ok 116 - Math::BigInt::Calc->_digit($x, -2) = 2 ok 117 - Math::BigInt::Calc->_digit($x, -3) = 3 ok 118 - Math::BigInt::Calc->_digit($x, -9) = 9 ok 119 - Math::BigInt::Calc->_digit($x, -10) = 0 ok 120 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "1" ok 121 - Math::BigInt::Calc->_str($x) = "1" ok 122 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "12" ok 123 - Math::BigInt::Calc->_str($x) = "12" ok 124 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "123" ok 125 - Math::BigInt::Calc->_str($x) = "123" ok 126 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "1234" ok 127 - Math::BigInt::Calc->_str($x) = "1234" ok 128 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "12345" ok 129 - Math::BigInt::Calc->_str($x) = "12345" ok 130 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "123456" ok 131 - Math::BigInt::Calc->_str($x) = "123456" ok 132 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "1234567" ok 133 - Math::BigInt::Calc->_str($x) = "1234567" ok 134 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "12345678" ok 135 - Math::BigInt::Calc->_str($x) = "12345678" ok 136 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_copy($x)) = "123456789" ok 137 - Math::BigInt::Calc->_str($x) = "123456789" ok 138 - Math::BigInt::Calc->_zeros($x) = 6 ok 139 - Math::BigInt::Calc->_zeros($x) = 0 ok 140 - Math::BigInt::Calc->_zeros($x) = 3 ok 141 - Math::BigInt::Calc->_zeros($x) = 0 ok 142 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_lsft($x, $y, 10)) = 10000 ok 143 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_lsft($x, $y, 10)) = 20000 ok 144 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_lsft($x, $y, 2)) = 128 << 4 ok 145 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_rsft($x, $y, 10)) = 1 ok 146 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_rsft($x, $y, 10)) = 20 ok 147 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_rsft($x, $y, 2)) = 256 >> 4 ok 148 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_rsft($x, $y, 10)) = 0 ok 149 - Math::BigInt::Calc->_acmp($x, $y) = -1 ok 150 - Math::BigInt::Calc->_acmp($y, $x) = 1 ok 151 - Math::BigInt::Calc->_acmp($x, $x) = 0 ok 152 - Math::BigInt::Calc->_acmp($y, $y) = 0 ok 153 - Math::BigInt::Calc->_acmp($x, $y) = 0 ok 154 - Math::BigInt::Calc->_acmp($x, $y) = 1 ok 155 - Math::BigInt::Calc->_acmp($y, $x) = -1 ok 156 - Math::BigInt::Calc->_acmp($x, $y) = -1 ok 157 - Math::BigInt::Calc->_acmp($y, $x) = +1 ok 158 - Math::BigInt::Calc->_acmp($x, $y) = 1 ok 159 - Math::BigInt::Calc->_acmp($y, $x) = -1 ok 160 - Math::BigInt::Calc->_acmp($x, $x) = 0 ok 161 - Math::BigInt::Calc->_acmp($y, $y) = 0 ok 162 - Math::BigInt::Calc->_acmp($x, $y) = -1 ok 163 - Math::BigInt::Calc->_acmp($y, $x) = 1 ok 164 - Math::BigInt::Calc->_acmp($x, $x) = 0 ok 165 - Math::BigInt::Calc->_acmp($y, $y) = 0 ok 166 - Math::BigInt::Calc->_str($xmod) = "629" ok 167 - $sign = "-" ok 168 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_div($x, $y))) = 3 ok 169 - Math::BigInt::Calc->_str($x) = 30 ok 170 - Math::BigInt::Calc->_str($y) = 3 ok 171 - Math::BigInt::Calc->_str($x) = 0 ok 172 - Math::BigInt::Calc->_str($y) = 123 ok 173 - ref($x) = "Math::BigInt::Calc" ok 174 - Math::BigInt::Calc->_str($x) = "1" ok 175 - ref($x) = "" ok 176 - $x = 1 ok 177 - ref($x) = "Math::BigInt::Calc" ok 178 - Math::BigInt::Calc->_str($x) = "12" ok 179 - ref($x) = "" ok 180 - $x = 12 ok 181 - ref($x) = "Math::BigInt::Calc" ok 182 - Math::BigInt::Calc->_str($x) = "123" ok 183 - ref($x) = "" ok 184 - $x = 123 ok 185 - ref($x) = "Math::BigInt::Calc" ok 186 - Math::BigInt::Calc->_str($x) = "1234" ok 187 - ref($x) = "" ok 188 - $x = 1234 ok 189 - ref($x) = "Math::BigInt::Calc" ok 190 - Math::BigInt::Calc->_str($x) = "12345" ok 191 - ref($x) = "" ok 192 - $x = 12345 ok 193 - ref($x) = "Math::BigInt::Calc" ok 194 - Math::BigInt::Calc->_str($x) = "1234567" ok 195 - ref($x) = "" ok 196 - $x = 1234567 ok 197 - ref($x) = "Math::BigInt::Calc" ok 198 - Math::BigInt::Calc->_str($x) = "12345678" ok 199 - ref($x) = "" ok 200 - $x = 12345678 ok 201 - ref($x) = "Math::BigInt::Calc" ok 202 - Math::BigInt::Calc->_str($x) = "123456789" ok 203 - ref($x) = "" ok 204 - $x = 123456789 ok 205 - ref($x) = "Math::BigInt::Calc" ok 206 - Math::BigInt::Calc->_str($x) = "1234567890" ok 207 - ref($x) = "" ok 208 - $x = 1234567890 ok 209 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_sqrt($x)) = "12" ok 210 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_sqrt($x)) = "12000000" ok 211 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "4" ok 212 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "3" ok 213 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 0 ok 214 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 1 ok 215 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 1 ok 216 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 5 ok 217 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 81 ** 3 ok 218 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 81 ok 219 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 81 ** 3 ok 220 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = "150094635296999121" ok 221 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "531441" ok 222 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "81" ok 223 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = "523347633027360537213511521" ok 224 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "81" ok 225 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "80" ok 226 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = "81" ok 227 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 9801 # _root( 99, 99) ok 228 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 229 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 9 ok 230 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 998001 # _root( 999, 999) ok 231 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 232 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 31 ok 233 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 99980001 # _root( 9999, 9999) ok 234 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 235 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 99 ok 236 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 9999800001 # _root( 99999, 99999) ok 237 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 238 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 316 ok 239 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 999998000001 # _root( 999999, 999999) ok 240 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 241 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 999 ok 242 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 99999980000001 # _root( 9999999, 9999999) ok 243 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 244 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 3162 ok 245 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 9999999800000001 # _root( 99999999, 99999999) ok 246 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 247 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 9999 ok 248 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_pow($x, $n)) = 999999998000000001 # _root( 999999999, 999999999) ok 249 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = '1' ok 250 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_root($x, $n)) = 31622 ok 251 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "1" ok 252 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "1" ok 253 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "2" ok 254 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "6" ok 255 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "24" ok 256 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "120" ok 257 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "3628800" ok 258 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "39916800" ok 259 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "479001600" ok 260 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_fac($x)) = "6227020800" ok 261 - Math::BigInt::Calc->_str($x) = "6" ok 262 - Math::BigInt::Calc->_str($x) = "6227020800" ok 263 - Math::BigInt::Calc->_str($x) = 2 ok 264 - Math::BigInt::Calc->_str($x) = 1 ok 265 - Math::BigInt::Calc->_str($x) = 12 ok 266 - Math::BigInt::Calc->_str($x) = 11 ok 267 - Math::BigInt::Calc->_str($x) = 122 ok 268 - Math::BigInt::Calc->_str($x) = 121 ok 269 - Math::BigInt::Calc->_str($x) = 1232 ok 270 - Math::BigInt::Calc->_str($x) = 1231 ok 271 - Math::BigInt::Calc->_str($x) = 12342 ok 272 - Math::BigInt::Calc->_str($x) = 12341 ok 273 - Math::BigInt::Calc->_str($x) = 1234562 ok 274 - Math::BigInt::Calc->_str($x) = 1234561 ok 275 - Math::BigInt::Calc->_str($x) = 12345672 ok 276 - Math::BigInt::Calc->_str($x) = 12345671 ok 277 - Math::BigInt::Calc->_str($x) = 123456782 ok 278 - Math::BigInt::Calc->_str($x) = 123456781 ok 279 - Math::BigInt::Calc->_str($x) = 1234567892 ok 280 - Math::BigInt::Calc->_str($x) = 1234567891 ok 281 - Math::BigInt::Calc->_str($x) = 20 ok 282 - Math::BigInt::Calc->_str($x) = 19 ok 283 - Math::BigInt::Calc->_str($x) = 120 ok 284 - Math::BigInt::Calc->_str($x) = 119 ok 285 - Math::BigInt::Calc->_str($x) = 1220 ok 286 - Math::BigInt::Calc->_str($x) = 1219 ok 287 - Math::BigInt::Calc->_str($x) = 12320 ok 288 - Math::BigInt::Calc->_str($x) = 12319 ok 289 - Math::BigInt::Calc->_str($x) = 1234520 ok 290 - Math::BigInt::Calc->_str($x) = 1234519 ok 291 - Math::BigInt::Calc->_str($x) = 12345620 ok 292 - Math::BigInt::Calc->_str($x) = 12345619 ok 293 - Math::BigInt::Calc->_str($x) = 123456720 ok 294 - Math::BigInt::Calc->_str($x) = 123456719 ok 295 - Math::BigInt::Calc->_str($x) = 1234567820 ok 296 - Math::BigInt::Calc->_str($x) = 1234567819 ok 297 - Math::BigInt::Calc->_str($x) = 1000 ok 298 - Math::BigInt::Calc->_str($x) = 999 ok 299 - Math::BigInt::Calc->_str($x) = 10000 ok 300 - Math::BigInt::Calc->_str($x) = 9999 ok 301 - Math::BigInt::Calc->_str($x) = 100000 ok 302 - Math::BigInt::Calc->_str($x) = 99999 ok 303 - Math::BigInt::Calc->_str($x) = 10000000 ok 304 - Math::BigInt::Calc->_str($x) = 9999999 ok 305 - Math::BigInt::Calc->_str($x) = 100000000 ok 306 - Math::BigInt::Calc->_str($x) = 99999999 ok 307 - Math::BigInt::Calc->_str($x) = 1000000000 ok 308 - Math::BigInt::Calc->_str($x) = 999999999 ok 309 - Math::BigInt::Calc->_str($x) = 10000000000 ok 310 - Math::BigInt::Calc->_str($x) = 9999999999 ok 311 - Math::BigInt::Calc->_str($x) = 100000000000 ok 312 - Math::BigInt::Calc->_str($x) = 99999999999 ok 313 - Math::BigInt::Calc->_str($x) = "1001" ok 314 - Math::BigInt::Calc->_str($x) = "1000" ok 315 - Math::BigInt::Calc->_str($x) = 1000000001 ok 316 - Math::BigInt::Calc->_str($x) = 999999999 ok 317 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_mod($x, $y))) = 1 ok 318 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_mod($x, $y))) = 0 ok 319 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_xor($x, $y))) = 7 ok 320 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_or($x, $y))) = 7 ok 321 - Math::BigInt::Calc->_str(scalar(Math::BigInt::Calc->_and($x, $y))) = 1 ok 322 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_hex("0xFf")) = 255 ok 323 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_bin("0b10101011")) = 160+11 ok 324 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct("0100")) = 8*8 ok 325 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct("01000")) = 8*8*8 ok 326 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct("010001")) = 8*8*8*8+1 ok 327 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct("010007")) = 8*8*8*8+7 ok 328 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_hex(Math::BigInt::Calc->_as_hex(Math::BigInt::Calc->_new("128")))) = 128 ok 329 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_bin(Math::BigInt::Calc->_as_bin(Math::BigInt::Calc->_new("128")))) = 128 ok 330 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("128")))) = 128 ok 331 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("123456")))) = 123456 ok 332 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("123456789")))) = "123456789" ok 333 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("1234567890123")))) = "1234567890123" ok 334 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_hex(Math::BigInt::Calc->_as_hex(Math::BigInt::Calc->_new("123456789012345678901234567890")))) = "123456789012345678901234567890" ok 335 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_bin(Math::BigInt::Calc->_as_bin(Math::BigInt::Calc->_new("123456789012345678901234567890")))) = "123456789012345678901234567890" ok 336 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("123456789012345678901234567890")))) = "123456789012345678901234567890" ok 337 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_hex(Math::BigInt::Calc->_as_hex(Math::BigInt::Calc->_new("0")))) = 0 ok 338 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_bin(Math::BigInt::Calc->_as_bin(Math::BigInt::Calc->_new("0")))) = 0 ok 339 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_from_oct(Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("0")))) = 0 ok 340 - Math::BigInt::Calc->_as_hex(Math::BigInt::Calc->_new("0")) = "0x0" ok 341 - Math::BigInt::Calc->_as_bin(Math::BigInt::Calc->_new("0")) = "0b0" ok 342 - Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("0")) = "00" ok 343 - Math::BigInt::Calc->_as_hex(Math::BigInt::Calc->_new("12")) = "0xc" ok 344 - Math::BigInt::Calc->_as_bin(Math::BigInt::Calc->_new("12")) = "0b1100" ok 345 - Math::BigInt::Calc->_as_oct(Math::BigInt::Calc->_new("64")) = "0100" ok 346 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_1ex(0)) = "1" ok 347 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_1ex(1)) = "10" ok 348 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_1ex(2)) = "100" ok 349 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_1ex(12)) = "1000000000000" ok 350 - Math::BigInt::Calc->_str(Math::BigInt::Calc->_1ex(16)) = "10000000000000000" ok 351 - Math::BigInt::Calc->_check($x) = 0 ok 352 - Math::BigInt::Calc->_check(123) = "123 is not a reference" ok 353 - @$x = 1 ok 354 - $x->[0] = 0 ok 355 - @$x = 1 ok 356 - $x->[0] = 0 ok 357 - @$x = 1 ok 358 - $x->[0] = 1 ok 359 - @$x = 2 ok 360 - $x->[0] = 0 ok 361 - $x->[1] = 1 ok 362 - @$x = 3 ok 363 - $x->[0] = 0 ok 364 - $x->[1] = 1 ok 365 - $x->[2] = 2 ok 366 - @$x = 3 ok 367 - $x->[0] = 0 ok 368 - $x->[1] = 1 ok 369 - $x->[2] = 2 ok 370 - @$x = 3 ok 371 - $x->[0] = 0 ok 372 - $x->[1] = 1 ok 373 - $x->[2] = 2 ok 374 - @$x = 3 ok 375 - $x->[0] = 0 ok 376 - $x->[1] = 1 ok 377 - $x->[2] = 2 ok 378 - @$x = 1 ok 379 - $x->[0] = 0 ok t/bigintpm.t .................................. 1..3933 ok 1 - 'bgcd() as function' isa 'Math::BigInt' ok 2 - bgcd() as function ok 3 - 'bgcd() as class method' isa 'Math::BigInt' ok 4 - bgcd() as class method ok 5 - 'bgcd() as instance method' isa 'Math::BigInt' ok 6 - bgcd() as instance method ok 7 - bgcd() does not modify invocand ok 8 - 'blcm() as function' isa 'Math::BigInt' ok 9 - blcm() as function ok 10 - 'blcm() as class method' isa 'Math::BigInt' ok 11 - blcm() as class method ok 12 - 'blcm() as instance method' isa 'Math::BigInt' ok 13 - blcm() as instance method ok 14 - blcm() does not modify invocand ok 15 - Math::BigInt->from_hex("0xcafe") ok 16 - Math::BigInt->from_hex("0xcafebabedead") ok 17 - Math::BigInt->from_bin("0b1001") ok 18 - Math::BigInt->from_bin("0b1001100110011001100110011001"); ok 19 - Math::BigInt->from_oct("0775"); ok 20 - Math::BigInt->from_oct("07777777777777711111111222222222"); ok 21 - Math::BigInt->config('lib') ok 22 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("-345"); $x .= $y; ok 23 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x += $y; ok 24 - is a valid object ok 25 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x += $y; ok 26 - is a valid object ok 27 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x -= $y; ok 28 - is a valid object ok 29 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x -= $y; ok 30 - is a valid object ok 31 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x *= $y; ok 32 - is a valid object ok 33 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x *= $y; ok 34 - is a valid object ok 35 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x %= $y; ok 36 - is a valid object ok 37 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("9"); $x %= $y; ok 38 - is a valid object ok 39 - $x = Math::BigInt->new("-629"); $y = Math::BigInt->new("5033"); $x %= $y; ok 40 - is a valid object ok 41 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x /= $y; ok 42 - is a valid object ok 43 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("2"); $x /= $y; ok 44 - is a valid object ok 45 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x |= $y; ok 46 - is a valid object ok 47 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x &= $y; ok 48 - is a valid object ok 49 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x ^= $y; ok 50 - is a valid object ok 51 - $x = Math::BigInt->new("NaNlog"); $y = Math::BigInt->new("2"); $x->blog($y); ok 52 - is a valid object ok 53 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("NaNlog"); $x->blog($y); ok 54 - is a valid object ok 55 - $x = Math::BigInt->new("NaNlog1"); $y = Math::BigInt->new("NaNlog"); $x->blog($y); ok 56 - is a valid object ok 57 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 58 - is a valid object ok 59 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("122"); $x->blog($y); ok 60 - is a valid object ok 61 - $x = Math::BigInt->new("122"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 62 - is a valid object ok 63 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("122"); $x->blog($y); ok 64 - is a valid object ok 65 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 66 - is a valid object ok 67 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $x->blog($y); ok 68 - is a valid object ok 69 - $x = Math::BigInt->new("-21"); $y = Math::BigInt->new("4"); $x->blog($y); ok 70 - is a valid object ok 71 - $x = Math::BigInt->new("21"); $y = Math::BigInt->new("-21"); $x->blog($y); ok 72 - is a valid object ok 73 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 74 - is a valid object ok 75 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 76 - is a valid object ok 77 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->blog($y); ok 78 - is a valid object ok 79 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->blog($y); ok 80 - is a valid object ok 81 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 82 - is a valid object ok 83 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 84 - is a valid object ok 85 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 86 - is a valid object ok 87 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->blog($y); ok 88 - is a valid object ok 89 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->blog($y); ok 90 - is a valid object ok 91 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $x->blog($y); ok 92 - is a valid object ok 93 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 94 - is a valid object ok 95 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->blog($y); ok 96 - is a valid object ok 97 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-1"); $x->blog($y); ok 98 - is a valid object ok 99 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->blog($y); ok 100 - is a valid object ok 101 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("1"); $x->blog($y); ok 102 - is a valid object ok 103 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("4"); $x->blog($y); ok 104 - is a valid object ok 105 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->blog($y); ok 106 - is a valid object ok 107 - $x = Math::BigInt->new("1024"); $y = Math::BigInt->new("2"); $x->blog($y); ok 108 - is a valid object ok 109 - $x = Math::BigInt->new("81"); $y = Math::BigInt->new("3"); $x->blog($y); ok 110 - is a valid object ok 111 - $x = Math::BigInt->new("82"); $y = Math::BigInt->new("3"); $x->blog($y); ok 112 - is a valid object ok 113 - $x = Math::BigInt->new("80"); $y = Math::BigInt->new("3"); $x->blog($y); ok 114 - is a valid object ok 115 - $x = Math::BigInt->new("4096"); $y = Math::BigInt->new("2"); $x->blog($y); ok 116 - is a valid object ok 117 - $x = Math::BigInt->new("15625"); $y = Math::BigInt->new("5"); $x->blog($y); ok 118 - is a valid object ok 119 - $x = Math::BigInt->new("15626"); $y = Math::BigInt->new("5"); $x->blog($y); ok 120 - is a valid object ok 121 - $x = Math::BigInt->new("15624"); $y = Math::BigInt->new("5"); $x->blog($y); ok 122 - is a valid object ok 123 - $x = Math::BigInt->new("1000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 124 - is a valid object ok 125 - $x = Math::BigInt->new("10000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 126 - is a valid object ok 127 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 128 - is a valid object ok 129 - $x = Math::BigInt->new("1000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 130 - is a valid object ok 131 - $x = Math::BigInt->new("10000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 132 - is a valid object ok 133 - $x = Math::BigInt->new("100000000"); $y = Math::BigInt->new("10"); $x->blog($y); ok 134 - is a valid object ok 135 - $x = Math::BigInt->new("8916100448256"); $y = Math::BigInt->new("12"); $x->blog($y); ok 136 - is a valid object ok 137 - $x = Math::BigInt->new("8916100448257"); $y = Math::BigInt->new("12"); $x->blog($y); ok 138 - is a valid object ok 139 - $x = Math::BigInt->new("8916100448255"); $y = Math::BigInt->new("12"); $x->blog($y); ok 140 - is a valid object ok 141 - $x = Math::BigInt->new("2251799813685248"); $y = Math::BigInt->new("8"); $x->blog($y); ok 142 - is a valid object ok 143 - $x = Math::BigInt->new("72057594037927936"); $y = Math::BigInt->new("2"); $x->blog($y); ok 144 - is a valid object ok 145 - $x = Math::BigInt->new("144115188075855872"); $y = Math::BigInt->new("2"); $x->blog($y); ok 146 - is a valid object ok 147 - $x = Math::BigInt->new("288230376151711744"); $y = Math::BigInt->new("2"); $x->blog($y); ok 148 - is a valid object ok 149 - $x = Math::BigInt->new("576460752303423488"); $y = Math::BigInt->new("2"); $x->blog($y); ok 150 - is a valid object ok 151 - $x = Math::BigInt->new("1329227995784915872903807060280344576"); $y = Math::BigInt->new("2"); $x->blog($y); ok 152 - is a valid object ok 153 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x->blog($y); ok 154 - is a valid object ok 155 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $x->blog($y); ok 156 - is a valid object ok 157 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->blog($y); ok 158 - is a valid object ok 159 - $x = Math::BigInt->new("0"); $x->is_negative() || 0; ok 160 - $x = Math::BigInt->new("-1"); $x->is_negative() || 0; ok 161 - $x = Math::BigInt->new("1"); $x->is_negative() || 0; ok 162 - $x = Math::BigInt->new("+inf"); $x->is_negative() || 0; ok 163 - $x = Math::BigInt->new("-inf"); $x->is_negative() || 0; ok 164 - $x = Math::BigInt->new("NaNneg"); $x->is_negative() || 0; ok 165 - $x = Math::BigInt->new("0"); $x->is_positive() || 0; ok 166 - $x = Math::BigInt->new("-1"); $x->is_positive() || 0; ok 167 - $x = Math::BigInt->new("1"); $x->is_positive() || 0; ok 168 - $x = Math::BigInt->new("+inf"); $x->is_positive() || 0; ok 169 - $x = Math::BigInt->new("-inf"); $x->is_positive() || 0; ok 170 - $x = Math::BigInt->new("NaNneg"); $x->is_positive() || 0; ok 171 - $x = Math::BigInt->new("-inf"); $x->is_int() || 0; ok 172 - $x = Math::BigInt->new("+inf"); $x->is_int() || 0; ok 173 - $x = Math::BigInt->new("NaNis_int"); $x->is_int() || 0; ok 174 - $x = Math::BigInt->new("1"); $x->is_int() || 0; ok 175 - $x = Math::BigInt->new("0"); $x->is_int() || 0; ok 176 - $x = Math::BigInt->new("123e12"); $x->is_int() || 0; ok 177 - $x = Math::BigInt->new("abc"); $x->is_odd() || 0; ok 178 - $x = Math::BigInt->new("0"); $x->is_odd() || 0; ok 179 - $x = Math::BigInt->new("1"); $x->is_odd() || 0; ok 180 - $x = Math::BigInt->new("3"); $x->is_odd() || 0; ok 181 - $x = Math::BigInt->new("-1"); $x->is_odd() || 0; ok 182 - $x = Math::BigInt->new("-3"); $x->is_odd() || 0; ok 183 - $x = Math::BigInt->new("10000001"); $x->is_odd() || 0; ok 184 - $x = Math::BigInt->new("10000002"); $x->is_odd() || 0; ok 185 - $x = Math::BigInt->new("2"); $x->is_odd() || 0; ok 186 - $x = Math::BigInt->new("120"); $x->is_odd() || 0; ok 187 - $x = Math::BigInt->new("121"); $x->is_odd() || 0; ok 188 - $x = Math::BigInt->new("abc"); $x->is_even() || 0; ok 189 - $x = Math::BigInt->new("0"); $x->is_even() || 0; ok 190 - $x = Math::BigInt->new("1"); $x->is_even() || 0; ok 191 - $x = Math::BigInt->new("3"); $x->is_even() || 0; ok 192 - $x = Math::BigInt->new("-1"); $x->is_even() || 0; ok 193 - $x = Math::BigInt->new("-3"); $x->is_even() || 0; ok 194 - $x = Math::BigInt->new("10000001"); $x->is_even() || 0; ok 195 - $x = Math::BigInt->new("10000002"); $x->is_even() || 0; ok 196 - $x = Math::BigInt->new("2"); $x->is_even() || 0; ok 197 - $x = Math::BigInt->new("120"); $x->is_even() || 0; ok 198 - $x = Math::BigInt->new("121"); $x->is_even() || 0; ok 199 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-0"); $x->bacmp($y); ok 200 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 201 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 202 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 203 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+2"); $x->bacmp($y); ok 204 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 205 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x->bacmp($y); ok 206 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bacmp($y); ok 207 - $x = Math::BigInt->new("+987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 208 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 209 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("+4567889"); $x->bacmp($y); ok 210 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 211 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 212 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 213 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 214 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 215 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 216 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 217 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 218 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 219 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 220 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 221 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 222 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 223 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 224 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 225 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 226 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 227 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 228 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 229 - $x = Math::BigInt->bnorm("0e999"); ok 230 - is a valid object ok 231 - $x = Math::BigInt->bnorm("0e-999"); ok 232 - is a valid object ok 233 - $x = Math::BigInt->bnorm("-0e999"); ok 234 - is a valid object ok 235 - $x = Math::BigInt->bnorm("-0e-999"); ok 236 - is a valid object ok 237 - $x = Math::BigInt->bnorm("123"); ok 238 - is a valid object ok 239 - $x = Math::BigInt->bnorm("123.000"); ok 240 - is a valid object ok 241 - $x = Math::BigInt->bnorm("123e0"); ok 242 - is a valid object ok 243 - $x = Math::BigInt->bnorm("123e+0"); ok 244 - is a valid object ok 245 - $x = Math::BigInt->bnorm("123e-0"); ok 246 - is a valid object ok 247 - $x = Math::BigInt->bnorm("123.000e0"); ok 248 - is a valid object ok 249 - $x = Math::BigInt->bnorm("123.000e+0"); ok 250 - is a valid object ok 251 - $x = Math::BigInt->bnorm("123.000e-0"); ok 252 - is a valid object ok 253 - $x = Math::BigInt->bnorm("0babc"); ok 254 - is a valid object ok 255 - $x = Math::BigInt->bnorm("0b123"); ok 256 - is a valid object ok 257 - $x = Math::BigInt->bnorm("0b0"); ok 258 - is a valid object ok 259 - $x = Math::BigInt->bnorm("-0b0"); ok 260 - is a valid object ok 261 - $x = Math::BigInt->bnorm("-0b1"); ok 262 - is a valid object ok 263 - $x = Math::BigInt->bnorm("0b0001"); ok 264 - is a valid object ok 265 - $x = Math::BigInt->bnorm("0b001"); ok 266 - is a valid object ok 267 - $x = Math::BigInt->bnorm("0b011"); ok 268 - is a valid object ok 269 - $x = Math::BigInt->bnorm("0b101"); ok 270 - is a valid object ok 271 - $x = Math::BigInt->bnorm("0b1001"); ok 272 - is a valid object ok 273 - $x = Math::BigInt->bnorm("0b10001"); ok 274 - is a valid object ok 275 - $x = Math::BigInt->bnorm("0b100001"); ok 276 - is a valid object ok 277 - $x = Math::BigInt->bnorm("0b1000001"); ok 278 - is a valid object ok 279 - $x = Math::BigInt->bnorm("0b10000001"); ok 280 - is a valid object ok 281 - $x = Math::BigInt->bnorm("0b100000001"); ok 282 - is a valid object ok 283 - $x = Math::BigInt->bnorm("0b1000000001"); ok 284 - is a valid object ok 285 - $x = Math::BigInt->bnorm("0b10000000001"); ok 286 - is a valid object ok 287 - $x = Math::BigInt->bnorm("0b100000000001"); ok 288 - is a valid object ok 289 - $x = Math::BigInt->bnorm("0b1000000000001"); ok 290 - is a valid object ok 291 - $x = Math::BigInt->bnorm("0b10000000000001"); ok 292 - is a valid object ok 293 - $x = Math::BigInt->bnorm("0b100000000000001"); ok 294 - is a valid object ok 295 - $x = Math::BigInt->bnorm("0b1000000000000001"); ok 296 - is a valid object ok 297 - $x = Math::BigInt->bnorm("0b10000000000000001"); ok 298 - is a valid object ok 299 - $x = Math::BigInt->bnorm("0b100000000000000001"); ok 300 - is a valid object ok 301 - $x = Math::BigInt->bnorm("0b1000000000000000001"); ok 302 - is a valid object ok 303 - $x = Math::BigInt->bnorm("0b10000000000000000001"); ok 304 - is a valid object ok 305 - $x = Math::BigInt->bnorm("0b100000000000000000001"); ok 306 - is a valid object ok 307 - $x = Math::BigInt->bnorm("0b1000000000000000000001"); ok 308 - is a valid object ok 309 - $x = Math::BigInt->bnorm("0b10000000000000000000001"); ok 310 - is a valid object ok 311 - $x = Math::BigInt->bnorm("0b100000000000000000000001"); ok 312 - is a valid object ok 313 - $x = Math::BigInt->bnorm("0b1000000000000000000000001"); ok 314 - is a valid object ok 315 - $x = Math::BigInt->bnorm("0b10000000000000000000000001"); ok 316 - is a valid object ok 317 - $x = Math::BigInt->bnorm("0b100000000000000000000000001"); ok 318 - is a valid object ok 319 - $x = Math::BigInt->bnorm("0b1000000000000000000000000001"); ok 320 - is a valid object ok 321 - $x = Math::BigInt->bnorm("0b10000000000000000000000000001"); ok 322 - is a valid object ok 323 - $x = Math::BigInt->bnorm("0b100000000000000000000000000001"); ok 324 - is a valid object ok 325 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000001"); ok 326 - is a valid object ok 327 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000001"); ok 328 - is a valid object ok 329 - $x = Math::BigInt->bnorm("0b100000000000000000000000000000001"); ok 330 - is a valid object ok 331 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000000001"); ok 332 - is a valid object ok 333 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000000001"); ok 334 - is a valid object ok 335 - $x = Math::BigInt->bnorm("0b__101"); ok 336 - is a valid object ok 337 - $x = Math::BigInt->bnorm("0b1_0_1"); ok 338 - is a valid object ok 339 - $x = Math::BigInt->bnorm("0b0_0_0_1"); ok 340 - is a valid object ok 341 - $x = Math::BigInt->bnorm("-0x0"); ok 342 - is a valid object ok 343 - $x = Math::BigInt->bnorm("0xabcdefgh"); ok 344 - is a valid object ok 345 - $x = Math::BigInt->bnorm("0x1234"); ok 346 - is a valid object ok 347 - $x = Math::BigInt->bnorm("0xabcdef"); ok 348 - is a valid object ok 349 - $x = Math::BigInt->bnorm("-0xABCDEF"); ok 350 - is a valid object ok 351 - $x = Math::BigInt->bnorm("-0x1234"); ok 352 - is a valid object ok 353 - $x = Math::BigInt->bnorm("0x12345678"); ok 354 - is a valid object ok 355 - $x = Math::BigInt->bnorm("0x1_2_3_4_56_78"); ok 356 - is a valid object ok 357 - $x = Math::BigInt->bnorm("0xa_b_c_d_e_f"); ok 358 - is a valid object ok 359 - $x = Math::BigInt->bnorm("0x__123"); ok 360 - is a valid object ok 361 - $x = Math::BigInt->bnorm("0x9"); ok 362 - is a valid object ok 363 - $x = Math::BigInt->bnorm("0x11"); ok 364 - is a valid object ok 365 - $x = Math::BigInt->bnorm("0x21"); ok 366 - is a valid object ok 367 - $x = Math::BigInt->bnorm("0x41"); ok 368 - is a valid object ok 369 - $x = Math::BigInt->bnorm("0x81"); ok 370 - is a valid object ok 371 - $x = Math::BigInt->bnorm("0x101"); ok 372 - is a valid object ok 373 - $x = Math::BigInt->bnorm("0x201"); ok 374 - is a valid object ok 375 - $x = Math::BigInt->bnorm("0x401"); ok 376 - is a valid object ok 377 - $x = Math::BigInt->bnorm("0x801"); ok 378 - is a valid object ok 379 - $x = Math::BigInt->bnorm("0x1001"); ok 380 - is a valid object ok 381 - $x = Math::BigInt->bnorm("0x2001"); ok 382 - is a valid object ok 383 - $x = Math::BigInt->bnorm("0x4001"); ok 384 - is a valid object ok 385 - $x = Math::BigInt->bnorm("0x8001"); ok 386 - is a valid object ok 387 - $x = Math::BigInt->bnorm("0x10001"); ok 388 - is a valid object ok 389 - $x = Math::BigInt->bnorm("0x20001"); ok 390 - is a valid object ok 391 - $x = Math::BigInt->bnorm("0x40001"); ok 392 - is a valid object ok 393 - $x = Math::BigInt->bnorm("0x80001"); ok 394 - is a valid object ok 395 - $x = Math::BigInt->bnorm("0x100001"); ok 396 - is a valid object ok 397 - $x = Math::BigInt->bnorm("0x200001"); ok 398 - is a valid object ok 399 - $x = Math::BigInt->bnorm("0x400001"); ok 400 - is a valid object ok 401 - $x = Math::BigInt->bnorm("0x800001"); ok 402 - is a valid object ok 403 - $x = Math::BigInt->bnorm("0x1000001"); ok 404 - is a valid object ok 405 - $x = Math::BigInt->bnorm("0x2000001"); ok 406 - is a valid object ok 407 - $x = Math::BigInt->bnorm("0x4000001"); ok 408 - is a valid object ok 409 - $x = Math::BigInt->bnorm("0x8000001"); ok 410 - is a valid object ok 411 - $x = Math::BigInt->bnorm("0x10000001"); ok 412 - is a valid object ok 413 - $x = Math::BigInt->bnorm("0x20000001"); ok 414 - is a valid object ok 415 - $x = Math::BigInt->bnorm("0x40000001"); ok 416 - is a valid object ok 417 - $x = Math::BigInt->bnorm("0x80000001"); ok 418 - is a valid object ok 419 - $x = Math::BigInt->bnorm("0x100000001"); ok 420 - is a valid object ok 421 - $x = Math::BigInt->bnorm("0x200000001"); ok 422 - is a valid object ok 423 - $x = Math::BigInt->bnorm("0x400000001"); ok 424 - is a valid object ok 425 - $x = Math::BigInt->bnorm("0x800000001"); ok 426 - is a valid object ok 427 - $x = Math::BigInt->bnorm("0x2dd59e18a125dbed30a6ab1d93e9c855569f44f75806f0645dc9a2e98b808c3"); ok 428 - is a valid object ok 429 - $x = Math::BigInt->bnorm("inf"); ok 430 - is a valid object ok 431 - $x = Math::BigInt->bnorm("+inf"); ok 432 - is a valid object ok 433 - $x = Math::BigInt->bnorm("-inf"); ok 434 - is a valid object ok 435 - $x = Math::BigInt->bnorm("0inf"); ok 436 - is a valid object ok 437 - $x = Math::BigInt->bnorm(""); ok 438 - is a valid object ok 439 - $x = Math::BigInt->bnorm("abc"); ok 440 - is a valid object ok 441 - $x = Math::BigInt->bnorm(" 1 a"); ok 442 - is a valid object ok 443 - $x = Math::BigInt->bnorm("1bcd2"); ok 444 - is a valid object ok 445 - $x = Math::BigInt->bnorm("11111b"); ok 446 - is a valid object ok 447 - $x = Math::BigInt->bnorm("+1z"); ok 448 - is a valid object ok 449 - $x = Math::BigInt->bnorm("-1z"); ok 450 - is a valid object ok 451 - $x = Math::BigInt->bnorm("_123"); ok 452 - is a valid object ok 453 - $x = Math::BigInt->bnorm("_123_"); ok 454 - is a valid object ok 455 - $x = Math::BigInt->bnorm("123_"); ok 456 - is a valid object ok 457 - $x = Math::BigInt->bnorm("1__23"); ok 458 - is a valid object ok 459 - $x = Math::BigInt->bnorm("1E1__2"); ok 460 - is a valid object ok 461 - $x = Math::BigInt->bnorm("1_E12"); ok 462 - is a valid object ok 463 - $x = Math::BigInt->bnorm("1E_12"); ok 464 - is a valid object ok 465 - $x = Math::BigInt->bnorm("1_E_12"); ok 466 - is a valid object ok 467 - $x = Math::BigInt->bnorm("+_1E12"); ok 468 - is a valid object ok 469 - $x = Math::BigInt->bnorm("+0_1E2"); ok 470 - is a valid object ok 471 - $x = Math::BigInt->bnorm("+0_0_1E2"); ok 472 - is a valid object ok 473 - $x = Math::BigInt->bnorm("-0_0_1E2"); ok 474 - is a valid object ok 475 - $x = Math::BigInt->bnorm("-0_0_1E+0_0_2"); ok 476 - is a valid object ok 477 - $x = Math::BigInt->bnorm("E1"); ok 478 - is a valid object ok 479 - $x = Math::BigInt->bnorm("E23"); ok 480 - is a valid object ok 481 - $x = Math::BigInt->bnorm("1.23E1"); ok 482 - is a valid object ok 483 - $x = Math::BigInt->bnorm("1.23E-1"); ok 484 - is a valid object ok 485 - $x = Math::BigInt->bnorm("1e2e3"); ok 486 - is a valid object ok 487 - $x = Math::BigInt->bnorm("1e2r"); ok 488 - is a valid object ok 489 - $x = Math::BigInt->bnorm("1e2.0"); ok 490 - is a valid object ok 491 - $x = Math::BigInt->bnorm("1.2.2"); ok 492 - is a valid object ok 493 - $x = Math::BigInt->bnorm("1.2.3e1"); ok 494 - is a valid object ok 495 - $x = Math::BigInt->bnorm("-1.2.3"); ok 496 - is a valid object ok 497 - $x = Math::BigInt->bnorm("-1.2.3e-4"); ok 498 - is a valid object ok 499 - $x = Math::BigInt->bnorm("1.2e3.4"); ok 500 - is a valid object ok 501 - $x = Math::BigInt->bnorm("1.2e-3.4"); ok 502 - is a valid object ok 503 - $x = Math::BigInt->bnorm("1.2.3.4"); ok 504 - is a valid object ok 505 - $x = Math::BigInt->bnorm("1.2.t"); ok 506 - is a valid object ok 507 - $x = Math::BigInt->bnorm("1..2"); ok 508 - is a valid object ok 509 - $x = Math::BigInt->bnorm("1..2e1"); ok 510 - is a valid object ok 511 - $x = Math::BigInt->bnorm("1..2e1..1"); ok 512 - is a valid object ok 513 - $x = Math::BigInt->bnorm("12e1..1"); ok 514 - is a valid object ok 515 - $x = Math::BigInt->bnorm("..2"); ok 516 - is a valid object ok 517 - $x = Math::BigInt->bnorm(".-2"); ok 518 - is a valid object ok 519 - $x = Math::BigInt->bnorm("012"); ok 520 - is a valid object ok 521 - $x = Math::BigInt->bnorm("0123"); ok 522 - is a valid object ok 523 - $x = Math::BigInt->bnorm("01234"); ok 524 - is a valid object ok 525 - $x = Math::BigInt->bnorm("012345"); ok 526 - is a valid object ok 527 - $x = Math::BigInt->bnorm("0123456"); ok 528 - is a valid object ok 529 - $x = Math::BigInt->bnorm("01234567"); ok 530 - is a valid object ok 531 - $x = Math::BigInt->bnorm("012345678"); ok 532 - is a valid object ok 533 - $x = Math::BigInt->bnorm("0123456789"); ok 534 - is a valid object ok 535 - $x = Math::BigInt->bnorm("01234567891"); ok 536 - is a valid object ok 537 - $x = Math::BigInt->bnorm("012345678912"); ok 538 - is a valid object ok 539 - $x = Math::BigInt->bnorm("0123456789123"); ok 540 - is a valid object ok 541 - $x = Math::BigInt->bnorm("01234567891234"); ok 542 - is a valid object ok 543 - $x = Math::BigInt->bnorm("0e0"); ok 544 - is a valid object ok 545 - $x = Math::BigInt->bnorm("+0e0"); ok 546 - is a valid object ok 547 - $x = Math::BigInt->bnorm("+0e+0"); ok 548 - is a valid object ok 549 - $x = Math::BigInt->bnorm("-0e+0"); ok 550 - is a valid object ok 551 - $x = Math::BigInt->bnorm("0e-0"); ok 552 - is a valid object ok 553 - $x = Math::BigInt->bnorm("-0e-0"); ok 554 - is a valid object ok 555 - $x = Math::BigInt->bnorm("+0e-0"); ok 556 - is a valid object ok 557 - $x = Math::BigInt->bnorm("000"); ok 558 - is a valid object ok 559 - $x = Math::BigInt->bnorm("00e2"); ok 560 - is a valid object ok 561 - $x = Math::BigInt->bnorm("00e02"); ok 562 - is a valid object ok 563 - $x = Math::BigInt->bnorm("000e002"); ok 564 - is a valid object ok 565 - $x = Math::BigInt->bnorm("000e1230"); ok 566 - is a valid object ok 567 - $x = Math::BigInt->bnorm("00e-3"); ok 568 - is a valid object ok 569 - $x = Math::BigInt->bnorm("00e+3"); ok 570 - is a valid object ok 571 - $x = Math::BigInt->bnorm("00e-03"); ok 572 - is a valid object ok 573 - $x = Math::BigInt->bnorm("00e+03"); ok 574 - is a valid object ok 575 - $x = Math::BigInt->bnorm("-000"); ok 576 - is a valid object ok 577 - $x = Math::BigInt->bnorm("-00e2"); ok 578 - is a valid object ok 579 - $x = Math::BigInt->bnorm("-00e02"); ok 580 - is a valid object ok 581 - $x = Math::BigInt->bnorm("-000e002"); ok 582 - is a valid object ok 583 - $x = Math::BigInt->bnorm("-000e1230"); ok 584 - is a valid object ok 585 - $x = Math::BigInt->bnorm("-00e-3"); ok 586 - is a valid object ok 587 - $x = Math::BigInt->bnorm("-00e+3"); ok 588 - is a valid object ok 589 - $x = Math::BigInt->bnorm("-00e-03"); ok 590 - is a valid object ok 591 - $x = Math::BigInt->bnorm("-00e+03"); ok 592 - is a valid object ok 593 - $x = Math::BigInt->bnorm("0"); ok 594 - is a valid object ok 595 - $x = Math::BigInt->bnorm("+0"); ok 596 - is a valid object ok 597 - $x = Math::BigInt->bnorm("+00"); ok 598 - is a valid object ok 599 - $x = Math::BigInt->bnorm("+000"); ok 600 - is a valid object ok 601 - $x = Math::BigInt->bnorm("000000000000000000"); ok 602 - is a valid object ok 603 - $x = Math::BigInt->bnorm("-0"); ok 604 - is a valid object ok 605 - $x = Math::BigInt->bnorm("-0000"); ok 606 - is a valid object ok 607 - $x = Math::BigInt->bnorm("+1"); ok 608 - is a valid object ok 609 - $x = Math::BigInt->bnorm("+01"); ok 610 - is a valid object ok 611 - $x = Math::BigInt->bnorm("+001"); ok 612 - is a valid object ok 613 - $x = Math::BigInt->bnorm("+00000100000"); ok 614 - is a valid object ok 615 - $x = Math::BigInt->bnorm("123456789"); ok 616 - is a valid object ok 617 - $x = Math::BigInt->bnorm("-1"); ok 618 - is a valid object ok 619 - $x = Math::BigInt->bnorm("-01"); ok 620 - is a valid object ok 621 - $x = Math::BigInt->bnorm("-001"); ok 622 - is a valid object ok 623 - $x = Math::BigInt->bnorm("-123456789"); ok 624 - is a valid object ok 625 - $x = Math::BigInt->bnorm("-00000100000"); ok 626 - is a valid object ok 627 - $x = Math::BigInt->bnorm("1_2_3"); ok 628 - is a valid object ok 629 - $x = Math::BigInt->bnorm("10000000000E-1_0"); ok 630 - is a valid object ok 631 - $x = Math::BigInt->bnorm("1E2"); ok 632 - is a valid object ok 633 - $x = Math::BigInt->bnorm("1E1"); ok 634 - is a valid object ok 635 - $x = Math::BigInt->bnorm("1E0"); ok 636 - is a valid object ok 637 - $x = Math::BigInt->bnorm("1.23E2"); ok 638 - is a valid object ok 639 - $x = Math::BigInt->bnorm("100E-1"); ok 640 - is a valid object ok 641 - $x = Math::BigInt->bnorm("1.E3"); ok 642 - is a valid object ok 643 - $x = Math::BigInt->bnorm("1.01E2"); ok 644 - is a valid object ok 645 - $x = Math::BigInt->bnorm("1010E-1"); ok 646 - is a valid object ok 647 - $x = Math::BigInt->bnorm("-1010E0"); ok 648 - is a valid object ok 649 - $x = Math::BigInt->bnorm("-1010E1"); ok 650 - is a valid object ok 651 - $x = Math::BigInt->bnorm("1234.00"); ok 652 - is a valid object ok 653 - $x = Math::BigInt->bnorm("-1010E-2"); ok 654 - is a valid object ok 655 - $x = Math::BigInt->bnorm("-1.01E+1"); ok 656 - is a valid object ok 657 - $x = Math::BigInt->bnorm("-1.01E-1"); ok 658 - is a valid object ok 659 - $x = Math::BigInt->bnorm("1E-999999"); ok 660 - is a valid object ok 661 - $x = Math::BigInt->bnorm("0.5"); ok 662 - is a valid object ok 663 - $x = Math::BigInt->new("1"); $x->bnan(); ok 664 - is a valid object ok 665 - $x = Math::BigInt->new("2"); $x->bnan(); ok 666 - is a valid object ok 667 - $x = Math::BigInt->new("abc"); $x->bnan(); ok 668 - is a valid object ok 669 - $x = Math::BigInt->new("2"); $x->bone("+"); ok 670 - is a valid object ok 671 - $x = Math::BigInt->new("2"); $x->bone("-"); ok 672 - is a valid object ok 673 - $x = Math::BigInt->new("boneNaN"); $x->bone("-"); ok 674 - is a valid object ok 675 - $x = Math::BigInt->new("boneNaN"); $x->bone("+"); ok 676 - is a valid object ok 677 - $x = Math::BigInt->new("2"); $x->bone("abc"); ok 678 - is a valid object ok 679 - $x = Math::BigInt->new("3"); $x->bone(""); ok 680 - is a valid object ok 681 - $x = Math::BigInt->new("1"); $x->binf("+"); ok 682 - is a valid object ok 683 - $x = Math::BigInt->new("2"); $x->binf("-"); ok 684 - is a valid object ok 685 - $x = Math::BigInt->new("3"); $x->binf("abc"); ok 686 - is a valid object ok 687 - $x = Math::BigInt->new("123"); $x->is_nan() || 0; ok 688 - $x = Math::BigInt->new("abc"); $x->is_nan() || 0; ok 689 - $x = Math::BigInt->new("NaN"); $x->is_nan() || 0; ok 690 - $x = Math::BigInt->new("-123"); $x->is_nan() || 0; ok 691 - $x = Math::BigInt->new("+inf"); $x->is_inf(""); ok 692 - $x = Math::BigInt->new("-inf"); $x->is_inf(""); ok 693 - $x = Math::BigInt->new("abc"); $x->is_inf(""); ok 694 - $x = Math::BigInt->new("1"); $x->is_inf(""); ok 695 - $x = Math::BigInt->new("NaN"); $x->is_inf(""); ok 696 - $x = Math::BigInt->new("-1"); $x->is_inf(""); ok 697 - $x = Math::BigInt->new("+inf"); $x->is_inf("-"); ok 698 - $x = Math::BigInt->new("+inf"); $x->is_inf("+"); ok 699 - $x = Math::BigInt->new("-inf"); $x->is_inf("-"); ok 700 - $x = Math::BigInt->new("-inf"); $x->is_inf("+"); ok 701 - $x = Math::BigInt->new("-inf"); $x->is_inf("-inf"); ok 702 - $x = Math::BigInt->new("-inf"); $x->is_inf("+inf"); ok 703 - $x = Math::BigInt->new("+inf"); $x->is_inf("-inf"); ok 704 - $x = Math::BigInt->new("+inf"); $x->is_inf("+inf"); ok 705 - $x = Math::BigInt->new("+iNfInItY"); $x->is_inf(""); ok 706 - $x = Math::BigInt->new("-InFiNiTy"); $x->is_inf(""); ok 707 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x << $y; ok 708 - is a valid object ok 709 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+2"); $x << $y; ok 710 - is a valid object ok 711 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+32"); $x << $y; ok 712 - is a valid object ok 713 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+48"); $x << $y; ok 714 - is a valid object ok 715 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("-2"); $x << $y; ok 716 - is a valid object ok 717 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("4"); $x->blsft($y, 10); ok 718 - is a valid object ok 719 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 720 - is a valid object ok 721 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 722 - is a valid object ok 723 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 724 - is a valid object ok 725 - $x = Math::BigInt->new("+12"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 726 - is a valid object ok 727 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->blsft($y, 10); ok 728 - is a valid object ok 729 - $x = Math::BigInt->new("1234567890123"); $y = Math::BigInt->new("12"); $x->blsft($y, 10); ok 730 - is a valid object ok 731 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 732 - is a valid object ok 733 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 734 - is a valid object ok 735 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 736 - is a valid object ok 737 - $x = Math::BigInt->new("-102533203"); $y = Math::BigInt->new("1"); $x->blsft($y, 2); ok 738 - is a valid object ok 739 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x >> $y; ok 740 - is a valid object ok 741 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x >> $y; ok 742 - is a valid object ok 743 - $x = Math::BigInt->new("+4294967296"); $y = Math::BigInt->new("+32"); $x >> $y; ok 744 - is a valid object ok 745 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+48"); $x >> $y; ok 746 - is a valid object ok 747 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-2"); $x >> $y; ok 748 - is a valid object ok 749 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 750 - is a valid object ok 751 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 752 - is a valid object ok 753 - $x = Math::BigInt->new("+200"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 754 - is a valid object ok 755 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("3"); $x->brsft($y, 10); ok 756 - is a valid object ok 757 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 758 - is a valid object ok 759 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->brsft($y, 10); ok 760 - is a valid object ok 761 - $x = Math::BigInt->new("310000"); $y = Math::BigInt->new("4"); $x->brsft($y, 10); ok 762 - is a valid object ok 763 - $x = Math::BigInt->new("12300000"); $y = Math::BigInt->new("5"); $x->brsft($y, 10); ok 764 - is a valid object ok 765 - $x = Math::BigInt->new("1230000000000"); $y = Math::BigInt->new("10"); $x->brsft($y, 10); ok 766 - is a valid object ok 767 - $x = Math::BigInt->new("09876123456789067890"); $y = Math::BigInt->new("12"); $x->brsft($y, 10); ok 768 - is a valid object ok 769 - $x = Math::BigInt->new("1234561234567890123"); $y = Math::BigInt->new("13"); $x->brsft($y, 10); ok 770 - is a valid object ok 771 - $x = Math::BigInt->new("820265627"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 772 - is a valid object ok 773 - $x = Math::BigInt->new("-15"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 774 - is a valid object ok 775 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 776 - is a valid object ok 777 - $x = Math::BigInt->new("-13"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 778 - is a valid object ok 779 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 780 - is a valid object ok 781 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 782 - is a valid object ok 783 - $x = Math::BigInt->new("-10"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 784 - is a valid object ok 785 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 786 - is a valid object ok 787 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 788 - is a valid object ok 789 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 790 - is a valid object ok 791 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 792 - is a valid object ok 793 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 794 - is a valid object ok 795 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 796 - is a valid object ok 797 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 798 - is a valid object ok 799 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 800 - is a valid object ok 801 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 802 - is a valid object ok 803 - $x = Math::BigInt->new("-1640531254"); $y = Math::BigInt->new("2"); $x->brsft($y, 2); ok 804 - is a valid object ok 805 - $x = Math::BigInt->new("-1640531254"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 806 - is a valid object ok 807 - $x = Math::BigInt->new("-820265627"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 808 - is a valid object ok 809 - $x = Math::BigInt->new("-205066405"); $y = Math::BigInt->new("1"); $x->brsft($y, 2); ok 810 - is a valid object ok 811 - $x = Math::BigInt->new("+inf"); $x->bsstr(); ok 812 - $x = Math::BigInt->new("-inf"); $x->bsstr(); ok 813 - $x = Math::BigInt->new("1e+34"); $x->bsstr(); ok 814 - $x = Math::BigInt->new("123.456E3"); $x->bsstr(); ok 815 - $x = Math::BigInt->new("100"); $x->bsstr(); ok 816 - $x = Math::BigInt->new("bsstrabc"); $x->bsstr(); ok 817 - $x = Math::BigInt->new("-5"); $x->bsstr(); ok 818 - $x = Math::BigInt->new("-100"); $x->bsstr(); ok 819 - $x = Math::BigInt->new("5"); $x->numify(); ok 820 - $x = Math::BigInt->new("-5"); $x->numify(); ok 821 - $x = Math::BigInt->new("100"); $x->numify(); ok 822 - $x = Math::BigInt->new("-100"); $x->numify(); ok 823 - $x = Math::BigInt->new("bnegNaN"); $x->bneg(); ok 824 - is a valid object ok 825 - $x = Math::BigInt->new("+inf"); $x->bneg(); ok 826 - is a valid object ok 827 - $x = Math::BigInt->new("-inf"); $x->bneg(); ok 828 - is a valid object ok 829 - $x = Math::BigInt->new("abd"); $x->bneg(); ok 830 - is a valid object ok 831 - $x = Math::BigInt->new("0"); $x->bneg(); ok 832 - is a valid object ok 833 - $x = Math::BigInt->new("1"); $x->bneg(); ok 834 - is a valid object ok 835 - $x = Math::BigInt->new("-1"); $x->bneg(); ok 836 - is a valid object ok 837 - $x = Math::BigInt->new("+123456789"); $x->bneg(); ok 838 - is a valid object ok 839 - $x = Math::BigInt->new("-123456789"); $x->bneg(); ok 840 - is a valid object ok 841 - $x = Math::BigInt->new("babsNaN"); $x->babs(); ok 842 - is a valid object ok 843 - $x = Math::BigInt->new("+inf"); $x->babs(); ok 844 - is a valid object ok 845 - $x = Math::BigInt->new("-inf"); $x->babs(); ok 846 - is a valid object ok 847 - $x = Math::BigInt->new("0"); $x->babs(); ok 848 - is a valid object ok 849 - $x = Math::BigInt->new("1"); $x->babs(); ok 850 - is a valid object ok 851 - $x = Math::BigInt->new("-1"); $x->babs(); ok 852 - is a valid object ok 853 - $x = Math::BigInt->new("+123456789"); $x->babs(); ok 854 - is a valid object ok 855 - $x = Math::BigInt->new("-123456789"); $x->babs(); ok 856 - is a valid object ok 857 - $x = Math::BigInt->new("NaN"); $x->bsgn(); ok 858 - is a valid object ok 859 - $x = Math::BigInt->new("+inf"); $x->bsgn(); ok 860 - is a valid object ok 861 - $x = Math::BigInt->new("-inf"); $x->bsgn(); ok 862 - is a valid object ok 863 - $x = Math::BigInt->new("0"); $x->bsgn(); ok 864 - is a valid object ok 865 - $x = Math::BigInt->new("+123456789"); $x->bsgn(); ok 866 - is a valid object ok 867 - $x = Math::BigInt->new("-123456789"); $x->bsgn(); ok 868 - is a valid object ok 869 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 870 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 871 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 872 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 873 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 874 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 875 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 876 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 877 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 878 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 879 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 880 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 881 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 882 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("12"); $x->bcmp($y); ok 883 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 884 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 885 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-12"); $x->bcmp($y); ok 886 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 887 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("124"); $x->bcmp($y); ok 888 - $x = Math::BigInt->new("124"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 889 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-124"); $x->bcmp($y); ok 890 - $x = Math::BigInt->new("-124"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 891 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("5"); $x->bcmp($y); ok 892 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x->bcmp($y); ok 893 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bcmp($y); ok 894 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("123456789"); $x->bcmp($y); ok 895 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 896 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 897 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 898 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 899 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 900 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 901 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 902 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 903 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 904 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 905 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 906 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 907 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 908 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 909 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 910 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 911 - $x = Math::BigInt->new("abc"); $x->binc(); ok 912 - is a valid object ok 913 - $x = Math::BigInt->new("+inf"); $x->binc(); ok 914 - is a valid object ok 915 - $x = Math::BigInt->new("-inf"); $x->binc(); ok 916 - is a valid object ok 917 - $x = Math::BigInt->new("+0"); $x->binc(); ok 918 - is a valid object ok 919 - $x = Math::BigInt->new("+1"); $x->binc(); ok 920 - is a valid object ok 921 - $x = Math::BigInt->new("-1"); $x->binc(); ok 922 - is a valid object ok 923 - $x = Math::BigInt->new("abc"); $x->bdec(); ok 924 - is a valid object ok 925 - $x = Math::BigInt->new("+inf"); $x->bdec(); ok 926 - is a valid object ok 927 - $x = Math::BigInt->new("-inf"); $x->bdec(); ok 928 - is a valid object ok 929 - $x = Math::BigInt->new("+0"); $x->bdec(); ok 930 - is a valid object ok 931 - $x = Math::BigInt->new("+1"); $x->bdec(); ok 932 - is a valid object ok 933 - $x = Math::BigInt->new("-1"); $x->bdec(); ok 934 - is a valid object ok 935 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->badd($y); ok 936 - is a valid object ok 937 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x->badd($y); ok 938 - is a valid object ok 939 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->badd($y); ok 940 - is a valid object ok 941 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->badd($y); ok 942 - is a valid object ok 943 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 944 - is a valid object ok 945 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 946 - is a valid object ok 947 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->badd($y); ok 948 - is a valid object ok 949 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 950 - is a valid object ok 951 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x->badd($y); ok 952 - is a valid object ok 953 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("baddNaN"); $x->badd($y); ok 954 - is a valid object ok 955 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("baddNaN"); $x->badd($y); ok 956 - is a valid object ok 957 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->badd($y); ok 958 - is a valid object ok 959 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->badd($y); ok 960 - is a valid object ok 961 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->badd($y); ok 962 - is a valid object ok 963 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->badd($y); ok 964 - is a valid object ok 965 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->badd($y); ok 966 - is a valid object ok 967 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 968 - is a valid object ok 969 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 970 - is a valid object ok 971 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 972 - is a valid object ok 973 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 974 - is a valid object ok 975 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 976 - is a valid object ok 977 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 978 - is a valid object ok 979 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 980 - is a valid object ok 981 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 982 - is a valid object ok 983 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 984 - is a valid object ok 985 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 986 - is a valid object ok 987 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 988 - is a valid object ok 989 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 990 - is a valid object ok 991 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 992 - is a valid object ok 993 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 994 - is a valid object ok 995 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x->badd($y); ok 996 - is a valid object ok 997 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 998 - is a valid object ok 999 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1000 - is a valid object ok 1001 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1002 - is a valid object ok 1003 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1004 - is a valid object ok 1005 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1006 - is a valid object ok 1007 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1008 - is a valid object ok 1009 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1010 - is a valid object ok 1011 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1012 - is a valid object ok 1013 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1014 - is a valid object ok 1015 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x->badd($y); ok 1016 - is a valid object ok 1017 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("987654321"); $x->badd($y); ok 1018 - is a valid object ok 1019 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x->badd($y); ok 1020 - is a valid object ok 1021 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x->badd($y); ok 1022 - is a valid object ok 1023 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->badd($y); ok 1024 - is a valid object ok 1025 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10001"); $x->badd($y); ok 1026 - is a valid object ok 1027 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100001"); $x->badd($y); ok 1028 - is a valid object ok 1029 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000001"); $x->badd($y); ok 1030 - is a valid object ok 1031 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000001"); $x->badd($y); ok 1032 - is a valid object ok 1033 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100000001"); $x->badd($y); ok 1034 - is a valid object ok 1035 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000000001"); $x->badd($y); ok 1036 - is a valid object ok 1037 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000000001"); $x->badd($y); ok 1038 - is a valid object ok 1039 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("100000000001"); $x->badd($y); ok 1040 - is a valid object ok 1041 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1000000000001"); $x->badd($y); ok 1042 - is a valid object ok 1043 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("10000000000001"); $x->badd($y); ok 1044 - is a valid object ok 1045 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10001"); $x->badd($y); ok 1046 - is a valid object ok 1047 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100001"); $x->badd($y); ok 1048 - is a valid object ok 1049 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000001"); $x->badd($y); ok 1050 - is a valid object ok 1051 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000001"); $x->badd($y); ok 1052 - is a valid object ok 1053 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100000001"); $x->badd($y); ok 1054 - is a valid object ok 1055 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000000001"); $x->badd($y); ok 1056 - is a valid object ok 1057 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000000001"); $x->badd($y); ok 1058 - is a valid object ok 1059 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-100000000001"); $x->badd($y); ok 1060 - is a valid object ok 1061 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1000000000001"); $x->badd($y); ok 1062 - is a valid object ok 1063 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-10000000000001"); $x->badd($y); ok 1064 - is a valid object ok 1065 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bsub($y); ok 1066 - is a valid object ok 1067 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1068 - is a valid object ok 1069 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->bsub($y); ok 1070 - is a valid object ok 1071 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bsub($y); ok 1072 - is a valid object ok 1073 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bsub($y); ok 1074 - is a valid object ok 1075 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bsub($y); ok 1076 - is a valid object ok 1077 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bsub($y); ok 1078 - is a valid object ok 1079 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1080 - is a valid object ok 1081 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1082 - is a valid object ok 1083 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1084 - is a valid object ok 1085 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1086 - is a valid object ok 1087 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x->bsub($y); ok 1088 - is a valid object ok 1089 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1090 - is a valid object ok 1091 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1092 - is a valid object ok 1093 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1094 - is a valid object ok 1095 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1096 - is a valid object ok 1097 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1098 - is a valid object ok 1099 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1100 - is a valid object ok 1101 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1102 - is a valid object ok 1103 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1104 - is a valid object ok 1105 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1106 - is a valid object ok 1107 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1108 - is a valid object ok 1109 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1110 - is a valid object ok 1111 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1112 - is a valid object ok 1113 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1114 - is a valid object ok 1115 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1116 - is a valid object ok 1117 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x->bsub($y); ok 1118 - is a valid object ok 1119 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1120 - is a valid object ok 1121 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1122 - is a valid object ok 1123 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1124 - is a valid object ok 1125 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1126 - is a valid object ok 1127 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1128 - is a valid object ok 1129 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1130 - is a valid object ok 1131 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1132 - is a valid object ok 1133 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1134 - is a valid object ok 1135 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1136 - is a valid object ok 1137 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1138 - is a valid object ok 1139 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("+987654321"); $x->bsub($y); ok 1140 - is a valid object ok 1141 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x->bsub($y); ok 1142 - is a valid object ok 1143 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x->bsub($y); ok 1144 - is a valid object ok 1145 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bsub($y); ok 1146 - is a valid object ok 1147 - $x = Math::BigInt->new("10001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1148 - is a valid object ok 1149 - $x = Math::BigInt->new("100001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1150 - is a valid object ok 1151 - $x = Math::BigInt->new("1000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1152 - is a valid object ok 1153 - $x = Math::BigInt->new("10000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1154 - is a valid object ok 1155 - $x = Math::BigInt->new("100000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1156 - is a valid object ok 1157 - $x = Math::BigInt->new("1000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1158 - is a valid object ok 1159 - $x = Math::BigInt->new("10000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1160 - is a valid object ok 1161 - $x = Math::BigInt->new("100000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1162 - is a valid object ok 1163 - $x = Math::BigInt->new("1000000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1164 - is a valid object ok 1165 - $x = Math::BigInt->new("10000000000001"); $y = Math::BigInt->new("1"); $x->bsub($y); ok 1166 - is a valid object ok 1167 - $x = Math::BigInt->new("10001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1168 - is a valid object ok 1169 - $x = Math::BigInt->new("100001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1170 - is a valid object ok 1171 - $x = Math::BigInt->new("1000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1172 - is a valid object ok 1173 - $x = Math::BigInt->new("10000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1174 - is a valid object ok 1175 - $x = Math::BigInt->new("100000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1176 - is a valid object ok 1177 - $x = Math::BigInt->new("1000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1178 - is a valid object ok 1179 - $x = Math::BigInt->new("10000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1180 - is a valid object ok 1181 - $x = Math::BigInt->new("100000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1182 - is a valid object ok 1183 - $x = Math::BigInt->new("1000000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1184 - is a valid object ok 1185 - $x = Math::BigInt->new("10000000000001"); $y = Math::BigInt->new("-1"); $x->bsub($y); ok 1186 - is a valid object ok 1187 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1188 - is a valid object ok 1189 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1190 - is a valid object ok 1191 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1192 - is a valid object ok 1193 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("abc"); $x->bmuladd($y, $z); ok 1194 - is a valid object ok 1195 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1196 - is a valid object ok 1197 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1198 - is a valid object ok 1199 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaNmul"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1200 - is a valid object ok 1201 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaNmul"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1202 - is a valid object ok 1203 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1204 - is a valid object ok 1205 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1206 - is a valid object ok 1207 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1208 - is a valid object ok 1209 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1210 - is a valid object ok 1211 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1212 - is a valid object ok 1213 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1214 - is a valid object ok 1215 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1216 - is a valid object ok 1217 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1218 - is a valid object ok 1219 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1220 - is a valid object ok 1221 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1222 - is a valid object ok 1223 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("123456789123456789"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1224 - is a valid object ok 1225 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1226 - is a valid object ok 1227 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1228 - is a valid object ok 1229 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1230 - is a valid object ok 1231 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1232 - is a valid object ok 1233 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1234 - is a valid object ok 1235 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1236 - is a valid object ok 1237 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("+3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1238 - is a valid object ok 1239 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1240 - is a valid object ok 1241 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1242 - is a valid object ok 1243 - $x = Math::BigInt->new("111"); $y = Math::BigInt->new("111"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1244 - is a valid object ok 1245 - $x = Math::BigInt->new("10101"); $y = Math::BigInt->new("10101"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1246 - is a valid object ok 1247 - $x = Math::BigInt->new("1001001"); $y = Math::BigInt->new("1001001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1248 - is a valid object ok 1249 - $x = Math::BigInt->new("100010001"); $y = Math::BigInt->new("100010001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1250 - is a valid object ok 1251 - $x = Math::BigInt->new("10000100001"); $y = Math::BigInt->new("10000100001"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1252 - is a valid object ok 1253 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1254 - is a valid object ok 1255 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1256 - is a valid object ok 1257 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1258 - is a valid object ok 1259 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1260 - is a valid object ok 1261 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1262 - is a valid object ok 1263 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1264 - is a valid object ok 1265 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1266 - is a valid object ok 1267 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1268 - is a valid object ok 1269 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("0"); $x->bmuladd($y, $z); ok 1270 - is a valid object ok 1271 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1272 - is a valid object ok 1273 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1274 - is a valid object ok 1275 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1276 - is a valid object ok 1277 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1278 - is a valid object ok 1279 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1280 - is a valid object ok 1281 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1282 - is a valid object ok 1283 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1284 - is a valid object ok 1285 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1286 - is a valid object ok 1287 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $z = Math::BigInt->new("1"); $x->bmuladd($y, $z); ok 1288 - is a valid object ok 1289 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1290 - is a valid object ok 1291 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1292 - is a valid object ok 1293 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1294 - is a valid object ok 1295 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("-5"); $x->bmuladd($y, $z); ok 1296 - is a valid object ok 1297 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("5"); $x->bmuladd($y, $z); ok 1298 - is a valid object ok 1299 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-4"); $z = Math::BigInt->new("5"); $x->bmuladd($y, $z); ok 1300 - is a valid object ok 1301 - $x = Math::BigInt->new("9999999999999999999"); $y = Math::BigInt->new("10000000000000000000"); $z = Math::BigInt->new("1234567890"); $x->bmuladd($y, $z); ok 1302 - is a valid object ok 1303 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("12345678901234567890"); $x->bmuladd($y, $z); ok 1304 - is a valid object ok 1305 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bmul($y); ok 1306 - is a valid object ok 1307 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1308 - is a valid object ok 1309 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x->bmul($y); ok 1310 - is a valid object ok 1311 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1312 - is a valid object ok 1313 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1314 - is a valid object ok 1315 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaNmul"); $x->bmul($y); ok 1316 - is a valid object ok 1317 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaNmul"); $x->bmul($y); ok 1318 - is a valid object ok 1319 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1320 - is a valid object ok 1321 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1322 - is a valid object ok 1323 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bmul($y); ok 1324 - is a valid object ok 1325 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bmul($y); ok 1326 - is a valid object ok 1327 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1328 - is a valid object ok 1329 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1330 - is a valid object ok 1331 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1332 - is a valid object ok 1333 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1334 - is a valid object ok 1335 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x->bmul($y); ok 1336 - is a valid object ok 1337 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("0"); $x->bmul($y); ok 1338 - is a valid object ok 1339 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("123456789123456789"); $x->bmul($y); ok 1340 - is a valid object ok 1341 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1342 - is a valid object ok 1343 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1344 - is a valid object ok 1345 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bmul($y); ok 1346 - is a valid object ok 1347 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x->bmul($y); ok 1348 - is a valid object ok 1349 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); $x->bmul($y); ok 1350 - is a valid object ok 1351 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("+3"); $x->bmul($y); ok 1352 - is a valid object ok 1353 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-3"); $x->bmul($y); ok 1354 - is a valid object ok 1355 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x->bmul($y); ok 1356 - is a valid object ok 1357 - $x = Math::BigInt->new("111"); $y = Math::BigInt->new("111"); $x->bmul($y); ok 1358 - is a valid object ok 1359 - $x = Math::BigInt->new("10101"); $y = Math::BigInt->new("10101"); $x->bmul($y); ok 1360 - is a valid object ok 1361 - $x = Math::BigInt->new("1001001"); $y = Math::BigInt->new("1001001"); $x->bmul($y); ok 1362 - is a valid object ok 1363 - $x = Math::BigInt->new("100010001"); $y = Math::BigInt->new("100010001"); $x->bmul($y); ok 1364 - is a valid object ok 1365 - $x = Math::BigInt->new("10000100001"); $y = Math::BigInt->new("10000100001"); $x->bmul($y); ok 1366 - is a valid object ok 1367 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1368 - is a valid object ok 1369 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1370 - is a valid object ok 1371 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1372 - is a valid object ok 1373 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1374 - is a valid object ok 1375 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1376 - is a valid object ok 1377 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1378 - is a valid object ok 1379 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1380 - is a valid object ok 1381 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1382 - is a valid object ok 1383 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $x->bmul($y); ok 1384 - is a valid object ok 1385 - $x = Math::BigInt->new("+25"); $y = Math::BigInt->new("+25"); $x->bmul($y); ok 1386 - is a valid object ok 1387 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("+12345"); $x->bmul($y); ok 1388 - is a valid object ok 1389 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+11111"); $x->bmul($y); ok 1390 - is a valid object ok 1391 - $x = Math::BigInt->new("9999"); $y = Math::BigInt->new("10000"); $x->bmul($y); ok 1392 - is a valid object ok 1393 - $x = Math::BigInt->new("99999"); $y = Math::BigInt->new("100000"); $x->bmul($y); ok 1394 - is a valid object ok 1395 - $x = Math::BigInt->new("999999"); $y = Math::BigInt->new("1000000"); $x->bmul($y); ok 1396 - is a valid object ok 1397 - $x = Math::BigInt->new("9999999"); $y = Math::BigInt->new("10000000"); $x->bmul($y); ok 1398 - is a valid object ok 1399 - $x = Math::BigInt->new("99999999"); $y = Math::BigInt->new("100000000"); $x->bmul($y); ok 1400 - is a valid object ok 1401 - $x = Math::BigInt->new("999999999"); $y = Math::BigInt->new("1000000000"); $x->bmul($y); ok 1402 - is a valid object ok 1403 - $x = Math::BigInt->new("9999999999"); $y = Math::BigInt->new("10000000000"); $x->bmul($y); ok 1404 - is a valid object ok 1405 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("100000000000"); $x->bmul($y); ok 1406 - is a valid object ok 1407 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("1000000000000"); $x->bmul($y); ok 1408 - is a valid object ok 1409 - $x = Math::BigInt->new("9999999999999"); $y = Math::BigInt->new("10000000000000"); $x->bmul($y); ok 1410 - is a valid object ok 1411 - $x = Math::BigInt->new("99999999999999"); $y = Math::BigInt->new("100000000000000"); $x->bmul($y); ok 1412 - is a valid object ok 1413 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("1000000000000000"); $x->bmul($y); ok 1414 - is a valid object ok 1415 - $x = Math::BigInt->new("9999999999999999"); $y = Math::BigInt->new("10000000000000000"); $x->bmul($y); ok 1416 - is a valid object ok 1417 - $x = Math::BigInt->new("99999999999999999"); $y = Math::BigInt->new("100000000000000000"); $x->bmul($y); ok 1418 - is a valid object ok 1419 - $x = Math::BigInt->new("999999999999999999"); $y = Math::BigInt->new("1000000000000000000"); $x->bmul($y); ok 1420 - is a valid object ok 1421 - $x = Math::BigInt->new("9999999999999999999"); $y = Math::BigInt->new("10000000000000000000"); $x->bmul($y); ok 1422 - is a valid object ok 1423 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1424 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1425 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1426 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1427 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 1428 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1429 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1430 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1431 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1432 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1433 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1434 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1435 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1436 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1437 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1438 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 1439 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1440 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1441 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 1442 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1443 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1444 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1445 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1446 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1447 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1448 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1449 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1450 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1451 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1452 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1453 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1454 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1455 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1456 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1457 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1458 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1459 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1460 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1461 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1462 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1463 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1464 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1465 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1466 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1467 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1468 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1469 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1470 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1471 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1472 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1473 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1474 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1475 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1476 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1477 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1478 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 1479 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 1480 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); join(",", $x->bdiv($y)); ok 1481 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); join(",", $x->bdiv($y)); ok 1482 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 1483 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 1484 - $x = Math::BigInt->new("1234567812345678"); $y = Math::BigInt->new("123456712345678"); join(",", $x->bdiv($y)); ok 1485 - $x = Math::BigInt->new("12345671234567"); $y = Math::BigInt->new("1234561234567"); join(",", $x->bdiv($y)); ok 1486 - $x = Math::BigInt->new("123456123456"); $y = Math::BigInt->new("12345123456"); join(",", $x->bdiv($y)); ok 1487 - $x = Math::BigInt->new("1234512345"); $y = Math::BigInt->new("123412345"); join(",", $x->bdiv($y)); ok 1488 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("1234567890"); join(",", $x->bdiv($y)); ok 1489 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("1234567890"); join(",", $x->bdiv($y)); ok 1490 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("9876543210"); join(",", $x->bdiv($y)); ok 1491 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("9876543210"); join(",", $x->bdiv($y)); ok 1492 - $x = Math::BigInt->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt->new("484848484848484848484848486666666666666689898989898989898989"); join(",", $x->bdiv($y)); ok 1493 - $x = Math::BigInt->new("1267650600228229401496703205375"); $y = Math::BigInt->new("1267650600228229401496703205376"); join(",", $x->bdiv($y)); ok 1494 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("999999999999999999999999999999999"); join(",", $x->bdiv($y)); ok 1495 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("888888888888888888888888888888888"); join(",", $x->bdiv($y)); ok 1496 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("777777777777777777777777777777777"); join(",", $x->bdiv($y)); ok 1497 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("666666666666666666666666666666666"); join(",", $x->bdiv($y)); ok 1498 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("555555555555555555555555555555555"); join(",", $x->bdiv($y)); ok 1499 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("444444444444444444444444444444444"); join(",", $x->bdiv($y)); ok 1500 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("333333333333333333333333333333333"); join(",", $x->bdiv($y)); ok 1501 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("222222222222222222222222222222222"); join(",", $x->bdiv($y)); ok 1502 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("111111111111111111111111111111111"); join(",", $x->bdiv($y)); ok 1503 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_3333333_3333333_3333333"); join(",", $x->bdiv($y)); ok 1504 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1505 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1506 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("2000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1507 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1508 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1509 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1510 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1511 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1512 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1513 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1514 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1515 - is a valid object ok 1516 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1517 - is a valid object ok 1518 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1519 - is a valid object ok 1520 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1521 - is a valid object ok 1522 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x->bdiv($y); ok 1523 - is a valid object ok 1524 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1525 - is a valid object ok 1526 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1527 - is a valid object ok 1528 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1529 - is a valid object ok 1530 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1531 - is a valid object ok 1532 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1533 - is a valid object ok 1534 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1535 - is a valid object ok 1536 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1537 - is a valid object ok 1538 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1539 - is a valid object ok 1540 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1541 - is a valid object ok 1542 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1543 - is a valid object ok 1544 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bdiv($y); ok 1545 - is a valid object ok 1546 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1547 - is a valid object ok 1548 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1549 - is a valid object ok 1550 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->bdiv($y); ok 1551 - is a valid object ok 1552 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x->bdiv($y); ok 1553 - is a valid object ok 1554 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x->bdiv($y); ok 1555 - is a valid object ok 1556 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1557 - is a valid object ok 1558 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("-2"); $x->bdiv($y); ok 1559 - is a valid object ok 1560 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1561 - is a valid object ok 1562 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("-2"); $x->bdiv($y); ok 1563 - is a valid object ok 1564 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1565 - is a valid object ok 1566 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1567 - is a valid object ok 1568 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1569 - is a valid object ok 1570 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1571 - is a valid object ok 1572 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->bdiv($y); ok 1573 - is a valid object ok 1574 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1575 - is a valid object ok 1576 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->bdiv($y); ok 1577 - is a valid object ok 1578 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bdiv($y); ok 1579 - is a valid object ok 1580 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("26"); $x->bdiv($y); ok 1581 - is a valid object ok 1582 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1583 - is a valid object ok 1584 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1585 - is a valid object ok 1586 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1587 - is a valid object ok 1588 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1589 - is a valid object ok 1590 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1591 - is a valid object ok 1592 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1593 - is a valid object ok 1594 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1595 - is a valid object ok 1596 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1597 - is a valid object ok 1598 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1599 - is a valid object ok 1600 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x->bdiv($y); ok 1601 - is a valid object ok 1602 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x->bdiv($y); ok 1603 - is a valid object ok 1604 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x->bdiv($y); ok 1605 - is a valid object ok 1606 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1607 - is a valid object ok 1608 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("+5"); $x->bdiv($y); ok 1609 - is a valid object ok 1610 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("+4"); $x->bdiv($y); ok 1611 - is a valid object ok 1612 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("+8"); $x->bdiv($y); ok 1613 - is a valid object ok 1614 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("+16"); $x->bdiv($y); ok 1615 - is a valid object ok 1616 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x->bdiv($y); ok 1617 - is a valid object ok 1618 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x->bdiv($y); ok 1619 - is a valid object ok 1620 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x->bdiv($y); ok 1621 - is a valid object ok 1622 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x->bdiv($y); ok 1623 - is a valid object ok 1624 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x->bdiv($y); ok 1625 - is a valid object ok 1626 - $x = Math::BigInt->new("+1111088889"); $y = Math::BigInt->new("99999"); $x->bdiv($y); ok 1627 - is a valid object ok 1628 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1629 - is a valid object ok 1630 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1631 - is a valid object ok 1632 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1633 - is a valid object ok 1634 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1635 - is a valid object ok 1636 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1637 - is a valid object ok 1638 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1639 - is a valid object ok 1640 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1641 - is a valid object ok 1642 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1643 - is a valid object ok 1644 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1645 - is a valid object ok 1646 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1647 - is a valid object ok 1648 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1649 - is a valid object ok 1650 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1651 - is a valid object ok 1652 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("-3"); $x->bdiv($y); ok 1653 - is a valid object ok 1654 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("3"); $x->bdiv($y); ok 1655 - is a valid object ok 1656 - $x = Math::BigInt->new("10000000000000000000000000000000000000000000000000000000000000000000000000000000000"); $y = Math::BigInt->new("10000000375084540248994272022843165711074"); $x->bdiv($y); ok 1657 - is a valid object ok 1658 - $x = Math::BigInt->new("1234567812345678"); $y = Math::BigInt->new("123456712345678"); $x->bdiv($y); ok 1659 - is a valid object ok 1660 - $x = Math::BigInt->new("12345671234567"); $y = Math::BigInt->new("1234561234567"); $x->bdiv($y); ok 1661 - is a valid object ok 1662 - $x = Math::BigInt->new("123456123456"); $y = Math::BigInt->new("12345123456"); $x->bdiv($y); ok 1663 - is a valid object ok 1664 - $x = Math::BigInt->new("1234512345"); $y = Math::BigInt->new("123412345"); $x->bdiv($y); ok 1665 - is a valid object ok 1666 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("1234567890"); $x->bdiv($y); ok 1667 - is a valid object ok 1668 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("1234567890"); $x->bdiv($y); ok 1669 - is a valid object ok 1670 - $x = Math::BigInt->new("1234567890999999999"); $y = Math::BigInt->new("9876543210"); $x->bdiv($y); ok 1671 - is a valid object ok 1672 - $x = Math::BigInt->new("1234567890000000000"); $y = Math::BigInt->new("9876543210"); $x->bdiv($y); ok 1673 - is a valid object ok 1674 - $x = Math::BigInt->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt->new("484848484848484848484848486666666666666689898989898989898989"); $x->bdiv($y); ok 1675 - is a valid object ok 1676 - $x = Math::BigInt->new("84696969696969696956565656566184292929292929292847474747436308080808080808086765396464646464646465"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1677 - is a valid object ok 1678 - $x = Math::BigInt->new("84696969696969696943434343434871161616161616161452525252486813131313131313143230042929292929292930"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1679 - is a valid object ok 1680 - $x = Math::BigInt->new("84696969696969696969696969697497424242424242424242424242385803030303030303030300750000000000000000"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1681 - is a valid object ok 1682 - $x = Math::BigInt->new("84696969696969696930303030303558030303030303030057575757537318181818181818199694689393939393939395"); $y = Math::BigInt->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1683 - is a valid object ok 1684 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("999999999999999999999999999999999"); $x->bdiv($y); ok 1685 - is a valid object ok 1686 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("888888888888888888888888888888888"); $x->bdiv($y); ok 1687 - is a valid object ok 1688 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("777777777777777777777777777777777"); $x->bdiv($y); ok 1689 - is a valid object ok 1690 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("666666666666666666666666666666666"); $x->bdiv($y); ok 1691 - is a valid object ok 1692 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("555555555555555555555555555555555"); $x->bdiv($y); ok 1693 - is a valid object ok 1694 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("444444444444444444444444444444444"); $x->bdiv($y); ok 1695 - is a valid object ok 1696 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("333333333333333333333333333333333"); $x->bdiv($y); ok 1697 - is a valid object ok 1698 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("222222222222222222222222222222222"); $x->bdiv($y); ok 1699 - is a valid object ok 1700 - $x = Math::BigInt->new("999999999999999999999999999999999"); $y = Math::BigInt->new("111111111111111111111111111111111"); $x->bdiv($y); ok 1701 - is a valid object ok 1702 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_3333333_3333333_3333333"); $x->bdiv($y); ok 1703 - is a valid object ok 1704 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3333333_0000000_0000000_0000000"); $x->bdiv($y); ok 1705 - is a valid object ok 1706 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("3000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1707 - is a valid object ok 1708 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("2000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1709 - is a valid object ok 1710 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1711 - is a valid object ok 1712 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100000_0000000_0000000_0000000"); $x->bdiv($y); ok 1713 - is a valid object ok 1714 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10000_0000000_0000000_0000000"); $x->bdiv($y); ok 1715 - is a valid object ok 1716 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1000_0000000_0000000_0000000"); $x->bdiv($y); ok 1717 - is a valid object ok 1718 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("100_0000000_0000000_0000000"); $x->bdiv($y); ok 1719 - is a valid object ok 1720 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("10_0000000_0000000_0000000"); $x->bdiv($y); ok 1721 - is a valid object ok 1722 - $x = Math::BigInt->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt->new("1_0000000_0000000_0000000"); $x->bdiv($y); ok 1723 - is a valid object ok 1724 - $x = Math::BigInt->new("949418181818187070707070707070707070"); $y = Math::BigInt->new("181818181853535353535353535353535353"); $x->bdiv($y); ok 1725 - is a valid object ok 1726 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1727 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1728 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1729 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1730 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); join (",", $x->btdiv($y)); ok 1731 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1732 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1733 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1734 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1735 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1736 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1737 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1738 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1739 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1740 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1741 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); join (",", $x->btdiv($y)); ok 1742 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1743 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1744 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); join (",", $x->btdiv($y)); ok 1745 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1746 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1747 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1748 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1749 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1750 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1751 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1752 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1753 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1754 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1755 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1756 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1757 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1758 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1759 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1760 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1761 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1762 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1763 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1764 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1765 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1766 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1767 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1768 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1769 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1770 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1771 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1772 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1773 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1774 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1775 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1776 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1777 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1778 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1779 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1780 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1781 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); join (",", $x->btdiv($y)); ok 1782 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); join (",", $x->btdiv($y)); ok 1783 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); join (",", $x->btdiv($y)); ok 1784 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); join (",", $x->btdiv($y)); ok 1785 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); join (",", $x->btdiv($y)); ok 1786 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); join (",", $x->btdiv($y)); ok 1787 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1788 - is a valid object ok 1789 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1790 - is a valid object ok 1791 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1792 - is a valid object ok 1793 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1794 - is a valid object ok 1795 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x->btdiv($y); ok 1796 - is a valid object ok 1797 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1798 - is a valid object ok 1799 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1800 - is a valid object ok 1801 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1802 - is a valid object ok 1803 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1804 - is a valid object ok 1805 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1806 - is a valid object ok 1807 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1808 - is a valid object ok 1809 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1810 - is a valid object ok 1811 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1812 - is a valid object ok 1813 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1814 - is a valid object ok 1815 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1816 - is a valid object ok 1817 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->btdiv($y); ok 1818 - is a valid object ok 1819 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1820 - is a valid object ok 1821 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1822 - is a valid object ok 1823 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->btdiv($y); ok 1824 - is a valid object ok 1825 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1826 - is a valid object ok 1827 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1828 - is a valid object ok 1829 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1830 - is a valid object ok 1831 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1832 - is a valid object ok 1833 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1834 - is a valid object ok 1835 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1836 - is a valid object ok 1837 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1838 - is a valid object ok 1839 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1840 - is a valid object ok 1841 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1842 - is a valid object ok 1843 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1844 - is a valid object ok 1845 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1846 - is a valid object ok 1847 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1848 - is a valid object ok 1849 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1850 - is a valid object ok 1851 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1852 - is a valid object ok 1853 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1854 - is a valid object ok 1855 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1856 - is a valid object ok 1857 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1858 - is a valid object ok 1859 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1860 - is a valid object ok 1861 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1862 - is a valid object ok 1863 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1864 - is a valid object ok 1865 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1866 - is a valid object ok 1867 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1868 - is a valid object ok 1869 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1870 - is a valid object ok 1871 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1872 - is a valid object ok 1873 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1874 - is a valid object ok 1875 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1876 - is a valid object ok 1877 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1878 - is a valid object ok 1879 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1880 - is a valid object ok 1881 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1882 - is a valid object ok 1883 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1884 - is a valid object ok 1885 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1886 - is a valid object ok 1887 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1888 - is a valid object ok 1889 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1890 - is a valid object ok 1891 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1892 - is a valid object ok 1893 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1894 - is a valid object ok 1895 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1896 - is a valid object ok 1897 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-5"); $x->btdiv($y); ok 1898 - is a valid object ok 1899 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-2"); $x->btdiv($y); ok 1900 - is a valid object ok 1901 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-1"); $x->btdiv($y); ok 1902 - is a valid object ok 1903 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("1"); $x->btdiv($y); ok 1904 - is a valid object ok 1905 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("2"); $x->btdiv($y); ok 1906 - is a valid object ok 1907 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x->btdiv($y); ok 1908 - is a valid object ok 1909 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x->bmodinv($y); ok 1910 - is a valid object ok 1911 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1912 - is a valid object ok 1913 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $x->bmodinv($y); ok 1914 - is a valid object ok 1915 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1916 - is a valid object ok 1917 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1918 - is a valid object ok 1919 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-5"); $x->bmodinv($y); ok 1920 - is a valid object ok 1921 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1922 - is a valid object ok 1923 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("5033"); $x->bmodinv($y); ok 1924 - is a valid object ok 1925 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("13"); $x->bmodinv($y); ok 1926 - is a valid object ok 1927 - $x = Math::BigInt->new("-1234567891"); $y = Math::BigInt->new("13"); $x->bmodinv($y); ok 1928 - is a valid object ok 1929 - $x = Math::BigInt->new("324958749843759385732954874325984357439658735983745"); $y = Math::BigInt->new("2348249874968739"); $x->bmodinv($y); ok 1930 - is a valid object ok 1931 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1932 - is a valid object ok 1933 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1934 - is a valid object ok 1935 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1936 - is a valid object ok 1937 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1938 - is a valid object ok 1939 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1940 - is a valid object ok 1941 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1942 - is a valid object ok 1943 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $x->bmodinv($y); ok 1944 - is a valid object ok 1945 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1946 - is a valid object ok 1947 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1948 - is a valid object ok 1949 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1950 - is a valid object ok 1951 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1952 - is a valid object ok 1953 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1954 - is a valid object ok 1955 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1956 - is a valid object ok 1957 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x->bmodinv($y); ok 1958 - is a valid object ok 1959 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1960 - is a valid object ok 1961 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1962 - is a valid object ok 1963 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1964 - is a valid object ok 1965 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1966 - is a valid object ok 1967 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1968 - is a valid object ok 1969 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1970 - is a valid object ok 1971 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $x->bmodinv($y); ok 1972 - is a valid object ok 1973 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1974 - is a valid object ok 1975 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bmodinv($y); ok 1976 - is a valid object ok 1977 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x->bmodinv($y); ok 1978 - is a valid object ok 1979 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x->bmodinv($y); ok 1980 - is a valid object ok 1981 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1982 - is a valid object ok 1983 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1984 - is a valid object ok 1985 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1986 - is a valid object ok 1987 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1988 - is a valid object ok 1989 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("abc"); $x->bmodpow($y, $z); ok 1990 - is a valid object ok 1991 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("abc"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1992 - is a valid object ok 1993 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 1994 - is a valid object ok 1995 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("0"); $x->bmodpow($y, $z); ok 1996 - is a valid object ok 1997 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("2"); $x->bmodpow($y, $z); ok 1998 - is a valid object ok 1999 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("2"); $x->bmodpow($y, $z); ok 2000 - is a valid object ok 2001 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("5"); $x->bmodpow($y, $z); ok 2002 - is a valid object ok 2003 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2004 - is a valid object ok 2005 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2006 - is a valid object ok 2007 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2008 - is a valid object ok 2009 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2010 - is a valid object ok 2011 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2012 - is a valid object ok 2013 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2014 - is a valid object ok 2015 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2016 - is a valid object ok 2017 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2018 - is a valid object ok 2019 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2020 - is a valid object ok 2021 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2022 - is a valid object ok 2023 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2024 - is a valid object ok 2025 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2026 - is a valid object ok 2027 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2028 - is a valid object ok 2029 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2030 - is a valid object ok 2031 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2032 - is a valid object ok 2033 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2034 - is a valid object ok 2035 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2036 - is a valid object ok 2037 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2038 - is a valid object ok 2039 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2040 - is a valid object ok 2041 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2042 - is a valid object ok 2043 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2044 - is a valid object ok 2045 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2046 - is a valid object ok 2047 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2048 - is a valid object ok 2049 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2050 - is a valid object ok 2051 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2052 - is a valid object ok 2053 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2054 - is a valid object ok 2055 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2056 - is a valid object ok 2057 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2058 - is a valid object ok 2059 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2060 - is a valid object ok 2061 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2062 - is a valid object ok 2063 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2064 - is a valid object ok 2065 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2066 - is a valid object ok 2067 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2068 - is a valid object ok 2069 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2070 - is a valid object ok 2071 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2072 - is a valid object ok 2073 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2074 - is a valid object ok 2075 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2076 - is a valid object ok 2077 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2078 - is a valid object ok 2079 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2080 - is a valid object ok 2081 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2082 - is a valid object ok 2083 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2084 - is a valid object ok 2085 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2086 - is a valid object ok 2087 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2088 - is a valid object ok 2089 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2090 - is a valid object ok 2091 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2092 - is a valid object ok 2093 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2094 - is a valid object ok 2095 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2096 - is a valid object ok 2097 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2098 - is a valid object ok 2099 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2100 - is a valid object ok 2101 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2102 - is a valid object ok 2103 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2104 - is a valid object ok 2105 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2106 - is a valid object ok 2107 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2108 - is a valid object ok 2109 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2110 - is a valid object ok 2111 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2112 - is a valid object ok 2113 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2114 - is a valid object ok 2115 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2116 - is a valid object ok 2117 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2118 - is a valid object ok 2119 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2120 - is a valid object ok 2121 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2122 - is a valid object ok 2123 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2124 - is a valid object ok 2125 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2126 - is a valid object ok 2127 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2128 - is a valid object ok 2129 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2130 - is a valid object ok 2131 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2132 - is a valid object ok 2133 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2134 - is a valid object ok 2135 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2136 - is a valid object ok 2137 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2138 - is a valid object ok 2139 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2140 - is a valid object ok 2141 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2142 - is a valid object ok 2143 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2144 - is a valid object ok 2145 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2146 - is a valid object ok 2147 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2148 - is a valid object ok 2149 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2150 - is a valid object ok 2151 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2152 - is a valid object ok 2153 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2154 - is a valid object ok 2155 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2156 - is a valid object ok 2157 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2158 - is a valid object ok 2159 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2160 - is a valid object ok 2161 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2162 - is a valid object ok 2163 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2164 - is a valid object ok 2165 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2166 - is a valid object ok 2167 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2168 - is a valid object ok 2169 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2170 - is a valid object ok 2171 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2172 - is a valid object ok 2173 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2174 - is a valid object ok 2175 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2176 - is a valid object ok 2177 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2178 - is a valid object ok 2179 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2180 - is a valid object ok 2181 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2182 - is a valid object ok 2183 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2184 - is a valid object ok 2185 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2186 - is a valid object ok 2187 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2188 - is a valid object ok 2189 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2190 - is a valid object ok 2191 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2192 - is a valid object ok 2193 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2194 - is a valid object ok 2195 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2196 - is a valid object ok 2197 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("3"); $x->bmodpow($y, $z); ok 2198 - is a valid object ok 2199 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2200 - is a valid object ok 2201 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2202 - is a valid object ok 2203 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2204 - is a valid object ok 2205 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2206 - is a valid object ok 2207 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2208 - is a valid object ok 2209 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2210 - is a valid object ok 2211 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2212 - is a valid object ok 2213 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2214 - is a valid object ok 2215 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2216 - is a valid object ok 2217 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2218 - is a valid object ok 2219 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2220 - is a valid object ok 2221 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2222 - is a valid object ok 2223 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2224 - is a valid object ok 2225 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2226 - is a valid object ok 2227 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2228 - is a valid object ok 2229 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2230 - is a valid object ok 2231 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2232 - is a valid object ok 2233 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2234 - is a valid object ok 2235 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2236 - is a valid object ok 2237 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2238 - is a valid object ok 2239 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("0"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2240 - is a valid object ok 2241 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2242 - is a valid object ok 2243 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2244 - is a valid object ok 2245 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2246 - is a valid object ok 2247 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2248 - is a valid object ok 2249 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2250 - is a valid object ok 2251 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2252 - is a valid object ok 2253 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2254 - is a valid object ok 2255 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2256 - is a valid object ok 2257 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2258 - is a valid object ok 2259 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2260 - is a valid object ok 2261 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2262 - is a valid object ok 2263 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2264 - is a valid object ok 2265 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2266 - is a valid object ok 2267 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2268 - is a valid object ok 2269 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2270 - is a valid object ok 2271 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2272 - is a valid object ok 2273 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2274 - is a valid object ok 2275 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2276 - is a valid object ok 2277 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2278 - is a valid object ok 2279 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2280 - is a valid object ok 2281 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2282 - is a valid object ok 2283 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2284 - is a valid object ok 2285 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2286 - is a valid object ok 2287 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2288 - is a valid object ok 2289 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2290 - is a valid object ok 2291 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2292 - is a valid object ok 2293 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2294 - is a valid object ok 2295 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("4"); $z = Math::BigInt->new("4"); $x->bmodpow($y, $z); ok 2296 - is a valid object ok 2297 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("16"); $x->bmodpow($y, $z); ok 2298 - is a valid object ok 2299 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $z = Math::BigInt->new("5033"); $x->bmodpow($y, $z); ok 2300 - is a valid object ok 2301 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("7"); $z = Math::BigInt->new("5032"); $x->bmodpow($y, $z); ok 2302 - is a valid object ok 2303 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("8"); $z = Math::BigInt->new("-5"); $x->bmodpow($y, $z); ok 2304 - is a valid object ok 2305 - $x = Math::BigInt->new("1e50"); $y = Math::BigInt->new("1"); $z = Math::BigInt->new("1"); $x->bmodpow($y, $z); ok 2306 - is a valid object ok 2307 - $x = Math::BigInt->new("98436739867439843769485798542749827593285729587325"); $y = Math::BigInt->new("43698764986460981048259837659386739857456983759328457"); $z = Math::BigInt->new("6943857329857295827698367"); $x->bmodpow($y, $z); ok 2308 - is a valid object ok 2309 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $z = Math::BigInt->new("13"); $x->bmodpow($y, $z); ok 2310 - is a valid object ok 2311 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $z = Math::BigInt->new("13"); $x->bmodpow($y, $z); ok 2312 - is a valid object ok 2313 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x % $y; ok 2314 - is a valid object ok 2315 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x % $y; ok 2316 - is a valid object ok 2317 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x % $y; ok 2318 - is a valid object ok 2319 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("0"); $x % $y; ok 2320 - is a valid object ok 2321 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x % $y; ok 2322 - is a valid object ok 2323 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2324 - is a valid object ok 2325 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 2326 - is a valid object ok 2327 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x % $y; ok 2328 - is a valid object ok 2329 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 2330 - is a valid object ok 2331 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2332 - is a valid object ok 2333 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 2334 - is a valid object ok 2335 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x % $y; ok 2336 - is a valid object ok 2337 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 2338 - is a valid object ok 2339 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x % $y; ok 2340 - is a valid object ok 2341 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x % $y; ok 2342 - is a valid object ok 2343 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x % $y; ok 2344 - is a valid object ok 2345 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2346 - is a valid object ok 2347 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2348 - is a valid object ok 2349 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 2350 - is a valid object ok 2351 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x % $y; ok 2352 - is a valid object ok 2353 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x % $y; ok 2354 - is a valid object ok 2355 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x % $y; ok 2356 - is a valid object ok 2357 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x % $y; ok 2358 - is a valid object ok 2359 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x % $y; ok 2360 - is a valid object ok 2361 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x % $y; ok 2362 - is a valid object ok 2363 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x % $y; ok 2364 - is a valid object ok 2365 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x % $y; ok 2366 - is a valid object ok 2367 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x % $y; ok 2368 - is a valid object ok 2369 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x % $y; ok 2370 - is a valid object ok 2371 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2372 - is a valid object ok 2373 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2374 - is a valid object ok 2375 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2376 - is a valid object ok 2377 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2378 - is a valid object ok 2379 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2380 - is a valid object ok 2381 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2382 - is a valid object ok 2383 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2384 - is a valid object ok 2385 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2386 - is a valid object ok 2387 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 2388 - is a valid object ok 2389 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x % $y; ok 2390 - is a valid object ok 2391 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x % $y; ok 2392 - is a valid object ok 2393 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x % $y; ok 2394 - is a valid object ok 2395 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x % $y; ok 2396 - is a valid object ok 2397 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x % $y; ok 2398 - is a valid object ok 2399 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("4"); $x % $y; ok 2400 - is a valid object ok 2401 - $x = Math::BigInt->new("1000"); $y = Math::BigInt->new("8"); $x % $y; ok 2402 - is a valid object ok 2403 - $x = Math::BigInt->new("10000"); $y = Math::BigInt->new("16"); $x % $y; ok 2404 - is a valid object ok 2405 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x % $y; ok 2406 - is a valid object ok 2407 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x % $y; ok 2408 - is a valid object ok 2409 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x % $y; ok 2410 - is a valid object ok 2411 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x % $y; ok 2412 - is a valid object ok 2413 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x % $y; ok 2414 - is a valid object ok 2415 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("+5"); $x % $y; ok 2416 - is a valid object ok 2417 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("-5"); $x % $y; ok 2418 - is a valid object ok 2419 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("-5"); $x % $y; ok 2420 - is a valid object ok 2421 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x % $y; ok 2422 - is a valid object ok 2423 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x % $y; ok 2424 - is a valid object ok 2425 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x % $y; ok 2426 - is a valid object ok 2427 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x % $y; ok 2428 - is a valid object ok 2429 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x % $y; ok 2430 - is a valid object ok 2431 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x % $y; ok 2432 - is a valid object ok 2433 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x % $y; ok 2434 - is a valid object ok 2435 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x % $y; ok 2436 - is a valid object ok 2437 - $x = Math::BigInt->new("4095"); $y = Math::BigInt->new("4095"); $x % $y; ok 2438 - is a valid object ok 2439 - $x = Math::BigInt->new("100041000510123"); $y = Math::BigInt->new("3"); $x % $y; ok 2440 - is a valid object ok 2441 - $x = Math::BigInt->new("152403346"); $y = Math::BigInt->new("12345"); $x % $y; ok 2442 - is a valid object ok 2443 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("5"); $x % $y; ok 2444 - is a valid object ok 2445 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("9"); $x % $y; ok 2446 - is a valid object ok 2447 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("9"); $x % $y; ok 2448 - is a valid object ok 2449 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("9"); $x % $y; ok 2450 - is a valid object ok 2451 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("9"); $x % $y; ok 2452 - is a valid object ok 2453 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("9"); $x % $y; ok 2454 - is a valid object ok 2455 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("9"); $x % $y; ok 2456 - is a valid object ok 2457 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("9"); $x % $y; ok 2458 - is a valid object ok 2459 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("9"); $x % $y; ok 2460 - is a valid object ok 2461 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("10"); $x % $y; ok 2462 - is a valid object ok 2463 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("10"); $x % $y; ok 2464 - is a valid object ok 2465 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("10"); $x % $y; ok 2466 - is a valid object ok 2467 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("10"); $x % $y; ok 2468 - is a valid object ok 2469 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("10"); $x % $y; ok 2470 - is a valid object ok 2471 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("10"); $x % $y; ok 2472 - is a valid object ok 2473 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("10"); $x % $y; ok 2474 - is a valid object ok 2475 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("10"); $x % $y; ok 2476 - is a valid object ok 2477 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("113"); $x % $y; ok 2478 - is a valid object ok 2479 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("113"); $x % $y; ok 2480 - is a valid object ok 2481 - $x = Math::BigInt->new("12345678"); $y = Math::BigInt->new("113"); $x % $y; ok 2482 - is a valid object ok 2483 - $x = Math::BigInt->new("1234567891"); $y = Math::BigInt->new("113"); $x % $y; ok 2484 - is a valid object ok 2485 - $x = Math::BigInt->new("123456789123"); $y = Math::BigInt->new("113"); $x % $y; ok 2486 - is a valid object ok 2487 - $x = Math::BigInt->new("12345678912345"); $y = Math::BigInt->new("113"); $x % $y; ok 2488 - is a valid object ok 2489 - $x = Math::BigInt->new("1234567891234567"); $y = Math::BigInt->new("113"); $x % $y; ok 2490 - is a valid object ok 2491 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("113"); $x % $y; ok 2492 - is a valid object ok 2493 - $x = Math::BigInt->new("-629"); $y = Math::BigInt->new("5033"); $x % $y; ok 2494 - is a valid object ok 2495 - $x = Math::BigInt->new("111111111111111111111111111111"); $y = Math::BigInt->new("111111111111111111111111111111"); $x % $y; ok 2496 - is a valid object ok 2497 - $x = Math::BigInt->new("12345678901234567890"); $y = Math::BigInt->new("12345678901234567890"); $x % $y; ok 2498 - is a valid object ok 2499 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("12"); Math::BigInt::bgcd($x, $y); ok 2500 - is a valid object ok 2501 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("12"); Math::BigInt::bgcd($x, $y); ok 2502 - is a valid object ok 2503 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("inf"); Math::BigInt::bgcd($x, $y); ok 2504 - is a valid object ok 2505 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2506 - is a valid object ok 2507 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); Math::BigInt::bgcd($x, $y); ok 2508 - is a valid object ok 2509 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2510 - is a valid object ok 2511 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); Math::BigInt::bgcd($x, $y); ok 2512 - is a valid object ok 2513 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 2514 - is a valid object ok 2515 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2516 - is a valid object ok 2517 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 2518 - is a valid object ok 2519 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2520 - is a valid object ok 2521 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 2522 - is a valid object ok 2523 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 2524 - is a valid object ok 2525 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 2526 - is a valid object ok 2527 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); Math::BigInt::bgcd($x, $y); ok 2528 - is a valid object ok 2529 - $x = Math::BigInt->new("+3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 2530 - is a valid object ok 2531 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 2532 - is a valid object ok 2533 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("-2"); Math::BigInt::bgcd($x, $y); ok 2534 - is a valid object ok 2535 - $x = Math::BigInt->new("-144"); $y = Math::BigInt->new("-60"); Math::BigInt::bgcd($x, $y); ok 2536 - is a valid object ok 2537 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("-60"); Math::BigInt::bgcd($x, $y); ok 2538 - is a valid object ok 2539 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("60"); Math::BigInt::bgcd($x, $y); ok 2540 - is a valid object ok 2541 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("625"); Math::BigInt::bgcd($x, $y); ok 2542 - is a valid object ok 2543 - $x = Math::BigInt->new("4096"); $y = Math::BigInt->new("81"); Math::BigInt::bgcd($x, $y); ok 2544 - is a valid object ok 2545 - $x = Math::BigInt->new("1034"); $y = Math::BigInt->new("804"); Math::BigInt::bgcd($x, $y); ok 2546 - is a valid object ok 2547 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("56"); Math::BigInt::bgcd($x, $y, $z); ok 2548 - is a valid object ok 2549 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("54"); Math::BigInt::bgcd($x, $y, $z); ok 2550 - is a valid object ok 2551 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 2552 - is a valid object ok 2553 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2554 - is a valid object ok 2555 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 2556 - is a valid object ok 2557 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2558 - is a valid object ok 2559 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 2560 - is a valid object ok 2561 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::blcm($x, $y); ok 2562 - is a valid object ok 2563 - $x = Math::BigInt->new("+27"); $y = Math::BigInt->new("+90"); Math::BigInt::blcm($x, $y); ok 2564 - is a valid object ok 2565 - $x = Math::BigInt->new("+1034"); $y = Math::BigInt->new("+804"); Math::BigInt::blcm($x, $y); ok 2566 - is a valid object ok 2567 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x & $y; ok 2568 - is a valid object ok 2569 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x & $y; ok 2570 - is a valid object ok 2571 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x & $y; ok 2572 - is a valid object ok 2573 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x & $y; ok 2574 - is a valid object ok 2575 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $x & $y; ok 2576 - is a valid object ok 2577 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x & $y; ok 2578 - is a valid object ok 2579 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x & $y; ok 2580 - is a valid object ok 2581 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x & $y; ok 2582 - is a valid object ok 2583 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+281474976710656"); $x & $y; ok 2584 - is a valid object ok 2585 - $x = Math::BigInt->new("281474976710656"); $y = Math::BigInt->new("-1"); $x & $y; ok 2586 - is a valid object ok 2587 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x & $y; ok 2588 - is a valid object ok 2589 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x & $y; ok 2590 - is a valid object ok 2591 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x & $y; ok 2592 - is a valid object ok 2593 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("-4"); $x & $y; ok 2594 - is a valid object ok 2595 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x & $y; ok 2596 - is a valid object ok 2597 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x & $y; ok 2598 - is a valid object ok 2599 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x & $y; ok 2600 - is a valid object ok 2601 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-1"); $x & $y; ok 2602 - is a valid object ok 2603 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x & $y; ok 2604 - is a valid object ok 2605 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x & $y; ok 2606 - is a valid object ok 2607 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x & $y; ok 2608 - is a valid object ok 2609 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x & $y; ok 2610 - is a valid object ok 2611 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x & $y; ok 2612 - is a valid object ok 2613 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x & $y; ok 2614 - is a valid object ok 2615 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x & $y; ok 2616 - is a valid object ok 2617 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x & $y; ok 2618 - is a valid object ok 2619 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x & $y; ok 2620 - is a valid object ok 2621 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x & $y; ok 2622 - is a valid object ok 2623 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x & $y; ok 2624 - is a valid object ok 2625 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x & $y; ok 2626 - is a valid object ok 2627 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x & $y; ok 2628 - is a valid object ok 2629 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x & $y; ok 2630 - is a valid object ok 2631 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x & $y; ok 2632 - is a valid object ok 2633 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0x3F0F0F0F0F0F"); $x & $y; ok 2634 - is a valid object ok 2635 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x | $y; ok 2636 - is a valid object ok 2637 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x | $y; ok 2638 - is a valid object ok 2639 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x | $y; ok 2640 - is a valid object ok 2641 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x | $y; ok 2642 - is a valid object ok 2643 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x | $y; ok 2644 - is a valid object ok 2645 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x | $y; ok 2646 - is a valid object ok 2647 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x | $y; ok 2648 - is a valid object ok 2649 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x | $y; ok 2650 - is a valid object ok 2651 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x | $y; ok 2652 - is a valid object ok 2653 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x | $y; ok 2654 - is a valid object ok 2655 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x | $y; ok 2656 - is a valid object ok 2657 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x | $y; ok 2658 - is a valid object ok 2659 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x | $y; ok 2660 - is a valid object ok 2661 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("-1"); $x | $y; ok 2662 - is a valid object ok 2663 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x | $y; ok 2664 - is a valid object ok 2665 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-4"); $x | $y; ok 2666 - is a valid object ok 2667 - $x = Math::BigInt->new("300"); $y = Math::BigInt->new("-76"); $x | $y; ok 2668 - is a valid object ok 2669 - $x = Math::BigInt->new("-76"); $y = Math::BigInt->new("300"); $x | $y; ok 2670 - is a valid object ok 2671 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 2672 - is a valid object ok 2673 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 2674 - is a valid object ok 2675 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 2676 - is a valid object ok 2677 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 2678 - is a valid object ok 2679 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 2680 - is a valid object ok 2681 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 2682 - is a valid object ok 2683 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 2684 - is a valid object ok 2685 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 2686 - is a valid object ok 2687 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 2688 - is a valid object ok 2689 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 2690 - is a valid object ok 2691 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2692 - is a valid object ok 2693 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2694 - is a valid object ok 2695 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2696 - is a valid object ok 2697 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2698 - is a valid object ok 2699 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 2700 - is a valid object ok 2701 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x | $y; ok 2702 - is a valid object ok 2703 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 2704 - is a valid object ok 2705 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 2706 - is a valid object ok 2707 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 2708 - is a valid object ok 2709 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x | $y; ok 2710 - is a valid object ok 2711 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 2712 - is a valid object ok 2713 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 2714 - is a valid object ok 2715 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x | $y; ok 2716 - is a valid object ok 2717 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 2718 - is a valid object ok 2719 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 2720 - is a valid object ok 2721 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x | $y; ok 2722 - is a valid object ok 2723 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 2724 - is a valid object ok 2725 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2726 - is a valid object ok 2727 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x | $y; ok 2728 - is a valid object ok 2729 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2730 - is a valid object ok 2731 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 2732 - is a valid object ok 2733 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 2734 - is a valid object ok 2735 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2736 - is a valid object ok 2737 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 2738 - is a valid object ok 2739 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ^ $y; ok 2740 - is a valid object ok 2741 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x ^ $y; ok 2742 - is a valid object ok 2743 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2744 - is a valid object ok 2745 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x ^ $y; ok 2746 - is a valid object ok 2747 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x ^ $y; ok 2748 - is a valid object ok 2749 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x ^ $y; ok 2750 - is a valid object ok 2751 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ^ $y; ok 2752 - is a valid object ok 2753 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x ^ $y; ok 2754 - is a valid object ok 2755 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x ^ $y; ok 2756 - is a valid object ok 2757 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x ^ $y; ok 2758 - is a valid object ok 2759 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 2760 - is a valid object ok 2761 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 2762 - is a valid object ok 2763 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-3"); $x ^ $y; ok 2764 - is a valid object ok 2765 - $x = Math::BigInt->new("30"); $y = Math::BigInt->new("-4"); $x ^ $y; ok 2766 - is a valid object ok 2767 - $x = Math::BigInt->new("300"); $y = Math::BigInt->new("-76"); $x ^ $y; ok 2768 - is a valid object ok 2769 - $x = Math::BigInt->new("-76"); $y = Math::BigInt->new("300"); $x ^ $y; ok 2770 - is a valid object ok 2771 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 2772 - is a valid object ok 2773 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 2774 - is a valid object ok 2775 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 2776 - is a valid object ok 2777 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 2778 - is a valid object ok 2779 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2780 - is a valid object ok 2781 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 2782 - is a valid object ok 2783 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 2784 - is a valid object ok 2785 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 2786 - is a valid object ok 2787 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 2788 - is a valid object ok 2789 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2790 - is a valid object ok 2791 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2792 - is a valid object ok 2793 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2794 - is a valid object ok 2795 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2796 - is a valid object ok 2797 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2798 - is a valid object ok 2799 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 2800 - is a valid object ok 2801 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x ^ $y; ok 2802 - is a valid object ok 2803 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 2804 - is a valid object ok 2805 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 2806 - is a valid object ok 2807 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 2808 - is a valid object ok 2809 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x ^ $y; ok 2810 - is a valid object ok 2811 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 2812 - is a valid object ok 2813 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 2814 - is a valid object ok 2815 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x ^ $y; ok 2816 - is a valid object ok 2817 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 2818 - is a valid object ok 2819 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 2820 - is a valid object ok 2821 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x ^ $y; ok 2822 - is a valid object ok 2823 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 2824 - is a valid object ok 2825 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2826 - is a valid object ok 2827 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x ^ $y; ok 2828 - is a valid object ok 2829 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2830 - is a valid object ok 2831 - $x = Math::BigInt->new("abc"); $x->bnot(); ok 2832 - is a valid object ok 2833 - $x = Math::BigInt->new("+0"); $x->bnot(); ok 2834 - is a valid object ok 2835 - $x = Math::BigInt->new("+8"); $x->bnot(); ok 2836 - is a valid object ok 2837 - $x = Math::BigInt->new("+281474976710656"); $x->bnot(); ok 2838 - is a valid object ok 2839 - $x = Math::BigInt->new("-1"); $x->bnot(); ok 2840 - is a valid object ok 2841 - $x = Math::BigInt->new("-2"); $x->bnot(); ok 2842 - is a valid object ok 2843 - $x = Math::BigInt->new("-12"); $x->bnot(); ok 2844 - is a valid object ok 2845 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2846 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2847 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2848 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2849 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2850 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); $x->digit($y); ok 2851 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-1"); $x->digit($y); ok 2852 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-2"); $x->digit($y); ok 2853 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2854 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2855 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2856 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("2"); $x->digit($y); ok 2857 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("3"); $x->digit($y); ok 2858 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("4"); $x->digit($y); ok 2859 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("5"); $x->digit($y); ok 2860 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-1"); $x->digit($y); ok 2861 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-2"); $x->digit($y); ok 2862 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2863 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("-3"); $x->digit($y); ok 2864 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("0"); $x->digit($y); ok 2865 - $x = Math::BigInt->new("100000"); $y = Math::BigInt->new("1"); $x->digit($y); ok 2866 - $x = Math::BigInt->new("abc"); $x = $x->mantissa()->bstr(); ok 2867 - $x = Math::BigInt->new("1e4"); $x = $x->mantissa()->bstr(); ok 2868 - $x = Math::BigInt->new("2e0"); $x = $x->mantissa()->bstr(); ok 2869 - $x = Math::BigInt->new("123"); $x = $x->mantissa()->bstr(); ok 2870 - $x = Math::BigInt->new("-1"); $x = $x->mantissa()->bstr(); ok 2871 - $x = Math::BigInt->new("-2"); $x = $x->mantissa()->bstr(); ok 2872 - $x = Math::BigInt->new("+inf"); $x = $x->mantissa()->bstr(); ok 2873 - $x = Math::BigInt->new("-inf"); $x = $x->mantissa()->bstr(); ok 2874 - $x = Math::BigInt->new("abc"); $x = $x->exponent()->bstr(); ok 2875 - $x = Math::BigInt->new("1e4"); $x = $x->exponent()->bstr(); ok 2876 - $x = Math::BigInt->new("2e0"); $x = $x->exponent()->bstr(); ok 2877 - $x = Math::BigInt->new("123"); $x = $x->exponent()->bstr(); ok 2878 - $x = Math::BigInt->new("-1"); $x = $x->exponent()->bstr(); ok 2879 - $x = Math::BigInt->new("-2"); $x = $x->exponent()->bstr(); ok 2880 - $x = Math::BigInt->new("0"); $x = $x->exponent()->bstr(); ok 2881 - $x = Math::BigInt->new("+inf"); $x = $x->exponent()->bstr(); ok 2882 - $x = Math::BigInt->new("-inf"); $x = $x->exponent()->bstr(); ok 2883 - $x = Math::BigInt->new("abc"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2884 - $x = Math::BigInt->new("1e4"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2885 - $x = Math::BigInt->new("2e0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2886 - $x = Math::BigInt->new("123"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2887 - $x = Math::BigInt->new("-1"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2888 - $x = Math::BigInt->new("-2"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2889 - $x = Math::BigInt->new("0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2890 - $x = Math::BigInt->new("+inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2891 - $x = Math::BigInt->new("-inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2892 - $x = Math::BigInt->new("-1"); $x->bfac(); ok 2893 - is a valid object ok 2894 - $x = Math::BigInt->new("NaNfac"); $x->bfac(); ok 2895 - is a valid object ok 2896 - $x = Math::BigInt->new("+inf"); $x->bfac(); ok 2897 - is a valid object ok 2898 - $x = Math::BigInt->new("-inf"); $x->bfac(); ok 2899 - is a valid object ok 2900 - $x = Math::BigInt->new("0"); $x->bfac(); ok 2901 - is a valid object ok 2902 - $x = Math::BigInt->new("1"); $x->bfac(); ok 2903 - is a valid object ok 2904 - $x = Math::BigInt->new("2"); $x->bfac(); ok 2905 - is a valid object ok 2906 - $x = Math::BigInt->new("3"); $x->bfac(); ok 2907 - is a valid object ok 2908 - $x = Math::BigInt->new("4"); $x->bfac(); ok 2909 - is a valid object ok 2910 - $x = Math::BigInt->new("5"); $x->bfac(); ok 2911 - is a valid object ok 2912 - $x = Math::BigInt->new("6"); $x->bfac(); ok 2913 - is a valid object ok 2914 - $x = Math::BigInt->new("7"); $x->bfac(); ok 2915 - is a valid object ok 2916 - $x = Math::BigInt->new("8"); $x->bfac(); ok 2917 - is a valid object ok 2918 - $x = Math::BigInt->new("9"); $x->bfac(); ok 2919 - is a valid object ok 2920 - $x = Math::BigInt->new("10"); $x->bfac(); ok 2921 - is a valid object ok 2922 - $x = Math::BigInt->new("11"); $x->bfac(); ok 2923 - is a valid object ok 2924 - $x = Math::BigInt->new("12"); $x->bfac(); ok 2925 - is a valid object ok 2926 - $x = Math::BigInt->new("20"); $x->bfac(); ok 2927 - is a valid object ok 2928 - $x = Math::BigInt->new("22"); $x->bfac(); ok 2929 - is a valid object ok 2930 - $x = Math::BigInt->new("69"); $x->bfac(); ok 2931 - is a valid object ok 2932 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("12"); $x ** $y; ok 2933 - is a valid object ok 2934 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("abc"); $x ** $y; ok 2935 - is a valid object ok 2936 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x ** $y; ok 2937 - is a valid object ok 2938 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x ** $y; ok 2939 - is a valid object ok 2940 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x ** $y; ok 2941 - is a valid object ok 2942 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2943 - is a valid object ok 2944 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2945 - is a valid object ok 2946 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x ** $y; ok 2947 - is a valid object ok 2948 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x ** $y; ok 2949 - is a valid object ok 2950 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ** $y; ok 2951 - is a valid object ok 2952 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x ** $y; ok 2953 - is a valid object ok 2954 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2955 - is a valid object ok 2956 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2957 - is a valid object ok 2958 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 2959 - is a valid object ok 2960 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x ** $y; ok 2961 - is a valid object ok 2962 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x ** $y; ok 2963 - is a valid object ok 2964 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x ** $y; ok 2965 - is a valid object ok 2966 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x ** $y; ok 2967 - is a valid object ok 2968 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x ** $y; ok 2969 - is a valid object ok 2970 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x ** $y; ok 2971 - is a valid object ok 2972 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x ** $y; ok 2973 - is a valid object ok 2974 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x ** $y; ok 2975 - is a valid object ok 2976 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x ** $y; ok 2977 - is a valid object ok 2978 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2979 - is a valid object ok 2980 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 2981 - is a valid object ok 2982 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2983 - is a valid object ok 2984 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 2985 - is a valid object ok 2986 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 2987 - is a valid object ok 2988 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 2989 - is a valid object ok 2990 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500013"); $x ** $y; ok 2991 - is a valid object ok 2992 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 2993 - is a valid object ok 2994 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 2995 - is a valid object ok 2996 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("2"); $x ** $y; ok 2997 - is a valid object ok 2998 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x ** $y; ok 2999 - is a valid object ok 3000 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-1"); $x ** $y; ok 3001 - is a valid object ok 3002 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3003 - is a valid object ok 3004 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3005 - is a valid object ok 3006 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3007 - is a valid object ok 3008 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3009 - is a valid object ok 3010 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3011 - is a valid object ok 3012 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3013 - is a valid object ok 3014 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3015 - is a valid object ok 3016 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3017 - is a valid object ok 3018 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3019 - is a valid object ok 3020 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3021 - is a valid object ok 3022 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3023 - is a valid object ok 3024 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x ** $y; ok 3025 - is a valid object ok 3026 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("NaN"); $x ** $y; ok 3027 - is a valid object ok 3028 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3029 - is a valid object ok 3030 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("inf"); $x ** $y; ok 3031 - is a valid object ok 3032 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x ** $y; ok 3033 - is a valid object ok 3034 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x ** $y; ok 3035 - is a valid object ok 3036 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x ** $y; ok 3037 - is a valid object ok 3038 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x ** $y; ok 3039 - is a valid object ok 3040 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x ** $y; ok 3041 - is a valid object ok 3042 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $x ** $y; ok 3043 - is a valid object ok 3044 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $x ** $y; ok 3045 - is a valid object ok 3046 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x ** $y; ok 3047 - is a valid object ok 3048 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 3049 - is a valid object ok 3050 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 3051 - is a valid object ok 3052 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 3053 - is a valid object ok 3054 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-4"); $x ** $y; ok 3055 - is a valid object ok 3056 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("2"); $x ** $y; ok 3057 - is a valid object ok 3058 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("3"); $x ** $y; ok 3059 - is a valid object ok 3060 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("4"); $x ** $y; ok 3061 - is a valid object ok 3062 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x ** $y; ok 3063 - is a valid object ok 3064 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("6"); $x ** $y; ok 3065 - is a valid object ok 3066 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("7"); $x ** $y; ok 3067 - is a valid object ok 3068 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("8"); $x ** $y; ok 3069 - is a valid object ok 3070 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("9"); $x ** $y; ok 3071 - is a valid object ok 3072 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("20"); $x ** $y; ok 3073 - is a valid object ok 3074 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("2"); $x ** $y; ok 3075 - is a valid object ok 3076 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x ** $y; ok 3077 - is a valid object ok 3078 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x ** $y; ok 3079 - is a valid object ok 3080 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x ** $y; ok 3081 - is a valid object ok 3082 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x ** $y; ok 3083 - is a valid object ok 3084 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("2"); $x ** $y; ok 3085 - is a valid object ok 3086 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("3"); $x ** $y; ok 3087 - is a valid object ok 3088 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $x ** $y; ok 3089 - is a valid object ok 3090 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("5"); $x ** $y; ok 3091 - is a valid object ok 3092 - $x = Math::BigInt->new("100"); $x->length(); ok 3093 - $x = Math::BigInt->new("10"); $x->length(); ok 3094 - $x = Math::BigInt->new("1"); $x->length(); ok 3095 - $x = Math::BigInt->new("0"); $x->length(); ok 3096 - $x = Math::BigInt->new("12345"); $x->length(); ok 3097 - $x = Math::BigInt->new("10000000000000000"); $x->length(); ok 3098 - $x = Math::BigInt->new("-123"); $x->length(); ok 3099 - $x = Math::BigInt->new("215960156869840440586892398248"); $x->length(); ok 3100 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3101 - is a valid object ok 3102 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3103 - is a valid object ok 3104 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3105 - is a valid object ok 3106 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3107 - is a valid object ok 3108 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3109 - is a valid object ok 3110 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3111 - is a valid object ok 3112 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3113 - is a valid object ok 3114 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3115 - is a valid object ok 3116 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3117 - is a valid object ok 3118 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3119 - is a valid object ok 3120 - $x = Math::BigInt->new("16"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3121 - is a valid object ok 3122 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3123 - is a valid object ok 3124 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3125 - is a valid object ok 3126 - $x = Math::BigInt->new("15241"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3127 - is a valid object ok 3128 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3129 - is a valid object ok 3130 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3131 - is a valid object ok 3132 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3133 - is a valid object ok 3134 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3135 - is a valid object ok 3136 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3137 - is a valid object ok 3138 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3139 - is a valid object ok 3140 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->broot($y); ok 3141 - is a valid object ok 3142 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3143 - is a valid object ok 3144 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("2"); $x->broot($y); ok 3145 - is a valid object ok 3146 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3147 - is a valid object ok 3148 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3149 - is a valid object ok 3150 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("-inf"); $x->broot($y); ok 3151 - is a valid object ok 3152 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("inf"); $x->broot($y); ok 3153 - is a valid object ok 3154 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3155 - is a valid object ok 3156 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3157 - is a valid object ok 3158 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3159 - is a valid object ok 3160 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3161 - is a valid object ok 3162 - $x = Math::BigInt->new("-123.45"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3163 - is a valid object ok 3164 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("0"); $x->broot($y); ok 3165 - is a valid object ok 3166 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("1"); $x->broot($y); ok 3167 - is a valid object ok 3168 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("1"); $x->broot($y); ok 3169 - is a valid object ok 3170 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("-1"); $x->broot($y); ok 3171 - is a valid object ok 3172 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("-1"); $x->broot($y); ok 3173 - is a valid object ok 3174 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("3"); $x->broot($y); ok 3175 - is a valid object ok 3176 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("3"); $x->broot($y); ok 3177 - is a valid object ok 3178 - $x = Math::BigInt->new("16"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3179 - is a valid object ok 3180 - $x = Math::BigInt->new("81"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3181 - is a valid object ok 3182 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("4"); $x->broot($y); ok 3183 - is a valid object ok 3184 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("8"); $x->broot($y); ok 3185 - is a valid object ok 3186 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("16"); $x->broot($y); ok 3187 - is a valid object ok 3188 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("32"); $x->broot($y); ok 3189 - is a valid object ok 3190 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("64"); $x->broot($y); ok 3191 - is a valid object ok 3192 - $x = Math::BigInt->new("18446744073709551616"); $y = Math::BigInt->new("128"); $x->broot($y); ok 3193 - is a valid object ok 3194 - $x = Math::BigInt->new("84274086103068221283760416414557757"); $y = Math::BigInt->new("15"); $x->broot($y); ok 3195 - is a valid object ok 3196 - $x = Math::BigInt->new("145"); $x->bsqrt(); ok 3197 - is a valid object ok 3198 - $x = Math::BigInt->new("144"); $x->bsqrt(); ok 3199 - is a valid object ok 3200 - $x = Math::BigInt->new("143"); $x->bsqrt(); ok 3201 - is a valid object ok 3202 - $x = Math::BigInt->new("16"); $x->bsqrt(); ok 3203 - is a valid object ok 3204 - $x = Math::BigInt->new("170"); $x->bsqrt(); ok 3205 - is a valid object ok 3206 - $x = Math::BigInt->new("169"); $x->bsqrt(); ok 3207 - is a valid object ok 3208 - $x = Math::BigInt->new("168"); $x->bsqrt(); ok 3209 - is a valid object ok 3210 - $x = Math::BigInt->new("4"); $x->bsqrt(); ok 3211 - is a valid object ok 3212 - $x = Math::BigInt->new("3"); $x->bsqrt(); ok 3213 - is a valid object ok 3214 - $x = Math::BigInt->new("2"); $x->bsqrt(); ok 3215 - is a valid object ok 3216 - $x = Math::BigInt->new("9"); $x->bsqrt(); ok 3217 - is a valid object ok 3218 - $x = Math::BigInt->new("12"); $x->bsqrt(); ok 3219 - is a valid object ok 3220 - $x = Math::BigInt->new("256"); $x->bsqrt(); ok 3221 - is a valid object ok 3222 - $x = Math::BigInt->new("100000000"); $x->bsqrt(); ok 3223 - is a valid object ok 3224 - $x = Math::BigInt->new("4000000000000"); $x->bsqrt(); ok 3225 - is a valid object ok 3226 - $x = Math::BigInt->new("152399026"); $x->bsqrt(); ok 3227 - is a valid object ok 3228 - $x = Math::BigInt->new("152399025"); $x->bsqrt(); ok 3229 - is a valid object ok 3230 - $x = Math::BigInt->new("152399024"); $x->bsqrt(); ok 3231 - is a valid object ok 3232 - $x = Math::BigInt->new("18446744073709551616"); $x->bsqrt(); ok 3233 - is a valid object ok 3234 - $x = Math::BigInt->new("84274086103068221283760416414557757"); $x->bsqrt(); ok 3235 - is a valid object ok 3236 - $x = Math::BigInt->new("1"); $x->bsqrt(); ok 3237 - is a valid object ok 3238 - $x = Math::BigInt->new("0"); $x->bsqrt(); ok 3239 - is a valid object ok 3240 - $x = Math::BigInt->new("-2"); $x->bsqrt(); ok 3241 - is a valid object ok 3242 - $x = Math::BigInt->new("-123"); $x->bsqrt(); ok 3243 - is a valid object ok 3244 - $x = Math::BigInt->new("Nan"); $x->bsqrt(); ok 3245 - is a valid object ok 3246 - $x = Math::BigInt->new("+inf"); $x->bsqrt(); ok 3247 - is a valid object ok 3248 - $x = Math::BigInt->new("-inf"); $x->bsqrt(); ok 3249 - is a valid object ok 3250 - $x = Math::BigInt->new("NaN"); $x->bexp(); ok 3251 - is a valid object ok 3252 - $x = Math::BigInt->new("inf"); $x->bexp(); ok 3253 - is a valid object ok 3254 - $x = Math::BigInt->new("1"); $x->bexp(); ok 3255 - is a valid object ok 3256 - $x = Math::BigInt->new("2"); $x->bexp(); ok 3257 - is a valid object ok 3258 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3259 - is a valid object ok 3260 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("NaN"); $x->batan2($y); ok 3261 - is a valid object ok 3262 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->batan2($y); ok 3263 - is a valid object ok 3264 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3265 - is a valid object ok 3266 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3267 - is a valid object ok 3268 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3269 - is a valid object ok 3270 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3271 - is a valid object ok 3272 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3273 - is a valid object ok 3274 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x->batan2($y); ok 3275 - is a valid object ok 3276 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3277 - is a valid object ok 3278 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->batan2($y); ok 3279 - is a valid object ok 3280 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("+inf"); $x->batan2($y); ok 3281 - is a valid object ok 3282 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->batan2($y); ok 3283 - is a valid object ok 3284 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3285 - is a valid object ok 3286 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3287 - is a valid object ok 3288 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3289 - is a valid object ok 3290 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3291 - is a valid object ok 3292 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x->batan2($y); ok 3293 - is a valid object ok 3294 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3295 - is a valid object ok 3296 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3297 - is a valid object ok 3298 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3299 - is a valid object ok 3300 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3301 - is a valid object ok 3302 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->batan2($y); ok 3303 - is a valid object ok 3304 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3305 - is a valid object ok 3306 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("5"); $x->batan2($y); ok 3307 - is a valid object ok 3308 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("8"); $x->batan2($y); ok 3309 - is a valid object ok 3310 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("8"); $x->batan2($y); ok 3311 - is a valid object ok 3312 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->batan2($y); ok 3313 - is a valid object ok 3314 - $x = Math::BigInt->new("77"); Math::BigInt->bpi($x); ok 3315 - is a valid object ok 3316 - $x = Math::BigInt->new("+0"); Math::BigInt->bpi($x); ok 3317 - is a valid object ok 3318 - $x = Math::BigInt->new("11"); Math::BigInt->bpi($x); ok 3319 - is a valid object ok 3320 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("10"); $x->bnok($y); ok 3321 - is a valid object ok 3322 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("NaN"); $x->bnok($y); ok 3323 - is a valid object ok 3324 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3325 - is a valid object ok 3326 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("NaN"); $x->bnok($y); ok 3327 - is a valid object ok 3328 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3329 - is a valid object ok 3330 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x->bnok($y); ok 3331 - is a valid object ok 3332 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->bnok($y); ok 3333 - is a valid object ok 3334 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x->bnok($y); ok 3335 - is a valid object ok 3336 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("3"); $x->bnok($y); ok 3337 - is a valid object ok 3338 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("6"); $x->bnok($y); ok 3339 - is a valid object ok 3340 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("90"); $x->bnok($y); ok 3341 - is a valid object ok 3342 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("95"); $x->bnok($y); ok 3343 - is a valid object ok 3344 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->bnok($y); ok 3345 - is a valid object ok 3346 - $x = Math::BigInt->new("7"); $y = Math::BigInt->new("0"); $x->bnok($y); ok 3347 - is a valid object ok 3348 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x->bnok($y); ok 3349 - is a valid object ok 3350 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3351 - is a valid object ok 3352 - $x = Math::BigInt->new("NaNbround"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3353 - is a valid object ok 3354 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3355 - is a valid object ok 3356 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3357 - is a valid object ok 3358 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3359 - is a valid object ok 3360 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("2"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3361 - is a valid object ok 3362 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3363 - is a valid object ok 3364 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3365 - is a valid object ok 3366 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3367 - is a valid object ok 3368 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3369 - is a valid object ok 3370 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3371 - is a valid object ok 3372 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3373 - is a valid object ok 3374 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3375 - is a valid object ok 3376 - $x = Math::BigInt->new("+101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3377 - is a valid object ok 3378 - $x = Math::BigInt->new("-101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("trunc"); $x->bround($y); ok 3379 - is a valid object ok 3380 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3381 - is a valid object ok 3382 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3383 - is a valid object ok 3384 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3385 - is a valid object ok 3386 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3387 - is a valid object ok 3388 - $x = Math::BigInt->new("+201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3389 - is a valid object ok 3390 - $x = Math::BigInt->new("-201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3391 - is a valid object ok 3392 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3393 - is a valid object ok 3394 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("zero"); $x->bround($y); ok 3395 - is a valid object ok 3396 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3397 - is a valid object ok 3398 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3399 - is a valid object ok 3400 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3401 - is a valid object ok 3402 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3403 - is a valid object ok 3404 - $x = Math::BigInt->new("+301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3405 - is a valid object ok 3406 - $x = Math::BigInt->new("-301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3407 - is a valid object ok 3408 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3409 - is a valid object ok 3410 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("+inf"); $x->bround($y); ok 3411 - is a valid object ok 3412 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3413 - is a valid object ok 3414 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3415 - is a valid object ok 3416 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3417 - is a valid object ok 3418 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3419 - is a valid object ok 3420 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3421 - is a valid object ok 3422 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3423 - is a valid object ok 3424 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3425 - is a valid object ok 3426 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("-inf"); $x->bround($y); ok 3427 - is a valid object ok 3428 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3429 - is a valid object ok 3430 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3431 - is a valid object ok 3432 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3433 - is a valid object ok 3434 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3435 - is a valid object ok 3436 - $x = Math::BigInt->new("+501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3437 - is a valid object ok 3438 - $x = Math::BigInt->new("-501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3439 - is a valid object ok 3440 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3441 - is a valid object ok 3442 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("odd"); $x->bround($y); ok 3443 - is a valid object ok 3444 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3445 - is a valid object ok 3446 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3447 - is a valid object ok 3448 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3449 - is a valid object ok 3450 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3451 - is a valid object ok 3452 - $x = Math::BigInt->new("+601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3453 - is a valid object ok 3454 - $x = Math::BigInt->new("-601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3455 - is a valid object ok 3456 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("7"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3457 - is a valid object ok 3458 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3459 - is a valid object ok 3460 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3461 - is a valid object ok 3462 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode("even"); $x->bround($y); ok 3463 - is a valid object ok 3464 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3465 - is a valid object ok 3466 - $x = Math::BigInt->new("+60123199999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3467 - is a valid object ok 3468 - $x = Math::BigInt->new("+60123299999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3469 - is a valid object ok 3470 - $x = Math::BigInt->new("+60123399999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3471 - is a valid object ok 3472 - $x = Math::BigInt->new("+60123499999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3473 - is a valid object ok 3474 - $x = Math::BigInt->new("+60123500000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3475 - is a valid object ok 3476 - $x = Math::BigInt->new("+60123600000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3477 - is a valid object ok 3478 - $x = Math::BigInt->new("+60123700000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3479 - is a valid object ok 3480 - $x = Math::BigInt->new("+60123800000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3481 - is a valid object ok 3482 - $x = Math::BigInt->new("+60123900000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3483 - is a valid object ok 3484 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3485 - is a valid object ok 3486 - $x = Math::BigInt->new("-60123199999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3487 - is a valid object ok 3488 - $x = Math::BigInt->new("-60123299999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3489 - is a valid object ok 3490 - $x = Math::BigInt->new("-60123399999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3491 - is a valid object ok 3492 - $x = Math::BigInt->new("-60123499999"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3493 - is a valid object ok 3494 - $x = Math::BigInt->new("-60123500000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3495 - is a valid object ok 3496 - $x = Math::BigInt->new("-60123600000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3497 - is a valid object ok 3498 - $x = Math::BigInt->new("-60123700000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3499 - is a valid object ok 3500 - $x = Math::BigInt->new("-60123800000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3501 - is a valid object ok 3502 - $x = Math::BigInt->new("-60123900000"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode("common"); $x->bround($y); ok 3503 - is a valid object ok 3504 - $x = Math::BigInt->new("0"); $x->is_zero() || 0; ok 3505 - $x = Math::BigInt->new("NaNzero"); $x->is_zero() || 0; ok 3506 - $x = Math::BigInt->new("+inf"); $x->is_zero() || 0; ok 3507 - $x = Math::BigInt->new("-inf"); $x->is_zero() || 0; ok 3508 - $x = Math::BigInt->new("123"); $x->is_zero() || 0; ok 3509 - $x = Math::BigInt->new("-1"); $x->is_zero() || 0; ok 3510 - $x = Math::BigInt->new("1"); $x->is_zero() || 0; ok 3511 - $x = Math::BigInt->new("0"); $x->is_one() || 0; ok 3512 - $x = Math::BigInt->new("NaNone"); $x->is_one() || 0; ok 3513 - $x = Math::BigInt->new("+inf"); $x->is_one() || 0; ok 3514 - $x = Math::BigInt->new("-inf"); $x->is_one() || 0; ok 3515 - $x = Math::BigInt->new("1"); $x->is_one() || 0; ok 3516 - $x = Math::BigInt->new("2"); $x->is_one() || 0; ok 3517 - $x = Math::BigInt->new("-1"); $x->is_one() || 0; ok 3518 - $x = Math::BigInt->new("-2"); $x->is_one() || 0; ok 3519 - $x = Math::BigInt->new("0"); $x->bfloor(); ok 3520 - is a valid object ok 3521 - $x = Math::BigInt->new("NaNfloor"); $x->bfloor(); ok 3522 - is a valid object ok 3523 - $x = Math::BigInt->new("+inf"); $x->bfloor(); ok 3524 - is a valid object ok 3525 - $x = Math::BigInt->new("-inf"); $x->bfloor(); ok 3526 - is a valid object ok 3527 - $x = Math::BigInt->new("-1"); $x->bfloor(); ok 3528 - is a valid object ok 3529 - $x = Math::BigInt->new("-2"); $x->bfloor(); ok 3530 - is a valid object ok 3531 - $x = Math::BigInt->new("2"); $x->bfloor(); ok 3532 - is a valid object ok 3533 - $x = Math::BigInt->new("3"); $x->bfloor(); ok 3534 - is a valid object ok 3535 - $x = Math::BigInt->new("abc"); $x->bfloor(); ok 3536 - is a valid object ok 3537 - $x = Math::BigInt->new("NaNceil"); $x->bceil(); ok 3538 - is a valid object ok 3539 - $x = Math::BigInt->new("+inf"); $x->bceil(); ok 3540 - is a valid object ok 3541 - $x = Math::BigInt->new("-inf"); $x->bceil(); ok 3542 - is a valid object ok 3543 - $x = Math::BigInt->new("0"); $x->bceil(); ok 3544 - is a valid object ok 3545 - $x = Math::BigInt->new("-1"); $x->bceil(); ok 3546 - is a valid object ok 3547 - $x = Math::BigInt->new("-2"); $x->bceil(); ok 3548 - is a valid object ok 3549 - $x = Math::BigInt->new("2"); $x->bceil(); ok 3550 - is a valid object ok 3551 - $x = Math::BigInt->new("3"); $x->bceil(); ok 3552 - is a valid object ok 3553 - $x = Math::BigInt->new("abc"); $x->bceil(); ok 3554 - is a valid object ok 3555 - $x = Math::BigInt->new("NaN"); $x->bint(); ok 3556 - is a valid object ok 3557 - $x = Math::BigInt->new("+inf"); $x->bint(); ok 3558 - is a valid object ok 3559 - $x = Math::BigInt->new("-inf"); $x->bint(); ok 3560 - is a valid object ok 3561 - $x = Math::BigInt->new("0"); $x->bint(); ok 3562 - is a valid object ok 3563 - $x = Math::BigInt->new("-1"); $x->bint(); ok 3564 - is a valid object ok 3565 - $x = Math::BigInt->new("-2"); $x->bint(); ok 3566 - is a valid object ok 3567 - $x = Math::BigInt->new("2"); $x->bint(); ok 3568 - is a valid object ok 3569 - $x = Math::BigInt->new("3"); $x->bint(); ok 3570 - is a valid object ok 3571 - $x = Math::BigInt->new("128"); $x->as_hex(); ok 3572 - $x = Math::BigInt->new("-128"); $x->as_hex(); ok 3573 - $x = Math::BigInt->new("0"); $x->as_hex(); ok 3574 - $x = Math::BigInt->new("-0"); $x->as_hex(); ok 3575 - $x = Math::BigInt->new("1"); $x->as_hex(); ok 3576 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_hex(); ok 3577 - $x = Math::BigInt->new("+inf"); $x->as_hex(); ok 3578 - $x = Math::BigInt->new("-inf"); $x->as_hex(); ok 3579 - $x = Math::BigInt->new("NaNas_hex"); $x->as_hex(); ok 3580 - $x = Math::BigInt->new("128"); $x->as_bin(); ok 3581 - $x = Math::BigInt->new("-128"); $x->as_bin(); ok 3582 - $x = Math::BigInt->new("0"); $x->as_bin(); ok 3583 - $x = Math::BigInt->new("-0"); $x->as_bin(); ok 3584 - $x = Math::BigInt->new("1"); $x->as_bin(); ok 3585 - $x = Math::BigInt->new("0b1010111101010101010110110110110110101"); $x->as_bin(); ok 3586 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_bin(); ok 3587 - $x = Math::BigInt->new("+inf"); $x->as_bin(); ok 3588 - $x = Math::BigInt->new("-inf"); $x->as_bin(); ok 3589 - $x = Math::BigInt->new("NaNas_bin"); $x->as_bin(); ok 3590 - $x = Math::BigInt->new("128"); $x->as_oct(); ok 3591 - $x = Math::BigInt->new("-128"); $x->as_oct(); ok 3592 - $x = Math::BigInt->new("0"); $x->as_oct(); ok 3593 - $x = Math::BigInt->new("-0"); $x->as_oct(); ok 3594 - $x = Math::BigInt->new("1"); $x->as_oct(); ok 3595 - $x = Math::BigInt->new("0b1010111101010101010110110110110110101"); $x->as_oct(); ok 3596 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_oct(); ok 3597 - $x = Math::BigInt->new("+inf"); $x->as_oct(); ok 3598 - $x = Math::BigInt->new("-inf"); $x->as_oct(); ok 3599 - $x = Math::BigInt->new("NaNas_oct"); $x->as_oct(); ok 3600 - $x = Math::BigInt->new("-1"); $x = log($x); ok 3601 - is a valid object ok 3602 - $x = Math::BigInt->new("0"); $x = log($x); ok 3603 - is a valid object ok 3604 - $x = Math::BigInt->new("1"); $x = log($x); ok 3605 - is a valid object ok 3606 - $x = Math::BigInt->new("2"); $x = log($x); ok 3607 - is a valid object ok 3608 - $x = Math::BigInt->new("3"); $x = log($x); ok 3609 - is a valid object ok 3610 - $x = Math::BigInt->new("123456789"); $x = log($x); ok 3611 - is a valid object ok 3612 - $x = Math::BigInt->new("1234567890987654321"); $x = log($x); ok 3613 - is a valid object ok 3614 - $x = Math::BigInt->new("-inf"); $x = log($x); ok 3615 - is a valid object ok 3616 - $x = Math::BigInt->new("inf"); $x = log($x); ok 3617 - is a valid object ok 3618 - $x = Math::BigInt->new("NaN"); $x = log($x); ok 3619 - is a valid object ok 3620 - $x = Math::BigInt->new("4294967296"); $a = $x->bmul($x); ok 3621 - $x = Math::BigInt->new(10); $a = $x->bpow($x); ok 3622 - $z = $x & $y; $x ok 3623 - $z = $x & $y; $y ok 3624 - $z = $x & $y; $z ok 3625 - $z = $x | $y; $x ok 3626 - $z = $x | $y; $y ok 3627 - $z = $x | $y; $z ok 3628 - $z = $x | $y; $x ok 3629 - $z = $x | $y; $y ok 3630 - $z = $x | $y; $z ok 3631 - $z = $x ^ $y; $x ok 3632 - $z = $x ^ $y; $y ok 3633 - $z = $x ^ $y; $z ok 3634 - $y = -$x; $x ok 3635 - $y = abs($x); $x ok 3636 - $x->copy()->bmodpow($y, $z); $u ok 3637 - $x->copy()->bmodpow($y, $z); $y ok 3638 - $x->copy()->bmodpow($y, $z); $z ok 3639 - $y = -$x; $x ok 3640 - $y = -$x; $y ok 3641 - $y = $x->copy()->bneg(); $x ok 3642 - $y = $x->copy()->bneg(); $y ok 3643 - $x->bmul($y); $x ok 3644 - $x->bmul($y); $y ok 3645 - $x->badd($y); $x ok 3646 - $x->badd($y); $y ok 3647 - $x->bsub($y); $x ok 3648 - $x->bsub($y); $y ok 3649 - $x->bdiv($y); $x ok 3650 - $x->bdiv($y); $y ok 3651 - $x->bmod($y); $x ok 3652 - $x->bmod($y); $y ok 3653 - $x->bmul($y); $x ok 3654 - $x->bmul($y); $y ok 3655 - $x->badd($y); $x ok 3656 - $x->badd($y); $y ok 3657 - $x->bsub($y); $x ok 3658 - $x->bsub($y); $y ok 3659 - $x->bdiv($y); $x ok 3660 - $x->bdiv($y); $y ok 3661 - $x->bmod($y); $x ok 3662 - $x->bmod($y); $y ok 3663 - $x->bmul($y); $x ok 3664 - $x->bmul($y); $y ok 3665 - $x->badd($y); $x ok 3666 - $x->badd($y); $y ok 3667 - $x->bsub($y); $x ok 3668 - $x->bsub($y); $y ok 3669 - $x->bdiv($y); $x ok 3670 - $x->bdiv($y); $y ok 3671 - $x->bmod($y); $x ok 3672 - $x->bmod($y); $y ok 3673 - overloading cmp works ok 3674 - $x = Math::BigInt->new(10); $x = 2 ** $x; $x == 1024; ok 3675 - $x = Math::BigInt->new(10); $x = 2 * $x; $x == 20; ok 3676 - $x = Math::BigInt->new(10); $x = 2 + $x; $x == 12; ok 3677 - $x = Math::BigInt->new(10); $x = 2 - $x; $x == -8; ok 3678 - $x = Math::BigInt->new(10); $x = 20 / $x; $x == 2; ok 3679 - $x = Math::BigInt->new(3); $x = 20 % $x; $x == 2; ok 3680 - $x = Math::BigInt->new(7); $x = 20 & $x; $x == 4; ok 3681 - $x = Math::BigInt->new(7); $x = 0x20 | $x; $x == 0x27; ok 3682 - $x = Math::BigInt->new(7); $x = 0x20 ^ $x; $x == 0x27; ok 3683 - $x = Math::BigInt->badd(4, 5); $x == 9; ok 3684 - $x = Math::BigInt->new(1); $x is true ok 3685 - $x = Math::BigInt->new(0); !$x is false ok 3686 - objectify(2, 4, 5) gives Math::BigInt, 4, 5 ok 3687 - first arg matches /^Math::BigInt/ ok 3688 - second arg is 4 ok 3689 - third arg is 5 ok 3690 - objectify(0, 4, 5) gives Math::BigInt, 4, 5 ok 3691 - first arg matches /^Math::BigInt/ ok 3692 - second arg is 4 ok 3693 - third arg is 5 ok 3694 - objectify(2, 4, 5) gives Math::BigInt, 4, 5 ok 3695 - first arg matches /^Math::BigInt/ ok 3696 - second arg is 4 ok 3697 - third arg is 5 ok 3698 - objectify(2, 4, 5, 6, 7) gives Math::BigInt, 4, 5, 6, 7 ok 3699 - first arg matches /^Math::BigInt/ ok 3700 - second arg is 4 ok 3701 - second arg is a Math::BigInt object ok 3702 - third arg is 5 ok 3703 - third arg is a Math::BigInt object ok 3704 - fourth arg is 6 ok 3705 - fourth arg is a scalar ok 3706 - fifth arg is 7 ok 3707 - fifth arg is a scalar ok 3708 - objectify(2, Math::BigInt, 4, 5, 6, 7) gives Math::BigInt, 4, 5, 6, 7 ok 3709 - first arg is Math::BigInt ok 3710 - second arg is 4 ok 3711 - second arg is a Math::BigInt object ok 3712 - third arg is 5 ok 3713 - third arg is a Math::BigInt object ok 3714 - fourth arg is 6 ok 3715 - fourth arg is a scalar ok 3716 - fifth arg is 7 ok 3717 - fifth arg is a scalar ok 3718 - Math::BigInt->new(123)->badd(123) = 246 ok 3719 - Math::BigInt->badd(123, 321) = 444 ok 3720 - Math::BigInt->badd(123, Math::BigInt->new(321)) = 444 ok 3721 - Math::BigInt->new(123)->bsub(122) = 1 ok 3722 - Math::BigInt->bsub(321, 123) = 198 ok 3723 - Math::BigInt->bsub(321, Math::BigInt->new(123)) = 198 ok 3724 - Math::BigInt->new(123)->bmul(123) = 15129 ok 3725 - Math::BigInt->bmul(123, 123) = 15129 ok 3726 - Math::BigInt->bmul(123, Math::BigInt->new(123)) = 15129 ok 3727 - Math::BigInt->new(15129)->bdiv(123) = 123 ok 3728 - Math::BigInt->bdiv(15129, 123) = 123 ok 3729 - Math::BigInt->bdiv(15129, Math::BigInt->new(123)) = 123 ok 3730 - Math::BigInt->new(15131)->bmod(123) = 2 ok 3731 - Math::BigInt->bmod(15131, 123) = 2 ok 3732 - Math::BigInt->bmod(15131, Math::BigInt->new(123)) = 2 ok 3733 - Math::BigInt->new(2)->bpow(16) = 65536 ok 3734 - Math::BigInt->bpow(2, 16) = 65536 ok 3735 - Math::BigInt->bpow(2, Math::BigInt->new(16)) = 65536 ok 3736 - Math::BigInt->new(2**15)->brsft(1) = 2**14 ok 3737 - Math::BigInt->brsft(2**15, 1) = 2**14 ok 3738 - Math::BigInt->brsft(2**15, Math::BigInt->new(1)) = 2**14 ok 3739 - Math::BigInt->new(2**13)->blsft(1) = 2**14 ok 3740 - Math::BigInt->blsft(2**13, 1) = 2**14 ok 3741 - Math::BigInt->blsft(2**13, Math::BigInt->new(1)) = 2**14 ok 3742 - $x = Math::BigInt->new(1050000000000000); $x->bsstr() = "105e+13" ok 3743 - $x = Math::BigInt->new(1e+129); $x->bsstr() = "1e+129" ok 3744 - Math::BigInt->new("1") = 1 ok 3745 - Math::BigInt->new(" 1") = 1 ok 3746 - Math::BigInt->new("1 ") = 1 ok 3747 - Math::BigInt->new(" 1 ") = 1 ok 3748 - Math::BigInt->new("\n1") = 1 ok 3749 - Math::BigInt->new("1\n") = 1 ok 3750 - Math::BigInt->new("\n1\n") = 1 ok 3751 - Math::BigInt->new(" \n1\n") = 1 ok 3752 - Math::BigInt->new(" \n1 \n") = 1 ok 3753 - Math::BigInt->new(" \n1\n ") = 1 ok 3754 - Math::BigInt->new(" \n1\n1") = 'NaN' ok 3755 - Math::BigInt->new("1 \n1\n1") = 'NaN' ok 3756 - Math::BigInt->new("12") = 12 ok 3757 - Math::BigInt->new(" 12") = 12 ok 3758 - Math::BigInt->new("12 ") = 12 ok 3759 - Math::BigInt->new(" 12 ") = 12 ok 3760 - Math::BigInt->new("\n12") = 12 ok 3761 - Math::BigInt->new("12\n") = 12 ok 3762 - Math::BigInt->new("\n12\n") = 12 ok 3763 - Math::BigInt->new(" \n12\n") = 12 ok 3764 - Math::BigInt->new(" \n12 \n") = 12 ok 3765 - Math::BigInt->new(" \n12\n ") = 12 ok 3766 - Math::BigInt->new(" \n12\n1") = 'NaN' ok 3767 - Math::BigInt->new("1 \n12\n1") = 'NaN' ok 3768 - Math::BigInt->new("123") = 123 ok 3769 - Math::BigInt->new(" 123") = 123 ok 3770 - Math::BigInt->new("123 ") = 123 ok 3771 - Math::BigInt->new(" 123 ") = 123 ok 3772 - Math::BigInt->new("\n123") = 123 ok 3773 - Math::BigInt->new("123\n") = 123 ok 3774 - Math::BigInt->new("\n123\n") = 123 ok 3775 - Math::BigInt->new(" \n123\n") = 123 ok 3776 - Math::BigInt->new(" \n123 \n") = 123 ok 3777 - Math::BigInt->new(" \n123\n ") = 123 ok 3778 - Math::BigInt->new(" \n123\n1") = 'NaN' ok 3779 - Math::BigInt->new("1 \n123\n1") = 'NaN' ok 3780 - Math::BigInt->new("1234") = 1234 ok 3781 - Math::BigInt->new(" 1234") = 1234 ok 3782 - Math::BigInt->new("1234 ") = 1234 ok 3783 - Math::BigInt->new(" 1234 ") = 1234 ok 3784 - Math::BigInt->new("\n1234") = 1234 ok 3785 - Math::BigInt->new("1234\n") = 1234 ok 3786 - Math::BigInt->new("\n1234\n") = 1234 ok 3787 - Math::BigInt->new(" \n1234\n") = 1234 ok 3788 - Math::BigInt->new(" \n1234 \n") = 1234 ok 3789 - Math::BigInt->new(" \n1234\n ") = 1234 ok 3790 - Math::BigInt->new(" \n1234\n1") = 'NaN' ok 3791 - Math::BigInt->new("1 \n1234\n1") = 'NaN' ok 3792 - Math::BigInt->new("12345") = 12345 ok 3793 - Math::BigInt->new(" 12345") = 12345 ok 3794 - Math::BigInt->new("12345 ") = 12345 ok 3795 - Math::BigInt->new(" 12345 ") = 12345 ok 3796 - Math::BigInt->new("\n12345") = 12345 ok 3797 - Math::BigInt->new("12345\n") = 12345 ok 3798 - Math::BigInt->new("\n12345\n") = 12345 ok 3799 - Math::BigInt->new(" \n12345\n") = 12345 ok 3800 - Math::BigInt->new(" \n12345 \n") = 12345 ok 3801 - Math::BigInt->new(" \n12345\n ") = 12345 ok 3802 - Math::BigInt->new(" \n12345\n1") = 'NaN' ok 3803 - Math::BigInt->new("1 \n12345\n1") = 'NaN' ok 3804 - Math::BigInt->new("123456") = 123456 ok 3805 - Math::BigInt->new(" 123456") = 123456 ok 3806 - Math::BigInt->new("123456 ") = 123456 ok 3807 - Math::BigInt->new(" 123456 ") = 123456 ok 3808 - Math::BigInt->new("\n123456") = 123456 ok 3809 - Math::BigInt->new("123456\n") = 123456 ok 3810 - Math::BigInt->new("\n123456\n") = 123456 ok 3811 - Math::BigInt->new(" \n123456\n") = 123456 ok 3812 - Math::BigInt->new(" \n123456 \n") = 123456 ok 3813 - Math::BigInt->new(" \n123456\n ") = 123456 ok 3814 - Math::BigInt->new(" \n123456\n1") = 'NaN' ok 3815 - Math::BigInt->new("1 \n123456\n1") = 'NaN' ok 3816 - Math::BigInt->new("1234567") = 1234567 ok 3817 - Math::BigInt->new(" 1234567") = 1234567 ok 3818 - Math::BigInt->new("1234567 ") = 1234567 ok 3819 - Math::BigInt->new(" 1234567 ") = 1234567 ok 3820 - Math::BigInt->new("\n1234567") = 1234567 ok 3821 - Math::BigInt->new("1234567\n") = 1234567 ok 3822 - Math::BigInt->new("\n1234567\n") = 1234567 ok 3823 - Math::BigInt->new(" \n1234567\n") = 1234567 ok 3824 - Math::BigInt->new(" \n1234567 \n") = 1234567 ok 3825 - Math::BigInt->new(" \n1234567\n ") = 1234567 ok 3826 - Math::BigInt->new(" \n1234567\n1") = 'NaN' ok 3827 - Math::BigInt->new("1 \n1234567\n1") = 'NaN' ok 3828 - Math::BigInt->new("12345678") = 12345678 ok 3829 - Math::BigInt->new(" 12345678") = 12345678 ok 3830 - Math::BigInt->new("12345678 ") = 12345678 ok 3831 - Math::BigInt->new(" 12345678 ") = 12345678 ok 3832 - Math::BigInt->new("\n12345678") = 12345678 ok 3833 - Math::BigInt->new("12345678\n") = 12345678 ok 3834 - Math::BigInt->new("\n12345678\n") = 12345678 ok 3835 - Math::BigInt->new(" \n12345678\n") = 12345678 ok 3836 - Math::BigInt->new(" \n12345678 \n") = 12345678 ok 3837 - Math::BigInt->new(" \n12345678\n ") = 12345678 ok 3838 - Math::BigInt->new(" \n12345678\n1") = 'NaN' ok 3839 - Math::BigInt->new("1 \n12345678\n1") = 'NaN' ok 3840 - Math::BigInt->new("123456789") = 123456789 ok 3841 - Math::BigInt->new(" 123456789") = 123456789 ok 3842 - Math::BigInt->new("123456789 ") = 123456789 ok 3843 - Math::BigInt->new(" 123456789 ") = 123456789 ok 3844 - Math::BigInt->new("\n123456789") = 123456789 ok 3845 - Math::BigInt->new("123456789\n") = 123456789 ok 3846 - Math::BigInt->new("\n123456789\n") = 123456789 ok 3847 - Math::BigInt->new(" \n123456789\n") = 123456789 ok 3848 - Math::BigInt->new(" \n123456789 \n") = 123456789 ok 3849 - Math::BigInt->new(" \n123456789\n ") = 123456789 ok 3850 - Math::BigInt->new(" \n123456789\n1") = 'NaN' ok 3851 - Math::BigInt->new("1 \n123456789\n1") = 'NaN' ok 3852 - Math::BigInt->new("1234567890") = 1234567890 ok 3853 - Math::BigInt->new(" 1234567890") = 1234567890 ok 3854 - Math::BigInt->new("1234567890 ") = 1234567890 ok 3855 - Math::BigInt->new(" 1234567890 ") = 1234567890 ok 3856 - Math::BigInt->new("\n1234567890") = 1234567890 ok 3857 - Math::BigInt->new("1234567890\n") = 1234567890 ok 3858 - Math::BigInt->new("\n1234567890\n") = 1234567890 ok 3859 - Math::BigInt->new(" \n1234567890\n") = 1234567890 ok 3860 - Math::BigInt->new(" \n1234567890 \n") = 1234567890 ok 3861 - Math::BigInt->new(" \n1234567890\n ") = 1234567890 ok 3862 - Math::BigInt->new(" \n1234567890\n1") = 'NaN' ok 3863 - Math::BigInt->new("1 \n1234567890\n1") = 'NaN' ok 3864 - value of ((2^148)+1)/17 ok 3865 - number of digits in ((2^148)+1)/17 ok 3866 - value of 2^127-1 ok 3867 - number of digits in 2^127-1 ok 3868 - number of digits in fraction part of 2^127-1 ok 3869 - number of digits in 1_000_000_000_000 ok 3870 - number of digits in fraction part of 1_000_000_000_000 ok 3871 - 2 <<= 18 with Math::BigInt objects ok 3872 - 2 <<= 18 with Math::BigInt objects ok 3873 - 2 >>= 18 with Math::BigInt objects ok 3874 - 2 >>= 18 with Math::BigInt objects ok 3875 - $x = Math::Foo->new(5); $x = $x - 8; $x = 3 ok 3876 - $x is an object of class "Math::Foo" ok 3877 - $x = Math::Foo->new(5); $x = 8 - $x; $x = -3 ok 3878 - $x is an object of class "Math::Foo" ok 3879 - Math::BigInt->new("+inf") = "inf" ok 3880 # skip no 64 bit integer support ok 3881 # skip no 64 bit integer support ok 3882 # skip no 64 bit integer support ok 3883 # skip no 64 bit integer support ok 3884 - is a valid object ok 3885 - $x == 1000000000 ok 3886 - is a valid object ok 3887 - $x == 999999999 ok 3888 - is a valid object ok 3889 - $x->numify() = $BASE-1 ok 3890 - $x->numify() = -($BASE-1) ok 3891 - $x->numify()+0 = $BASE+0 ok 3892 - $x->numify() = -$BASE ok 3893 - $x->numify() = -($BASE*$BASE*1+$BASE*1+1)) ok 3894 - $x > $BASE ok 3895 - $x > $BASE ok 3896 - $x->length() = length($MAX) ok 3897 - Math::BigInt->digit(123, 2) = 1 ok 3898 - testing bug in sub ok 3899 - testing bug in sub ok 3900 - testing number with a zero-hole of BASE_LEN_SMALL ok 3901 - see if mul shortcut for small numbers works ok 3902 - -322056000 / -12882240 has remainder 0 ok 3903 - is a valid object ok 3904 - $x->bmod(5033) = 4404 ok 3905 - Math::BigInt->bzero() = 0 ok 3906 - Math::BigInt->bone() = 1 ok 3907 - Math::BigInt->bone("+") = 1 ok 3908 - Math::BigInt->bone("-") = -1 ok 3909 - Math::BigInt->bnan() = "NaN" ok 3910 - Math::BigInt->binf() = "inf" ok 3911 - Math::BigInt->binf("+") = "inf" ok 3912 - Math::BigInt->binf("-") = "-inf" ok 3913 - Math::BigInt->binf("-inf") = "-inf" ok 3914 - Math::BigInt->new(1)->is_one("-") = 0 ok 3915 - Math::BigInt->new(-1)->is_one("-") = 1 ok 3916 - Math::BigInt->new(1)->is_one() = 1 ok 3917 - Math::BigInt->new(-1)->is_one() = 0 ok 3918 - $x = Math::BigInt->new(3); $x -= $x; = 0 ok 3919 - $x = Math::BigInt->new(-3); $x -= $x; = 0 ok 3920 - $x = Math::BigInt->new("NaN"); $x -= $x; $x->is_nan() = 1 ok 3921 - $x = Math::BigInt->new("inf"); $x -= $x; $x->is_nan() = 1 ok 3922 - $x = Math::BigInt->new("-inf"); $x -= $x; $x->is_nan() = 1 ok 3923 - $x = Math::BigInt->new("NaN"); $x += $x; $x->is_nan() = 1 ok 3924 - $x = Math::BigInt->new("inf"); $x += $x; $x->is_inf() = 1 ok 3925 - $x = Math::BigInt->new("-inf"); $x += $x; $x->is_inf("-") = 1 ok 3926 - $x = Math::BigInt->new(3); $x += $x; $x = 6 ok 3927 - $x = Math::BigInt->new(-3); $x += $x; $x = -6 ok 3928 - $x = Math::BigInt->new(3); $x *= $x; $x = 9 ok 3929 - $x = Math::BigInt->new(-3); $x *= $x; $x = 9 ok 3930 - $x = Math::BigInt->new(3); $x /= $x; $x = 1 ok 3931 - $x = Math::BigInt->new(-3); $x /= $x; $x = 1 ok 3932 - $x = Math::BigInt->new(3); $x %= $x; $x = 0 ok 3933 - $x = Math::BigInt->new(-3); $x %= $x; $x = 0 ok t/bigints.t ................................... 1..50 ok 1 - ref($x) ok 2 - Math::BigInt::Scalar->_str($x) ok 3 - Math::BigInt::Scalar->_str($y) ok 4 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_add($x, $y) ok 5 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_sub($x, $y) ok 6 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_mul($x, $y)) ok 7 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_div($x, $y) ok 8 - Math::BigInt::Scalar->_str($x) ok 9 - Math::BigInt::Scalar->_str($y) ok 10 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_add($x, $z) ok 11 - Math::BigInt::Scalar->_str($re) ok 12 - Math::BigInt::Scalar->_str($rr) ok 13 - Math::BigInt::Scalar->_is_zero(SCALAR(0x2605108)) ok 14 - Math::BigInt::Scalar->_is_one(SCALAR(0x2605108)) ok 15 - Math::BigInt::Scalar->_is_one(Math::BigInt::Scalar->_one()) ok 16 - Math::BigInt::Scalar->_is_one(Math::BigInt::Scalar->_zero()) ok 17 - Math::BigInt::Scalar->_is_zero(Math::BigInt::Scalar->_zero()) ok 18 - Math::BigInt::Scalar->_is_zero(Math::BigInt::Scalar->_one()) ok 19 - Math::BigInt::Scalar->_is_odd(Math::BigInt::Scalar->_one()) ok 20 - Math::BigInt::Scalar->_is_odd(Math::BigInt::Scalar->_zero()) ok 21 - Math::BigInt::Scalar->_is_even(Math::BigInt::Scalar->_one()) ok 22 - Math::BigInt::Scalar->_is_even(Math::BigInt::Scalar->_zero()) ok 23 - Math::BigInt::Scalar->_digit($x, 0) ok 24 - Math::BigInt::Scalar->_digit($x, 1) ok 25 - Math::BigInt::Scalar->_digit($x, 2) ok 26 - Math::BigInt::Scalar->_digit($x, -1) ok 27 - Math::BigInt::Scalar->_digit($x, -2) ok 28 - Math::BigInt::Scalar->_digit($x, -3) ok 29 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_copy($x)) ok 30 - Math::BigInt::Scalar->_acmp($x, $y) ok 31 - Math::BigInt::Scalar->_acmp($y, $x) ok 32 - Math::BigInt::Scalar->_acmp($x, $x) ok 33 - Math::BigInt::Scalar->_acmp($y, $y) ok 34 - Math::BigInt::Scalar->_str(scalar Math::BigInt::Scalar->_div($x, $y)) ok 35 - Math::BigInt::Scalar->_str($x) ok 36 - Math::BigInt::Scalar->_str($y) ok 37 - Math::BigInt::Scalar->_str($x) ok 38 - Math::BigInt::Scalar->_str($y) ok 39 - ref($x) || "" ok 40 - $x ok 41 - ref($x) || "" ok 42 - $x ok 43 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_or(SCALAR(0x260f730), SCALAR(0x325ca8))) ok 44 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_xor(SCALAR(0x2613470), SCALAR(0x260dce0))) ok 45 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_and(SCALAR(0x260f730), SCALAR(0x325ca8))) ok 46 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x2613470), SCALAR(0x260dce0))) ok 47 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x260f730), SCALAR(0x325ca8))) ok 48 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x2613470), SCALAR(0x260dce0))) ok 49 - Math::BigInt::Scalar->_check($x) ok 50 - Math::BigInt::Scalar->_check(123) ok t/biglog.t .................................... 1..73 ok 1 - Math::BigInt->new(2)->blog() ok 2 - Math::BigInt->new(288)->blog() ok 3 - Math::BigInt->new(2000)->blog() ok 4 - Math::BigInt->new(1)->bexp() ok 5 - Math::BigInt->new(2)->bexp() ok 6 - Math::BigInt->new(3)->bexp() ok 7 - Math::BigFloat->new(5)->blog(undef, 71) ok 8 - Math::BigFloat->new(2)->blog(undef, 71) ok 9 - Math::BigFloat->new(11)->blog(undef, 71) ok 10 - Math::BigFloat->new(21)->blog(undef, 71) ok 11 - Math::BigFloat->new(-2)->blog() ok 12 - Math::BigFloat->new(-1)->blog() ok 13 - Math::BigFloat->new(-10)->blog() ok 14 - Math::BigFloat->new(-2, 2)->blog() ok 15 - Math::BigFloat->new(10)->blog() ok 16 - Math::BigFloat->new("0.1")->blog() ok 17 - Math::BigFloat->new("0.01")->blog() ok 18 - Math::BigFloat->new("0.001")->blog() ok 19 - Math::BigFloat->new("0.0001")->blog() ok 20 - Math::BigFloat->new(2)->blog() ok 21 - Math::BigFloat->new(4)->blog() ok 22 - Math::BigFloat->new("0.2")->blog(undef, 10) ok 23 - Math::BigFloat->new("0.3")->blog(undef, 10) ok 24 - Math::BigFloat->new("0.4")->blog(undef, 10) ok 25 - Math::BigFloat->new("0.5")->blog(undef, 10) ok 26 - Math::BigFloat->new("0.6")->blog(undef, 10) ok 27 - Math::BigFloat->new("0.7")->blog(undef, 10) ok 28 - Math::BigFloat->new("0.8")->blog(undef, 10) ok 29 - Math::BigFloat->new("0.9")->blog(undef, 10) ok 30 - Math::BigFloat->new("9")->blog(undef, 10) ok 31 - Math::BigFloat->new("10")->blog(10, 10) ok 32 - Math::BigFloat->new("20")->blog(20, 10) ok 33 - Math::BigFloat->new("100")->blog(100, 10) ok 34 - Math::BigFloat->new("100")->blog(10, 10) ok 35 - Math::BigFloat->new("400")->blog(20, 10) ok 36 - Math::BigFloat->new("4")->blog(2, 10) ok 37 - Math::BigFloat->new("16")->blog(2, 10) ok 38 - Math::BigFloat->new("1.2")->bpow("0.3", 10) ok 39 - Math::BigFloat->new("10")->bpow("0.6", 10) ok 40 - blog(100) ok 41 - 2 ** 32 ok 42 - 3 ** 32 ok 43 - 2 ** 65 ok 44 - blog(777**256, 12345678901234) ok 45 - blog(777**777, 777) ok 46 - Math::BigFloat->new(200)->bpow(0.5, 10) ok 47 - Math::BigFloat->new(20)->bpow(0.5, 10) ok 48 - Math::BigFloat->new(2)->bpow(0.5, 10) ok 49 - Math::BigFloat->new(0.2)->bpow(0.5, 10) ok 50 - Math::BigFloat->new(0.02)->bpow(0.5, 10) ok 51 - Math::BigFloat->new(0.49)->bpow(0.5, undef) ok 52 - Math::BigFloat->new(0.49)->bpow(0.5, 10) ok 53 - Math::BigFloat->new(0.002)->bpow(0.5, 10) ok 54 - Math::BigFloat->new(0.0002)->bpow(0.5, 10) ok 55 - Math::BigFloat->new(0.0049)->bpow(0.5, undef) ok 56 - Math::BigFloat->new(0.0049)->bpow(0.5, 10) ok 57 - Math::BigFloat->new(0.000002)->bpow(0.5, 10) ok 58 - Math::BigFloat->new(0.021)->bpow(0.5, 10) ok 59 - Math::BigFloat->new(1.2)->bpow(0.5, 10) ok 60 - Math::BigFloat->new(1.23)->bpow(0.5, 10) ok 61 - Math::BigFloat->new(12.3)->bpow(0.5, 10) ok 62 - Math::BigFloat->new(9.9)->bpow(0.5, 10) ok 63 - Math::BigFloat->new(9.86902225)->bpow(0.5, 10) ok 64 - Math::BigFloat->new(9.86902225)->bpow(0.5, undef) ok 65 - Math::BigFloat->new(0.2)->bpow(0.41, 10) ok 66 - Math::BigFloat->new("0.01")->bpow("28.4", 40)->bsstr() ok 67 - bexp(1) ok 68 - bexp(2) ok 69 - bexp(12.5) ok 70 - Math::BigFloat->new(1)->bexp(100) ok 71 - Math::BigFloat->new("12.5")->bexp(91) ok 72 - Math::BigFloat->new("-118.5")->bexp(20)->bsstr() ok 73 - Math::BigFloat->new("-118.5")->bexp(20)->bsstr() ok t/bigroot.t ................................... 1..8 ok 1 - Try: Math::BigFloat->new(2)->bpow(120)->broot(8, undef) == 32768 ok 2 - Try: Math::BigInt->new(2)->bpow(120)->broot(8, undef) == 32768 ok 3 - Try: Math::BigFloat->new(2)->bpow(60)->broot(8, undef) == 181.0193359837561662466161566988413540569 ok 4 - Try: Math::BigInt->new(2)->bpow(60)->broot(8, undef) == 181 ok 5 - Try: Math::BigFloat->new(2)->bpow(60)->broot(9, undef) == 101.5936673259647663841091609134277286651 ok 6 - Try: Math::BigInt->new(2)->bpow(60)->broot(9, undef) == 101 ok 7 - Try: Math::BigFloat->new(2)->bpow(60)->broot(17, undef) == 11.54672461623965153271017217302844672562 ok 8 - Try: Math::BigInt->new(2)->bpow(60)->broot(17, undef) == 11 ok t/bnstr-mbf.t ................................. 1..460 # # $x = Math::BigFloat -> new("NaN"); $str = $x -> bnstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigFloat -> new("inf"); $str = $x -> bnstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigFloat -> new("-inf"); $str = $x -> bnstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigFloat -> new("0"); $str = $x -> bnstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $str = $x -> bnstr(); # ok 9 - input value is "0.000000000001" ok 10 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $str = $x -> bnstr(); # ok 11 - input value is "0.00000000001" ok 12 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $str = $x -> bnstr(); # ok 13 - input value is "0.0000000001" ok 14 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $str = $x -> bnstr(); # ok 15 - input value is "0.000000001" ok 16 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $str = $x -> bnstr(); # ok 17 - input value is "0.00000001" ok 18 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $str = $x -> bnstr(); # ok 19 - input value is "0.0000001" ok 20 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001"); $str = $x -> bnstr(); # ok 21 - input value is "0.000001" ok 22 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001"); $str = $x -> bnstr(); # ok 23 - input value is "0.00001" ok 24 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001"); $str = $x -> bnstr(); # ok 25 - input value is "0.0001" ok 26 - input object is unmodified # # $x = Math::BigFloat -> new("0.001"); $str = $x -> bnstr(); # ok 27 - input value is "0.001" ok 28 - input object is unmodified # # $x = Math::BigFloat -> new("0.01"); $str = $x -> bnstr(); # ok 29 - input value is "0.01" ok 30 - input object is unmodified # # $x = Math::BigFloat -> new("0.1"); $str = $x -> bnstr(); # ok 31 - input value is "0.1" ok 32 - input object is unmodified # # $x = Math::BigFloat -> new("1"); $str = $x -> bnstr(); # ok 33 - input value is "1" ok 34 - input object is unmodified # # $x = Math::BigFloat -> new("10"); $str = $x -> bnstr(); # ok 35 - input value is "10" ok 36 - input object is unmodified # # $x = Math::BigFloat -> new("100"); $str = $x -> bnstr(); # ok 37 - input value is "100" ok 38 - input object is unmodified # # $x = Math::BigFloat -> new("1000"); $str = $x -> bnstr(); # ok 39 - input value is "1000" ok 40 - input object is unmodified # # $x = Math::BigFloat -> new("10000"); $str = $x -> bnstr(); # ok 41 - input value is "10000" ok 42 - input object is unmodified # # $x = Math::BigFloat -> new("100000"); $str = $x -> bnstr(); # ok 43 - input value is "100000" ok 44 - input object is unmodified # # $x = Math::BigFloat -> new("1000000"); $str = $x -> bnstr(); # ok 45 - input value is "1000000" ok 46 - input object is unmodified # # $x = Math::BigFloat -> new("10000000"); $str = $x -> bnstr(); # ok 47 - input value is "10000000" ok 48 - input object is unmodified # # $x = Math::BigFloat -> new("100000000"); $str = $x -> bnstr(); # ok 49 - input value is "100000000" ok 50 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000"); $str = $x -> bnstr(); # ok 51 - input value is "1000000000" ok 52 - input object is unmodified # # $x = Math::BigFloat -> new("10000000000"); $str = $x -> bnstr(); # ok 53 - input value is "10000000000" ok 54 - input object is unmodified # # $x = Math::BigFloat -> new("100000000000"); $str = $x -> bnstr(); # ok 55 - input value is "100000000000" ok 56 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $str = $x -> bnstr(); # ok 57 - input value is "1000000000000" ok 58 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $str = $x -> bnstr(); # ok 59 - input value is "0.0000000000012" ok 60 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $str = $x -> bnstr(); # ok 61 - input value is "0.000000000012" ok 62 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $str = $x -> bnstr(); # ok 63 - input value is "0.00000000012" ok 64 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $str = $x -> bnstr(); # ok 65 - input value is "0.0000000012" ok 66 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $str = $x -> bnstr(); # ok 67 - input value is "0.000000012" ok 68 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $str = $x -> bnstr(); # ok 69 - input value is "0.00000012" ok 70 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $str = $x -> bnstr(); # ok 71 - input value is "0.0000012" ok 72 - input object is unmodified # # $x = Math::BigFloat -> new("0.000012"); $str = $x -> bnstr(); # ok 73 - input value is "0.000012" ok 74 - input object is unmodified # # $x = Math::BigFloat -> new("0.00012"); $str = $x -> bnstr(); # ok 75 - input value is "0.00012" ok 76 - input object is unmodified # # $x = Math::BigFloat -> new("0.0012"); $str = $x -> bnstr(); # ok 77 - input value is "0.0012" ok 78 - input object is unmodified # # $x = Math::BigFloat -> new("0.012"); $str = $x -> bnstr(); # ok 79 - input value is "0.012" ok 80 - input object is unmodified # # $x = Math::BigFloat -> new("0.12"); $str = $x -> bnstr(); # ok 81 - input value is "0.12" ok 82 - input object is unmodified # # $x = Math::BigFloat -> new("1.2"); $str = $x -> bnstr(); # ok 83 - input value is "1.2" ok 84 - input object is unmodified # # $x = Math::BigFloat -> new("12"); $str = $x -> bnstr(); # ok 85 - input value is "12" ok 86 - input object is unmodified # # $x = Math::BigFloat -> new("120"); $str = $x -> bnstr(); # ok 87 - input value is "120" ok 88 - input object is unmodified # # $x = Math::BigFloat -> new("1200"); $str = $x -> bnstr(); # ok 89 - input value is "1200" ok 90 - input object is unmodified # # $x = Math::BigFloat -> new("12000"); $str = $x -> bnstr(); # ok 91 - input value is "12000" ok 92 - input object is unmodified # # $x = Math::BigFloat -> new("120000"); $str = $x -> bnstr(); # ok 93 - input value is "120000" ok 94 - input object is unmodified # # $x = Math::BigFloat -> new("1200000"); $str = $x -> bnstr(); # ok 95 - input value is "1200000" ok 96 - input object is unmodified # # $x = Math::BigFloat -> new("12000000"); $str = $x -> bnstr(); # ok 97 - input value is "12000000" ok 98 - input object is unmodified # # $x = Math::BigFloat -> new("120000000"); $str = $x -> bnstr(); # ok 99 - input value is "120000000" ok 100 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000"); $str = $x -> bnstr(); # ok 101 - input value is "1200000000" ok 102 - input object is unmodified # # $x = Math::BigFloat -> new("12000000000"); $str = $x -> bnstr(); # ok 103 - input value is "12000000000" ok 104 - input object is unmodified # # $x = Math::BigFloat -> new("120000000000"); $str = $x -> bnstr(); # ok 105 - input value is "120000000000" ok 106 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $str = $x -> bnstr(); # ok 107 - input value is "1200000000000" ok 108 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $str = $x -> bnstr(); # ok 109 - input value is "0.00000000000123" ok 110 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $str = $x -> bnstr(); # ok 111 - input value is "0.0000000000123" ok 112 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $str = $x -> bnstr(); # ok 113 - input value is "0.000000000123" ok 114 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $str = $x -> bnstr(); # ok 115 - input value is "0.00000000123" ok 116 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $str = $x -> bnstr(); # ok 117 - input value is "0.0000000123" ok 118 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $str = $x -> bnstr(); # ok 119 - input value is "0.000000123" ok 120 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $str = $x -> bnstr(); # ok 121 - input value is "0.00000123" ok 122 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $str = $x -> bnstr(); # ok 123 - input value is "0.0000123" ok 124 - input object is unmodified # # $x = Math::BigFloat -> new("0.000123"); $str = $x -> bnstr(); # ok 125 - input value is "0.000123" ok 126 - input object is unmodified # # $x = Math::BigFloat -> new("0.00123"); $str = $x -> bnstr(); # ok 127 - input value is "0.00123" ok 128 - input object is unmodified # # $x = Math::BigFloat -> new("0.0123"); $str = $x -> bnstr(); # ok 129 - input value is "0.0123" ok 130 - input object is unmodified # # $x = Math::BigFloat -> new("0.123"); $str = $x -> bnstr(); # ok 131 - input value is "0.123" ok 132 - input object is unmodified # # $x = Math::BigFloat -> new("1.23"); $str = $x -> bnstr(); # ok 133 - input value is "1.23" ok 134 - input object is unmodified # # $x = Math::BigFloat -> new("12.3"); $str = $x -> bnstr(); # ok 135 - input value is "12.3" ok 136 - input object is unmodified # # $x = Math::BigFloat -> new("123"); $str = $x -> bnstr(); # ok 137 - input value is "123" ok 138 - input object is unmodified # # $x = Math::BigFloat -> new("1230"); $str = $x -> bnstr(); # ok 139 - input value is "1230" ok 140 - input object is unmodified # # $x = Math::BigFloat -> new("12300"); $str = $x -> bnstr(); # ok 141 - input value is "12300" ok 142 - input object is unmodified # # $x = Math::BigFloat -> new("123000"); $str = $x -> bnstr(); # ok 143 - input value is "123000" ok 144 - input object is unmodified # # $x = Math::BigFloat -> new("1230000"); $str = $x -> bnstr(); # ok 145 - input value is "1230000" ok 146 - input object is unmodified # # $x = Math::BigFloat -> new("12300000"); $str = $x -> bnstr(); # ok 147 - input value is "12300000" ok 148 - input object is unmodified # # $x = Math::BigFloat -> new("123000000"); $str = $x -> bnstr(); # ok 149 - input value is "123000000" ok 150 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000"); $str = $x -> bnstr(); # ok 151 - input value is "1230000000" ok 152 - input object is unmodified # # $x = Math::BigFloat -> new("12300000000"); $str = $x -> bnstr(); # ok 153 - input value is "12300000000" ok 154 - input object is unmodified # # $x = Math::BigFloat -> new("123000000000"); $str = $x -> bnstr(); # ok 155 - input value is "123000000000" ok 156 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $str = $x -> bnstr(); # ok 157 - input value is "1230000000000" ok 158 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $str = $x -> bnstr(); # ok 159 - input value is "0.000000000001234" ok 160 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $str = $x -> bnstr(); # ok 161 - input value is "0.00000000001234" ok 162 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $str = $x -> bnstr(); # ok 163 - input value is "0.0000000001234" ok 164 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $str = $x -> bnstr(); # ok 165 - input value is "0.000000001234" ok 166 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $str = $x -> bnstr(); # ok 167 - input value is "0.00000001234" ok 168 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $str = $x -> bnstr(); # ok 169 - input value is "0.0000001234" ok 170 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $str = $x -> bnstr(); # ok 171 - input value is "0.000001234" ok 172 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $str = $x -> bnstr(); # ok 173 - input value is "0.00001234" ok 174 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $str = $x -> bnstr(); # ok 175 - input value is "0.0001234" ok 176 - input object is unmodified # # $x = Math::BigFloat -> new("0.001234"); $str = $x -> bnstr(); # ok 177 - input value is "0.001234" ok 178 - input object is unmodified # # $x = Math::BigFloat -> new("0.01234"); $str = $x -> bnstr(); # ok 179 - input value is "0.01234" ok 180 - input object is unmodified # # $x = Math::BigFloat -> new("0.1234"); $str = $x -> bnstr(); # ok 181 - input value is "0.1234" ok 182 - input object is unmodified # # $x = Math::BigFloat -> new("1.234"); $str = $x -> bnstr(); # ok 183 - input value is "1.234" ok 184 - input object is unmodified # # $x = Math::BigFloat -> new("12.34"); $str = $x -> bnstr(); # ok 185 - input value is "12.34" ok 186 - input object is unmodified # # $x = Math::BigFloat -> new("123.4"); $str = $x -> bnstr(); # ok 187 - input value is "123.4" ok 188 - input object is unmodified # # $x = Math::BigFloat -> new("1234"); $str = $x -> bnstr(); # ok 189 - input value is "1234" ok 190 - input object is unmodified # # $x = Math::BigFloat -> new("12340"); $str = $x -> bnstr(); # ok 191 - input value is "12340" ok 192 - input object is unmodified # # $x = Math::BigFloat -> new("123400"); $str = $x -> bnstr(); # ok 193 - input value is "123400" ok 194 - input object is unmodified # # $x = Math::BigFloat -> new("1234000"); $str = $x -> bnstr(); # ok 195 - input value is "1234000" ok 196 - input object is unmodified # # $x = Math::BigFloat -> new("12340000"); $str = $x -> bnstr(); # ok 197 - input value is "12340000" ok 198 - input object is unmodified # # $x = Math::BigFloat -> new("123400000"); $str = $x -> bnstr(); # ok 199 - input value is "123400000" ok 200 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000"); $str = $x -> bnstr(); # ok 201 - input value is "1234000000" ok 202 - input object is unmodified # # $x = Math::BigFloat -> new("12340000000"); $str = $x -> bnstr(); # ok 203 - input value is "12340000000" ok 204 - input object is unmodified # # $x = Math::BigFloat -> new("123400000000"); $str = $x -> bnstr(); # ok 205 - input value is "123400000000" ok 206 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $str = $x -> bnstr(); # ok 207 - input value is "1234000000000" ok 208 - input object is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $str = $x -> bnstr(); # ok 209 - input value is "0.000003141592" ok 210 - input object is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $str = $x -> bnstr(); # ok 211 - input value is "0.00003141592" ok 212 - input object is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $str = $x -> bnstr(); # ok 213 - input value is "0.0003141592" ok 214 - input object is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $str = $x -> bnstr(); # ok 215 - input value is "0.003141592" ok 216 - input object is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $str = $x -> bnstr(); # ok 217 - input value is "0.03141592" ok 218 - input object is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $str = $x -> bnstr(); # ok 219 - input value is "0.3141592" ok 220 - input object is unmodified # # $x = Math::BigFloat -> new("3.141592"); $str = $x -> bnstr(); # ok 221 - input value is "3.141592" ok 222 - input object is unmodified # # $x = Math::BigFloat -> new("31.41592"); $str = $x -> bnstr(); # ok 223 - input value is "31.41592" ok 224 - input object is unmodified # # $x = Math::BigFloat -> new("314.1592"); $str = $x -> bnstr(); # ok 225 - input value is "314.1592" ok 226 - input object is unmodified # # $x = Math::BigFloat -> new("3141.592"); $str = $x -> bnstr(); # ok 227 - input value is "3141.592" ok 228 - input object is unmodified # # $x = Math::BigFloat -> new("31415.92"); $str = $x -> bnstr(); # ok 229 - input value is "31415.92" ok 230 - input object is unmodified # # $x = Math::BigFloat -> new("314159.2"); $str = $x -> bnstr(); # ok 231 - input value is "314159.2" ok 232 - input object is unmodified # # $x = Math::BigFloat -> new("3141592"); $str = $x -> bnstr(); # ok 233 - input value is "3141592" ok 234 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $str = $x -> bnstr(); # ok 235 - input value is "-0.000000000001" ok 236 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $str = $x -> bnstr(); # ok 237 - input value is "-0.00000000001" ok 238 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $str = $x -> bnstr(); # ok 239 - input value is "-0.0000000001" ok 240 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $str = $x -> bnstr(); # ok 241 - input value is "-0.000000001" ok 242 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $str = $x -> bnstr(); # ok 243 - input value is "-0.00000001" ok 244 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $str = $x -> bnstr(); # ok 245 - input value is "-0.0000001" ok 246 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $str = $x -> bnstr(); # ok 247 - input value is "-0.000001" ok 248 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $str = $x -> bnstr(); # ok 249 - input value is "-0.00001" ok 250 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $str = $x -> bnstr(); # ok 251 - input value is "-0.0001" ok 252 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001"); $str = $x -> bnstr(); # ok 253 - input value is "-0.001" ok 254 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01"); $str = $x -> bnstr(); # ok 255 - input value is "-0.01" ok 256 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1"); $str = $x -> bnstr(); # ok 257 - input value is "-0.1" ok 258 - input object is unmodified # # $x = Math::BigFloat -> new("-1"); $str = $x -> bnstr(); # ok 259 - input value is "-1" ok 260 - input object is unmodified # # $x = Math::BigFloat -> new("-10"); $str = $x -> bnstr(); # ok 261 - input value is "-10" ok 262 - input object is unmodified # # $x = Math::BigFloat -> new("-100"); $str = $x -> bnstr(); # ok 263 - input value is "-100" ok 264 - input object is unmodified # # $x = Math::BigFloat -> new("-1000"); $str = $x -> bnstr(); # ok 265 - input value is "-1000" ok 266 - input object is unmodified # # $x = Math::BigFloat -> new("-10000"); $str = $x -> bnstr(); # ok 267 - input value is "-10000" ok 268 - input object is unmodified # # $x = Math::BigFloat -> new("-100000"); $str = $x -> bnstr(); # ok 269 - input value is "-100000" ok 270 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000"); $str = $x -> bnstr(); # ok 271 - input value is "-1000000" ok 272 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000"); $str = $x -> bnstr(); # ok 273 - input value is "-10000000" ok 274 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000"); $str = $x -> bnstr(); # ok 275 - input value is "-100000000" ok 276 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $str = $x -> bnstr(); # ok 277 - input value is "-1000000000" ok 278 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $str = $x -> bnstr(); # ok 279 - input value is "-10000000000" ok 280 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $str = $x -> bnstr(); # ok 281 - input value is "-100000000000" ok 282 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $str = $x -> bnstr(); # ok 283 - input value is "-1000000000000" ok 284 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $str = $x -> bnstr(); # ok 285 - input value is "-0.0000000000012" ok 286 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $str = $x -> bnstr(); # ok 287 - input value is "-0.000000000012" ok 288 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $str = $x -> bnstr(); # ok 289 - input value is "-0.00000000012" ok 290 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $str = $x -> bnstr(); # ok 291 - input value is "-0.0000000012" ok 292 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $str = $x -> bnstr(); # ok 293 - input value is "-0.000000012" ok 294 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $str = $x -> bnstr(); # ok 295 - input value is "-0.00000012" ok 296 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $str = $x -> bnstr(); # ok 297 - input value is "-0.0000012" ok 298 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $str = $x -> bnstr(); # ok 299 - input value is "-0.000012" ok 300 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $str = $x -> bnstr(); # ok 301 - input value is "-0.00012" ok 302 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $str = $x -> bnstr(); # ok 303 - input value is "-0.0012" ok 304 - input object is unmodified # # $x = Math::BigFloat -> new("-0.012"); $str = $x -> bnstr(); # ok 305 - input value is "-0.012" ok 306 - input object is unmodified # # $x = Math::BigFloat -> new("-0.12"); $str = $x -> bnstr(); # ok 307 - input value is "-0.12" ok 308 - input object is unmodified # # $x = Math::BigFloat -> new("-1.2"); $str = $x -> bnstr(); # ok 309 - input value is "-1.2" ok 310 - input object is unmodified # # $x = Math::BigFloat -> new("-12"); $str = $x -> bnstr(); # ok 311 - input value is "-12" ok 312 - input object is unmodified # # $x = Math::BigFloat -> new("-120"); $str = $x -> bnstr(); # ok 313 - input value is "-120" ok 314 - input object is unmodified # # $x = Math::BigFloat -> new("-1200"); $str = $x -> bnstr(); # ok 315 - input value is "-1200" ok 316 - input object is unmodified # # $x = Math::BigFloat -> new("-12000"); $str = $x -> bnstr(); # ok 317 - input value is "-12000" ok 318 - input object is unmodified # # $x = Math::BigFloat -> new("-120000"); $str = $x -> bnstr(); # ok 319 - input value is "-120000" ok 320 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000"); $str = $x -> bnstr(); # ok 321 - input value is "-1200000" ok 322 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000"); $str = $x -> bnstr(); # ok 323 - input value is "-12000000" ok 324 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000"); $str = $x -> bnstr(); # ok 325 - input value is "-120000000" ok 326 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $str = $x -> bnstr(); # ok 327 - input value is "-1200000000" ok 328 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $str = $x -> bnstr(); # ok 329 - input value is "-12000000000" ok 330 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $str = $x -> bnstr(); # ok 331 - input value is "-120000000000" ok 332 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $str = $x -> bnstr(); # ok 333 - input value is "-1200000000000" ok 334 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $str = $x -> bnstr(); # ok 335 - input value is "-0.00000000000123" ok 336 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $str = $x -> bnstr(); # ok 337 - input value is "-0.0000000000123" ok 338 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $str = $x -> bnstr(); # ok 339 - input value is "-0.000000000123" ok 340 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $str = $x -> bnstr(); # ok 341 - input value is "-0.00000000123" ok 342 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $str = $x -> bnstr(); # ok 343 - input value is "-0.0000000123" ok 344 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $str = $x -> bnstr(); # ok 345 - input value is "-0.000000123" ok 346 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $str = $x -> bnstr(); # ok 347 - input value is "-0.00000123" ok 348 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $str = $x -> bnstr(); # ok 349 - input value is "-0.0000123" ok 350 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $str = $x -> bnstr(); # ok 351 - input value is "-0.000123" ok 352 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $str = $x -> bnstr(); # ok 353 - input value is "-0.00123" ok 354 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $str = $x -> bnstr(); # ok 355 - input value is "-0.0123" ok 356 - input object is unmodified # # $x = Math::BigFloat -> new("-0.123"); $str = $x -> bnstr(); # ok 357 - input value is "-0.123" ok 358 - input object is unmodified # # $x = Math::BigFloat -> new("-1.23"); $str = $x -> bnstr(); # ok 359 - input value is "-1.23" ok 360 - input object is unmodified # # $x = Math::BigFloat -> new("-12.3"); $str = $x -> bnstr(); # ok 361 - input value is "-12.3" ok 362 - input object is unmodified # # $x = Math::BigFloat -> new("-123"); $str = $x -> bnstr(); # ok 363 - input value is "-123" ok 364 - input object is unmodified # # $x = Math::BigFloat -> new("-1230"); $str = $x -> bnstr(); # ok 365 - input value is "-1230" ok 366 - input object is unmodified # # $x = Math::BigFloat -> new("-12300"); $str = $x -> bnstr(); # ok 367 - input value is "-12300" ok 368 - input object is unmodified # # $x = Math::BigFloat -> new("-123000"); $str = $x -> bnstr(); # ok 369 - input value is "-123000" ok 370 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000"); $str = $x -> bnstr(); # ok 371 - input value is "-1230000" ok 372 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000"); $str = $x -> bnstr(); # ok 373 - input value is "-12300000" ok 374 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000"); $str = $x -> bnstr(); # ok 375 - input value is "-123000000" ok 376 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $str = $x -> bnstr(); # ok 377 - input value is "-1230000000" ok 378 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $str = $x -> bnstr(); # ok 379 - input value is "-12300000000" ok 380 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $str = $x -> bnstr(); # ok 381 - input value is "-123000000000" ok 382 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $str = $x -> bnstr(); # ok 383 - input value is "-1230000000000" ok 384 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $str = $x -> bnstr(); # ok 385 - input value is "-0.000000000001234" ok 386 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $str = $x -> bnstr(); # ok 387 - input value is "-0.00000000001234" ok 388 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $str = $x -> bnstr(); # ok 389 - input value is "-0.0000000001234" ok 390 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $str = $x -> bnstr(); # ok 391 - input value is "-0.000000001234" ok 392 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $str = $x -> bnstr(); # ok 393 - input value is "-0.00000001234" ok 394 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $str = $x -> bnstr(); # ok 395 - input value is "-0.0000001234" ok 396 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $str = $x -> bnstr(); # ok 397 - input value is "-0.000001234" ok 398 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $str = $x -> bnstr(); # ok 399 - input value is "-0.00001234" ok 400 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $str = $x -> bnstr(); # ok 401 - input value is "-0.0001234" ok 402 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $str = $x -> bnstr(); # ok 403 - input value is "-0.001234" ok 404 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $str = $x -> bnstr(); # ok 405 - input value is "-0.01234" ok 406 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $str = $x -> bnstr(); # ok 407 - input value is "-0.1234" ok 408 - input object is unmodified # # $x = Math::BigFloat -> new("-1.234"); $str = $x -> bnstr(); # ok 409 - input value is "-1.234" ok 410 - input object is unmodified # # $x = Math::BigFloat -> new("-12.34"); $str = $x -> bnstr(); # ok 411 - input value is "-12.34" ok 412 - input object is unmodified # # $x = Math::BigFloat -> new("-123.4"); $str = $x -> bnstr(); # ok 413 - input value is "-123.4" ok 414 - input object is unmodified # # $x = Math::BigFloat -> new("-1234"); $str = $x -> bnstr(); # ok 415 - input value is "-1234" ok 416 - input object is unmodified # # $x = Math::BigFloat -> new("-12340"); $str = $x -> bnstr(); # ok 417 - input value is "-12340" ok 418 - input object is unmodified # # $x = Math::BigFloat -> new("-123400"); $str = $x -> bnstr(); # ok 419 - input value is "-123400" ok 420 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000"); $str = $x -> bnstr(); # ok 421 - input value is "-1234000" ok 422 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000"); $str = $x -> bnstr(); # ok 423 - input value is "-12340000" ok 424 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000"); $str = $x -> bnstr(); # ok 425 - input value is "-123400000" ok 426 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $str = $x -> bnstr(); # ok 427 - input value is "-1234000000" ok 428 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $str = $x -> bnstr(); # ok 429 - input value is "-12340000000" ok 430 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $str = $x -> bnstr(); # ok 431 - input value is "-123400000000" ok 432 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $str = $x -> bnstr(); # ok 433 - input value is "-1234000000000" ok 434 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $str = $x -> bnstr(); # ok 435 - input value is "-0.000003141592" ok 436 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $str = $x -> bnstr(); # ok 437 - input value is "-0.00003141592" ok 438 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $str = $x -> bnstr(); # ok 439 - input value is "-0.0003141592" ok 440 - input object is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $str = $x -> bnstr(); # ok 441 - input value is "-0.003141592" ok 442 - input object is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $str = $x -> bnstr(); # ok 443 - input value is "-0.03141592" ok 444 - input object is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $str = $x -> bnstr(); # ok 445 - input value is "-0.3141592" ok 446 - input object is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $str = $x -> bnstr(); # ok 447 - input value is "-3.141592" ok 448 - input object is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $str = $x -> bnstr(); # ok 449 - input value is "-31.41592" ok 450 - input object is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $str = $x -> bnstr(); # ok 451 - input value is "-314.1592" ok 452 - input object is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $str = $x -> bnstr(); # ok 453 - input value is "-3141.592" ok 454 - input object is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $str = $x -> bnstr(); # ok 455 - input value is "-31415.92" ok 456 - input object is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $str = $x -> bnstr(); # ok 457 - input value is "-314159.2" ok 458 - input object is unmodified # # $x = Math::BigFloat -> new("-3141592"); $str = $x -> bnstr(); # ok 459 - input value is "-3141592" ok 460 - input object is unmodified ok t/bnstr-mbi.t ................................. 1..220 # # $x = Math::BigInt -> new("NaN"); $str = $x -> bnstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigInt -> new("inf"); $str = $x -> bnstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigInt -> new("-inf"); $str = $x -> bnstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigInt -> new("0"); $str = $x -> bnstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigInt -> new("1"); $str = $x -> bnstr(); # ok 9 - input value is "1" ok 10 - input object is unmodified # # $x = Math::BigInt -> new("10"); $str = $x -> bnstr(); # ok 11 - input value is "10" ok 12 - input object is unmodified # # $x = Math::BigInt -> new("100"); $str = $x -> bnstr(); # ok 13 - input value is "100" ok 14 - input object is unmodified # # $x = Math::BigInt -> new("1000"); $str = $x -> bnstr(); # ok 15 - input value is "1000" ok 16 - input object is unmodified # # $x = Math::BigInt -> new("10000"); $str = $x -> bnstr(); # ok 17 - input value is "10000" ok 18 - input object is unmodified # # $x = Math::BigInt -> new("100000"); $str = $x -> bnstr(); # ok 19 - input value is "100000" ok 20 - input object is unmodified # # $x = Math::BigInt -> new("1000000"); $str = $x -> bnstr(); # ok 21 - input value is "1000000" ok 22 - input object is unmodified # # $x = Math::BigInt -> new("10000000"); $str = $x -> bnstr(); # ok 23 - input value is "10000000" ok 24 - input object is unmodified # # $x = Math::BigInt -> new("100000000"); $str = $x -> bnstr(); # ok 25 - input value is "100000000" ok 26 - input object is unmodified # # $x = Math::BigInt -> new("1000000000"); $str = $x -> bnstr(); # ok 27 - input value is "1000000000" ok 28 - input object is unmodified # # $x = Math::BigInt -> new("10000000000"); $str = $x -> bnstr(); # ok 29 - input value is "10000000000" ok 30 - input object is unmodified # # $x = Math::BigInt -> new("100000000000"); $str = $x -> bnstr(); # ok 31 - input value is "100000000000" ok 32 - input object is unmodified # # $x = Math::BigInt -> new("1000000000000"); $str = $x -> bnstr(); # ok 33 - input value is "1000000000000" ok 34 - input object is unmodified # # $x = Math::BigInt -> new("12"); $str = $x -> bnstr(); # ok 35 - input value is "12" ok 36 - input object is unmodified # # $x = Math::BigInt -> new("120"); $str = $x -> bnstr(); # ok 37 - input value is "120" ok 38 - input object is unmodified # # $x = Math::BigInt -> new("1200"); $str = $x -> bnstr(); # ok 39 - input value is "1200" ok 40 - input object is unmodified # # $x = Math::BigInt -> new("12000"); $str = $x -> bnstr(); # ok 41 - input value is "12000" ok 42 - input object is unmodified # # $x = Math::BigInt -> new("120000"); $str = $x -> bnstr(); # ok 43 - input value is "120000" ok 44 - input object is unmodified # # $x = Math::BigInt -> new("1200000"); $str = $x -> bnstr(); # ok 45 - input value is "1200000" ok 46 - input object is unmodified # # $x = Math::BigInt -> new("12000000"); $str = $x -> bnstr(); # ok 47 - input value is "12000000" ok 48 - input object is unmodified # # $x = Math::BigInt -> new("120000000"); $str = $x -> bnstr(); # ok 49 - input value is "120000000" ok 50 - input object is unmodified # # $x = Math::BigInt -> new("1200000000"); $str = $x -> bnstr(); # ok 51 - input value is "1200000000" ok 52 - input object is unmodified # # $x = Math::BigInt -> new("12000000000"); $str = $x -> bnstr(); # ok 53 - input value is "12000000000" ok 54 - input object is unmodified # # $x = Math::BigInt -> new("120000000000"); $str = $x -> bnstr(); # ok 55 - input value is "120000000000" ok 56 - input object is unmodified # # $x = Math::BigInt -> new("1200000000000"); $str = $x -> bnstr(); # ok 57 - input value is "1200000000000" ok 58 - input object is unmodified # # $x = Math::BigInt -> new("123"); $str = $x -> bnstr(); # ok 59 - input value is "123" ok 60 - input object is unmodified # # $x = Math::BigInt -> new("1230"); $str = $x -> bnstr(); # ok 61 - input value is "1230" ok 62 - input object is unmodified # # $x = Math::BigInt -> new("12300"); $str = $x -> bnstr(); # ok 63 - input value is "12300" ok 64 - input object is unmodified # # $x = Math::BigInt -> new("123000"); $str = $x -> bnstr(); # ok 65 - input value is "123000" ok 66 - input object is unmodified # # $x = Math::BigInt -> new("1230000"); $str = $x -> bnstr(); # ok 67 - input value is "1230000" ok 68 - input object is unmodified # # $x = Math::BigInt -> new("12300000"); $str = $x -> bnstr(); # ok 69 - input value is "12300000" ok 70 - input object is unmodified # # $x = Math::BigInt -> new("123000000"); $str = $x -> bnstr(); # ok 71 - input value is "123000000" ok 72 - input object is unmodified # # $x = Math::BigInt -> new("1230000000"); $str = $x -> bnstr(); # ok 73 - input value is "1230000000" ok 74 - input object is unmodified # # $x = Math::BigInt -> new("12300000000"); $str = $x -> bnstr(); # ok 75 - input value is "12300000000" ok 76 - input object is unmodified # # $x = Math::BigInt -> new("123000000000"); $str = $x -> bnstr(); # ok 77 - input value is "123000000000" ok 78 - input object is unmodified # # $x = Math::BigInt -> new("1230000000000"); $str = $x -> bnstr(); # ok 79 - input value is "1230000000000" ok 80 - input object is unmodified # # $x = Math::BigInt -> new("1234"); $str = $x -> bnstr(); # ok 81 - input value is "1234" ok 82 - input object is unmodified # # $x = Math::BigInt -> new("12340"); $str = $x -> bnstr(); # ok 83 - input value is "12340" ok 84 - input object is unmodified # # $x = Math::BigInt -> new("123400"); $str = $x -> bnstr(); # ok 85 - input value is "123400" ok 86 - input object is unmodified # # $x = Math::BigInt -> new("1234000"); $str = $x -> bnstr(); # ok 87 - input value is "1234000" ok 88 - input object is unmodified # # $x = Math::BigInt -> new("12340000"); $str = $x -> bnstr(); # ok 89 - input value is "12340000" ok 90 - input object is unmodified # # $x = Math::BigInt -> new("123400000"); $str = $x -> bnstr(); # ok 91 - input value is "123400000" ok 92 - input object is unmodified # # $x = Math::BigInt -> new("1234000000"); $str = $x -> bnstr(); # ok 93 - input value is "1234000000" ok 94 - input object is unmodified # # $x = Math::BigInt -> new("12340000000"); $str = $x -> bnstr(); # ok 95 - input value is "12340000000" ok 96 - input object is unmodified # # $x = Math::BigInt -> new("123400000000"); $str = $x -> bnstr(); # ok 97 - input value is "123400000000" ok 98 - input object is unmodified # # $x = Math::BigInt -> new("1234000000000"); $str = $x -> bnstr(); # ok 99 - input value is "1234000000000" ok 100 - input object is unmodified # # $x = Math::BigInt -> new("3"); $str = $x -> bnstr(); # ok 101 - input value is "3" ok 102 - input object is unmodified # # $x = Math::BigInt -> new("31"); $str = $x -> bnstr(); # ok 103 - input value is "31" ok 104 - input object is unmodified # # $x = Math::BigInt -> new("314"); $str = $x -> bnstr(); # ok 105 - input value is "314" ok 106 - input object is unmodified # # $x = Math::BigInt -> new("3141"); $str = $x -> bnstr(); # ok 107 - input value is "3141" ok 108 - input object is unmodified # # $x = Math::BigInt -> new("31415"); $str = $x -> bnstr(); # ok 109 - input value is "31415" ok 110 - input object is unmodified # # $x = Math::BigInt -> new("314159"); $str = $x -> bnstr(); # ok 111 - input value is "314159" ok 112 - input object is unmodified # # $x = Math::BigInt -> new("3141592"); $str = $x -> bnstr(); # ok 113 - input value is "3141592" ok 114 - input object is unmodified # # $x = Math::BigInt -> new("-1"); $str = $x -> bnstr(); # ok 115 - input value is "-1" ok 116 - input object is unmodified # # $x = Math::BigInt -> new("-10"); $str = $x -> bnstr(); # ok 117 - input value is "-10" ok 118 - input object is unmodified # # $x = Math::BigInt -> new("-100"); $str = $x -> bnstr(); # ok 119 - input value is "-100" ok 120 - input object is unmodified # # $x = Math::BigInt -> new("-1000"); $str = $x -> bnstr(); # ok 121 - input value is "-1000" ok 122 - input object is unmodified # # $x = Math::BigInt -> new("-10000"); $str = $x -> bnstr(); # ok 123 - input value is "-10000" ok 124 - input object is unmodified # # $x = Math::BigInt -> new("-100000"); $str = $x -> bnstr(); # ok 125 - input value is "-100000" ok 126 - input object is unmodified # # $x = Math::BigInt -> new("-1000000"); $str = $x -> bnstr(); # ok 127 - input value is "-1000000" ok 128 - input object is unmodified # # $x = Math::BigInt -> new("-10000000"); $str = $x -> bnstr(); # ok 129 - input value is "-10000000" ok 130 - input object is unmodified # # $x = Math::BigInt -> new("-100000000"); $str = $x -> bnstr(); # ok 131 - input value is "-100000000" ok 132 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000"); $str = $x -> bnstr(); # ok 133 - input value is "-1000000000" ok 134 - input object is unmodified # # $x = Math::BigInt -> new("-10000000000"); $str = $x -> bnstr(); # ok 135 - input value is "-10000000000" ok 136 - input object is unmodified # # $x = Math::BigInt -> new("-100000000000"); $str = $x -> bnstr(); # ok 137 - input value is "-100000000000" ok 138 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $str = $x -> bnstr(); # ok 139 - input value is "-1000000000000" ok 140 - input object is unmodified # # $x = Math::BigInt -> new("-12"); $str = $x -> bnstr(); # ok 141 - input value is "-12" ok 142 - input object is unmodified # # $x = Math::BigInt -> new("-120"); $str = $x -> bnstr(); # ok 143 - input value is "-120" ok 144 - input object is unmodified # # $x = Math::BigInt -> new("-1200"); $str = $x -> bnstr(); # ok 145 - input value is "-1200" ok 146 - input object is unmodified # # $x = Math::BigInt -> new("-12000"); $str = $x -> bnstr(); # ok 147 - input value is "-12000" ok 148 - input object is unmodified # # $x = Math::BigInt -> new("-120000"); $str = $x -> bnstr(); # ok 149 - input value is "-120000" ok 150 - input object is unmodified # # $x = Math::BigInt -> new("-1200000"); $str = $x -> bnstr(); # ok 151 - input value is "-1200000" ok 152 - input object is unmodified # # $x = Math::BigInt -> new("-12000000"); $str = $x -> bnstr(); # ok 153 - input value is "-12000000" ok 154 - input object is unmodified # # $x = Math::BigInt -> new("-120000000"); $str = $x -> bnstr(); # ok 155 - input value is "-120000000" ok 156 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000"); $str = $x -> bnstr(); # ok 157 - input value is "-1200000000" ok 158 - input object is unmodified # # $x = Math::BigInt -> new("-12000000000"); $str = $x -> bnstr(); # ok 159 - input value is "-12000000000" ok 160 - input object is unmodified # # $x = Math::BigInt -> new("-120000000000"); $str = $x -> bnstr(); # ok 161 - input value is "-120000000000" ok 162 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $str = $x -> bnstr(); # ok 163 - input value is "-1200000000000" ok 164 - input object is unmodified # # $x = Math::BigInt -> new("-123"); $str = $x -> bnstr(); # ok 165 - input value is "-123" ok 166 - input object is unmodified # # $x = Math::BigInt -> new("-1230"); $str = $x -> bnstr(); # ok 167 - input value is "-1230" ok 168 - input object is unmodified # # $x = Math::BigInt -> new("-12300"); $str = $x -> bnstr(); # ok 169 - input value is "-12300" ok 170 - input object is unmodified # # $x = Math::BigInt -> new("-123000"); $str = $x -> bnstr(); # ok 171 - input value is "-123000" ok 172 - input object is unmodified # # $x = Math::BigInt -> new("-1230000"); $str = $x -> bnstr(); # ok 173 - input value is "-1230000" ok 174 - input object is unmodified # # $x = Math::BigInt -> new("-12300000"); $str = $x -> bnstr(); # ok 175 - input value is "-12300000" ok 176 - input object is unmodified # # $x = Math::BigInt -> new("-123000000"); $str = $x -> bnstr(); # ok 177 - input value is "-123000000" ok 178 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000"); $str = $x -> bnstr(); # ok 179 - input value is "-1230000000" ok 180 - input object is unmodified # # $x = Math::BigInt -> new("-12300000000"); $str = $x -> bnstr(); # ok 181 - input value is "-12300000000" ok 182 - input object is unmodified # # $x = Math::BigInt -> new("-123000000000"); $str = $x -> bnstr(); # ok 183 - input value is "-123000000000" ok 184 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $str = $x -> bnstr(); # ok 185 - input value is "-1230000000000" ok 186 - input object is unmodified # # $x = Math::BigInt -> new("-1234"); $str = $x -> bnstr(); # ok 187 - input value is "-1234" ok 188 - input object is unmodified # # $x = Math::BigInt -> new("-12340"); $str = $x -> bnstr(); # ok 189 - input value is "-12340" ok 190 - input object is unmodified # # $x = Math::BigInt -> new("-123400"); $str = $x -> bnstr(); # ok 191 - input value is "-123400" ok 192 - input object is unmodified # # $x = Math::BigInt -> new("-1234000"); $str = $x -> bnstr(); # ok 193 - input value is "-1234000" ok 194 - input object is unmodified # # $x = Math::BigInt -> new("-12340000"); $str = $x -> bnstr(); # ok 195 - input value is "-12340000" ok 196 - input object is unmodified # # $x = Math::BigInt -> new("-123400000"); $str = $x -> bnstr(); # ok 197 - input value is "-123400000" ok 198 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000"); $str = $x -> bnstr(); # ok 199 - input value is "-1234000000" ok 200 - input object is unmodified # # $x = Math::BigInt -> new("-12340000000"); $str = $x -> bnstr(); # ok 201 - input value is "-12340000000" ok 202 - input object is unmodified # # $x = Math::BigInt -> new("-123400000000"); $str = $x -> bnstr(); # ok 203 - input value is "-123400000000" ok 204 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $str = $x -> bnstr(); # ok 205 - input value is "-1234000000000" ok 206 - input object is unmodified # # $x = Math::BigInt -> new("-3"); $str = $x -> bnstr(); # ok 207 - input value is "-3" ok 208 - input object is unmodified # # $x = Math::BigInt -> new("-31"); $str = $x -> bnstr(); # ok 209 - input value is "-31" ok 210 - input object is unmodified # # $x = Math::BigInt -> new("-314"); $str = $x -> bnstr(); # ok 211 - input value is "-314" ok 212 - input object is unmodified # # $x = Math::BigInt -> new("-3141"); $str = $x -> bnstr(); # ok 213 - input value is "-3141" ok 214 - input object is unmodified # # $x = Math::BigInt -> new("-31415"); $str = $x -> bnstr(); # ok 215 - input value is "-31415" ok 216 - input object is unmodified # # $x = Math::BigInt -> new("-314159"); $str = $x -> bnstr(); # ok 217 - input value is "-314159" ok 218 - input object is unmodified # # $x = Math::BigInt -> new("-3141592"); $str = $x -> bnstr(); # ok 219 - input value is "-3141592" ok 220 - input object is unmodified ok t/bsstr-mbf.t ................................. 1..460 # # $x = Math::BigFloat -> new("NaN"); $str = $x -> bsstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigFloat -> new("inf"); $str = $x -> bsstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigFloat -> new("-inf"); $str = $x -> bsstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigFloat -> new("0"); $str = $x -> bsstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $str = $x -> bsstr(); # ok 9 - input value is "0.000000000001" ok 10 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $str = $x -> bsstr(); # ok 11 - input value is "0.00000000001" ok 12 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $str = $x -> bsstr(); # ok 13 - input value is "0.0000000001" ok 14 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $str = $x -> bsstr(); # ok 15 - input value is "0.000000001" ok 16 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $str = $x -> bsstr(); # ok 17 - input value is "0.00000001" ok 18 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $str = $x -> bsstr(); # ok 19 - input value is "0.0000001" ok 20 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001"); $str = $x -> bsstr(); # ok 21 - input value is "0.000001" ok 22 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001"); $str = $x -> bsstr(); # ok 23 - input value is "0.00001" ok 24 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001"); $str = $x -> bsstr(); # ok 25 - input value is "0.0001" ok 26 - input object is unmodified # # $x = Math::BigFloat -> new("0.001"); $str = $x -> bsstr(); # ok 27 - input value is "0.001" ok 28 - input object is unmodified # # $x = Math::BigFloat -> new("0.01"); $str = $x -> bsstr(); # ok 29 - input value is "0.01" ok 30 - input object is unmodified # # $x = Math::BigFloat -> new("0.1"); $str = $x -> bsstr(); # ok 31 - input value is "0.1" ok 32 - input object is unmodified # # $x = Math::BigFloat -> new("1"); $str = $x -> bsstr(); # ok 33 - input value is "1" ok 34 - input object is unmodified # # $x = Math::BigFloat -> new("10"); $str = $x -> bsstr(); # ok 35 - input value is "10" ok 36 - input object is unmodified # # $x = Math::BigFloat -> new("100"); $str = $x -> bsstr(); # ok 37 - input value is "100" ok 38 - input object is unmodified # # $x = Math::BigFloat -> new("1000"); $str = $x -> bsstr(); # ok 39 - input value is "1000" ok 40 - input object is unmodified # # $x = Math::BigFloat -> new("10000"); $str = $x -> bsstr(); # ok 41 - input value is "10000" ok 42 - input object is unmodified # # $x = Math::BigFloat -> new("100000"); $str = $x -> bsstr(); # ok 43 - input value is "100000" ok 44 - input object is unmodified # # $x = Math::BigFloat -> new("1000000"); $str = $x -> bsstr(); # ok 45 - input value is "1000000" ok 46 - input object is unmodified # # $x = Math::BigFloat -> new("10000000"); $str = $x -> bsstr(); # ok 47 - input value is "10000000" ok 48 - input object is unmodified # # $x = Math::BigFloat -> new("100000000"); $str = $x -> bsstr(); # ok 49 - input value is "100000000" ok 50 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000"); $str = $x -> bsstr(); # ok 51 - input value is "1000000000" ok 52 - input object is unmodified # # $x = Math::BigFloat -> new("10000000000"); $str = $x -> bsstr(); # ok 53 - input value is "10000000000" ok 54 - input object is unmodified # # $x = Math::BigFloat -> new("100000000000"); $str = $x -> bsstr(); # ok 55 - input value is "100000000000" ok 56 - input object is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $str = $x -> bsstr(); # ok 57 - input value is "1000000000000" ok 58 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $str = $x -> bsstr(); # ok 59 - input value is "0.0000000000012" ok 60 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $str = $x -> bsstr(); # ok 61 - input value is "0.000000000012" ok 62 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $str = $x -> bsstr(); # ok 63 - input value is "0.00000000012" ok 64 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $str = $x -> bsstr(); # ok 65 - input value is "0.0000000012" ok 66 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $str = $x -> bsstr(); # ok 67 - input value is "0.000000012" ok 68 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $str = $x -> bsstr(); # ok 69 - input value is "0.00000012" ok 70 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $str = $x -> bsstr(); # ok 71 - input value is "0.0000012" ok 72 - input object is unmodified # # $x = Math::BigFloat -> new("0.000012"); $str = $x -> bsstr(); # ok 73 - input value is "0.000012" ok 74 - input object is unmodified # # $x = Math::BigFloat -> new("0.00012"); $str = $x -> bsstr(); # ok 75 - input value is "0.00012" ok 76 - input object is unmodified # # $x = Math::BigFloat -> new("0.0012"); $str = $x -> bsstr(); # ok 77 - input value is "0.0012" ok 78 - input object is unmodified # # $x = Math::BigFloat -> new("0.012"); $str = $x -> bsstr(); # ok 79 - input value is "0.012" ok 80 - input object is unmodified # # $x = Math::BigFloat -> new("0.12"); $str = $x -> bsstr(); # ok 81 - input value is "0.12" ok 82 - input object is unmodified # # $x = Math::BigFloat -> new("1.2"); $str = $x -> bsstr(); # ok 83 - input value is "1.2" ok 84 - input object is unmodified # # $x = Math::BigFloat -> new("12"); $str = $x -> bsstr(); # ok 85 - input value is "12" ok 86 - input object is unmodified # # $x = Math::BigFloat -> new("120"); $str = $x -> bsstr(); # ok 87 - input value is "120" ok 88 - input object is unmodified # # $x = Math::BigFloat -> new("1200"); $str = $x -> bsstr(); # ok 89 - input value is "1200" ok 90 - input object is unmodified # # $x = Math::BigFloat -> new("12000"); $str = $x -> bsstr(); # ok 91 - input value is "12000" ok 92 - input object is unmodified # # $x = Math::BigFloat -> new("120000"); $str = $x -> bsstr(); # ok 93 - input value is "120000" ok 94 - input object is unmodified # # $x = Math::BigFloat -> new("1200000"); $str = $x -> bsstr(); # ok 95 - input value is "1200000" ok 96 - input object is unmodified # # $x = Math::BigFloat -> new("12000000"); $str = $x -> bsstr(); # ok 97 - input value is "12000000" ok 98 - input object is unmodified # # $x = Math::BigFloat -> new("120000000"); $str = $x -> bsstr(); # ok 99 - input value is "120000000" ok 100 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000"); $str = $x -> bsstr(); # ok 101 - input value is "1200000000" ok 102 - input object is unmodified # # $x = Math::BigFloat -> new("12000000000"); $str = $x -> bsstr(); # ok 103 - input value is "12000000000" ok 104 - input object is unmodified # # $x = Math::BigFloat -> new("120000000000"); $str = $x -> bsstr(); # ok 105 - input value is "120000000000" ok 106 - input object is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $str = $x -> bsstr(); # ok 107 - input value is "1200000000000" ok 108 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $str = $x -> bsstr(); # ok 109 - input value is "0.00000000000123" ok 110 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $str = $x -> bsstr(); # ok 111 - input value is "0.0000000000123" ok 112 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $str = $x -> bsstr(); # ok 113 - input value is "0.000000000123" ok 114 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $str = $x -> bsstr(); # ok 115 - input value is "0.00000000123" ok 116 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $str = $x -> bsstr(); # ok 117 - input value is "0.0000000123" ok 118 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $str = $x -> bsstr(); # ok 119 - input value is "0.000000123" ok 120 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $str = $x -> bsstr(); # ok 121 - input value is "0.00000123" ok 122 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $str = $x -> bsstr(); # ok 123 - input value is "0.0000123" ok 124 - input object is unmodified # # $x = Math::BigFloat -> new("0.000123"); $str = $x -> bsstr(); # ok 125 - input value is "0.000123" ok 126 - input object is unmodified # # $x = Math::BigFloat -> new("0.00123"); $str = $x -> bsstr(); # ok 127 - input value is "0.00123" ok 128 - input object is unmodified # # $x = Math::BigFloat -> new("0.0123"); $str = $x -> bsstr(); # ok 129 - input value is "0.0123" ok 130 - input object is unmodified # # $x = Math::BigFloat -> new("0.123"); $str = $x -> bsstr(); # ok 131 - input value is "0.123" ok 132 - input object is unmodified # # $x = Math::BigFloat -> new("1.23"); $str = $x -> bsstr(); # ok 133 - input value is "1.23" ok 134 - input object is unmodified # # $x = Math::BigFloat -> new("12.3"); $str = $x -> bsstr(); # ok 135 - input value is "12.3" ok 136 - input object is unmodified # # $x = Math::BigFloat -> new("123"); $str = $x -> bsstr(); # ok 137 - input value is "123" ok 138 - input object is unmodified # # $x = Math::BigFloat -> new("1230"); $str = $x -> bsstr(); # ok 139 - input value is "1230" ok 140 - input object is unmodified # # $x = Math::BigFloat -> new("12300"); $str = $x -> bsstr(); # ok 141 - input value is "12300" ok 142 - input object is unmodified # # $x = Math::BigFloat -> new("123000"); $str = $x -> bsstr(); # ok 143 - input value is "123000" ok 144 - input object is unmodified # # $x = Math::BigFloat -> new("1230000"); $str = $x -> bsstr(); # ok 145 - input value is "1230000" ok 146 - input object is unmodified # # $x = Math::BigFloat -> new("12300000"); $str = $x -> bsstr(); # ok 147 - input value is "12300000" ok 148 - input object is unmodified # # $x = Math::BigFloat -> new("123000000"); $str = $x -> bsstr(); # ok 149 - input value is "123000000" ok 150 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000"); $str = $x -> bsstr(); # ok 151 - input value is "1230000000" ok 152 - input object is unmodified # # $x = Math::BigFloat -> new("12300000000"); $str = $x -> bsstr(); # ok 153 - input value is "12300000000" ok 154 - input object is unmodified # # $x = Math::BigFloat -> new("123000000000"); $str = $x -> bsstr(); # ok 155 - input value is "123000000000" ok 156 - input object is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $str = $x -> bsstr(); # ok 157 - input value is "1230000000000" ok 158 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $str = $x -> bsstr(); # ok 159 - input value is "0.000000000001234" ok 160 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $str = $x -> bsstr(); # ok 161 - input value is "0.00000000001234" ok 162 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $str = $x -> bsstr(); # ok 163 - input value is "0.0000000001234" ok 164 - input object is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $str = $x -> bsstr(); # ok 165 - input value is "0.000000001234" ok 166 - input object is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $str = $x -> bsstr(); # ok 167 - input value is "0.00000001234" ok 168 - input object is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $str = $x -> bsstr(); # ok 169 - input value is "0.0000001234" ok 170 - input object is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $str = $x -> bsstr(); # ok 171 - input value is "0.000001234" ok 172 - input object is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $str = $x -> bsstr(); # ok 173 - input value is "0.00001234" ok 174 - input object is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $str = $x -> bsstr(); # ok 175 - input value is "0.0001234" ok 176 - input object is unmodified # # $x = Math::BigFloat -> new("0.001234"); $str = $x -> bsstr(); # ok 177 - input value is "0.001234" ok 178 - input object is unmodified # # $x = Math::BigFloat -> new("0.01234"); $str = $x -> bsstr(); # ok 179 - input value is "0.01234" ok 180 - input object is unmodified # # $x = Math::BigFloat -> new("0.1234"); $str = $x -> bsstr(); # ok 181 - input value is "0.1234" ok 182 - input object is unmodified # # $x = Math::BigFloat -> new("1.234"); $str = $x -> bsstr(); # ok 183 - input value is "1.234" ok 184 - input object is unmodified # # $x = Math::BigFloat -> new("12.34"); $str = $x -> bsstr(); # ok 185 - input value is "12.34" ok 186 - input object is unmodified # # $x = Math::BigFloat -> new("123.4"); $str = $x -> bsstr(); # ok 187 - input value is "123.4" ok 188 - input object is unmodified # # $x = Math::BigFloat -> new("1234"); $str = $x -> bsstr(); # ok 189 - input value is "1234" ok 190 - input object is unmodified # # $x = Math::BigFloat -> new("12340"); $str = $x -> bsstr(); # ok 191 - input value is "12340" ok 192 - input object is unmodified # # $x = Math::BigFloat -> new("123400"); $str = $x -> bsstr(); # ok 193 - input value is "123400" ok 194 - input object is unmodified # # $x = Math::BigFloat -> new("1234000"); $str = $x -> bsstr(); # ok 195 - input value is "1234000" ok 196 - input object is unmodified # # $x = Math::BigFloat -> new("12340000"); $str = $x -> bsstr(); # ok 197 - input value is "12340000" ok 198 - input object is unmodified # # $x = Math::BigFloat -> new("123400000"); $str = $x -> bsstr(); # ok 199 - input value is "123400000" ok 200 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000"); $str = $x -> bsstr(); # ok 201 - input value is "1234000000" ok 202 - input object is unmodified # # $x = Math::BigFloat -> new("12340000000"); $str = $x -> bsstr(); # ok 203 - input value is "12340000000" ok 204 - input object is unmodified # # $x = Math::BigFloat -> new("123400000000"); $str = $x -> bsstr(); # ok 205 - input value is "123400000000" ok 206 - input object is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $str = $x -> bsstr(); # ok 207 - input value is "1234000000000" ok 208 - input object is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $str = $x -> bsstr(); # ok 209 - input value is "0.000003141592" ok 210 - input object is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $str = $x -> bsstr(); # ok 211 - input value is "0.00003141592" ok 212 - input object is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $str = $x -> bsstr(); # ok 213 - input value is "0.0003141592" ok 214 - input object is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $str = $x -> bsstr(); # ok 215 - input value is "0.003141592" ok 216 - input object is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $str = $x -> bsstr(); # ok 217 - input value is "0.03141592" ok 218 - input object is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $str = $x -> bsstr(); # ok 219 - input value is "0.3141592" ok 220 - input object is unmodified # # $x = Math::BigFloat -> new("3.141592"); $str = $x -> bsstr(); # ok 221 - input value is "3.141592" ok 222 - input object is unmodified # # $x = Math::BigFloat -> new("31.41592"); $str = $x -> bsstr(); # ok 223 - input value is "31.41592" ok 224 - input object is unmodified # # $x = Math::BigFloat -> new("314.1592"); $str = $x -> bsstr(); # ok 225 - input value is "314.1592" ok 226 - input object is unmodified # # $x = Math::BigFloat -> new("3141.592"); $str = $x -> bsstr(); # ok 227 - input value is "3141.592" ok 228 - input object is unmodified # # $x = Math::BigFloat -> new("31415.92"); $str = $x -> bsstr(); # ok 229 - input value is "31415.92" ok 230 - input object is unmodified # # $x = Math::BigFloat -> new("314159.2"); $str = $x -> bsstr(); # ok 231 - input value is "314159.2" ok 232 - input object is unmodified # # $x = Math::BigFloat -> new("3141592"); $str = $x -> bsstr(); # ok 233 - input value is "3141592" ok 234 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $str = $x -> bsstr(); # ok 235 - input value is "-0.000000000001" ok 236 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $str = $x -> bsstr(); # ok 237 - input value is "-0.00000000001" ok 238 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $str = $x -> bsstr(); # ok 239 - input value is "-0.0000000001" ok 240 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $str = $x -> bsstr(); # ok 241 - input value is "-0.000000001" ok 242 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $str = $x -> bsstr(); # ok 243 - input value is "-0.00000001" ok 244 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $str = $x -> bsstr(); # ok 245 - input value is "-0.0000001" ok 246 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $str = $x -> bsstr(); # ok 247 - input value is "-0.000001" ok 248 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $str = $x -> bsstr(); # ok 249 - input value is "-0.00001" ok 250 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $str = $x -> bsstr(); # ok 251 - input value is "-0.0001" ok 252 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001"); $str = $x -> bsstr(); # ok 253 - input value is "-0.001" ok 254 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01"); $str = $x -> bsstr(); # ok 255 - input value is "-0.01" ok 256 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1"); $str = $x -> bsstr(); # ok 257 - input value is "-0.1" ok 258 - input object is unmodified # # $x = Math::BigFloat -> new("-1"); $str = $x -> bsstr(); # ok 259 - input value is "-1" ok 260 - input object is unmodified # # $x = Math::BigFloat -> new("-10"); $str = $x -> bsstr(); # ok 261 - input value is "-10" ok 262 - input object is unmodified # # $x = Math::BigFloat -> new("-100"); $str = $x -> bsstr(); # ok 263 - input value is "-100" ok 264 - input object is unmodified # # $x = Math::BigFloat -> new("-1000"); $str = $x -> bsstr(); # ok 265 - input value is "-1000" ok 266 - input object is unmodified # # $x = Math::BigFloat -> new("-10000"); $str = $x -> bsstr(); # ok 267 - input value is "-10000" ok 268 - input object is unmodified # # $x = Math::BigFloat -> new("-100000"); $str = $x -> bsstr(); # ok 269 - input value is "-100000" ok 270 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000"); $str = $x -> bsstr(); # ok 271 - input value is "-1000000" ok 272 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000"); $str = $x -> bsstr(); # ok 273 - input value is "-10000000" ok 274 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000"); $str = $x -> bsstr(); # ok 275 - input value is "-100000000" ok 276 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $str = $x -> bsstr(); # ok 277 - input value is "-1000000000" ok 278 - input object is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $str = $x -> bsstr(); # ok 279 - input value is "-10000000000" ok 280 - input object is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $str = $x -> bsstr(); # ok 281 - input value is "-100000000000" ok 282 - input object is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $str = $x -> bsstr(); # ok 283 - input value is "-1000000000000" ok 284 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $str = $x -> bsstr(); # ok 285 - input value is "-0.0000000000012" ok 286 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $str = $x -> bsstr(); # ok 287 - input value is "-0.000000000012" ok 288 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $str = $x -> bsstr(); # ok 289 - input value is "-0.00000000012" ok 290 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $str = $x -> bsstr(); # ok 291 - input value is "-0.0000000012" ok 292 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $str = $x -> bsstr(); # ok 293 - input value is "-0.000000012" ok 294 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $str = $x -> bsstr(); # ok 295 - input value is "-0.00000012" ok 296 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $str = $x -> bsstr(); # ok 297 - input value is "-0.0000012" ok 298 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $str = $x -> bsstr(); # ok 299 - input value is "-0.000012" ok 300 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $str = $x -> bsstr(); # ok 301 - input value is "-0.00012" ok 302 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $str = $x -> bsstr(); # ok 303 - input value is "-0.0012" ok 304 - input object is unmodified # # $x = Math::BigFloat -> new("-0.012"); $str = $x -> bsstr(); # ok 305 - input value is "-0.012" ok 306 - input object is unmodified # # $x = Math::BigFloat -> new("-0.12"); $str = $x -> bsstr(); # ok 307 - input value is "-0.12" ok 308 - input object is unmodified # # $x = Math::BigFloat -> new("-1.2"); $str = $x -> bsstr(); # ok 309 - input value is "-1.2" ok 310 - input object is unmodified # # $x = Math::BigFloat -> new("-12"); $str = $x -> bsstr(); # ok 311 - input value is "-12" ok 312 - input object is unmodified # # $x = Math::BigFloat -> new("-120"); $str = $x -> bsstr(); # ok 313 - input value is "-120" ok 314 - input object is unmodified # # $x = Math::BigFloat -> new("-1200"); $str = $x -> bsstr(); # ok 315 - input value is "-1200" ok 316 - input object is unmodified # # $x = Math::BigFloat -> new("-12000"); $str = $x -> bsstr(); # ok 317 - input value is "-12000" ok 318 - input object is unmodified # # $x = Math::BigFloat -> new("-120000"); $str = $x -> bsstr(); # ok 319 - input value is "-120000" ok 320 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000"); $str = $x -> bsstr(); # ok 321 - input value is "-1200000" ok 322 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000"); $str = $x -> bsstr(); # ok 323 - input value is "-12000000" ok 324 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000"); $str = $x -> bsstr(); # ok 325 - input value is "-120000000" ok 326 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $str = $x -> bsstr(); # ok 327 - input value is "-1200000000" ok 328 - input object is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $str = $x -> bsstr(); # ok 329 - input value is "-12000000000" ok 330 - input object is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $str = $x -> bsstr(); # ok 331 - input value is "-120000000000" ok 332 - input object is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $str = $x -> bsstr(); # ok 333 - input value is "-1200000000000" ok 334 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $str = $x -> bsstr(); # ok 335 - input value is "-0.00000000000123" ok 336 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $str = $x -> bsstr(); # ok 337 - input value is "-0.0000000000123" ok 338 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $str = $x -> bsstr(); # ok 339 - input value is "-0.000000000123" ok 340 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $str = $x -> bsstr(); # ok 341 - input value is "-0.00000000123" ok 342 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $str = $x -> bsstr(); # ok 343 - input value is "-0.0000000123" ok 344 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $str = $x -> bsstr(); # ok 345 - input value is "-0.000000123" ok 346 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $str = $x -> bsstr(); # ok 347 - input value is "-0.00000123" ok 348 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $str = $x -> bsstr(); # ok 349 - input value is "-0.0000123" ok 350 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $str = $x -> bsstr(); # ok 351 - input value is "-0.000123" ok 352 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $str = $x -> bsstr(); # ok 353 - input value is "-0.00123" ok 354 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $str = $x -> bsstr(); # ok 355 - input value is "-0.0123" ok 356 - input object is unmodified # # $x = Math::BigFloat -> new("-0.123"); $str = $x -> bsstr(); # ok 357 - input value is "-0.123" ok 358 - input object is unmodified # # $x = Math::BigFloat -> new("-1.23"); $str = $x -> bsstr(); # ok 359 - input value is "-1.23" ok 360 - input object is unmodified # # $x = Math::BigFloat -> new("-12.3"); $str = $x -> bsstr(); # ok 361 - input value is "-12.3" ok 362 - input object is unmodified # # $x = Math::BigFloat -> new("-123"); $str = $x -> bsstr(); # ok 363 - input value is "-123" ok 364 - input object is unmodified # # $x = Math::BigFloat -> new("-1230"); $str = $x -> bsstr(); # ok 365 - input value is "-1230" ok 366 - input object is unmodified # # $x = Math::BigFloat -> new("-12300"); $str = $x -> bsstr(); # ok 367 - input value is "-12300" ok 368 - input object is unmodified # # $x = Math::BigFloat -> new("-123000"); $str = $x -> bsstr(); # ok 369 - input value is "-123000" ok 370 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000"); $str = $x -> bsstr(); # ok 371 - input value is "-1230000" ok 372 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000"); $str = $x -> bsstr(); # ok 373 - input value is "-12300000" ok 374 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000"); $str = $x -> bsstr(); # ok 375 - input value is "-123000000" ok 376 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $str = $x -> bsstr(); # ok 377 - input value is "-1230000000" ok 378 - input object is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $str = $x -> bsstr(); # ok 379 - input value is "-12300000000" ok 380 - input object is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $str = $x -> bsstr(); # ok 381 - input value is "-123000000000" ok 382 - input object is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $str = $x -> bsstr(); # ok 383 - input value is "-1230000000000" ok 384 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $str = $x -> bsstr(); # ok 385 - input value is "-0.000000000001234" ok 386 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $str = $x -> bsstr(); # ok 387 - input value is "-0.00000000001234" ok 388 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $str = $x -> bsstr(); # ok 389 - input value is "-0.0000000001234" ok 390 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $str = $x -> bsstr(); # ok 391 - input value is "-0.000000001234" ok 392 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $str = $x -> bsstr(); # ok 393 - input value is "-0.00000001234" ok 394 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $str = $x -> bsstr(); # ok 395 - input value is "-0.0000001234" ok 396 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $str = $x -> bsstr(); # ok 397 - input value is "-0.000001234" ok 398 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $str = $x -> bsstr(); # ok 399 - input value is "-0.00001234" ok 400 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $str = $x -> bsstr(); # ok 401 - input value is "-0.0001234" ok 402 - input object is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $str = $x -> bsstr(); # ok 403 - input value is "-0.001234" ok 404 - input object is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $str = $x -> bsstr(); # ok 405 - input value is "-0.01234" ok 406 - input object is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $str = $x -> bsstr(); # ok 407 - input value is "-0.1234" ok 408 - input object is unmodified # # $x = Math::BigFloat -> new("-1.234"); $str = $x -> bsstr(); # ok 409 - input value is "-1.234" ok 410 - input object is unmodified # # $x = Math::BigFloat -> new("-12.34"); $str = $x -> bsstr(); # ok 411 - input value is "-12.34" ok 412 - input object is unmodified # # $x = Math::BigFloat -> new("-123.4"); $str = $x -> bsstr(); # ok 413 - input value is "-123.4" ok 414 - input object is unmodified # # $x = Math::BigFloat -> new("-1234"); $str = $x -> bsstr(); # ok 415 - input value is "-1234" ok 416 - input object is unmodified # # $x = Math::BigFloat -> new("-12340"); $str = $x -> bsstr(); # ok 417 - input value is "-12340" ok 418 - input object is unmodified # # $x = Math::BigFloat -> new("-123400"); $str = $x -> bsstr(); # ok 419 - input value is "-123400" ok 420 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000"); $str = $x -> bsstr(); # ok 421 - input value is "-1234000" ok 422 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000"); $str = $x -> bsstr(); # ok 423 - input value is "-12340000" ok 424 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000"); $str = $x -> bsstr(); # ok 425 - input value is "-123400000" ok 426 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $str = $x -> bsstr(); # ok 427 - input value is "-1234000000" ok 428 - input object is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $str = $x -> bsstr(); # ok 429 - input value is "-12340000000" ok 430 - input object is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $str = $x -> bsstr(); # ok 431 - input value is "-123400000000" ok 432 - input object is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $str = $x -> bsstr(); # ok 433 - input value is "-1234000000000" ok 434 - input object is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $str = $x -> bsstr(); # ok 435 - input value is "-0.000003141592" ok 436 - input object is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $str = $x -> bsstr(); # ok 437 - input value is "-0.00003141592" ok 438 - input object is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $str = $x -> bsstr(); # ok 439 - input value is "-0.0003141592" ok 440 - input object is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $str = $x -> bsstr(); # ok 441 - input value is "-0.003141592" ok 442 - input object is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $str = $x -> bsstr(); # ok 443 - input value is "-0.03141592" ok 444 - input object is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $str = $x -> bsstr(); # ok 445 - input value is "-0.3141592" ok 446 - input object is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $str = $x -> bsstr(); # ok 447 - input value is "-3.141592" ok 448 - input object is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $str = $x -> bsstr(); # ok 449 - input value is "-31.41592" ok 450 - input object is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $str = $x -> bsstr(); # ok 451 - input value is "-314.1592" ok 452 - input object is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $str = $x -> bsstr(); # ok 453 - input value is "-3141.592" ok 454 - input object is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $str = $x -> bsstr(); # ok 455 - input value is "-31415.92" ok 456 - input object is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $str = $x -> bsstr(); # ok 457 - input value is "-314159.2" ok 458 - input object is unmodified # # $x = Math::BigFloat -> new("-3141592"); $str = $x -> bsstr(); # ok 459 - input value is "-3141592" ok 460 - input object is unmodified ok t/bsstr-mbi.t ................................. 1..220 # # $x = Math::BigInt -> new("NaN"); $str = $x -> bsstr(); # ok 1 - input value is "NaN" ok 2 - input object is unmodified # # $x = Math::BigInt -> new("inf"); $str = $x -> bsstr(); # ok 3 - input value is "inf" ok 4 - input object is unmodified # # $x = Math::BigInt -> new("-inf"); $str = $x -> bsstr(); # ok 5 - input value is "-inf" ok 6 - input object is unmodified # # $x = Math::BigInt -> new("0"); $str = $x -> bsstr(); # ok 7 - input value is "0" ok 8 - input object is unmodified # # $x = Math::BigInt -> new("1"); $str = $x -> bsstr(); # ok 9 - input value is "1" ok 10 - input object is unmodified # # $x = Math::BigInt -> new("10"); $str = $x -> bsstr(); # ok 11 - input value is "10" ok 12 - input object is unmodified # # $x = Math::BigInt -> new("100"); $str = $x -> bsstr(); # ok 13 - input value is "100" ok 14 - input object is unmodified # # $x = Math::BigInt -> new("1000"); $str = $x -> bsstr(); # ok 15 - input value is "1000" ok 16 - input object is unmodified # # $x = Math::BigInt -> new("10000"); $str = $x -> bsstr(); # ok 17 - input value is "10000" ok 18 - input object is unmodified # # $x = Math::BigInt -> new("100000"); $str = $x -> bsstr(); # ok 19 - input value is "100000" ok 20 - input object is unmodified # # $x = Math::BigInt -> new("1000000"); $str = $x -> bsstr(); # ok 21 - input value is "1000000" ok 22 - input object is unmodified # # $x = Math::BigInt -> new("10000000"); $str = $x -> bsstr(); # ok 23 - input value is "10000000" ok 24 - input object is unmodified # # $x = Math::BigInt -> new("100000000"); $str = $x -> bsstr(); # ok 25 - input value is "100000000" ok 26 - input object is unmodified # # $x = Math::BigInt -> new("1000000000"); $str = $x -> bsstr(); # ok 27 - input value is "1000000000" ok 28 - input object is unmodified # # $x = Math::BigInt -> new("10000000000"); $str = $x -> bsstr(); # ok 29 - input value is "10000000000" ok 30 - input object is unmodified # # $x = Math::BigInt -> new("100000000000"); $str = $x -> bsstr(); # ok 31 - input value is "100000000000" ok 32 - input object is unmodified # # $x = Math::BigInt -> new("1000000000000"); $str = $x -> bsstr(); # ok 33 - input value is "1000000000000" ok 34 - input object is unmodified # # $x = Math::BigInt -> new("12"); $str = $x -> bsstr(); # ok 35 - input value is "12" ok 36 - input object is unmodified # # $x = Math::BigInt -> new("120"); $str = $x -> bsstr(); # ok 37 - input value is "120" ok 38 - input object is unmodified # # $x = Math::BigInt -> new("1200"); $str = $x -> bsstr(); # ok 39 - input value is "1200" ok 40 - input object is unmodified # # $x = Math::BigInt -> new("12000"); $str = $x -> bsstr(); # ok 41 - input value is "12000" ok 42 - input object is unmodified # # $x = Math::BigInt -> new("120000"); $str = $x -> bsstr(); # ok 43 - input value is "120000" ok 44 - input object is unmodified # # $x = Math::BigInt -> new("1200000"); $str = $x -> bsstr(); # ok 45 - input value is "1200000" ok 46 - input object is unmodified # # $x = Math::BigInt -> new("12000000"); $str = $x -> bsstr(); # ok 47 - input value is "12000000" ok 48 - input object is unmodified # # $x = Math::BigInt -> new("120000000"); $str = $x -> bsstr(); # ok 49 - input value is "120000000" ok 50 - input object is unmodified # # $x = Math::BigInt -> new("1200000000"); $str = $x -> bsstr(); # ok 51 - input value is "1200000000" ok 52 - input object is unmodified # # $x = Math::BigInt -> new("12000000000"); $str = $x -> bsstr(); # ok 53 - input value is "12000000000" ok 54 - input object is unmodified # # $x = Math::BigInt -> new("120000000000"); $str = $x -> bsstr(); # ok 55 - input value is "120000000000" ok 56 - input object is unmodified # # $x = Math::BigInt -> new("1200000000000"); $str = $x -> bsstr(); # ok 57 - input value is "1200000000000" ok 58 - input object is unmodified # # $x = Math::BigInt -> new("123"); $str = $x -> bsstr(); # ok 59 - input value is "123" ok 60 - input object is unmodified # # $x = Math::BigInt -> new("1230"); $str = $x -> bsstr(); # ok 61 - input value is "1230" ok 62 - input object is unmodified # # $x = Math::BigInt -> new("12300"); $str = $x -> bsstr(); # ok 63 - input value is "12300" ok 64 - input object is unmodified # # $x = Math::BigInt -> new("123000"); $str = $x -> bsstr(); # ok 65 - input value is "123000" ok 66 - input object is unmodified # # $x = Math::BigInt -> new("1230000"); $str = $x -> bsstr(); # ok 67 - input value is "1230000" ok 68 - input object is unmodified # # $x = Math::BigInt -> new("12300000"); $str = $x -> bsstr(); # ok 69 - input value is "12300000" ok 70 - input object is unmodified # # $x = Math::BigInt -> new("123000000"); $str = $x -> bsstr(); # ok 71 - input value is "123000000" ok 72 - input object is unmodified # # $x = Math::BigInt -> new("1230000000"); $str = $x -> bsstr(); # ok 73 - input value is "1230000000" ok 74 - input object is unmodified # # $x = Math::BigInt -> new("12300000000"); $str = $x -> bsstr(); # ok 75 - input value is "12300000000" ok 76 - input object is unmodified # # $x = Math::BigInt -> new("123000000000"); $str = $x -> bsstr(); # ok 77 - input value is "123000000000" ok 78 - input object is unmodified # # $x = Math::BigInt -> new("1230000000000"); $str = $x -> bsstr(); # ok 79 - input value is "1230000000000" ok 80 - input object is unmodified # # $x = Math::BigInt -> new("1234"); $str = $x -> bsstr(); # ok 81 - input value is "1234" ok 82 - input object is unmodified # # $x = Math::BigInt -> new("12340"); $str = $x -> bsstr(); # ok 83 - input value is "12340" ok 84 - input object is unmodified # # $x = Math::BigInt -> new("123400"); $str = $x -> bsstr(); # ok 85 - input value is "123400" ok 86 - input object is unmodified # # $x = Math::BigInt -> new("1234000"); $str = $x -> bsstr(); # ok 87 - input value is "1234000" ok 88 - input object is unmodified # # $x = Math::BigInt -> new("12340000"); $str = $x -> bsstr(); # ok 89 - input value is "12340000" ok 90 - input object is unmodified # # $x = Math::BigInt -> new("123400000"); $str = $x -> bsstr(); # ok 91 - input value is "123400000" ok 92 - input object is unmodified # # $x = Math::BigInt -> new("1234000000"); $str = $x -> bsstr(); # ok 93 - input value is "1234000000" ok 94 - input object is unmodified # # $x = Math::BigInt -> new("12340000000"); $str = $x -> bsstr(); # ok 95 - input value is "12340000000" ok 96 - input object is unmodified # # $x = Math::BigInt -> new("123400000000"); $str = $x -> bsstr(); # ok 97 - input value is "123400000000" ok 98 - input object is unmodified # # $x = Math::BigInt -> new("1234000000000"); $str = $x -> bsstr(); # ok 99 - input value is "1234000000000" ok 100 - input object is unmodified # # $x = Math::BigInt -> new("3"); $str = $x -> bsstr(); # ok 101 - input value is "3" ok 102 - input object is unmodified # # $x = Math::BigInt -> new("31"); $str = $x -> bsstr(); # ok 103 - input value is "31" ok 104 - input object is unmodified # # $x = Math::BigInt -> new("314"); $str = $x -> bsstr(); # ok 105 - input value is "314" ok 106 - input object is unmodified # # $x = Math::BigInt -> new("3141"); $str = $x -> bsstr(); # ok 107 - input value is "3141" ok 108 - input object is unmodified # # $x = Math::BigInt -> new("31415"); $str = $x -> bsstr(); # ok 109 - input value is "31415" ok 110 - input object is unmodified # # $x = Math::BigInt -> new("314159"); $str = $x -> bsstr(); # ok 111 - input value is "314159" ok 112 - input object is unmodified # # $x = Math::BigInt -> new("3141592"); $str = $x -> bsstr(); # ok 113 - input value is "3141592" ok 114 - input object is unmodified # # $x = Math::BigInt -> new("-1"); $str = $x -> bsstr(); # ok 115 - input value is "-1" ok 116 - input object is unmodified # # $x = Math::BigInt -> new("-10"); $str = $x -> bsstr(); # ok 117 - input value is "-10" ok 118 - input object is unmodified # # $x = Math::BigInt -> new("-100"); $str = $x -> bsstr(); # ok 119 - input value is "-100" ok 120 - input object is unmodified # # $x = Math::BigInt -> new("-1000"); $str = $x -> bsstr(); # ok 121 - input value is "-1000" ok 122 - input object is unmodified # # $x = Math::BigInt -> new("-10000"); $str = $x -> bsstr(); # ok 123 - input value is "-10000" ok 124 - input object is unmodified # # $x = Math::BigInt -> new("-100000"); $str = $x -> bsstr(); # ok 125 - input value is "-100000" ok 126 - input object is unmodified # # $x = Math::BigInt -> new("-1000000"); $str = $x -> bsstr(); # ok 127 - input value is "-1000000" ok 128 - input object is unmodified # # $x = Math::BigInt -> new("-10000000"); $str = $x -> bsstr(); # ok 129 - input value is "-10000000" ok 130 - input object is unmodified # # $x = Math::BigInt -> new("-100000000"); $str = $x -> bsstr(); # ok 131 - input value is "-100000000" ok 132 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000"); $str = $x -> bsstr(); # ok 133 - input value is "-1000000000" ok 134 - input object is unmodified # # $x = Math::BigInt -> new("-10000000000"); $str = $x -> bsstr(); # ok 135 - input value is "-10000000000" ok 136 - input object is unmodified # # $x = Math::BigInt -> new("-100000000000"); $str = $x -> bsstr(); # ok 137 - input value is "-100000000000" ok 138 - input object is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $str = $x -> bsstr(); # ok 139 - input value is "-1000000000000" ok 140 - input object is unmodified # # $x = Math::BigInt -> new("-12"); $str = $x -> bsstr(); # ok 141 - input value is "-12" ok 142 - input object is unmodified # # $x = Math::BigInt -> new("-120"); $str = $x -> bsstr(); # ok 143 - input value is "-120" ok 144 - input object is unmodified # # $x = Math::BigInt -> new("-1200"); $str = $x -> bsstr(); # ok 145 - input value is "-1200" ok 146 - input object is unmodified # # $x = Math::BigInt -> new("-12000"); $str = $x -> bsstr(); # ok 147 - input value is "-12000" ok 148 - input object is unmodified # # $x = Math::BigInt -> new("-120000"); $str = $x -> bsstr(); # ok 149 - input value is "-120000" ok 150 - input object is unmodified # # $x = Math::BigInt -> new("-1200000"); $str = $x -> bsstr(); # ok 151 - input value is "-1200000" ok 152 - input object is unmodified # # $x = Math::BigInt -> new("-12000000"); $str = $x -> bsstr(); # ok 153 - input value is "-12000000" ok 154 - input object is unmodified # # $x = Math::BigInt -> new("-120000000"); $str = $x -> bsstr(); # ok 155 - input value is "-120000000" ok 156 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000"); $str = $x -> bsstr(); # ok 157 - input value is "-1200000000" ok 158 - input object is unmodified # # $x = Math::BigInt -> new("-12000000000"); $str = $x -> bsstr(); # ok 159 - input value is "-12000000000" ok 160 - input object is unmodified # # $x = Math::BigInt -> new("-120000000000"); $str = $x -> bsstr(); # ok 161 - input value is "-120000000000" ok 162 - input object is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $str = $x -> bsstr(); # ok 163 - input value is "-1200000000000" ok 164 - input object is unmodified # # $x = Math::BigInt -> new("-123"); $str = $x -> bsstr(); # ok 165 - input value is "-123" ok 166 - input object is unmodified # # $x = Math::BigInt -> new("-1230"); $str = $x -> bsstr(); # ok 167 - input value is "-1230" ok 168 - input object is unmodified # # $x = Math::BigInt -> new("-12300"); $str = $x -> bsstr(); # ok 169 - input value is "-12300" ok 170 - input object is unmodified # # $x = Math::BigInt -> new("-123000"); $str = $x -> bsstr(); # ok 171 - input value is "-123000" ok 172 - input object is unmodified # # $x = Math::BigInt -> new("-1230000"); $str = $x -> bsstr(); # ok 173 - input value is "-1230000" ok 174 - input object is unmodified # # $x = Math::BigInt -> new("-12300000"); $str = $x -> bsstr(); # ok 175 - input value is "-12300000" ok 176 - input object is unmodified # # $x = Math::BigInt -> new("-123000000"); $str = $x -> bsstr(); # ok 177 - input value is "-123000000" ok 178 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000"); $str = $x -> bsstr(); # ok 179 - input value is "-1230000000" ok 180 - input object is unmodified # # $x = Math::BigInt -> new("-12300000000"); $str = $x -> bsstr(); # ok 181 - input value is "-12300000000" ok 182 - input object is unmodified # # $x = Math::BigInt -> new("-123000000000"); $str = $x -> bsstr(); # ok 183 - input value is "-123000000000" ok 184 - input object is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $str = $x -> bsstr(); # ok 185 - input value is "-1230000000000" ok 186 - input object is unmodified # # $x = Math::BigInt -> new("-1234"); $str = $x -> bsstr(); # ok 187 - input value is "-1234" ok 188 - input object is unmodified # # $x = Math::BigInt -> new("-12340"); $str = $x -> bsstr(); # ok 189 - input value is "-12340" ok 190 - input object is unmodified # # $x = Math::BigInt -> new("-123400"); $str = $x -> bsstr(); # ok 191 - input value is "-123400" ok 192 - input object is unmodified # # $x = Math::BigInt -> new("-1234000"); $str = $x -> bsstr(); # ok 193 - input value is "-1234000" ok 194 - input object is unmodified # # $x = Math::BigInt -> new("-12340000"); $str = $x -> bsstr(); # ok 195 - input value is "-12340000" ok 196 - input object is unmodified # # $x = Math::BigInt -> new("-123400000"); $str = $x -> bsstr(); # ok 197 - input value is "-123400000" ok 198 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000"); $str = $x -> bsstr(); # ok 199 - input value is "-1234000000" ok 200 - input object is unmodified # # $x = Math::BigInt -> new("-12340000000"); $str = $x -> bsstr(); # ok 201 - input value is "-12340000000" ok 202 - input object is unmodified # # $x = Math::BigInt -> new("-123400000000"); $str = $x -> bsstr(); # ok 203 - input value is "-123400000000" ok 204 - input object is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $str = $x -> bsstr(); # ok 205 - input value is "-1234000000000" ok 206 - input object is unmodified # # $x = Math::BigInt -> new("-3"); $str = $x -> bsstr(); # ok 207 - input value is "-3" ok 208 - input object is unmodified # # $x = Math::BigInt -> new("-31"); $str = $x -> bsstr(); # ok 209 - input value is "-31" ok 210 - input object is unmodified # # $x = Math::BigInt -> new("-314"); $str = $x -> bsstr(); # ok 211 - input value is "-314" ok 212 - input object is unmodified # # $x = Math::BigInt -> new("-3141"); $str = $x -> bsstr(); # ok 213 - input value is "-3141" ok 214 - input object is unmodified # # $x = Math::BigInt -> new("-31415"); $str = $x -> bsstr(); # ok 215 - input value is "-31415" ok 216 - input object is unmodified # # $x = Math::BigInt -> new("-314159"); $str = $x -> bsstr(); # ok 217 - input value is "-314159" ok 218 - input object is unmodified # # $x = Math::BigInt -> new("-3141592"); $str = $x -> bsstr(); # ok 219 - input value is "-3141592" ok 220 - input object is unmodified ok t/calling-class-methods.t ..................... 1..148 ok 1 - Math::BigInt -> is_zero("1"); ok 2 - Math::BigFloat -> is_zero("1"); ok 3 - Math::BigInt::Test -> is_zero("1"); ok 4 - Math::BigFloat::Test -> is_zero("1"); ok 5 - Math::BigInt -> is_zero("0"); ok 6 - Math::BigFloat -> is_zero("0"); ok 7 - Math::BigInt::Test -> is_zero("0"); ok 8 - Math::BigFloat::Test -> is_zero("0"); ok 9 - Math::BigInt -> is_one("1"); ok 10 - Math::BigFloat -> is_one("1"); ok 11 - Math::BigInt::Test -> is_one("1"); ok 12 - Math::BigFloat::Test -> is_one("1"); ok 13 - Math::BigInt -> is_one("0"); ok 14 - Math::BigFloat -> is_one("0"); ok 15 - Math::BigInt::Test -> is_one("0"); ok 16 - Math::BigFloat::Test -> is_one("0"); ok 17 - Math::BigInt -> is_positive("1"); ok 18 - Math::BigFloat -> is_positive("1"); ok 19 - Math::BigInt::Test -> is_positive("1"); ok 20 - Math::BigFloat::Test -> is_positive("1"); ok 21 - Math::BigInt -> is_positive("-1"); ok 22 - Math::BigFloat -> is_positive("-1"); ok 23 - Math::BigInt::Test -> is_positive("-1"); ok 24 - Math::BigFloat::Test -> is_positive("-1"); ok 25 - Math::BigInt -> is_negative("1"); ok 26 - Math::BigFloat -> is_negative("1"); ok 27 - Math::BigInt::Test -> is_negative("1"); ok 28 - Math::BigFloat::Test -> is_negative("1"); ok 29 - Math::BigInt -> is_negative("-1"); ok 30 - Math::BigFloat -> is_negative("-1"); ok 31 - Math::BigInt::Test -> is_negative("-1"); ok 32 - Math::BigFloat::Test -> is_negative("-1"); ok 33 - Math::BigInt -> is_nan("abc"); ok 34 - Math::BigFloat -> is_nan("abc"); ok 35 - Math::BigInt::Test -> is_nan("abc"); ok 36 - Math::BigFloat::Test -> is_nan("abc"); ok 37 - Math::BigInt -> is_nan("1"); ok 38 - Math::BigFloat -> is_nan("1"); ok 39 - Math::BigInt::Test -> is_nan("1"); ok 40 - Math::BigFloat::Test -> is_nan("1"); ok 41 - Math::BigInt -> is_inf("inf"); ok 42 - Math::BigFloat -> is_inf("inf"); ok 43 - Math::BigInt::Test -> is_inf("inf"); ok 44 - Math::BigFloat::Test -> is_inf("inf"); ok 45 - Math::BigInt -> is_inf("0"); ok 46 - Math::BigFloat -> is_inf("0"); ok 47 - Math::BigInt::Test -> is_inf("0"); ok 48 - Math::BigFloat::Test -> is_inf("0"); ok 49 - Math::BigInt -> bstr("5"); ok 50 - Math::BigFloat -> bstr("5"); ok 51 - Math::BigInt::Test -> bstr("5"); ok 52 - Math::BigFloat::Test -> bstr("5"); ok 53 - Math::BigInt -> bstr("10"); ok 54 - Math::BigFloat -> bstr("10"); ok 55 - Math::BigInt::Test -> bstr("10"); ok 56 - Math::BigFloat::Test -> bstr("10"); ok 57 - Math::BigInt -> bstr("-10"); ok 58 - Math::BigFloat -> bstr("-10"); ok 59 - Math::BigInt::Test -> bstr("-10"); ok 60 - Math::BigFloat::Test -> bstr("-10"); ok 61 - Math::BigInt -> bstr("abc"); ok 62 - Math::BigFloat -> bstr("abc"); ok 63 - Math::BigInt::Test -> bstr("abc"); ok 64 - Math::BigFloat::Test -> bstr("abc"); ok 65 - Math::BigInt -> bstr("+inf"); ok 66 - Math::BigFloat -> bstr("+inf"); ok 67 - Math::BigInt::Test -> bstr("+inf"); ok 68 - Math::BigFloat::Test -> bstr("+inf"); ok 69 - Math::BigInt -> bstr("-inf"); ok 70 - Math::BigFloat -> bstr("-inf"); ok 71 - Math::BigInt::Test -> bstr("-inf"); ok 72 - Math::BigFloat::Test -> bstr("-inf"); ok 73 - Math::BigInt -> bsstr("1"); ok 74 - Math::BigFloat -> bsstr("1"); ok 75 - Math::BigInt::Test -> bsstr("1"); ok 76 - Math::BigFloat::Test -> bsstr("1"); ok 77 - Math::BigInt -> bsstr("0"); ok 78 - Math::BigFloat -> bsstr("0"); ok 79 - Math::BigInt::Test -> bsstr("0"); ok 80 - Math::BigFloat::Test -> bsstr("0"); ok 81 - Math::BigInt -> bsstr("2"); ok 82 - Math::BigFloat -> bsstr("2"); ok 83 - Math::BigInt::Test -> bsstr("2"); ok 84 - Math::BigFloat::Test -> bsstr("2"); ok 85 - Math::BigInt -> bsstr("200"); ok 86 - Math::BigFloat -> bsstr("200"); ok 87 - Math::BigInt::Test -> bsstr("200"); ok 88 - Math::BigFloat::Test -> bsstr("200"); ok 89 - Math::BigInt -> bsstr("-5"); ok 90 - Math::BigFloat -> bsstr("-5"); ok 91 - Math::BigInt::Test -> bsstr("-5"); ok 92 - Math::BigFloat::Test -> bsstr("-5"); ok 93 - Math::BigInt -> bsstr("-100"); ok 94 - Math::BigFloat -> bsstr("-100"); ok 95 - Math::BigInt::Test -> bsstr("-100"); ok 96 - Math::BigFloat::Test -> bsstr("-100"); ok 97 - Math::BigInt -> bsstr("abc"); ok 98 - Math::BigFloat -> bsstr("abc"); ok 99 - Math::BigInt::Test -> bsstr("abc"); ok 100 - Math::BigFloat::Test -> bsstr("abc"); ok 101 - Math::BigInt -> bsstr("+inf"); ok 102 - Math::BigFloat -> bsstr("+inf"); ok 103 - Math::BigInt::Test -> bsstr("+inf"); ok 104 - Math::BigFloat::Test -> bsstr("+inf"); ok 105 - Math::BigInt -> babs("-1"); ok 106 - Math::BigFloat -> babs("-1"); ok 107 - Math::BigInt::Test -> babs("-1"); ok 108 - Math::BigFloat::Test -> babs("-1"); ok 109 - Math::BigInt -> babs("1"); ok 110 - Math::BigFloat -> babs("1"); ok 111 - Math::BigInt::Test -> babs("1"); ok 112 - Math::BigFloat::Test -> babs("1"); ok 113 - Math::BigInt -> bzero(); ok 114 - Math::BigFloat -> bzero(); ok 115 - Math::BigInt::Test -> bzero(); ok 116 - Math::BigFloat::Test -> bzero(); ok 117 - Math::BigInt -> bnan(); ok 118 - Math::BigFloat -> bnan(); ok 119 - Math::BigInt::Test -> bnan(); ok 120 - Math::BigFloat::Test -> bnan(); ok 121 - Math::BigInt -> bnan("abc"); ok 122 - Math::BigFloat -> bnan("abc"); ok 123 - Math::BigInt::Test -> bnan("abc"); ok 124 - Math::BigFloat::Test -> bnan("abc"); ok 125 - Math::BigInt -> bone(); ok 126 - Math::BigFloat -> bone(); ok 127 - Math::BigInt::Test -> bone(); ok 128 - Math::BigFloat::Test -> bone(); ok 129 - Math::BigInt -> bone("+"); ok 130 - Math::BigFloat -> bone("+"); ok 131 - Math::BigInt::Test -> bone("+"); ok 132 - Math::BigFloat::Test -> bone("+"); ok 133 - Math::BigInt -> bone("-"); ok 134 - Math::BigFloat -> bone("-"); ok 135 - Math::BigInt::Test -> bone("-"); ok 136 - Math::BigFloat::Test -> bone("-"); ok 137 - Math::BigInt -> binf(); ok 138 - Math::BigFloat -> binf(); ok 139 - Math::BigInt::Test -> binf(); ok 140 - Math::BigFloat::Test -> binf(); ok 141 - Math::BigInt -> binf("+"); ok 142 - Math::BigFloat -> binf("+"); ok 143 - Math::BigInt::Test -> binf("+"); ok 144 - Math::BigFloat::Test -> binf("+"); ok 145 - Math::BigInt -> binf("-"); ok 146 - Math::BigFloat -> binf("-"); ok 147 - Math::BigInt::Test -> binf("-"); ok 148 - Math::BigFloat::Test -> binf("-"); ok t/calling-instance-methods.t .................. 1..140 ok 1 - Math::BigInt -> new("1") -> is_zero(); ok 2 - Math::BigFloat -> new("1") -> is_zero(); ok 3 - Math::BigInt::Test -> new("1") -> is_zero(); ok 4 - Math::BigFloat::Test -> new("1") -> is_zero(); ok 5 - Math::BigInt -> new("0") -> is_zero(); ok 6 - Math::BigFloat -> new("0") -> is_zero(); ok 7 - Math::BigInt::Test -> new("0") -> is_zero(); ok 8 - Math::BigFloat::Test -> new("0") -> is_zero(); ok 9 - Math::BigInt -> new("1") -> is_one(); ok 10 - Math::BigFloat -> new("1") -> is_one(); ok 11 - Math::BigInt::Test -> new("1") -> is_one(); ok 12 - Math::BigFloat::Test -> new("1") -> is_one(); ok 13 - Math::BigInt -> new("0") -> is_one(); ok 14 - Math::BigFloat -> new("0") -> is_one(); ok 15 - Math::BigInt::Test -> new("0") -> is_one(); ok 16 - Math::BigFloat::Test -> new("0") -> is_one(); ok 17 - Math::BigInt -> new("1") -> is_positive(); ok 18 - Math::BigFloat -> new("1") -> is_positive(); ok 19 - Math::BigInt::Test -> new("1") -> is_positive(); ok 20 - Math::BigFloat::Test -> new("1") -> is_positive(); ok 21 - Math::BigInt -> new("-1") -> is_positive(); ok 22 - Math::BigFloat -> new("-1") -> is_positive(); ok 23 - Math::BigInt::Test -> new("-1") -> is_positive(); ok 24 - Math::BigFloat::Test -> new("-1") -> is_positive(); ok 25 - Math::BigInt -> new("1") -> is_negative(); ok 26 - Math::BigFloat -> new("1") -> is_negative(); ok 27 - Math::BigInt::Test -> new("1") -> is_negative(); ok 28 - Math::BigFloat::Test -> new("1") -> is_negative(); ok 29 - Math::BigInt -> new("-1") -> is_negative(); ok 30 - Math::BigFloat -> new("-1") -> is_negative(); ok 31 - Math::BigInt::Test -> new("-1") -> is_negative(); ok 32 - Math::BigFloat::Test -> new("-1") -> is_negative(); ok 33 - Math::BigInt -> new("abc") -> is_nan(); ok 34 - Math::BigFloat -> new("abc") -> is_nan(); ok 35 - Math::BigInt::Test -> new("abc") -> is_nan(); ok 36 - Math::BigFloat::Test -> new("abc") -> is_nan(); ok 37 - Math::BigInt -> new("1") -> is_nan(); ok 38 - Math::BigFloat -> new("1") -> is_nan(); ok 39 - Math::BigInt::Test -> new("1") -> is_nan(); ok 40 - Math::BigFloat::Test -> new("1") -> is_nan(); ok 41 - Math::BigInt -> new("inf") -> is_inf(); ok 42 - Math::BigFloat -> new("inf") -> is_inf(); ok 43 - Math::BigInt::Test -> new("inf") -> is_inf(); ok 44 - Math::BigFloat::Test -> new("inf") -> is_inf(); ok 45 - Math::BigInt -> new("0") -> is_inf(); ok 46 - Math::BigFloat -> new("0") -> is_inf(); ok 47 - Math::BigInt::Test -> new("0") -> is_inf(); ok 48 - Math::BigFloat::Test -> new("0") -> is_inf(); ok 49 - Math::BigInt -> new("5") -> bstr(); ok 50 - Math::BigFloat -> new("5") -> bstr(); ok 51 - Math::BigInt::Test -> new("5") -> bstr(); ok 52 - Math::BigFloat::Test -> new("5") -> bstr(); ok 53 - Math::BigInt -> new("10") -> bstr(); ok 54 - Math::BigFloat -> new("10") -> bstr(); ok 55 - Math::BigInt::Test -> new("10") -> bstr(); ok 56 - Math::BigFloat::Test -> new("10") -> bstr(); ok 57 - Math::BigInt -> new("-10") -> bstr(); ok 58 - Math::BigFloat -> new("-10") -> bstr(); ok 59 - Math::BigInt::Test -> new("-10") -> bstr(); ok 60 - Math::BigFloat::Test -> new("-10") -> bstr(); ok 61 - Math::BigInt -> new("abc") -> bstr(); ok 62 - Math::BigFloat -> new("abc") -> bstr(); ok 63 - Math::BigInt::Test -> new("abc") -> bstr(); ok 64 - Math::BigFloat::Test -> new("abc") -> bstr(); ok 65 - Math::BigInt -> new("+inf") -> bstr(); ok 66 - Math::BigFloat -> new("+inf") -> bstr(); ok 67 - Math::BigInt::Test -> new("+inf") -> bstr(); ok 68 - Math::BigFloat::Test -> new("+inf") -> bstr(); ok 69 - Math::BigInt -> new("-inf") -> bstr(); ok 70 - Math::BigFloat -> new("-inf") -> bstr(); ok 71 - Math::BigInt::Test -> new("-inf") -> bstr(); ok 72 - Math::BigFloat::Test -> new("-inf") -> bstr(); ok 73 - Math::BigInt -> new("1") -> bsstr(); ok 74 - Math::BigFloat -> new("1") -> bsstr(); ok 75 - Math::BigInt::Test -> new("1") -> bsstr(); ok 76 - Math::BigFloat::Test -> new("1") -> bsstr(); ok 77 - Math::BigInt -> new("0") -> bsstr(); ok 78 - Math::BigFloat -> new("0") -> bsstr(); ok 79 - Math::BigInt::Test -> new("0") -> bsstr(); ok 80 - Math::BigFloat::Test -> new("0") -> bsstr(); ok 81 - Math::BigInt -> new("2") -> bsstr(); ok 82 - Math::BigFloat -> new("2") -> bsstr(); ok 83 - Math::BigInt::Test -> new("2") -> bsstr(); ok 84 - Math::BigFloat::Test -> new("2") -> bsstr(); ok 85 - Math::BigInt -> new("200") -> bsstr(); ok 86 - Math::BigFloat -> new("200") -> bsstr(); ok 87 - Math::BigInt::Test -> new("200") -> bsstr(); ok 88 - Math::BigFloat::Test -> new("200") -> bsstr(); ok 89 - Math::BigInt -> new("-5") -> bsstr(); ok 90 - Math::BigFloat -> new("-5") -> bsstr(); ok 91 - Math::BigInt::Test -> new("-5") -> bsstr(); ok 92 - Math::BigFloat::Test -> new("-5") -> bsstr(); ok 93 - Math::BigInt -> new("-100") -> bsstr(); ok 94 - Math::BigFloat -> new("-100") -> bsstr(); ok 95 - Math::BigInt::Test -> new("-100") -> bsstr(); ok 96 - Math::BigFloat::Test -> new("-100") -> bsstr(); ok 97 - Math::BigInt -> new("abc") -> bsstr(); ok 98 - Math::BigFloat -> new("abc") -> bsstr(); ok 99 - Math::BigInt::Test -> new("abc") -> bsstr(); ok 100 - Math::BigFloat::Test -> new("abc") -> bsstr(); ok 101 - Math::BigInt -> new("+inf") -> bsstr(); ok 102 - Math::BigFloat -> new("+inf") -> bsstr(); ok 103 - Math::BigInt::Test -> new("+inf") -> bsstr(); ok 104 - Math::BigFloat::Test -> new("+inf") -> bsstr(); ok 105 - Math::BigInt -> new("-1") -> babs(); ok 106 - Math::BigFloat -> new("-1") -> babs(); ok 107 - Math::BigInt::Test -> new("-1") -> babs(); ok 108 - Math::BigFloat::Test -> new("-1") -> babs(); ok 109 - Math::BigInt -> new("1") -> babs(); ok 110 - Math::BigFloat -> new("1") -> babs(); ok 111 - Math::BigInt::Test -> new("1") -> babs(); ok 112 - Math::BigFloat::Test -> new("1") -> babs(); ok 113 - Math::BigInt -> new("-2") -> bnot(); ok 114 - Math::BigFloat -> new("-2") -> bnot(); ok 115 - Math::BigInt::Test -> new("-2") -> bnot(); ok 116 - Math::BigFloat::Test -> new("-2") -> bnot(); ok 117 - Math::BigInt -> new("1") -> bnot(); ok 118 - Math::BigFloat -> new("1") -> bnot(); ok 119 - Math::BigInt::Test -> new("1") -> bnot(); ok 120 - Math::BigFloat::Test -> new("1") -> bnot(); ok 121 - Math::BigInt -> new() -> bzero(); ok 122 - Math::BigFloat -> new() -> bzero(); ok 123 - Math::BigInt::Test -> new() -> bzero(); ok 124 - Math::BigFloat::Test -> new() -> bzero(); ok 125 - Math::BigInt -> new() -> bnan(); ok 126 - Math::BigFloat -> new() -> bnan(); ok 127 - Math::BigInt::Test -> new() -> bnan(); ok 128 - Math::BigFloat::Test -> new() -> bnan(); ok 129 - Math::BigInt -> new("abc") -> bnan(); ok 130 - Math::BigFloat -> new("abc") -> bnan(); ok 131 - Math::BigInt::Test -> new("abc") -> bnan(); ok 132 - Math::BigFloat::Test -> new("abc") -> bnan(); ok 133 - Math::BigInt -> new() -> bone(); ok 134 - Math::BigFloat -> new() -> bone(); ok 135 - Math::BigInt::Test -> new() -> bone(); ok 136 - Math::BigFloat::Test -> new() -> bone(); ok 137 - Math::BigInt -> new() -> binf(); ok 138 - Math::BigFloat -> new() -> binf(); ok 139 - Math::BigInt::Test -> new() -> binf(); ok 140 - Math::BigFloat::Test -> new() -> binf(); ok t/calling.t ................................... 1..5 ok 1 - use Math::BigInt (1.9998071); $x = $class->new(123); $x = "$x"; ok 2 - use Math::BigInt (1.999807, "try", "foo, bar, "); Math::BigInt->config('lib'); ok 3 - use Math::BigInt (1.999807, "bgcd", ":constant"); $x = 2**150; bgcd($x); $x = "$x"; ok 4 - use Math::BigInt (1.999807, "lib", "Scalar"); $x = 2**10; $x = "$x"; ok 5 - use Math::BigInt (1.999807, "lib", "Math::BigInt::Scalar"); $x = 2**10; $x = "$x"; ok t/config.t .................................... 1..55 ok 1 - Math::BigInt->can('config') ok 2 - ref() of output from $mbi->config() ok 3 - lib ok 4 - lib_version ok 5 - class ok 6 - upgrade ok 7 - div_Scale ok 8 - precision ok 9 - accuracy ok 10 - round_mode ok 11 - trap_nan ok 12 - trap_inf ok 13 - config("lib") ok 14 - can set "trap_nan" via hash ref ok 15 - Math::BigFloat->can('config') ok 16 - ref() of output from $mbf->config() ok 17 - lib ok 18 - with ok 19 - lib_version ok 20 - class ok 21 - upgrade ok 22 - div_Scale ok 23 - precision ok 24 - accuracy ok 25 - round_mode ok 26 - trap_nan ok 27 - trap_inf ok 28 - config("lib") ok 29 - can set "trap_nan" via hash ref ok 30 - div_scale = 100 ok 31 - div_scale ne $c->{div_scale} ok 32 - div_scale = 100 ok 33 - precision = 3 ok 34 - precision ne $c->{precision} ok 35 - precision = 3 ok 36 - accuracy = 2 ok 37 - accuracy ne $c->{accuracy} ok 38 - accuracy = 2 ok 39 - round_mode = zero ok 40 - round_mode ne $c->{round_mode} ok 41 - round_mode = zero ok 42 - trap_inf = 1 ok 43 - trap_inf ne $c->{trap_inf} ok 44 - trap_inf = 1 ok 45 - upgrade = Math::BigInt::SomeClass ok 46 - upgrade ne $c->{upgrade} ok 47 - upgrade = Math::BigInt::SomeClass ok 48 - downgrade = Math::BigInt::SomeClass ok 49 - downgrade ne $c->{downgrade} ok 50 - downgrade = Math::BigInt::SomeClass ok 51 - trap_nan = 1 ok 52 - trap_nan ne $c->{trap_nan} ok 53 - trap_nan = 1 ok 54 - Passing invalid key to Math::BigInt->config() causes an error. ok 55 - Passing invalid key to Math::BigFloat->config() causes an error. ok t/const_mbf.t ................................. 1..2 ok 1 - 1.0 / 3.0 = 0.3333333333333333333333333333333333333333 ok 2 - 2 ** 2 is a scalar ok t/constant.t .................................. 1..7 ok 1 - 2 ** 255 ok 2 - hexadecimal constant 0x123456789012345678901234567890 ok 3 - binary constant 0b01010100011001010110110001110011010010010110000101101101 ok 4 - 1.0 / 3.0 = 0.3333333333333333333333333333333333333333 ok 5 - Math::BigFloat->import(qw/:constant/); ok 6 - Math::BigFloat->import(qw/:constant upgrade Math::BigRat/); ok 7 - Math::BigFloat->import(qw/upgrade Math::BigRat :constant/); ok t/downgrade.t ................................. 1..15 ok 1 - Math::BigFloat->downgrade() ok 2 - Math::BigFloat->upgrade() ok 3 - ref(Math::BigFloat->new("inf")) ok 4 - ref(Math::BigFloat->new("-inf")) ok 5 - ref(Math::BigFloat->new("NaN")) ok 6 - ref(Math::BigFloat->new("0")) ok 7 - ref(Math::BigFloat->new("1")) ok 8 - ref(Math::BigFloat->new("10")) ok 9 - ref(Math::BigFloat->new("-10")) ok 10 - ref(Math::BigFloat->new("-10.0E1")) ok 11 - Math::BigFloat->new("0.2E0") ok 12 - Math::BigFloat->new("0.2E1") ok 13 - Math::BigFloat->new("0.2E2") ok 14 - Math::BigFloat->upgrade() || "" ok 15 - Math::BigFloat->bpow("2", "0.5") ok t/dparts-mbf.t ................................ 1..1840 # # $x = Math::BigFloat -> new("NaN"); ($i, $f) = $x -> dparts(); # ok 1 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 2 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 3 - value of integer part ok 4 - value of fraction part ok 5 - input is unmodified # # $x = Math::BigFloat -> new("NaN"); $i = $x -> dparts(); # ok 6 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 7 - value of integer part ok 8 - input is unmodified # # $x = Math::BigFloat -> new("inf"); ($i, $f) = $x -> dparts(); # ok 9 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 10 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 11 - value of integer part ok 12 - value of fraction part ok 13 - input is unmodified # # $x = Math::BigFloat -> new("inf"); $i = $x -> dparts(); # ok 14 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 15 - value of integer part ok 16 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); ($i, $f) = $x -> dparts(); # ok 17 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 18 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 19 - value of integer part ok 20 - value of fraction part ok 21 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); $i = $x -> dparts(); # ok 22 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 23 - value of integer part ok 24 - input is unmodified # # $x = Math::BigFloat -> new("0"); ($i, $f) = $x -> dparts(); # ok 25 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 26 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 27 - value of integer part ok 28 - value of fraction part ok 29 - input is unmodified # # $x = Math::BigFloat -> new("0"); $i = $x -> dparts(); # ok 30 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 31 - value of integer part ok 32 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); ($i, $f) = $x -> dparts(); # ok 33 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 34 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 35 - value of integer part ok 36 - value of fraction part ok 37 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $i = $x -> dparts(); # ok 38 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 39 - value of integer part ok 40 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); ($i, $f) = $x -> dparts(); # ok 41 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 42 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 43 - value of integer part ok 44 - value of fraction part ok 45 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $i = $x -> dparts(); # ok 46 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 47 - value of integer part ok 48 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); ($i, $f) = $x -> dparts(); # ok 49 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 50 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 51 - value of integer part ok 52 - value of fraction part ok 53 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $i = $x -> dparts(); # ok 54 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 55 - value of integer part ok 56 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); ($i, $f) = $x -> dparts(); # ok 57 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 58 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 59 - value of integer part ok 60 - value of fraction part ok 61 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $i = $x -> dparts(); # ok 62 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 63 - value of integer part ok 64 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); ($i, $f) = $x -> dparts(); # ok 65 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 66 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 67 - value of integer part ok 68 - value of fraction part ok 69 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $i = $x -> dparts(); # ok 70 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 71 - value of integer part ok 72 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); ($i, $f) = $x -> dparts(); # ok 73 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 74 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 75 - value of integer part ok 76 - value of fraction part ok 77 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $i = $x -> dparts(); # ok 78 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 79 - value of integer part ok 80 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); ($i, $f) = $x -> dparts(); # ok 81 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 82 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 83 - value of integer part ok 84 - value of fraction part ok 85 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); $i = $x -> dparts(); # ok 86 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 87 - value of integer part ok 88 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); ($i, $f) = $x -> dparts(); # ok 89 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 90 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 91 - value of integer part ok 92 - value of fraction part ok 93 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); $i = $x -> dparts(); # ok 94 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 95 - value of integer part ok 96 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); ($i, $f) = $x -> dparts(); # ok 97 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 98 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 99 - value of integer part ok 100 - value of fraction part ok 101 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); $i = $x -> dparts(); # ok 102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 103 - value of integer part ok 104 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); ($i, $f) = $x -> dparts(); # ok 105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 107 - value of integer part ok 108 - value of fraction part ok 109 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); $i = $x -> dparts(); # ok 110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 111 - value of integer part ok 112 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); ($i, $f) = $x -> dparts(); # ok 113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 115 - value of integer part ok 116 - value of fraction part ok 117 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); $i = $x -> dparts(); # ok 118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 119 - value of integer part ok 120 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); ($i, $f) = $x -> dparts(); # ok 121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 123 - value of integer part ok 124 - value of fraction part ok 125 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); $i = $x -> dparts(); # ok 126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 127 - value of integer part ok 128 - input is unmodified # # $x = Math::BigFloat -> new("1"); ($i, $f) = $x -> dparts(); # ok 129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 131 - value of integer part ok 132 - value of fraction part ok 133 - input is unmodified # # $x = Math::BigFloat -> new("1"); $i = $x -> dparts(); # ok 134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 135 - value of integer part ok 136 - input is unmodified # # $x = Math::BigFloat -> new("10"); ($i, $f) = $x -> dparts(); # ok 137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 139 - value of integer part ok 140 - value of fraction part ok 141 - input is unmodified # # $x = Math::BigFloat -> new("10"); $i = $x -> dparts(); # ok 142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 143 - value of integer part ok 144 - input is unmodified # # $x = Math::BigFloat -> new("100"); ($i, $f) = $x -> dparts(); # ok 145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 147 - value of integer part ok 148 - value of fraction part ok 149 - input is unmodified # # $x = Math::BigFloat -> new("100"); $i = $x -> dparts(); # ok 150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 151 - value of integer part ok 152 - input is unmodified # # $x = Math::BigFloat -> new("1000"); ($i, $f) = $x -> dparts(); # ok 153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 155 - value of integer part ok 156 - value of fraction part ok 157 - input is unmodified # # $x = Math::BigFloat -> new("1000"); $i = $x -> dparts(); # ok 158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 159 - value of integer part ok 160 - input is unmodified # # $x = Math::BigFloat -> new("10000"); ($i, $f) = $x -> dparts(); # ok 161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 163 - value of integer part ok 164 - value of fraction part ok 165 - input is unmodified # # $x = Math::BigFloat -> new("10000"); $i = $x -> dparts(); # ok 166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 167 - value of integer part ok 168 - input is unmodified # # $x = Math::BigFloat -> new("100000"); ($i, $f) = $x -> dparts(); # ok 169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 171 - value of integer part ok 172 - value of fraction part ok 173 - input is unmodified # # $x = Math::BigFloat -> new("100000"); $i = $x -> dparts(); # ok 174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 175 - value of integer part ok 176 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); ($i, $f) = $x -> dparts(); # ok 177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 179 - value of integer part ok 180 - value of fraction part ok 181 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); $i = $x -> dparts(); # ok 182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 183 - value of integer part ok 184 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); ($i, $f) = $x -> dparts(); # ok 185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 187 - value of integer part ok 188 - value of fraction part ok 189 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); $i = $x -> dparts(); # ok 190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 191 - value of integer part ok 192 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); ($i, $f) = $x -> dparts(); # ok 193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 195 - value of integer part ok 196 - value of fraction part ok 197 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); $i = $x -> dparts(); # ok 198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 199 - value of integer part ok 200 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); ($i, $f) = $x -> dparts(); # ok 201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 203 - value of integer part ok 204 - value of fraction part ok 205 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); $i = $x -> dparts(); # ok 206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 207 - value of integer part ok 208 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); ($i, $f) = $x -> dparts(); # ok 209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 211 - value of integer part ok 212 - value of fraction part ok 213 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); $i = $x -> dparts(); # ok 214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 215 - value of integer part ok 216 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); ($i, $f) = $x -> dparts(); # ok 217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 219 - value of integer part ok 220 - value of fraction part ok 221 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); $i = $x -> dparts(); # ok 222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 223 - value of integer part ok 224 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); ($i, $f) = $x -> dparts(); # ok 225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 227 - value of integer part ok 228 - value of fraction part ok 229 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $i = $x -> dparts(); # ok 230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 231 - value of integer part ok 232 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); ($i, $f) = $x -> dparts(); # ok 233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 235 - value of integer part ok 236 - value of fraction part ok 237 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $i = $x -> dparts(); # ok 238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 239 - value of integer part ok 240 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); ($i, $f) = $x -> dparts(); # ok 241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 243 - value of integer part ok 244 - value of fraction part ok 245 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $i = $x -> dparts(); # ok 246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 247 - value of integer part ok 248 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); ($i, $f) = $x -> dparts(); # ok 249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 251 - value of integer part ok 252 - value of fraction part ok 253 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $i = $x -> dparts(); # ok 254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 255 - value of integer part ok 256 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); ($i, $f) = $x -> dparts(); # ok 257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 259 - value of integer part ok 260 - value of fraction part ok 261 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $i = $x -> dparts(); # ok 262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 263 - value of integer part ok 264 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); ($i, $f) = $x -> dparts(); # ok 265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 267 - value of integer part ok 268 - value of fraction part ok 269 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $i = $x -> dparts(); # ok 270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 271 - value of integer part ok 272 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); ($i, $f) = $x -> dparts(); # ok 273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 275 - value of integer part ok 276 - value of fraction part ok 277 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $i = $x -> dparts(); # ok 278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 279 - value of integer part ok 280 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); ($i, $f) = $x -> dparts(); # ok 281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 283 - value of integer part ok 284 - value of fraction part ok 285 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $i = $x -> dparts(); # ok 286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 287 - value of integer part ok 288 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); ($i, $f) = $x -> dparts(); # ok 289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 291 - value of integer part ok 292 - value of fraction part ok 293 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); $i = $x -> dparts(); # ok 294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 295 - value of integer part ok 296 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); ($i, $f) = $x -> dparts(); # ok 297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 299 - value of integer part ok 300 - value of fraction part ok 301 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); $i = $x -> dparts(); # ok 302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 303 - value of integer part ok 304 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); ($i, $f) = $x -> dparts(); # ok 305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 307 - value of integer part ok 308 - value of fraction part ok 309 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); $i = $x -> dparts(); # ok 310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 311 - value of integer part ok 312 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); ($i, $f) = $x -> dparts(); # ok 313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 315 - value of integer part ok 316 - value of fraction part ok 317 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); $i = $x -> dparts(); # ok 318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 319 - value of integer part ok 320 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); ($i, $f) = $x -> dparts(); # ok 321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 323 - value of integer part ok 324 - value of fraction part ok 325 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); $i = $x -> dparts(); # ok 326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 327 - value of integer part ok 328 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); ($i, $f) = $x -> dparts(); # ok 329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 331 - value of integer part ok 332 - value of fraction part ok 333 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); $i = $x -> dparts(); # ok 334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 335 - value of integer part ok 336 - input is unmodified # # $x = Math::BigFloat -> new("12"); ($i, $f) = $x -> dparts(); # ok 337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 339 - value of integer part ok 340 - value of fraction part ok 341 - input is unmodified # # $x = Math::BigFloat -> new("12"); $i = $x -> dparts(); # ok 342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 343 - value of integer part ok 344 - input is unmodified # # $x = Math::BigFloat -> new("120"); ($i, $f) = $x -> dparts(); # ok 345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 347 - value of integer part ok 348 - value of fraction part ok 349 - input is unmodified # # $x = Math::BigFloat -> new("120"); $i = $x -> dparts(); # ok 350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 351 - value of integer part ok 352 - input is unmodified # # $x = Math::BigFloat -> new("1200"); ($i, $f) = $x -> dparts(); # ok 353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 355 - value of integer part ok 356 - value of fraction part ok 357 - input is unmodified # # $x = Math::BigFloat -> new("1200"); $i = $x -> dparts(); # ok 358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 359 - value of integer part ok 360 - input is unmodified # # $x = Math::BigFloat -> new("12000"); ($i, $f) = $x -> dparts(); # ok 361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 363 - value of integer part ok 364 - value of fraction part ok 365 - input is unmodified # # $x = Math::BigFloat -> new("12000"); $i = $x -> dparts(); # ok 366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 367 - value of integer part ok 368 - input is unmodified # # $x = Math::BigFloat -> new("120000"); ($i, $f) = $x -> dparts(); # ok 369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 371 - value of integer part ok 372 - value of fraction part ok 373 - input is unmodified # # $x = Math::BigFloat -> new("120000"); $i = $x -> dparts(); # ok 374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 375 - value of integer part ok 376 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); ($i, $f) = $x -> dparts(); # ok 377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 379 - value of integer part ok 380 - value of fraction part ok 381 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); $i = $x -> dparts(); # ok 382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 383 - value of integer part ok 384 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); ($i, $f) = $x -> dparts(); # ok 385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 387 - value of integer part ok 388 - value of fraction part ok 389 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); $i = $x -> dparts(); # ok 390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 391 - value of integer part ok 392 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); ($i, $f) = $x -> dparts(); # ok 393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 395 - value of integer part ok 396 - value of fraction part ok 397 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); $i = $x -> dparts(); # ok 398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 399 - value of integer part ok 400 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); ($i, $f) = $x -> dparts(); # ok 401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 403 - value of integer part ok 404 - value of fraction part ok 405 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); $i = $x -> dparts(); # ok 406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 407 - value of integer part ok 408 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); ($i, $f) = $x -> dparts(); # ok 409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 411 - value of integer part ok 412 - value of fraction part ok 413 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); $i = $x -> dparts(); # ok 414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 415 - value of integer part ok 416 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); ($i, $f) = $x -> dparts(); # ok 417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 419 - value of integer part ok 420 - value of fraction part ok 421 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); $i = $x -> dparts(); # ok 422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 423 - value of integer part ok 424 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); ($i, $f) = $x -> dparts(); # ok 425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 427 - value of integer part ok 428 - value of fraction part ok 429 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $i = $x -> dparts(); # ok 430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 431 - value of integer part ok 432 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); ($i, $f) = $x -> dparts(); # ok 433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 435 - value of integer part ok 436 - value of fraction part ok 437 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $i = $x -> dparts(); # ok 438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 439 - value of integer part ok 440 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); ($i, $f) = $x -> dparts(); # ok 441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 443 - value of integer part ok 444 - value of fraction part ok 445 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $i = $x -> dparts(); # ok 446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 447 - value of integer part ok 448 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); ($i, $f) = $x -> dparts(); # ok 449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 451 - value of integer part ok 452 - value of fraction part ok 453 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $i = $x -> dparts(); # ok 454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 455 - value of integer part ok 456 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); ($i, $f) = $x -> dparts(); # ok 457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 459 - value of integer part ok 460 - value of fraction part ok 461 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $i = $x -> dparts(); # ok 462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 463 - value of integer part ok 464 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); ($i, $f) = $x -> dparts(); # ok 465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 467 - value of integer part ok 468 - value of fraction part ok 469 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $i = $x -> dparts(); # ok 470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 471 - value of integer part ok 472 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); ($i, $f) = $x -> dparts(); # ok 473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 475 - value of integer part ok 476 - value of fraction part ok 477 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $i = $x -> dparts(); # ok 478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 479 - value of integer part ok 480 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); ($i, $f) = $x -> dparts(); # ok 481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 483 - value of integer part ok 484 - value of fraction part ok 485 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $i = $x -> dparts(); # ok 486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 487 - value of integer part ok 488 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); ($i, $f) = $x -> dparts(); # ok 489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 491 - value of integer part ok 492 - value of fraction part ok 493 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $i = $x -> dparts(); # ok 494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 495 - value of integer part ok 496 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); ($i, $f) = $x -> dparts(); # ok 497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 499 - value of integer part ok 500 - value of fraction part ok 501 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); $i = $x -> dparts(); # ok 502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 503 - value of integer part ok 504 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); ($i, $f) = $x -> dparts(); # ok 505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 507 - value of integer part ok 508 - value of fraction part ok 509 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); $i = $x -> dparts(); # ok 510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 511 - value of integer part ok 512 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); ($i, $f) = $x -> dparts(); # ok 513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 515 - value of integer part ok 516 - value of fraction part ok 517 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); $i = $x -> dparts(); # ok 518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 519 - value of integer part ok 520 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); ($i, $f) = $x -> dparts(); # ok 521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 523 - value of integer part ok 524 - value of fraction part ok 525 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); $i = $x -> dparts(); # ok 526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 527 - value of integer part ok 528 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); ($i, $f) = $x -> dparts(); # ok 529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 531 - value of integer part ok 532 - value of fraction part ok 533 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); $i = $x -> dparts(); # ok 534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 535 - value of integer part ok 536 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); ($i, $f) = $x -> dparts(); # ok 537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 539 - value of integer part ok 540 - value of fraction part ok 541 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); $i = $x -> dparts(); # ok 542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 543 - value of integer part ok 544 - input is unmodified # # $x = Math::BigFloat -> new("123"); ($i, $f) = $x -> dparts(); # ok 545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 547 - value of integer part ok 548 - value of fraction part ok 549 - input is unmodified # # $x = Math::BigFloat -> new("123"); $i = $x -> dparts(); # ok 550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 551 - value of integer part ok 552 - input is unmodified # # $x = Math::BigFloat -> new("1230"); ($i, $f) = $x -> dparts(); # ok 553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 555 - value of integer part ok 556 - value of fraction part ok 557 - input is unmodified # # $x = Math::BigFloat -> new("1230"); $i = $x -> dparts(); # ok 558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 559 - value of integer part ok 560 - input is unmodified # # $x = Math::BigFloat -> new("12300"); ($i, $f) = $x -> dparts(); # ok 561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 563 - value of integer part ok 564 - value of fraction part ok 565 - input is unmodified # # $x = Math::BigFloat -> new("12300"); $i = $x -> dparts(); # ok 566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 567 - value of integer part ok 568 - input is unmodified # # $x = Math::BigFloat -> new("123000"); ($i, $f) = $x -> dparts(); # ok 569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 571 - value of integer part ok 572 - value of fraction part ok 573 - input is unmodified # # $x = Math::BigFloat -> new("123000"); $i = $x -> dparts(); # ok 574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 575 - value of integer part ok 576 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); ($i, $f) = $x -> dparts(); # ok 577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 579 - value of integer part ok 580 - value of fraction part ok 581 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); $i = $x -> dparts(); # ok 582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 583 - value of integer part ok 584 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); ($i, $f) = $x -> dparts(); # ok 585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 587 - value of integer part ok 588 - value of fraction part ok 589 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); $i = $x -> dparts(); # ok 590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 591 - value of integer part ok 592 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); ($i, $f) = $x -> dparts(); # ok 593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 595 - value of integer part ok 596 - value of fraction part ok 597 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); $i = $x -> dparts(); # ok 598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 599 - value of integer part ok 600 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); ($i, $f) = $x -> dparts(); # ok 601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 603 - value of integer part ok 604 - value of fraction part ok 605 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); $i = $x -> dparts(); # ok 606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 607 - value of integer part ok 608 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); ($i, $f) = $x -> dparts(); # ok 609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 611 - value of integer part ok 612 - value of fraction part ok 613 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); $i = $x -> dparts(); # ok 614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 615 - value of integer part ok 616 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); ($i, $f) = $x -> dparts(); # ok 617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 619 - value of integer part ok 620 - value of fraction part ok 621 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); $i = $x -> dparts(); # ok 622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 623 - value of integer part ok 624 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); ($i, $f) = $x -> dparts(); # ok 625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 627 - value of integer part ok 628 - value of fraction part ok 629 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $i = $x -> dparts(); # ok 630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 631 - value of integer part ok 632 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); ($i, $f) = $x -> dparts(); # ok 633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 635 - value of integer part ok 636 - value of fraction part ok 637 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $i = $x -> dparts(); # ok 638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 639 - value of integer part ok 640 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); ($i, $f) = $x -> dparts(); # ok 641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 643 - value of integer part ok 644 - value of fraction part ok 645 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $i = $x -> dparts(); # ok 646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 647 - value of integer part ok 648 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); ($i, $f) = $x -> dparts(); # ok 649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 651 - value of integer part ok 652 - value of fraction part ok 653 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $i = $x -> dparts(); # ok 654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 655 - value of integer part ok 656 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); ($i, $f) = $x -> dparts(); # ok 657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 659 - value of integer part ok 660 - value of fraction part ok 661 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $i = $x -> dparts(); # ok 662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 663 - value of integer part ok 664 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); ($i, $f) = $x -> dparts(); # ok 665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 667 - value of integer part ok 668 - value of fraction part ok 669 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $i = $x -> dparts(); # ok 670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 671 - value of integer part ok 672 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); ($i, $f) = $x -> dparts(); # ok 673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 675 - value of integer part ok 676 - value of fraction part ok 677 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $i = $x -> dparts(); # ok 678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 679 - value of integer part ok 680 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); ($i, $f) = $x -> dparts(); # ok 681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 683 - value of integer part ok 684 - value of fraction part ok 685 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $i = $x -> dparts(); # ok 686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 687 - value of integer part ok 688 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); ($i, $f) = $x -> dparts(); # ok 689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 691 - value of integer part ok 692 - value of fraction part ok 693 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $i = $x -> dparts(); # ok 694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 695 - value of integer part ok 696 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); ($i, $f) = $x -> dparts(); # ok 697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 699 - value of integer part ok 700 - value of fraction part ok 701 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $i = $x -> dparts(); # ok 702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 703 - value of integer part ok 704 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); ($i, $f) = $x -> dparts(); # ok 705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 707 - value of integer part ok 708 - value of fraction part ok 709 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); $i = $x -> dparts(); # ok 710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 711 - value of integer part ok 712 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); ($i, $f) = $x -> dparts(); # ok 713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 715 - value of integer part ok 716 - value of fraction part ok 717 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); $i = $x -> dparts(); # ok 718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 719 - value of integer part ok 720 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); ($i, $f) = $x -> dparts(); # ok 721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 723 - value of integer part ok 724 - value of fraction part ok 725 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); $i = $x -> dparts(); # ok 726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 727 - value of integer part ok 728 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); ($i, $f) = $x -> dparts(); # ok 729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 731 - value of integer part ok 732 - value of fraction part ok 733 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); $i = $x -> dparts(); # ok 734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 735 - value of integer part ok 736 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); ($i, $f) = $x -> dparts(); # ok 737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 739 - value of integer part ok 740 - value of fraction part ok 741 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); $i = $x -> dparts(); # ok 742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 743 - value of integer part ok 744 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); ($i, $f) = $x -> dparts(); # ok 745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 747 - value of integer part ok 748 - value of fraction part ok 749 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); $i = $x -> dparts(); # ok 750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 751 - value of integer part ok 752 - input is unmodified # # $x = Math::BigFloat -> new("1234"); ($i, $f) = $x -> dparts(); # ok 753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 755 - value of integer part ok 756 - value of fraction part ok 757 - input is unmodified # # $x = Math::BigFloat -> new("1234"); $i = $x -> dparts(); # ok 758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 759 - value of integer part ok 760 - input is unmodified # # $x = Math::BigFloat -> new("12340"); ($i, $f) = $x -> dparts(); # ok 761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 763 - value of integer part ok 764 - value of fraction part ok 765 - input is unmodified # # $x = Math::BigFloat -> new("12340"); $i = $x -> dparts(); # ok 766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 767 - value of integer part ok 768 - input is unmodified # # $x = Math::BigFloat -> new("123400"); ($i, $f) = $x -> dparts(); # ok 769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 771 - value of integer part ok 772 - value of fraction part ok 773 - input is unmodified # # $x = Math::BigFloat -> new("123400"); $i = $x -> dparts(); # ok 774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 775 - value of integer part ok 776 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); ($i, $f) = $x -> dparts(); # ok 777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 779 - value of integer part ok 780 - value of fraction part ok 781 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); $i = $x -> dparts(); # ok 782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 783 - value of integer part ok 784 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); ($i, $f) = $x -> dparts(); # ok 785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 787 - value of integer part ok 788 - value of fraction part ok 789 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); $i = $x -> dparts(); # ok 790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 791 - value of integer part ok 792 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); ($i, $f) = $x -> dparts(); # ok 793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 795 - value of integer part ok 796 - value of fraction part ok 797 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); $i = $x -> dparts(); # ok 798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 799 - value of integer part ok 800 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); ($i, $f) = $x -> dparts(); # ok 801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 803 - value of integer part ok 804 - value of fraction part ok 805 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); $i = $x -> dparts(); # ok 806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 807 - value of integer part ok 808 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); ($i, $f) = $x -> dparts(); # ok 809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 811 - value of integer part ok 812 - value of fraction part ok 813 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); $i = $x -> dparts(); # ok 814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 815 - value of integer part ok 816 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); ($i, $f) = $x -> dparts(); # ok 817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 819 - value of integer part ok 820 - value of fraction part ok 821 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); $i = $x -> dparts(); # ok 822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 823 - value of integer part ok 824 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); ($i, $f) = $x -> dparts(); # ok 825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 827 - value of integer part ok 828 - value of fraction part ok 829 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $i = $x -> dparts(); # ok 830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 831 - value of integer part ok 832 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); ($i, $f) = $x -> dparts(); # ok 833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 835 - value of integer part ok 836 - value of fraction part ok 837 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $i = $x -> dparts(); # ok 838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 839 - value of integer part ok 840 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); ($i, $f) = $x -> dparts(); # ok 841 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 842 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 843 - value of integer part ok 844 - value of fraction part ok 845 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $i = $x -> dparts(); # ok 846 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 847 - value of integer part ok 848 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); ($i, $f) = $x -> dparts(); # ok 849 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 850 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 851 - value of integer part ok 852 - value of fraction part ok 853 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $i = $x -> dparts(); # ok 854 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 855 - value of integer part ok 856 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); ($i, $f) = $x -> dparts(); # ok 857 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 858 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 859 - value of integer part ok 860 - value of fraction part ok 861 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $i = $x -> dparts(); # ok 862 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 863 - value of integer part ok 864 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); ($i, $f) = $x -> dparts(); # ok 865 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 866 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 867 - value of integer part ok 868 - value of fraction part ok 869 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $i = $x -> dparts(); # ok 870 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 871 - value of integer part ok 872 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); ($i, $f) = $x -> dparts(); # ok 873 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 874 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 875 - value of integer part ok 876 - value of fraction part ok 877 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $i = $x -> dparts(); # ok 878 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 879 - value of integer part ok 880 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); ($i, $f) = $x -> dparts(); # ok 881 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 882 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 883 - value of integer part ok 884 - value of fraction part ok 885 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); $i = $x -> dparts(); # ok 886 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 887 - value of integer part ok 888 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); ($i, $f) = $x -> dparts(); # ok 889 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 890 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 891 - value of integer part ok 892 - value of fraction part ok 893 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); $i = $x -> dparts(); # ok 894 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 895 - value of integer part ok 896 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); ($i, $f) = $x -> dparts(); # ok 897 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 898 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 899 - value of integer part ok 900 - value of fraction part ok 901 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); $i = $x -> dparts(); # ok 902 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 903 - value of integer part ok 904 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); ($i, $f) = $x -> dparts(); # ok 905 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 906 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 907 - value of integer part ok 908 - value of fraction part ok 909 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); $i = $x -> dparts(); # ok 910 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 911 - value of integer part ok 912 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); ($i, $f) = $x -> dparts(); # ok 913 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 914 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 915 - value of integer part ok 916 - value of fraction part ok 917 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); $i = $x -> dparts(); # ok 918 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 919 - value of integer part ok 920 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); ($i, $f) = $x -> dparts(); # ok 921 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 922 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 923 - value of integer part ok 924 - value of fraction part ok 925 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); $i = $x -> dparts(); # ok 926 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 927 - value of integer part ok 928 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); ($i, $f) = $x -> dparts(); # ok 929 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 930 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 931 - value of integer part ok 932 - value of fraction part ok 933 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); $i = $x -> dparts(); # ok 934 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 935 - value of integer part ok 936 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); ($i, $f) = $x -> dparts(); # ok 937 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 938 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 939 - value of integer part ok 940 - value of fraction part ok 941 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $i = $x -> dparts(); # ok 942 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 943 - value of integer part ok 944 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); ($i, $f) = $x -> dparts(); # ok 945 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 946 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 947 - value of integer part ok 948 - value of fraction part ok 949 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $i = $x -> dparts(); # ok 950 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 951 - value of integer part ok 952 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); ($i, $f) = $x -> dparts(); # ok 953 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 954 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 955 - value of integer part ok 956 - value of fraction part ok 957 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $i = $x -> dparts(); # ok 958 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 959 - value of integer part ok 960 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); ($i, $f) = $x -> dparts(); # ok 961 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 962 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 963 - value of integer part ok 964 - value of fraction part ok 965 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $i = $x -> dparts(); # ok 966 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 967 - value of integer part ok 968 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); ($i, $f) = $x -> dparts(); # ok 969 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 970 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 971 - value of integer part ok 972 - value of fraction part ok 973 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $i = $x -> dparts(); # ok 974 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 975 - value of integer part ok 976 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); ($i, $f) = $x -> dparts(); # ok 977 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 978 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 979 - value of integer part ok 980 - value of fraction part ok 981 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $i = $x -> dparts(); # ok 982 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 983 - value of integer part ok 984 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); ($i, $f) = $x -> dparts(); # ok 985 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 986 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 987 - value of integer part ok 988 - value of fraction part ok 989 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $i = $x -> dparts(); # ok 990 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 991 - value of integer part ok 992 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); ($i, $f) = $x -> dparts(); # ok 993 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 994 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 995 - value of integer part ok 996 - value of fraction part ok 997 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $i = $x -> dparts(); # ok 998 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 999 - value of integer part ok 1000 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); ($i, $f) = $x -> dparts(); # ok 1001 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1002 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1003 - value of integer part ok 1004 - value of fraction part ok 1005 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $i = $x -> dparts(); # ok 1006 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1007 - value of integer part ok 1008 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); ($i, $f) = $x -> dparts(); # ok 1009 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1010 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1011 - value of integer part ok 1012 - value of fraction part ok 1013 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); $i = $x -> dparts(); # ok 1014 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1015 - value of integer part ok 1016 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); ($i, $f) = $x -> dparts(); # ok 1017 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1018 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1019 - value of integer part ok 1020 - value of fraction part ok 1021 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); $i = $x -> dparts(); # ok 1022 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1023 - value of integer part ok 1024 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); ($i, $f) = $x -> dparts(); # ok 1025 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1026 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1027 - value of integer part ok 1028 - value of fraction part ok 1029 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); $i = $x -> dparts(); # ok 1030 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1031 - value of integer part ok 1032 - input is unmodified # # $x = Math::BigFloat -> new("-1"); ($i, $f) = $x -> dparts(); # ok 1033 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1034 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1035 - value of integer part ok 1036 - value of fraction part ok 1037 - input is unmodified # # $x = Math::BigFloat -> new("-1"); $i = $x -> dparts(); # ok 1038 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1039 - value of integer part ok 1040 - input is unmodified # # $x = Math::BigFloat -> new("-10"); ($i, $f) = $x -> dparts(); # ok 1041 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1042 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1043 - value of integer part ok 1044 - value of fraction part ok 1045 - input is unmodified # # $x = Math::BigFloat -> new("-10"); $i = $x -> dparts(); # ok 1046 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1047 - value of integer part ok 1048 - input is unmodified # # $x = Math::BigFloat -> new("-100"); ($i, $f) = $x -> dparts(); # ok 1049 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1050 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1051 - value of integer part ok 1052 - value of fraction part ok 1053 - input is unmodified # # $x = Math::BigFloat -> new("-100"); $i = $x -> dparts(); # ok 1054 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1055 - value of integer part ok 1056 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); ($i, $f) = $x -> dparts(); # ok 1057 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1058 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1059 - value of integer part ok 1060 - value of fraction part ok 1061 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); $i = $x -> dparts(); # ok 1062 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1063 - value of integer part ok 1064 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); ($i, $f) = $x -> dparts(); # ok 1065 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1066 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1067 - value of integer part ok 1068 - value of fraction part ok 1069 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); $i = $x -> dparts(); # ok 1070 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1071 - value of integer part ok 1072 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); ($i, $f) = $x -> dparts(); # ok 1073 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1074 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1075 - value of integer part ok 1076 - value of fraction part ok 1077 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); $i = $x -> dparts(); # ok 1078 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1079 - value of integer part ok 1080 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); ($i, $f) = $x -> dparts(); # ok 1081 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1082 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1083 - value of integer part ok 1084 - value of fraction part ok 1085 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); $i = $x -> dparts(); # ok 1086 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1087 - value of integer part ok 1088 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); ($i, $f) = $x -> dparts(); # ok 1089 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1090 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1091 - value of integer part ok 1092 - value of fraction part ok 1093 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); $i = $x -> dparts(); # ok 1094 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1095 - value of integer part ok 1096 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); ($i, $f) = $x -> dparts(); # ok 1097 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1098 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1099 - value of integer part ok 1100 - value of fraction part ok 1101 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); $i = $x -> dparts(); # ok 1102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1103 - value of integer part ok 1104 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); ($i, $f) = $x -> dparts(); # ok 1105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1107 - value of integer part ok 1108 - value of fraction part ok 1109 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $i = $x -> dparts(); # ok 1110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1111 - value of integer part ok 1112 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); ($i, $f) = $x -> dparts(); # ok 1113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1115 - value of integer part ok 1116 - value of fraction part ok 1117 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $i = $x -> dparts(); # ok 1118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1119 - value of integer part ok 1120 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); ($i, $f) = $x -> dparts(); # ok 1121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1123 - value of integer part ok 1124 - value of fraction part ok 1125 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $i = $x -> dparts(); # ok 1126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1127 - value of integer part ok 1128 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); ($i, $f) = $x -> dparts(); # ok 1129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1131 - value of integer part ok 1132 - value of fraction part ok 1133 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $i = $x -> dparts(); # ok 1134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1135 - value of integer part ok 1136 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); ($i, $f) = $x -> dparts(); # ok 1137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1139 - value of integer part ok 1140 - value of fraction part ok 1141 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $i = $x -> dparts(); # ok 1142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1143 - value of integer part ok 1144 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); ($i, $f) = $x -> dparts(); # ok 1145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1147 - value of integer part ok 1148 - value of fraction part ok 1149 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $i = $x -> dparts(); # ok 1150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1151 - value of integer part ok 1152 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); ($i, $f) = $x -> dparts(); # ok 1153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1155 - value of integer part ok 1156 - value of fraction part ok 1157 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $i = $x -> dparts(); # ok 1158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1159 - value of integer part ok 1160 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); ($i, $f) = $x -> dparts(); # ok 1161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1163 - value of integer part ok 1164 - value of fraction part ok 1165 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $i = $x -> dparts(); # ok 1166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1167 - value of integer part ok 1168 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); ($i, $f) = $x -> dparts(); # ok 1169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1171 - value of integer part ok 1172 - value of fraction part ok 1173 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $i = $x -> dparts(); # ok 1174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1175 - value of integer part ok 1176 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); ($i, $f) = $x -> dparts(); # ok 1177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1179 - value of integer part ok 1180 - value of fraction part ok 1181 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $i = $x -> dparts(); # ok 1182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1183 - value of integer part ok 1184 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); ($i, $f) = $x -> dparts(); # ok 1185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1187 - value of integer part ok 1188 - value of fraction part ok 1189 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $i = $x -> dparts(); # ok 1190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1191 - value of integer part ok 1192 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); ($i, $f) = $x -> dparts(); # ok 1193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1195 - value of integer part ok 1196 - value of fraction part ok 1197 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $i = $x -> dparts(); # ok 1198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1199 - value of integer part ok 1200 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); ($i, $f) = $x -> dparts(); # ok 1201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1203 - value of integer part ok 1204 - value of fraction part ok 1205 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $i = $x -> dparts(); # ok 1206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1207 - value of integer part ok 1208 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); ($i, $f) = $x -> dparts(); # ok 1209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1211 - value of integer part ok 1212 - value of fraction part ok 1213 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $i = $x -> dparts(); # ok 1214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1215 - value of integer part ok 1216 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); ($i, $f) = $x -> dparts(); # ok 1217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1219 - value of integer part ok 1220 - value of fraction part ok 1221 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); $i = $x -> dparts(); # ok 1222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1223 - value of integer part ok 1224 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); ($i, $f) = $x -> dparts(); # ok 1225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1227 - value of integer part ok 1228 - value of fraction part ok 1229 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); $i = $x -> dparts(); # ok 1230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1231 - value of integer part ok 1232 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); ($i, $f) = $x -> dparts(); # ok 1233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1235 - value of integer part ok 1236 - value of fraction part ok 1237 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); $i = $x -> dparts(); # ok 1238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1239 - value of integer part ok 1240 - input is unmodified # # $x = Math::BigFloat -> new("-12"); ($i, $f) = $x -> dparts(); # ok 1241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1243 - value of integer part ok 1244 - value of fraction part ok 1245 - input is unmodified # # $x = Math::BigFloat -> new("-12"); $i = $x -> dparts(); # ok 1246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1247 - value of integer part ok 1248 - input is unmodified # # $x = Math::BigFloat -> new("-120"); ($i, $f) = $x -> dparts(); # ok 1249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1251 - value of integer part ok 1252 - value of fraction part ok 1253 - input is unmodified # # $x = Math::BigFloat -> new("-120"); $i = $x -> dparts(); # ok 1254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1255 - value of integer part ok 1256 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); ($i, $f) = $x -> dparts(); # ok 1257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1259 - value of integer part ok 1260 - value of fraction part ok 1261 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); $i = $x -> dparts(); # ok 1262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1263 - value of integer part ok 1264 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); ($i, $f) = $x -> dparts(); # ok 1265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1267 - value of integer part ok 1268 - value of fraction part ok 1269 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); $i = $x -> dparts(); # ok 1270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1271 - value of integer part ok 1272 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); ($i, $f) = $x -> dparts(); # ok 1273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1275 - value of integer part ok 1276 - value of fraction part ok 1277 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); $i = $x -> dparts(); # ok 1278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1279 - value of integer part ok 1280 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); ($i, $f) = $x -> dparts(); # ok 1281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1283 - value of integer part ok 1284 - value of fraction part ok 1285 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); $i = $x -> dparts(); # ok 1286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1287 - value of integer part ok 1288 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); ($i, $f) = $x -> dparts(); # ok 1289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1291 - value of integer part ok 1292 - value of fraction part ok 1293 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); $i = $x -> dparts(); # ok 1294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1295 - value of integer part ok 1296 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); ($i, $f) = $x -> dparts(); # ok 1297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1299 - value of integer part ok 1300 - value of fraction part ok 1301 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); $i = $x -> dparts(); # ok 1302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1303 - value of integer part ok 1304 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); ($i, $f) = $x -> dparts(); # ok 1305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1307 - value of integer part ok 1308 - value of fraction part ok 1309 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $i = $x -> dparts(); # ok 1310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1311 - value of integer part ok 1312 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); ($i, $f) = $x -> dparts(); # ok 1313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1315 - value of integer part ok 1316 - value of fraction part ok 1317 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $i = $x -> dparts(); # ok 1318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1319 - value of integer part ok 1320 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); ($i, $f) = $x -> dparts(); # ok 1321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1323 - value of integer part ok 1324 - value of fraction part ok 1325 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $i = $x -> dparts(); # ok 1326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1327 - value of integer part ok 1328 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); ($i, $f) = $x -> dparts(); # ok 1329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1331 - value of integer part ok 1332 - value of fraction part ok 1333 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $i = $x -> dparts(); # ok 1334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1335 - value of integer part ok 1336 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); ($i, $f) = $x -> dparts(); # ok 1337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1339 - value of integer part ok 1340 - value of fraction part ok 1341 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $i = $x -> dparts(); # ok 1342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1343 - value of integer part ok 1344 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); ($i, $f) = $x -> dparts(); # ok 1345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1347 - value of integer part ok 1348 - value of fraction part ok 1349 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $i = $x -> dparts(); # ok 1350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1351 - value of integer part ok 1352 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); ($i, $f) = $x -> dparts(); # ok 1353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1355 - value of integer part ok 1356 - value of fraction part ok 1357 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $i = $x -> dparts(); # ok 1358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1359 - value of integer part ok 1360 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); ($i, $f) = $x -> dparts(); # ok 1361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1363 - value of integer part ok 1364 - value of fraction part ok 1365 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $i = $x -> dparts(); # ok 1366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1367 - value of integer part ok 1368 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); ($i, $f) = $x -> dparts(); # ok 1369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1371 - value of integer part ok 1372 - value of fraction part ok 1373 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $i = $x -> dparts(); # ok 1374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1375 - value of integer part ok 1376 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); ($i, $f) = $x -> dparts(); # ok 1377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1379 - value of integer part ok 1380 - value of fraction part ok 1381 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $i = $x -> dparts(); # ok 1382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1383 - value of integer part ok 1384 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); ($i, $f) = $x -> dparts(); # ok 1385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1387 - value of integer part ok 1388 - value of fraction part ok 1389 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $i = $x -> dparts(); # ok 1390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1391 - value of integer part ok 1392 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); ($i, $f) = $x -> dparts(); # ok 1393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1395 - value of integer part ok 1396 - value of fraction part ok 1397 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $i = $x -> dparts(); # ok 1398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1399 - value of integer part ok 1400 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); ($i, $f) = $x -> dparts(); # ok 1401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1403 - value of integer part ok 1404 - value of fraction part ok 1405 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $i = $x -> dparts(); # ok 1406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1407 - value of integer part ok 1408 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); ($i, $f) = $x -> dparts(); # ok 1409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1411 - value of integer part ok 1412 - value of fraction part ok 1413 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $i = $x -> dparts(); # ok 1414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1415 - value of integer part ok 1416 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); ($i, $f) = $x -> dparts(); # ok 1417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1419 - value of integer part ok 1420 - value of fraction part ok 1421 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $i = $x -> dparts(); # ok 1422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1423 - value of integer part ok 1424 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); ($i, $f) = $x -> dparts(); # ok 1425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1427 - value of integer part ok 1428 - value of fraction part ok 1429 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); $i = $x -> dparts(); # ok 1430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1431 - value of integer part ok 1432 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); ($i, $f) = $x -> dparts(); # ok 1433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1435 - value of integer part ok 1436 - value of fraction part ok 1437 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); $i = $x -> dparts(); # ok 1438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1439 - value of integer part ok 1440 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); ($i, $f) = $x -> dparts(); # ok 1441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1443 - value of integer part ok 1444 - value of fraction part ok 1445 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); $i = $x -> dparts(); # ok 1446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1447 - value of integer part ok 1448 - input is unmodified # # $x = Math::BigFloat -> new("-123"); ($i, $f) = $x -> dparts(); # ok 1449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1451 - value of integer part ok 1452 - value of fraction part ok 1453 - input is unmodified # # $x = Math::BigFloat -> new("-123"); $i = $x -> dparts(); # ok 1454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1455 - value of integer part ok 1456 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); ($i, $f) = $x -> dparts(); # ok 1457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1459 - value of integer part ok 1460 - value of fraction part ok 1461 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); $i = $x -> dparts(); # ok 1462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1463 - value of integer part ok 1464 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); ($i, $f) = $x -> dparts(); # ok 1465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1467 - value of integer part ok 1468 - value of fraction part ok 1469 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); $i = $x -> dparts(); # ok 1470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1471 - value of integer part ok 1472 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); ($i, $f) = $x -> dparts(); # ok 1473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1475 - value of integer part ok 1476 - value of fraction part ok 1477 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); $i = $x -> dparts(); # ok 1478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1479 - value of integer part ok 1480 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); ($i, $f) = $x -> dparts(); # ok 1481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1483 - value of integer part ok 1484 - value of fraction part ok 1485 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); $i = $x -> dparts(); # ok 1486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1487 - value of integer part ok 1488 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); ($i, $f) = $x -> dparts(); # ok 1489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1491 - value of integer part ok 1492 - value of fraction part ok 1493 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); $i = $x -> dparts(); # ok 1494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1495 - value of integer part ok 1496 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); ($i, $f) = $x -> dparts(); # ok 1497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1499 - value of integer part ok 1500 - value of fraction part ok 1501 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); $i = $x -> dparts(); # ok 1502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1503 - value of integer part ok 1504 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); ($i, $f) = $x -> dparts(); # ok 1505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1507 - value of integer part ok 1508 - value of fraction part ok 1509 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $i = $x -> dparts(); # ok 1510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1511 - value of integer part ok 1512 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); ($i, $f) = $x -> dparts(); # ok 1513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1515 - value of integer part ok 1516 - value of fraction part ok 1517 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $i = $x -> dparts(); # ok 1518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1519 - value of integer part ok 1520 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); ($i, $f) = $x -> dparts(); # ok 1521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1523 - value of integer part ok 1524 - value of fraction part ok 1525 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $i = $x -> dparts(); # ok 1526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1527 - value of integer part ok 1528 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); ($i, $f) = $x -> dparts(); # ok 1529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1531 - value of integer part ok 1532 - value of fraction part ok 1533 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $i = $x -> dparts(); # ok 1534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1535 - value of integer part ok 1536 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); ($i, $f) = $x -> dparts(); # ok 1537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1539 - value of integer part ok 1540 - value of fraction part ok 1541 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $i = $x -> dparts(); # ok 1542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1543 - value of integer part ok 1544 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); ($i, $f) = $x -> dparts(); # ok 1545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1547 - value of integer part ok 1548 - value of fraction part ok 1549 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $i = $x -> dparts(); # ok 1550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1551 - value of integer part ok 1552 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); ($i, $f) = $x -> dparts(); # ok 1553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1555 - value of integer part ok 1556 - value of fraction part ok 1557 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $i = $x -> dparts(); # ok 1558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1559 - value of integer part ok 1560 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); ($i, $f) = $x -> dparts(); # ok 1561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1563 - value of integer part ok 1564 - value of fraction part ok 1565 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $i = $x -> dparts(); # ok 1566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1567 - value of integer part ok 1568 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); ($i, $f) = $x -> dparts(); # ok 1569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1571 - value of integer part ok 1572 - value of fraction part ok 1573 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $i = $x -> dparts(); # ok 1574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1575 - value of integer part ok 1576 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); ($i, $f) = $x -> dparts(); # ok 1577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1579 - value of integer part ok 1580 - value of fraction part ok 1581 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $i = $x -> dparts(); # ok 1582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1583 - value of integer part ok 1584 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); ($i, $f) = $x -> dparts(); # ok 1585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1587 - value of integer part ok 1588 - value of fraction part ok 1589 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $i = $x -> dparts(); # ok 1590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1591 - value of integer part ok 1592 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); ($i, $f) = $x -> dparts(); # ok 1593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1595 - value of integer part ok 1596 - value of fraction part ok 1597 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $i = $x -> dparts(); # ok 1598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1599 - value of integer part ok 1600 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); ($i, $f) = $x -> dparts(); # ok 1601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1603 - value of integer part ok 1604 - value of fraction part ok 1605 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $i = $x -> dparts(); # ok 1606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1607 - value of integer part ok 1608 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); ($i, $f) = $x -> dparts(); # ok 1609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1611 - value of integer part ok 1612 - value of fraction part ok 1613 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $i = $x -> dparts(); # ok 1614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1615 - value of integer part ok 1616 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); ($i, $f) = $x -> dparts(); # ok 1617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1619 - value of integer part ok 1620 - value of fraction part ok 1621 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $i = $x -> dparts(); # ok 1622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1623 - value of integer part ok 1624 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); ($i, $f) = $x -> dparts(); # ok 1625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1627 - value of integer part ok 1628 - value of fraction part ok 1629 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $i = $x -> dparts(); # ok 1630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1631 - value of integer part ok 1632 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); ($i, $f) = $x -> dparts(); # ok 1633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1635 - value of integer part ok 1636 - value of fraction part ok 1637 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); $i = $x -> dparts(); # ok 1638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1639 - value of integer part ok 1640 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); ($i, $f) = $x -> dparts(); # ok 1641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1643 - value of integer part ok 1644 - value of fraction part ok 1645 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); $i = $x -> dparts(); # ok 1646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1647 - value of integer part ok 1648 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); ($i, $f) = $x -> dparts(); # ok 1649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1651 - value of integer part ok 1652 - value of fraction part ok 1653 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); $i = $x -> dparts(); # ok 1654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1655 - value of integer part ok 1656 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); ($i, $f) = $x -> dparts(); # ok 1657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1659 - value of integer part ok 1660 - value of fraction part ok 1661 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); $i = $x -> dparts(); # ok 1662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1663 - value of integer part ok 1664 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); ($i, $f) = $x -> dparts(); # ok 1665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1667 - value of integer part ok 1668 - value of fraction part ok 1669 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); $i = $x -> dparts(); # ok 1670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1671 - value of integer part ok 1672 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); ($i, $f) = $x -> dparts(); # ok 1673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1675 - value of integer part ok 1676 - value of fraction part ok 1677 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); $i = $x -> dparts(); # ok 1678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1679 - value of integer part ok 1680 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); ($i, $f) = $x -> dparts(); # ok 1681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1683 - value of integer part ok 1684 - value of fraction part ok 1685 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); $i = $x -> dparts(); # ok 1686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1687 - value of integer part ok 1688 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); ($i, $f) = $x -> dparts(); # ok 1689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1691 - value of integer part ok 1692 - value of fraction part ok 1693 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); $i = $x -> dparts(); # ok 1694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1695 - value of integer part ok 1696 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); ($i, $f) = $x -> dparts(); # ok 1697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1699 - value of integer part ok 1700 - value of fraction part ok 1701 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); $i = $x -> dparts(); # ok 1702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1703 - value of integer part ok 1704 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); ($i, $f) = $x -> dparts(); # ok 1705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1707 - value of integer part ok 1708 - value of fraction part ok 1709 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $i = $x -> dparts(); # ok 1710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1711 - value of integer part ok 1712 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); ($i, $f) = $x -> dparts(); # ok 1713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1715 - value of integer part ok 1716 - value of fraction part ok 1717 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $i = $x -> dparts(); # ok 1718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1719 - value of integer part ok 1720 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); ($i, $f) = $x -> dparts(); # ok 1721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1723 - value of integer part ok 1724 - value of fraction part ok 1725 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $i = $x -> dparts(); # ok 1726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1727 - value of integer part ok 1728 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); ($i, $f) = $x -> dparts(); # ok 1729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1731 - value of integer part ok 1732 - value of fraction part ok 1733 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $i = $x -> dparts(); # ok 1734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1735 - value of integer part ok 1736 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); ($i, $f) = $x -> dparts(); # ok 1737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1739 - value of integer part ok 1740 - value of fraction part ok 1741 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $i = $x -> dparts(); # ok 1742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1743 - value of integer part ok 1744 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); ($i, $f) = $x -> dparts(); # ok 1745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1747 - value of integer part ok 1748 - value of fraction part ok 1749 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $i = $x -> dparts(); # ok 1750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1751 - value of integer part ok 1752 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); ($i, $f) = $x -> dparts(); # ok 1753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1755 - value of integer part ok 1756 - value of fraction part ok 1757 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $i = $x -> dparts(); # ok 1758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1759 - value of integer part ok 1760 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); ($i, $f) = $x -> dparts(); # ok 1761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1763 - value of integer part ok 1764 - value of fraction part ok 1765 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $i = $x -> dparts(); # ok 1766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1767 - value of integer part ok 1768 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); ($i, $f) = $x -> dparts(); # ok 1769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1771 - value of integer part ok 1772 - value of fraction part ok 1773 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $i = $x -> dparts(); # ok 1774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1775 - value of integer part ok 1776 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); ($i, $f) = $x -> dparts(); # ok 1777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1779 - value of integer part ok 1780 - value of fraction part ok 1781 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $i = $x -> dparts(); # ok 1782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1783 - value of integer part ok 1784 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); ($i, $f) = $x -> dparts(); # ok 1785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1787 - value of integer part ok 1788 - value of fraction part ok 1789 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $i = $x -> dparts(); # ok 1790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1791 - value of integer part ok 1792 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); ($i, $f) = $x -> dparts(); # ok 1793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1795 - value of integer part ok 1796 - value of fraction part ok 1797 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $i = $x -> dparts(); # ok 1798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1799 - value of integer part ok 1800 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); ($i, $f) = $x -> dparts(); # ok 1801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1803 - value of integer part ok 1804 - value of fraction part ok 1805 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $i = $x -> dparts(); # ok 1806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1807 - value of integer part ok 1808 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); ($i, $f) = $x -> dparts(); # ok 1809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1811 - value of integer part ok 1812 - value of fraction part ok 1813 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $i = $x -> dparts(); # ok 1814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1815 - value of integer part ok 1816 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); ($i, $f) = $x -> dparts(); # ok 1817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1819 - value of integer part ok 1820 - value of fraction part ok 1821 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $i = $x -> dparts(); # ok 1822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1823 - value of integer part ok 1824 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); ($i, $f) = $x -> dparts(); # ok 1825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1827 - value of integer part ok 1828 - value of fraction part ok 1829 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $i = $x -> dparts(); # ok 1830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1831 - value of integer part ok 1832 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); ($i, $f) = $x -> dparts(); # ok 1833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1835 - value of integer part ok 1836 - value of fraction part ok 1837 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); $i = $x -> dparts(); # ok 1838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1839 - value of integer part ok 1840 - input is unmodified ok t/dparts-mbi.t ................................ 1..784 # # $x = Math::BigInt -> new("NaN"); ($i, $f) = $x -> dparts(); # ok 1 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 2 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 3 - value of integer part ok 4 - value of fraction part ok 5 - input is unmodified # # $x = Math::BigInt -> new("NaN"); $i = $x -> dparts(); # ok 6 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 7 - value of integer part ok 8 - input is unmodified # # $x = Math::BigInt -> new("inf"); ($i, $f) = $x -> dparts(); # ok 9 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 10 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 11 - value of integer part ok 12 - value of fraction part ok 13 - input is unmodified # # $x = Math::BigInt -> new("inf"); $i = $x -> dparts(); # ok 14 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 15 - value of integer part ok 16 - input is unmodified # # $x = Math::BigInt -> new("-inf"); ($i, $f) = $x -> dparts(); # ok 17 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 18 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 19 - value of integer part ok 20 - value of fraction part ok 21 - input is unmodified # # $x = Math::BigInt -> new("-inf"); $i = $x -> dparts(); # ok 22 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 23 - value of integer part ok 24 - input is unmodified # # $x = Math::BigInt -> new("0"); ($i, $f) = $x -> dparts(); # ok 25 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 26 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 27 - value of integer part ok 28 - value of fraction part ok 29 - input is unmodified # # $x = Math::BigInt -> new("0"); $i = $x -> dparts(); # ok 30 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 31 - value of integer part ok 32 - input is unmodified # # $x = Math::BigInt -> new("1"); ($i, $f) = $x -> dparts(); # ok 33 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 34 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 35 - value of integer part ok 36 - value of fraction part ok 37 - input is unmodified # # $x = Math::BigInt -> new("1"); $i = $x -> dparts(); # ok 38 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 39 - value of integer part ok 40 - input is unmodified # # $x = Math::BigInt -> new("10"); ($i, $f) = $x -> dparts(); # ok 41 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 42 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 43 - value of integer part ok 44 - value of fraction part ok 45 - input is unmodified # # $x = Math::BigInt -> new("10"); $i = $x -> dparts(); # ok 46 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 47 - value of integer part ok 48 - input is unmodified # # $x = Math::BigInt -> new("100"); ($i, $f) = $x -> dparts(); # ok 49 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 50 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 51 - value of integer part ok 52 - value of fraction part ok 53 - input is unmodified # # $x = Math::BigInt -> new("100"); $i = $x -> dparts(); # ok 54 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 55 - value of integer part ok 56 - input is unmodified # # $x = Math::BigInt -> new("1000"); ($i, $f) = $x -> dparts(); # ok 57 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 58 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 59 - value of integer part ok 60 - value of fraction part ok 61 - input is unmodified # # $x = Math::BigInt -> new("1000"); $i = $x -> dparts(); # ok 62 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 63 - value of integer part ok 64 - input is unmodified # # $x = Math::BigInt -> new("10000"); ($i, $f) = $x -> dparts(); # ok 65 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 66 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 67 - value of integer part ok 68 - value of fraction part ok 69 - input is unmodified # # $x = Math::BigInt -> new("10000"); $i = $x -> dparts(); # ok 70 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 71 - value of integer part ok 72 - input is unmodified # # $x = Math::BigInt -> new("100000"); ($i, $f) = $x -> dparts(); # ok 73 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 74 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 75 - value of integer part ok 76 - value of fraction part ok 77 - input is unmodified # # $x = Math::BigInt -> new("100000"); $i = $x -> dparts(); # ok 78 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 79 - value of integer part ok 80 - input is unmodified # # $x = Math::BigInt -> new("1000000"); ($i, $f) = $x -> dparts(); # ok 81 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 82 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 83 - value of integer part ok 84 - value of fraction part ok 85 - input is unmodified # # $x = Math::BigInt -> new("1000000"); $i = $x -> dparts(); # ok 86 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 87 - value of integer part ok 88 - input is unmodified # # $x = Math::BigInt -> new("10000000"); ($i, $f) = $x -> dparts(); # ok 89 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 90 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 91 - value of integer part ok 92 - value of fraction part ok 93 - input is unmodified # # $x = Math::BigInt -> new("10000000"); $i = $x -> dparts(); # ok 94 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 95 - value of integer part ok 96 - input is unmodified # # $x = Math::BigInt -> new("100000000"); ($i, $f) = $x -> dparts(); # ok 97 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 98 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 99 - value of integer part ok 100 - value of fraction part ok 101 - input is unmodified # # $x = Math::BigInt -> new("100000000"); $i = $x -> dparts(); # ok 102 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 103 - value of integer part ok 104 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); ($i, $f) = $x -> dparts(); # ok 105 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 106 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 107 - value of integer part ok 108 - value of fraction part ok 109 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); $i = $x -> dparts(); # ok 110 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 111 - value of integer part ok 112 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); ($i, $f) = $x -> dparts(); # ok 113 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 114 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 115 - value of integer part ok 116 - value of fraction part ok 117 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); $i = $x -> dparts(); # ok 118 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 119 - value of integer part ok 120 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); ($i, $f) = $x -> dparts(); # ok 121 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 122 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 123 - value of integer part ok 124 - value of fraction part ok 125 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); $i = $x -> dparts(); # ok 126 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 127 - value of integer part ok 128 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); ($i, $f) = $x -> dparts(); # ok 129 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 130 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 131 - value of integer part ok 132 - value of fraction part ok 133 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); $i = $x -> dparts(); # ok 134 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 135 - value of integer part ok 136 - input is unmodified # # $x = Math::BigInt -> new("12"); ($i, $f) = $x -> dparts(); # ok 137 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 138 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 139 - value of integer part ok 140 - value of fraction part ok 141 - input is unmodified # # $x = Math::BigInt -> new("12"); $i = $x -> dparts(); # ok 142 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 143 - value of integer part ok 144 - input is unmodified # # $x = Math::BigInt -> new("120"); ($i, $f) = $x -> dparts(); # ok 145 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 146 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 147 - value of integer part ok 148 - value of fraction part ok 149 - input is unmodified # # $x = Math::BigInt -> new("120"); $i = $x -> dparts(); # ok 150 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 151 - value of integer part ok 152 - input is unmodified # # $x = Math::BigInt -> new("1200"); ($i, $f) = $x -> dparts(); # ok 153 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 154 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 155 - value of integer part ok 156 - value of fraction part ok 157 - input is unmodified # # $x = Math::BigInt -> new("1200"); $i = $x -> dparts(); # ok 158 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 159 - value of integer part ok 160 - input is unmodified # # $x = Math::BigInt -> new("12000"); ($i, $f) = $x -> dparts(); # ok 161 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 162 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 163 - value of integer part ok 164 - value of fraction part ok 165 - input is unmodified # # $x = Math::BigInt -> new("12000"); $i = $x -> dparts(); # ok 166 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 167 - value of integer part ok 168 - input is unmodified # # $x = Math::BigInt -> new("120000"); ($i, $f) = $x -> dparts(); # ok 169 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 170 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 171 - value of integer part ok 172 - value of fraction part ok 173 - input is unmodified # # $x = Math::BigInt -> new("120000"); $i = $x -> dparts(); # ok 174 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 175 - value of integer part ok 176 - input is unmodified # # $x = Math::BigInt -> new("1200000"); ($i, $f) = $x -> dparts(); # ok 177 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 178 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 179 - value of integer part ok 180 - value of fraction part ok 181 - input is unmodified # # $x = Math::BigInt -> new("1200000"); $i = $x -> dparts(); # ok 182 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 183 - value of integer part ok 184 - input is unmodified # # $x = Math::BigInt -> new("12000000"); ($i, $f) = $x -> dparts(); # ok 185 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 186 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 187 - value of integer part ok 188 - value of fraction part ok 189 - input is unmodified # # $x = Math::BigInt -> new("12000000"); $i = $x -> dparts(); # ok 190 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 191 - value of integer part ok 192 - input is unmodified # # $x = Math::BigInt -> new("120000000"); ($i, $f) = $x -> dparts(); # ok 193 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 194 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 195 - value of integer part ok 196 - value of fraction part ok 197 - input is unmodified # # $x = Math::BigInt -> new("120000000"); $i = $x -> dparts(); # ok 198 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 199 - value of integer part ok 200 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); ($i, $f) = $x -> dparts(); # ok 201 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 202 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 203 - value of integer part ok 204 - value of fraction part ok 205 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); $i = $x -> dparts(); # ok 206 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 207 - value of integer part ok 208 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); ($i, $f) = $x -> dparts(); # ok 209 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 210 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 211 - value of integer part ok 212 - value of fraction part ok 213 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); $i = $x -> dparts(); # ok 214 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 215 - value of integer part ok 216 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); ($i, $f) = $x -> dparts(); # ok 217 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 218 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 219 - value of integer part ok 220 - value of fraction part ok 221 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); $i = $x -> dparts(); # ok 222 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 223 - value of integer part ok 224 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); ($i, $f) = $x -> dparts(); # ok 225 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 226 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 227 - value of integer part ok 228 - value of fraction part ok 229 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); $i = $x -> dparts(); # ok 230 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 231 - value of integer part ok 232 - input is unmodified # # $x = Math::BigInt -> new("123"); ($i, $f) = $x -> dparts(); # ok 233 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 234 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 235 - value of integer part ok 236 - value of fraction part ok 237 - input is unmodified # # $x = Math::BigInt -> new("123"); $i = $x -> dparts(); # ok 238 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 239 - value of integer part ok 240 - input is unmodified # # $x = Math::BigInt -> new("1230"); ($i, $f) = $x -> dparts(); # ok 241 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 242 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 243 - value of integer part ok 244 - value of fraction part ok 245 - input is unmodified # # $x = Math::BigInt -> new("1230"); $i = $x -> dparts(); # ok 246 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 247 - value of integer part ok 248 - input is unmodified # # $x = Math::BigInt -> new("12300"); ($i, $f) = $x -> dparts(); # ok 249 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 250 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 251 - value of integer part ok 252 - value of fraction part ok 253 - input is unmodified # # $x = Math::BigInt -> new("12300"); $i = $x -> dparts(); # ok 254 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 255 - value of integer part ok 256 - input is unmodified # # $x = Math::BigInt -> new("123000"); ($i, $f) = $x -> dparts(); # ok 257 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 258 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 259 - value of integer part ok 260 - value of fraction part ok 261 - input is unmodified # # $x = Math::BigInt -> new("123000"); $i = $x -> dparts(); # ok 262 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 263 - value of integer part ok 264 - input is unmodified # # $x = Math::BigInt -> new("1230000"); ($i, $f) = $x -> dparts(); # ok 265 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 266 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 267 - value of integer part ok 268 - value of fraction part ok 269 - input is unmodified # # $x = Math::BigInt -> new("1230000"); $i = $x -> dparts(); # ok 270 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 271 - value of integer part ok 272 - input is unmodified # # $x = Math::BigInt -> new("12300000"); ($i, $f) = $x -> dparts(); # ok 273 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 274 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 275 - value of integer part ok 276 - value of fraction part ok 277 - input is unmodified # # $x = Math::BigInt -> new("12300000"); $i = $x -> dparts(); # ok 278 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 279 - value of integer part ok 280 - input is unmodified # # $x = Math::BigInt -> new("123000000"); ($i, $f) = $x -> dparts(); # ok 281 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 282 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 283 - value of integer part ok 284 - value of fraction part ok 285 - input is unmodified # # $x = Math::BigInt -> new("123000000"); $i = $x -> dparts(); # ok 286 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 287 - value of integer part ok 288 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); ($i, $f) = $x -> dparts(); # ok 289 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 290 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 291 - value of integer part ok 292 - value of fraction part ok 293 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); $i = $x -> dparts(); # ok 294 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 295 - value of integer part ok 296 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); ($i, $f) = $x -> dparts(); # ok 297 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 298 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 299 - value of integer part ok 300 - value of fraction part ok 301 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); $i = $x -> dparts(); # ok 302 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 303 - value of integer part ok 304 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); ($i, $f) = $x -> dparts(); # ok 305 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 306 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 307 - value of integer part ok 308 - value of fraction part ok 309 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); $i = $x -> dparts(); # ok 310 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 311 - value of integer part ok 312 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); ($i, $f) = $x -> dparts(); # ok 313 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 314 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 315 - value of integer part ok 316 - value of fraction part ok 317 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); $i = $x -> dparts(); # ok 318 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 319 - value of integer part ok 320 - input is unmodified # # $x = Math::BigInt -> new("1234"); ($i, $f) = $x -> dparts(); # ok 321 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 322 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 323 - value of integer part ok 324 - value of fraction part ok 325 - input is unmodified # # $x = Math::BigInt -> new("1234"); $i = $x -> dparts(); # ok 326 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 327 - value of integer part ok 328 - input is unmodified # # $x = Math::BigInt -> new("12340"); ($i, $f) = $x -> dparts(); # ok 329 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 330 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 331 - value of integer part ok 332 - value of fraction part ok 333 - input is unmodified # # $x = Math::BigInt -> new("12340"); $i = $x -> dparts(); # ok 334 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 335 - value of integer part ok 336 - input is unmodified # # $x = Math::BigInt -> new("123400"); ($i, $f) = $x -> dparts(); # ok 337 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 338 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 339 - value of integer part ok 340 - value of fraction part ok 341 - input is unmodified # # $x = Math::BigInt -> new("123400"); $i = $x -> dparts(); # ok 342 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 343 - value of integer part ok 344 - input is unmodified # # $x = Math::BigInt -> new("1234000"); ($i, $f) = $x -> dparts(); # ok 345 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 346 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 347 - value of integer part ok 348 - value of fraction part ok 349 - input is unmodified # # $x = Math::BigInt -> new("1234000"); $i = $x -> dparts(); # ok 350 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 351 - value of integer part ok 352 - input is unmodified # # $x = Math::BigInt -> new("12340000"); ($i, $f) = $x -> dparts(); # ok 353 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 354 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 355 - value of integer part ok 356 - value of fraction part ok 357 - input is unmodified # # $x = Math::BigInt -> new("12340000"); $i = $x -> dparts(); # ok 358 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 359 - value of integer part ok 360 - input is unmodified # # $x = Math::BigInt -> new("123400000"); ($i, $f) = $x -> dparts(); # ok 361 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 362 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 363 - value of integer part ok 364 - value of fraction part ok 365 - input is unmodified # # $x = Math::BigInt -> new("123400000"); $i = $x -> dparts(); # ok 366 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 367 - value of integer part ok 368 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); ($i, $f) = $x -> dparts(); # ok 369 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 370 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 371 - value of integer part ok 372 - value of fraction part ok 373 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); $i = $x -> dparts(); # ok 374 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 375 - value of integer part ok 376 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); ($i, $f) = $x -> dparts(); # ok 377 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 378 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 379 - value of integer part ok 380 - value of fraction part ok 381 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); $i = $x -> dparts(); # ok 382 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 383 - value of integer part ok 384 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); ($i, $f) = $x -> dparts(); # ok 385 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 386 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 387 - value of integer part ok 388 - value of fraction part ok 389 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); $i = $x -> dparts(); # ok 390 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 391 - value of integer part ok 392 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); ($i, $f) = $x -> dparts(); # ok 393 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 394 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 395 - value of integer part ok 396 - value of fraction part ok 397 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); $i = $x -> dparts(); # ok 398 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 399 - value of integer part ok 400 - input is unmodified # # $x = Math::BigInt -> new("3141592"); ($i, $f) = $x -> dparts(); # ok 401 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 402 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 403 - value of integer part ok 404 - value of fraction part ok 405 - input is unmodified # # $x = Math::BigInt -> new("3141592"); $i = $x -> dparts(); # ok 406 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 407 - value of integer part ok 408 - input is unmodified # # $x = Math::BigInt -> new("-1"); ($i, $f) = $x -> dparts(); # ok 409 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 410 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 411 - value of integer part ok 412 - value of fraction part ok 413 - input is unmodified # # $x = Math::BigInt -> new("-1"); $i = $x -> dparts(); # ok 414 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 415 - value of integer part ok 416 - input is unmodified # # $x = Math::BigInt -> new("-10"); ($i, $f) = $x -> dparts(); # ok 417 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 418 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 419 - value of integer part ok 420 - value of fraction part ok 421 - input is unmodified # # $x = Math::BigInt -> new("-10"); $i = $x -> dparts(); # ok 422 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 423 - value of integer part ok 424 - input is unmodified # # $x = Math::BigInt -> new("-100"); ($i, $f) = $x -> dparts(); # ok 425 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 426 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 427 - value of integer part ok 428 - value of fraction part ok 429 - input is unmodified # # $x = Math::BigInt -> new("-100"); $i = $x -> dparts(); # ok 430 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 431 - value of integer part ok 432 - input is unmodified # # $x = Math::BigInt -> new("-1000"); ($i, $f) = $x -> dparts(); # ok 433 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 434 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 435 - value of integer part ok 436 - value of fraction part ok 437 - input is unmodified # # $x = Math::BigInt -> new("-1000"); $i = $x -> dparts(); # ok 438 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 439 - value of integer part ok 440 - input is unmodified # # $x = Math::BigInt -> new("-10000"); ($i, $f) = $x -> dparts(); # ok 441 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 442 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 443 - value of integer part ok 444 - value of fraction part ok 445 - input is unmodified # # $x = Math::BigInt -> new("-10000"); $i = $x -> dparts(); # ok 446 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 447 - value of integer part ok 448 - input is unmodified # # $x = Math::BigInt -> new("-100000"); ($i, $f) = $x -> dparts(); # ok 449 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 450 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 451 - value of integer part ok 452 - value of fraction part ok 453 - input is unmodified # # $x = Math::BigInt -> new("-100000"); $i = $x -> dparts(); # ok 454 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 455 - value of integer part ok 456 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); ($i, $f) = $x -> dparts(); # ok 457 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 458 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 459 - value of integer part ok 460 - value of fraction part ok 461 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); $i = $x -> dparts(); # ok 462 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 463 - value of integer part ok 464 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); ($i, $f) = $x -> dparts(); # ok 465 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 466 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 467 - value of integer part ok 468 - value of fraction part ok 469 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); $i = $x -> dparts(); # ok 470 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 471 - value of integer part ok 472 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); ($i, $f) = $x -> dparts(); # ok 473 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 474 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 475 - value of integer part ok 476 - value of fraction part ok 477 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); $i = $x -> dparts(); # ok 478 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 479 - value of integer part ok 480 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); ($i, $f) = $x -> dparts(); # ok 481 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 482 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 483 - value of integer part ok 484 - value of fraction part ok 485 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); $i = $x -> dparts(); # ok 486 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 487 - value of integer part ok 488 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); ($i, $f) = $x -> dparts(); # ok 489 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 490 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 491 - value of integer part ok 492 - value of fraction part ok 493 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); $i = $x -> dparts(); # ok 494 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 495 - value of integer part ok 496 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); ($i, $f) = $x -> dparts(); # ok 497 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 498 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 499 - value of integer part ok 500 - value of fraction part ok 501 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); $i = $x -> dparts(); # ok 502 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 503 - value of integer part ok 504 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); ($i, $f) = $x -> dparts(); # ok 505 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 506 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 507 - value of integer part ok 508 - value of fraction part ok 509 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $i = $x -> dparts(); # ok 510 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 511 - value of integer part ok 512 - input is unmodified # # $x = Math::BigInt -> new("-12"); ($i, $f) = $x -> dparts(); # ok 513 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 514 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 515 - value of integer part ok 516 - value of fraction part ok 517 - input is unmodified # # $x = Math::BigInt -> new("-12"); $i = $x -> dparts(); # ok 518 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 519 - value of integer part ok 520 - input is unmodified # # $x = Math::BigInt -> new("-120"); ($i, $f) = $x -> dparts(); # ok 521 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 522 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 523 - value of integer part ok 524 - value of fraction part ok 525 - input is unmodified # # $x = Math::BigInt -> new("-120"); $i = $x -> dparts(); # ok 526 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 527 - value of integer part ok 528 - input is unmodified # # $x = Math::BigInt -> new("-1200"); ($i, $f) = $x -> dparts(); # ok 529 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 530 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 531 - value of integer part ok 532 - value of fraction part ok 533 - input is unmodified # # $x = Math::BigInt -> new("-1200"); $i = $x -> dparts(); # ok 534 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 535 - value of integer part ok 536 - input is unmodified # # $x = Math::BigInt -> new("-12000"); ($i, $f) = $x -> dparts(); # ok 537 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 538 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 539 - value of integer part ok 540 - value of fraction part ok 541 - input is unmodified # # $x = Math::BigInt -> new("-12000"); $i = $x -> dparts(); # ok 542 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 543 - value of integer part ok 544 - input is unmodified # # $x = Math::BigInt -> new("-120000"); ($i, $f) = $x -> dparts(); # ok 545 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 546 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 547 - value of integer part ok 548 - value of fraction part ok 549 - input is unmodified # # $x = Math::BigInt -> new("-120000"); $i = $x -> dparts(); # ok 550 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 551 - value of integer part ok 552 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); ($i, $f) = $x -> dparts(); # ok 553 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 554 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 555 - value of integer part ok 556 - value of fraction part ok 557 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); $i = $x -> dparts(); # ok 558 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 559 - value of integer part ok 560 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); ($i, $f) = $x -> dparts(); # ok 561 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 562 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 563 - value of integer part ok 564 - value of fraction part ok 565 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); $i = $x -> dparts(); # ok 566 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 567 - value of integer part ok 568 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); ($i, $f) = $x -> dparts(); # ok 569 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 570 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 571 - value of integer part ok 572 - value of fraction part ok 573 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); $i = $x -> dparts(); # ok 574 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 575 - value of integer part ok 576 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); ($i, $f) = $x -> dparts(); # ok 577 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 578 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 579 - value of integer part ok 580 - value of fraction part ok 581 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); $i = $x -> dparts(); # ok 582 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 583 - value of integer part ok 584 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); ($i, $f) = $x -> dparts(); # ok 585 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 586 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 587 - value of integer part ok 588 - value of fraction part ok 589 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); $i = $x -> dparts(); # ok 590 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 591 - value of integer part ok 592 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); ($i, $f) = $x -> dparts(); # ok 593 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 594 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 595 - value of integer part ok 596 - value of fraction part ok 597 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); $i = $x -> dparts(); # ok 598 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 599 - value of integer part ok 600 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); ($i, $f) = $x -> dparts(); # ok 601 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 602 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 603 - value of integer part ok 604 - value of fraction part ok 605 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $i = $x -> dparts(); # ok 606 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 607 - value of integer part ok 608 - input is unmodified # # $x = Math::BigInt -> new("-123"); ($i, $f) = $x -> dparts(); # ok 609 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 610 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 611 - value of integer part ok 612 - value of fraction part ok 613 - input is unmodified # # $x = Math::BigInt -> new("-123"); $i = $x -> dparts(); # ok 614 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 615 - value of integer part ok 616 - input is unmodified # # $x = Math::BigInt -> new("-1230"); ($i, $f) = $x -> dparts(); # ok 617 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 618 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 619 - value of integer part ok 620 - value of fraction part ok 621 - input is unmodified # # $x = Math::BigInt -> new("-1230"); $i = $x -> dparts(); # ok 622 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 623 - value of integer part ok 624 - input is unmodified # # $x = Math::BigInt -> new("-12300"); ($i, $f) = $x -> dparts(); # ok 625 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 626 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 627 - value of integer part ok 628 - value of fraction part ok 629 - input is unmodified # # $x = Math::BigInt -> new("-12300"); $i = $x -> dparts(); # ok 630 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 631 - value of integer part ok 632 - input is unmodified # # $x = Math::BigInt -> new("-123000"); ($i, $f) = $x -> dparts(); # ok 633 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 634 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 635 - value of integer part ok 636 - value of fraction part ok 637 - input is unmodified # # $x = Math::BigInt -> new("-123000"); $i = $x -> dparts(); # ok 638 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 639 - value of integer part ok 640 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); ($i, $f) = $x -> dparts(); # ok 641 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 642 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 643 - value of integer part ok 644 - value of fraction part ok 645 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); $i = $x -> dparts(); # ok 646 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 647 - value of integer part ok 648 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); ($i, $f) = $x -> dparts(); # ok 649 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 650 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 651 - value of integer part ok 652 - value of fraction part ok 653 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); $i = $x -> dparts(); # ok 654 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 655 - value of integer part ok 656 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); ($i, $f) = $x -> dparts(); # ok 657 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 658 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 659 - value of integer part ok 660 - value of fraction part ok 661 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); $i = $x -> dparts(); # ok 662 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 663 - value of integer part ok 664 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); ($i, $f) = $x -> dparts(); # ok 665 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 666 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 667 - value of integer part ok 668 - value of fraction part ok 669 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); $i = $x -> dparts(); # ok 670 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 671 - value of integer part ok 672 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); ($i, $f) = $x -> dparts(); # ok 673 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 674 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 675 - value of integer part ok 676 - value of fraction part ok 677 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); $i = $x -> dparts(); # ok 678 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 679 - value of integer part ok 680 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); ($i, $f) = $x -> dparts(); # ok 681 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 682 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 683 - value of integer part ok 684 - value of fraction part ok 685 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); $i = $x -> dparts(); # ok 686 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 687 - value of integer part ok 688 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); ($i, $f) = $x -> dparts(); # ok 689 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 690 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 691 - value of integer part ok 692 - value of fraction part ok 693 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $i = $x -> dparts(); # ok 694 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 695 - value of integer part ok 696 - input is unmodified # # $x = Math::BigInt -> new("-1234"); ($i, $f) = $x -> dparts(); # ok 697 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 698 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 699 - value of integer part ok 700 - value of fraction part ok 701 - input is unmodified # # $x = Math::BigInt -> new("-1234"); $i = $x -> dparts(); # ok 702 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 703 - value of integer part ok 704 - input is unmodified # # $x = Math::BigInt -> new("-12340"); ($i, $f) = $x -> dparts(); # ok 705 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 706 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 707 - value of integer part ok 708 - value of fraction part ok 709 - input is unmodified # # $x = Math::BigInt -> new("-12340"); $i = $x -> dparts(); # ok 710 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 711 - value of integer part ok 712 - input is unmodified # # $x = Math::BigInt -> new("-123400"); ($i, $f) = $x -> dparts(); # ok 713 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 714 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 715 - value of integer part ok 716 - value of fraction part ok 717 - input is unmodified # # $x = Math::BigInt -> new("-123400"); $i = $x -> dparts(); # ok 718 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 719 - value of integer part ok 720 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); ($i, $f) = $x -> dparts(); # ok 721 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 722 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 723 - value of integer part ok 724 - value of fraction part ok 725 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); $i = $x -> dparts(); # ok 726 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 727 - value of integer part ok 728 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); ($i, $f) = $x -> dparts(); # ok 729 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 730 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 731 - value of integer part ok 732 - value of fraction part ok 733 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); $i = $x -> dparts(); # ok 734 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 735 - value of integer part ok 736 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); ($i, $f) = $x -> dparts(); # ok 737 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 738 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 739 - value of integer part ok 740 - value of fraction part ok 741 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); $i = $x -> dparts(); # ok 742 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 743 - value of integer part ok 744 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); ($i, $f) = $x -> dparts(); # ok 745 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 746 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 747 - value of integer part ok 748 - value of fraction part ok 749 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); $i = $x -> dparts(); # ok 750 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 751 - value of integer part ok 752 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); ($i, $f) = $x -> dparts(); # ok 753 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 754 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 755 - value of integer part ok 756 - value of fraction part ok 757 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); $i = $x -> dparts(); # ok 758 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 759 - value of integer part ok 760 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); ($i, $f) = $x -> dparts(); # ok 761 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 762 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 763 - value of integer part ok 764 - value of fraction part ok 765 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); $i = $x -> dparts(); # ok 766 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 767 - value of integer part ok 768 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); ($i, $f) = $x -> dparts(); # ok 769 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 770 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 771 - value of integer part ok 772 - value of fraction part ok 773 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $i = $x -> dparts(); # ok 774 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 775 - value of integer part ok 776 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); ($i, $f) = $x -> dparts(); # ok 777 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 778 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 779 - value of integer part ok 780 - value of fraction part ok 781 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); $i = $x -> dparts(); # ok 782 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 783 - value of integer part ok 784 - input is unmodified ok t/eparts-mbf.t ................................ 1..1840 # # $x = Math::BigFloat -> new("NaN"); ($m, $e) = $x -> eparts(); # ok 1 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 2 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigFloat -> new("NaN"); $m = $x -> eparts(); # ok 6 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigFloat -> new("inf"); ($m, $e) = $x -> eparts(); # ok 9 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 10 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigFloat -> new("inf"); $m = $x -> eparts(); # ok 14 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); ($m, $e) = $x -> eparts(); # ok 17 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 18 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); $m = $x -> eparts(); # ok 22 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigFloat -> new("0"); ($m, $e) = $x -> eparts(); # ok 25 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 26 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigFloat -> new("0"); $m = $x -> eparts(); # ok 30 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); ($m, $e) = $x -> eparts(); # ok 33 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 34 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $m = $x -> eparts(); # ok 38 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); ($m, $e) = $x -> eparts(); # ok 41 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 42 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $m = $x -> eparts(); # ok 46 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); ($m, $e) = $x -> eparts(); # ok 49 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 50 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $m = $x -> eparts(); # ok 54 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); ($m, $e) = $x -> eparts(); # ok 57 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 58 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $m = $x -> eparts(); # ok 62 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); ($m, $e) = $x -> eparts(); # ok 65 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 66 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $m = $x -> eparts(); # ok 70 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); ($m, $e) = $x -> eparts(); # ok 73 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 74 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $m = $x -> eparts(); # ok 78 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); ($m, $e) = $x -> eparts(); # ok 81 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 82 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); $m = $x -> eparts(); # ok 86 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); ($m, $e) = $x -> eparts(); # ok 89 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 90 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); $m = $x -> eparts(); # ok 94 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); ($m, $e) = $x -> eparts(); # ok 97 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 98 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); $m = $x -> eparts(); # ok 102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); ($m, $e) = $x -> eparts(); # ok 105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); $m = $x -> eparts(); # ok 110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); ($m, $e) = $x -> eparts(); # ok 113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); $m = $x -> eparts(); # ok 118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); ($m, $e) = $x -> eparts(); # ok 121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); $m = $x -> eparts(); # ok 126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigFloat -> new("1"); ($m, $e) = $x -> eparts(); # ok 129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigFloat -> new("1"); $m = $x -> eparts(); # ok 134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigFloat -> new("10"); ($m, $e) = $x -> eparts(); # ok 137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigFloat -> new("10"); $m = $x -> eparts(); # ok 142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigFloat -> new("100"); ($m, $e) = $x -> eparts(); # ok 145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigFloat -> new("100"); $m = $x -> eparts(); # ok 150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigFloat -> new("1000"); ($m, $e) = $x -> eparts(); # ok 153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigFloat -> new("1000"); $m = $x -> eparts(); # ok 158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigFloat -> new("10000"); ($m, $e) = $x -> eparts(); # ok 161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigFloat -> new("10000"); $m = $x -> eparts(); # ok 166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigFloat -> new("100000"); ($m, $e) = $x -> eparts(); # ok 169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigFloat -> new("100000"); $m = $x -> eparts(); # ok 174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); ($m, $e) = $x -> eparts(); # ok 177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); $m = $x -> eparts(); # ok 182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); ($m, $e) = $x -> eparts(); # ok 185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); $m = $x -> eparts(); # ok 190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); ($m, $e) = $x -> eparts(); # ok 193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); $m = $x -> eparts(); # ok 198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); ($m, $e) = $x -> eparts(); # ok 201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); $m = $x -> eparts(); # ok 206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); ($m, $e) = $x -> eparts(); # ok 209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); $m = $x -> eparts(); # ok 214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); ($m, $e) = $x -> eparts(); # ok 217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); $m = $x -> eparts(); # ok 222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); ($m, $e) = $x -> eparts(); # ok 225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $m = $x -> eparts(); # ok 230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); ($m, $e) = $x -> eparts(); # ok 233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $m = $x -> eparts(); # ok 238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); ($m, $e) = $x -> eparts(); # ok 241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $m = $x -> eparts(); # ok 246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); ($m, $e) = $x -> eparts(); # ok 249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $m = $x -> eparts(); # ok 254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); ($m, $e) = $x -> eparts(); # ok 257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $m = $x -> eparts(); # ok 262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); ($m, $e) = $x -> eparts(); # ok 265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $m = $x -> eparts(); # ok 270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); ($m, $e) = $x -> eparts(); # ok 273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $m = $x -> eparts(); # ok 278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); ($m, $e) = $x -> eparts(); # ok 281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $m = $x -> eparts(); # ok 286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); ($m, $e) = $x -> eparts(); # ok 289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); $m = $x -> eparts(); # ok 294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); ($m, $e) = $x -> eparts(); # ok 297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); $m = $x -> eparts(); # ok 302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); ($m, $e) = $x -> eparts(); # ok 305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); $m = $x -> eparts(); # ok 310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); ($m, $e) = $x -> eparts(); # ok 313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); $m = $x -> eparts(); # ok 318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); ($m, $e) = $x -> eparts(); # ok 321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); $m = $x -> eparts(); # ok 326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); ($m, $e) = $x -> eparts(); # ok 329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); $m = $x -> eparts(); # ok 334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigFloat -> new("12"); ($m, $e) = $x -> eparts(); # ok 337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigFloat -> new("12"); $m = $x -> eparts(); # ok 342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigFloat -> new("120"); ($m, $e) = $x -> eparts(); # ok 345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigFloat -> new("120"); $m = $x -> eparts(); # ok 350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigFloat -> new("1200"); ($m, $e) = $x -> eparts(); # ok 353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigFloat -> new("1200"); $m = $x -> eparts(); # ok 358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigFloat -> new("12000"); ($m, $e) = $x -> eparts(); # ok 361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigFloat -> new("12000"); $m = $x -> eparts(); # ok 366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigFloat -> new("120000"); ($m, $e) = $x -> eparts(); # ok 369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigFloat -> new("120000"); $m = $x -> eparts(); # ok 374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); ($m, $e) = $x -> eparts(); # ok 377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); $m = $x -> eparts(); # ok 382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); ($m, $e) = $x -> eparts(); # ok 385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); $m = $x -> eparts(); # ok 390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); ($m, $e) = $x -> eparts(); # ok 393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); $m = $x -> eparts(); # ok 398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); ($m, $e) = $x -> eparts(); # ok 401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); $m = $x -> eparts(); # ok 406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); ($m, $e) = $x -> eparts(); # ok 409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); $m = $x -> eparts(); # ok 414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); ($m, $e) = $x -> eparts(); # ok 417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); $m = $x -> eparts(); # ok 422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); ($m, $e) = $x -> eparts(); # ok 425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $m = $x -> eparts(); # ok 430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); ($m, $e) = $x -> eparts(); # ok 433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $m = $x -> eparts(); # ok 438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); ($m, $e) = $x -> eparts(); # ok 441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $m = $x -> eparts(); # ok 446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); ($m, $e) = $x -> eparts(); # ok 449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $m = $x -> eparts(); # ok 454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); ($m, $e) = $x -> eparts(); # ok 457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $m = $x -> eparts(); # ok 462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); ($m, $e) = $x -> eparts(); # ok 465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $m = $x -> eparts(); # ok 470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); ($m, $e) = $x -> eparts(); # ok 473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $m = $x -> eparts(); # ok 478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); ($m, $e) = $x -> eparts(); # ok 481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $m = $x -> eparts(); # ok 486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); ($m, $e) = $x -> eparts(); # ok 489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $m = $x -> eparts(); # ok 494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); ($m, $e) = $x -> eparts(); # ok 497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); $m = $x -> eparts(); # ok 502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); ($m, $e) = $x -> eparts(); # ok 505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); $m = $x -> eparts(); # ok 510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); ($m, $e) = $x -> eparts(); # ok 513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); $m = $x -> eparts(); # ok 518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); ($m, $e) = $x -> eparts(); # ok 521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); $m = $x -> eparts(); # ok 526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); ($m, $e) = $x -> eparts(); # ok 529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); $m = $x -> eparts(); # ok 534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); ($m, $e) = $x -> eparts(); # ok 537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); $m = $x -> eparts(); # ok 542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigFloat -> new("123"); ($m, $e) = $x -> eparts(); # ok 545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigFloat -> new("123"); $m = $x -> eparts(); # ok 550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigFloat -> new("1230"); ($m, $e) = $x -> eparts(); # ok 553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigFloat -> new("1230"); $m = $x -> eparts(); # ok 558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigFloat -> new("12300"); ($m, $e) = $x -> eparts(); # ok 561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigFloat -> new("12300"); $m = $x -> eparts(); # ok 566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigFloat -> new("123000"); ($m, $e) = $x -> eparts(); # ok 569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigFloat -> new("123000"); $m = $x -> eparts(); # ok 574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); ($m, $e) = $x -> eparts(); # ok 577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); $m = $x -> eparts(); # ok 582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); ($m, $e) = $x -> eparts(); # ok 585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); $m = $x -> eparts(); # ok 590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); ($m, $e) = $x -> eparts(); # ok 593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); $m = $x -> eparts(); # ok 598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); ($m, $e) = $x -> eparts(); # ok 601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); $m = $x -> eparts(); # ok 606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); ($m, $e) = $x -> eparts(); # ok 609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); $m = $x -> eparts(); # ok 614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); ($m, $e) = $x -> eparts(); # ok 617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); $m = $x -> eparts(); # ok 622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); ($m, $e) = $x -> eparts(); # ok 625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $m = $x -> eparts(); # ok 630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); ($m, $e) = $x -> eparts(); # ok 633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $m = $x -> eparts(); # ok 638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); ($m, $e) = $x -> eparts(); # ok 641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $m = $x -> eparts(); # ok 646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); ($m, $e) = $x -> eparts(); # ok 649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $m = $x -> eparts(); # ok 654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); ($m, $e) = $x -> eparts(); # ok 657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $m = $x -> eparts(); # ok 662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); ($m, $e) = $x -> eparts(); # ok 665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $m = $x -> eparts(); # ok 670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); ($m, $e) = $x -> eparts(); # ok 673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $m = $x -> eparts(); # ok 678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); ($m, $e) = $x -> eparts(); # ok 681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $m = $x -> eparts(); # ok 686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); ($m, $e) = $x -> eparts(); # ok 689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $m = $x -> eparts(); # ok 694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); ($m, $e) = $x -> eparts(); # ok 697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $m = $x -> eparts(); # ok 702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); ($m, $e) = $x -> eparts(); # ok 705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); $m = $x -> eparts(); # ok 710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); ($m, $e) = $x -> eparts(); # ok 713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); $m = $x -> eparts(); # ok 718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); ($m, $e) = $x -> eparts(); # ok 721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); $m = $x -> eparts(); # ok 726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); ($m, $e) = $x -> eparts(); # ok 729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); $m = $x -> eparts(); # ok 734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); ($m, $e) = $x -> eparts(); # ok 737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); $m = $x -> eparts(); # ok 742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); ($m, $e) = $x -> eparts(); # ok 745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); $m = $x -> eparts(); # ok 750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigFloat -> new("1234"); ($m, $e) = $x -> eparts(); # ok 753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigFloat -> new("1234"); $m = $x -> eparts(); # ok 758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigFloat -> new("12340"); ($m, $e) = $x -> eparts(); # ok 761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigFloat -> new("12340"); $m = $x -> eparts(); # ok 766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigFloat -> new("123400"); ($m, $e) = $x -> eparts(); # ok 769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigFloat -> new("123400"); $m = $x -> eparts(); # ok 774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); ($m, $e) = $x -> eparts(); # ok 777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); $m = $x -> eparts(); # ok 782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 783 - value of mantissa ok 784 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); ($m, $e) = $x -> eparts(); # ok 785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 787 - value of mantissa ok 788 - value of exponent ok 789 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); $m = $x -> eparts(); # ok 790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 791 - value of mantissa ok 792 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); ($m, $e) = $x -> eparts(); # ok 793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 795 - value of mantissa ok 796 - value of exponent ok 797 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); $m = $x -> eparts(); # ok 798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 799 - value of mantissa ok 800 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); ($m, $e) = $x -> eparts(); # ok 801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 803 - value of mantissa ok 804 - value of exponent ok 805 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); $m = $x -> eparts(); # ok 806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 807 - value of mantissa ok 808 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); ($m, $e) = $x -> eparts(); # ok 809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 811 - value of mantissa ok 812 - value of exponent ok 813 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); $m = $x -> eparts(); # ok 814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 815 - value of mantissa ok 816 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); ($m, $e) = $x -> eparts(); # ok 817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 819 - value of mantissa ok 820 - value of exponent ok 821 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); $m = $x -> eparts(); # ok 822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 823 - value of mantissa ok 824 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); ($m, $e) = $x -> eparts(); # ok 825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 827 - value of mantissa ok 828 - value of exponent ok 829 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $m = $x -> eparts(); # ok 830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 831 - value of mantissa ok 832 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); ($m, $e) = $x -> eparts(); # ok 833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 835 - value of mantissa ok 836 - value of exponent ok 837 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $m = $x -> eparts(); # ok 838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 839 - value of mantissa ok 840 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); ($m, $e) = $x -> eparts(); # ok 841 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 842 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 843 - value of mantissa ok 844 - value of exponent ok 845 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $m = $x -> eparts(); # ok 846 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 847 - value of mantissa ok 848 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); ($m, $e) = $x -> eparts(); # ok 849 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 850 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 851 - value of mantissa ok 852 - value of exponent ok 853 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $m = $x -> eparts(); # ok 854 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 855 - value of mantissa ok 856 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); ($m, $e) = $x -> eparts(); # ok 857 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 858 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 859 - value of mantissa ok 860 - value of exponent ok 861 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $m = $x -> eparts(); # ok 862 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 863 - value of mantissa ok 864 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); ($m, $e) = $x -> eparts(); # ok 865 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 866 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 867 - value of mantissa ok 868 - value of exponent ok 869 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $m = $x -> eparts(); # ok 870 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 871 - value of mantissa ok 872 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); ($m, $e) = $x -> eparts(); # ok 873 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 874 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 875 - value of mantissa ok 876 - value of exponent ok 877 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $m = $x -> eparts(); # ok 878 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 879 - value of mantissa ok 880 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); ($m, $e) = $x -> eparts(); # ok 881 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 882 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 883 - value of mantissa ok 884 - value of exponent ok 885 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); $m = $x -> eparts(); # ok 886 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 887 - value of mantissa ok 888 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); ($m, $e) = $x -> eparts(); # ok 889 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 890 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 891 - value of mantissa ok 892 - value of exponent ok 893 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); $m = $x -> eparts(); # ok 894 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 895 - value of mantissa ok 896 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); ($m, $e) = $x -> eparts(); # ok 897 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 898 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 899 - value of mantissa ok 900 - value of exponent ok 901 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); $m = $x -> eparts(); # ok 902 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 903 - value of mantissa ok 904 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); ($m, $e) = $x -> eparts(); # ok 905 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 906 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 907 - value of mantissa ok 908 - value of exponent ok 909 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); $m = $x -> eparts(); # ok 910 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 911 - value of mantissa ok 912 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); ($m, $e) = $x -> eparts(); # ok 913 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 914 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 915 - value of mantissa ok 916 - value of exponent ok 917 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); $m = $x -> eparts(); # ok 918 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 919 - value of mantissa ok 920 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); ($m, $e) = $x -> eparts(); # ok 921 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 922 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 923 - value of mantissa ok 924 - value of exponent ok 925 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); $m = $x -> eparts(); # ok 926 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 927 - value of mantissa ok 928 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); ($m, $e) = $x -> eparts(); # ok 929 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 930 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 931 - value of mantissa ok 932 - value of exponent ok 933 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); $m = $x -> eparts(); # ok 934 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 935 - value of mantissa ok 936 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); ($m, $e) = $x -> eparts(); # ok 937 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 938 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 939 - value of mantissa ok 940 - value of exponent ok 941 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $m = $x -> eparts(); # ok 942 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 943 - value of mantissa ok 944 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); ($m, $e) = $x -> eparts(); # ok 945 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 946 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 947 - value of mantissa ok 948 - value of exponent ok 949 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $m = $x -> eparts(); # ok 950 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 951 - value of mantissa ok 952 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); ($m, $e) = $x -> eparts(); # ok 953 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 954 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 955 - value of mantissa ok 956 - value of exponent ok 957 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $m = $x -> eparts(); # ok 958 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 959 - value of mantissa ok 960 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); ($m, $e) = $x -> eparts(); # ok 961 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 962 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 963 - value of mantissa ok 964 - value of exponent ok 965 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $m = $x -> eparts(); # ok 966 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 967 - value of mantissa ok 968 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); ($m, $e) = $x -> eparts(); # ok 969 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 970 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 971 - value of mantissa ok 972 - value of exponent ok 973 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $m = $x -> eparts(); # ok 974 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 975 - value of mantissa ok 976 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); ($m, $e) = $x -> eparts(); # ok 977 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 978 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 979 - value of mantissa ok 980 - value of exponent ok 981 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $m = $x -> eparts(); # ok 982 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 983 - value of mantissa ok 984 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); ($m, $e) = $x -> eparts(); # ok 985 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 986 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 987 - value of mantissa ok 988 - value of exponent ok 989 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $m = $x -> eparts(); # ok 990 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 991 - value of mantissa ok 992 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); ($m, $e) = $x -> eparts(); # ok 993 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 994 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 995 - value of mantissa ok 996 - value of exponent ok 997 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $m = $x -> eparts(); # ok 998 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 999 - value of mantissa ok 1000 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); ($m, $e) = $x -> eparts(); # ok 1001 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1002 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1003 - value of mantissa ok 1004 - value of exponent ok 1005 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $m = $x -> eparts(); # ok 1006 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1007 - value of mantissa ok 1008 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); ($m, $e) = $x -> eparts(); # ok 1009 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1010 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1011 - value of mantissa ok 1012 - value of exponent ok 1013 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); $m = $x -> eparts(); # ok 1014 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1015 - value of mantissa ok 1016 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); ($m, $e) = $x -> eparts(); # ok 1017 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1018 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1019 - value of mantissa ok 1020 - value of exponent ok 1021 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); $m = $x -> eparts(); # ok 1022 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1023 - value of mantissa ok 1024 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); ($m, $e) = $x -> eparts(); # ok 1025 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1026 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1027 - value of mantissa ok 1028 - value of exponent ok 1029 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); $m = $x -> eparts(); # ok 1030 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1031 - value of mantissa ok 1032 - input is unmodified # # $x = Math::BigFloat -> new("-1"); ($m, $e) = $x -> eparts(); # ok 1033 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1034 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1035 - value of mantissa ok 1036 - value of exponent ok 1037 - input is unmodified # # $x = Math::BigFloat -> new("-1"); $m = $x -> eparts(); # ok 1038 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1039 - value of mantissa ok 1040 - input is unmodified # # $x = Math::BigFloat -> new("-10"); ($m, $e) = $x -> eparts(); # ok 1041 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1042 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1043 - value of mantissa ok 1044 - value of exponent ok 1045 - input is unmodified # # $x = Math::BigFloat -> new("-10"); $m = $x -> eparts(); # ok 1046 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1047 - value of mantissa ok 1048 - input is unmodified # # $x = Math::BigFloat -> new("-100"); ($m, $e) = $x -> eparts(); # ok 1049 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1050 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1051 - value of mantissa ok 1052 - value of exponent ok 1053 - input is unmodified # # $x = Math::BigFloat -> new("-100"); $m = $x -> eparts(); # ok 1054 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1055 - value of mantissa ok 1056 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); ($m, $e) = $x -> eparts(); # ok 1057 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1058 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1059 - value of mantissa ok 1060 - value of exponent ok 1061 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); $m = $x -> eparts(); # ok 1062 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1063 - value of mantissa ok 1064 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); ($m, $e) = $x -> eparts(); # ok 1065 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1066 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1067 - value of mantissa ok 1068 - value of exponent ok 1069 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); $m = $x -> eparts(); # ok 1070 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1071 - value of mantissa ok 1072 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); ($m, $e) = $x -> eparts(); # ok 1073 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1074 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1075 - value of mantissa ok 1076 - value of exponent ok 1077 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); $m = $x -> eparts(); # ok 1078 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1079 - value of mantissa ok 1080 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); ($m, $e) = $x -> eparts(); # ok 1081 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1082 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1083 - value of mantissa ok 1084 - value of exponent ok 1085 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); $m = $x -> eparts(); # ok 1086 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1087 - value of mantissa ok 1088 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); ($m, $e) = $x -> eparts(); # ok 1089 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1090 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1091 - value of mantissa ok 1092 - value of exponent ok 1093 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); $m = $x -> eparts(); # ok 1094 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1095 - value of mantissa ok 1096 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); ($m, $e) = $x -> eparts(); # ok 1097 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1098 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1099 - value of mantissa ok 1100 - value of exponent ok 1101 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); $m = $x -> eparts(); # ok 1102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1103 - value of mantissa ok 1104 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); ($m, $e) = $x -> eparts(); # ok 1105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1107 - value of mantissa ok 1108 - value of exponent ok 1109 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $m = $x -> eparts(); # ok 1110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1111 - value of mantissa ok 1112 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); ($m, $e) = $x -> eparts(); # ok 1113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1115 - value of mantissa ok 1116 - value of exponent ok 1117 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $m = $x -> eparts(); # ok 1118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1119 - value of mantissa ok 1120 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); ($m, $e) = $x -> eparts(); # ok 1121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1123 - value of mantissa ok 1124 - value of exponent ok 1125 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $m = $x -> eparts(); # ok 1126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1127 - value of mantissa ok 1128 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); ($m, $e) = $x -> eparts(); # ok 1129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1131 - value of mantissa ok 1132 - value of exponent ok 1133 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $m = $x -> eparts(); # ok 1134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1135 - value of mantissa ok 1136 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); ($m, $e) = $x -> eparts(); # ok 1137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1139 - value of mantissa ok 1140 - value of exponent ok 1141 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $m = $x -> eparts(); # ok 1142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1143 - value of mantissa ok 1144 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); ($m, $e) = $x -> eparts(); # ok 1145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1147 - value of mantissa ok 1148 - value of exponent ok 1149 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $m = $x -> eparts(); # ok 1150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1151 - value of mantissa ok 1152 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); ($m, $e) = $x -> eparts(); # ok 1153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1155 - value of mantissa ok 1156 - value of exponent ok 1157 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $m = $x -> eparts(); # ok 1158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1159 - value of mantissa ok 1160 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); ($m, $e) = $x -> eparts(); # ok 1161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1163 - value of mantissa ok 1164 - value of exponent ok 1165 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $m = $x -> eparts(); # ok 1166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1167 - value of mantissa ok 1168 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); ($m, $e) = $x -> eparts(); # ok 1169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1171 - value of mantissa ok 1172 - value of exponent ok 1173 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $m = $x -> eparts(); # ok 1174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1175 - value of mantissa ok 1176 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); ($m, $e) = $x -> eparts(); # ok 1177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1179 - value of mantissa ok 1180 - value of exponent ok 1181 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $m = $x -> eparts(); # ok 1182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1183 - value of mantissa ok 1184 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); ($m, $e) = $x -> eparts(); # ok 1185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1187 - value of mantissa ok 1188 - value of exponent ok 1189 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $m = $x -> eparts(); # ok 1190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1191 - value of mantissa ok 1192 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); ($m, $e) = $x -> eparts(); # ok 1193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1195 - value of mantissa ok 1196 - value of exponent ok 1197 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $m = $x -> eparts(); # ok 1198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1199 - value of mantissa ok 1200 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); ($m, $e) = $x -> eparts(); # ok 1201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1203 - value of mantissa ok 1204 - value of exponent ok 1205 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $m = $x -> eparts(); # ok 1206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1207 - value of mantissa ok 1208 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); ($m, $e) = $x -> eparts(); # ok 1209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1211 - value of mantissa ok 1212 - value of exponent ok 1213 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $m = $x -> eparts(); # ok 1214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1215 - value of mantissa ok 1216 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); ($m, $e) = $x -> eparts(); # ok 1217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1219 - value of mantissa ok 1220 - value of exponent ok 1221 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); $m = $x -> eparts(); # ok 1222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1223 - value of mantissa ok 1224 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); ($m, $e) = $x -> eparts(); # ok 1225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1227 - value of mantissa ok 1228 - value of exponent ok 1229 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); $m = $x -> eparts(); # ok 1230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1231 - value of mantissa ok 1232 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); ($m, $e) = $x -> eparts(); # ok 1233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1235 - value of mantissa ok 1236 - value of exponent ok 1237 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); $m = $x -> eparts(); # ok 1238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1239 - value of mantissa ok 1240 - input is unmodified # # $x = Math::BigFloat -> new("-12"); ($m, $e) = $x -> eparts(); # ok 1241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1243 - value of mantissa ok 1244 - value of exponent ok 1245 - input is unmodified # # $x = Math::BigFloat -> new("-12"); $m = $x -> eparts(); # ok 1246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1247 - value of mantissa ok 1248 - input is unmodified # # $x = Math::BigFloat -> new("-120"); ($m, $e) = $x -> eparts(); # ok 1249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1251 - value of mantissa ok 1252 - value of exponent ok 1253 - input is unmodified # # $x = Math::BigFloat -> new("-120"); $m = $x -> eparts(); # ok 1254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1255 - value of mantissa ok 1256 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); ($m, $e) = $x -> eparts(); # ok 1257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1259 - value of mantissa ok 1260 - value of exponent ok 1261 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); $m = $x -> eparts(); # ok 1262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1263 - value of mantissa ok 1264 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); ($m, $e) = $x -> eparts(); # ok 1265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1267 - value of mantissa ok 1268 - value of exponent ok 1269 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); $m = $x -> eparts(); # ok 1270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1271 - value of mantissa ok 1272 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); ($m, $e) = $x -> eparts(); # ok 1273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1275 - value of mantissa ok 1276 - value of exponent ok 1277 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); $m = $x -> eparts(); # ok 1278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1279 - value of mantissa ok 1280 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); ($m, $e) = $x -> eparts(); # ok 1281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1283 - value of mantissa ok 1284 - value of exponent ok 1285 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); $m = $x -> eparts(); # ok 1286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1287 - value of mantissa ok 1288 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); ($m, $e) = $x -> eparts(); # ok 1289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1291 - value of mantissa ok 1292 - value of exponent ok 1293 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); $m = $x -> eparts(); # ok 1294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1295 - value of mantissa ok 1296 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); ($m, $e) = $x -> eparts(); # ok 1297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1299 - value of mantissa ok 1300 - value of exponent ok 1301 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); $m = $x -> eparts(); # ok 1302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1303 - value of mantissa ok 1304 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); ($m, $e) = $x -> eparts(); # ok 1305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1307 - value of mantissa ok 1308 - value of exponent ok 1309 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $m = $x -> eparts(); # ok 1310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1311 - value of mantissa ok 1312 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); ($m, $e) = $x -> eparts(); # ok 1313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1315 - value of mantissa ok 1316 - value of exponent ok 1317 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $m = $x -> eparts(); # ok 1318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1319 - value of mantissa ok 1320 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); ($m, $e) = $x -> eparts(); # ok 1321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1323 - value of mantissa ok 1324 - value of exponent ok 1325 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $m = $x -> eparts(); # ok 1326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1327 - value of mantissa ok 1328 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); ($m, $e) = $x -> eparts(); # ok 1329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1331 - value of mantissa ok 1332 - value of exponent ok 1333 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $m = $x -> eparts(); # ok 1334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1335 - value of mantissa ok 1336 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); ($m, $e) = $x -> eparts(); # ok 1337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1339 - value of mantissa ok 1340 - value of exponent ok 1341 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $m = $x -> eparts(); # ok 1342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1343 - value of mantissa ok 1344 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); ($m, $e) = $x -> eparts(); # ok 1345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1347 - value of mantissa ok 1348 - value of exponent ok 1349 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $m = $x -> eparts(); # ok 1350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1351 - value of mantissa ok 1352 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); ($m, $e) = $x -> eparts(); # ok 1353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1355 - value of mantissa ok 1356 - value of exponent ok 1357 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $m = $x -> eparts(); # ok 1358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1359 - value of mantissa ok 1360 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); ($m, $e) = $x -> eparts(); # ok 1361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1363 - value of mantissa ok 1364 - value of exponent ok 1365 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $m = $x -> eparts(); # ok 1366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1367 - value of mantissa ok 1368 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); ($m, $e) = $x -> eparts(); # ok 1369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1371 - value of mantissa ok 1372 - value of exponent ok 1373 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $m = $x -> eparts(); # ok 1374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1375 - value of mantissa ok 1376 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); ($m, $e) = $x -> eparts(); # ok 1377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1379 - value of mantissa ok 1380 - value of exponent ok 1381 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $m = $x -> eparts(); # ok 1382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1383 - value of mantissa ok 1384 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); ($m, $e) = $x -> eparts(); # ok 1385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1387 - value of mantissa ok 1388 - value of exponent ok 1389 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $m = $x -> eparts(); # ok 1390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1391 - value of mantissa ok 1392 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); ($m, $e) = $x -> eparts(); # ok 1393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1395 - value of mantissa ok 1396 - value of exponent ok 1397 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $m = $x -> eparts(); # ok 1398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1399 - value of mantissa ok 1400 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); ($m, $e) = $x -> eparts(); # ok 1401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1403 - value of mantissa ok 1404 - value of exponent ok 1405 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $m = $x -> eparts(); # ok 1406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1407 - value of mantissa ok 1408 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); ($m, $e) = $x -> eparts(); # ok 1409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1411 - value of mantissa ok 1412 - value of exponent ok 1413 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $m = $x -> eparts(); # ok 1414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1415 - value of mantissa ok 1416 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); ($m, $e) = $x -> eparts(); # ok 1417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1419 - value of mantissa ok 1420 - value of exponent ok 1421 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $m = $x -> eparts(); # ok 1422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1423 - value of mantissa ok 1424 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); ($m, $e) = $x -> eparts(); # ok 1425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1427 - value of mantissa ok 1428 - value of exponent ok 1429 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); $m = $x -> eparts(); # ok 1430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1431 - value of mantissa ok 1432 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); ($m, $e) = $x -> eparts(); # ok 1433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1435 - value of mantissa ok 1436 - value of exponent ok 1437 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); $m = $x -> eparts(); # ok 1438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1439 - value of mantissa ok 1440 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); ($m, $e) = $x -> eparts(); # ok 1441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1443 - value of mantissa ok 1444 - value of exponent ok 1445 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); $m = $x -> eparts(); # ok 1446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1447 - value of mantissa ok 1448 - input is unmodified # # $x = Math::BigFloat -> new("-123"); ($m, $e) = $x -> eparts(); # ok 1449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1451 - value of mantissa ok 1452 - value of exponent ok 1453 - input is unmodified # # $x = Math::BigFloat -> new("-123"); $m = $x -> eparts(); # ok 1454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1455 - value of mantissa ok 1456 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); ($m, $e) = $x -> eparts(); # ok 1457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1459 - value of mantissa ok 1460 - value of exponent ok 1461 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); $m = $x -> eparts(); # ok 1462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1463 - value of mantissa ok 1464 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); ($m, $e) = $x -> eparts(); # ok 1465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1467 - value of mantissa ok 1468 - value of exponent ok 1469 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); $m = $x -> eparts(); # ok 1470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1471 - value of mantissa ok 1472 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); ($m, $e) = $x -> eparts(); # ok 1473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1475 - value of mantissa ok 1476 - value of exponent ok 1477 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); $m = $x -> eparts(); # ok 1478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1479 - value of mantissa ok 1480 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); ($m, $e) = $x -> eparts(); # ok 1481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1483 - value of mantissa ok 1484 - value of exponent ok 1485 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); $m = $x -> eparts(); # ok 1486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1487 - value of mantissa ok 1488 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); ($m, $e) = $x -> eparts(); # ok 1489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1491 - value of mantissa ok 1492 - value of exponent ok 1493 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); $m = $x -> eparts(); # ok 1494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1495 - value of mantissa ok 1496 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); ($m, $e) = $x -> eparts(); # ok 1497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1499 - value of mantissa ok 1500 - value of exponent ok 1501 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); $m = $x -> eparts(); # ok 1502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1503 - value of mantissa ok 1504 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); ($m, $e) = $x -> eparts(); # ok 1505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1507 - value of mantissa ok 1508 - value of exponent ok 1509 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $m = $x -> eparts(); # ok 1510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1511 - value of mantissa ok 1512 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); ($m, $e) = $x -> eparts(); # ok 1513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1515 - value of mantissa ok 1516 - value of exponent ok 1517 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $m = $x -> eparts(); # ok 1518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1519 - value of mantissa ok 1520 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); ($m, $e) = $x -> eparts(); # ok 1521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1523 - value of mantissa ok 1524 - value of exponent ok 1525 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $m = $x -> eparts(); # ok 1526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1527 - value of mantissa ok 1528 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); ($m, $e) = $x -> eparts(); # ok 1529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1531 - value of mantissa ok 1532 - value of exponent ok 1533 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $m = $x -> eparts(); # ok 1534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1535 - value of mantissa ok 1536 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); ($m, $e) = $x -> eparts(); # ok 1537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1539 - value of mantissa ok 1540 - value of exponent ok 1541 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $m = $x -> eparts(); # ok 1542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1543 - value of mantissa ok 1544 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); ($m, $e) = $x -> eparts(); # ok 1545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1547 - value of mantissa ok 1548 - value of exponent ok 1549 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $m = $x -> eparts(); # ok 1550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1551 - value of mantissa ok 1552 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); ($m, $e) = $x -> eparts(); # ok 1553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1555 - value of mantissa ok 1556 - value of exponent ok 1557 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $m = $x -> eparts(); # ok 1558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1559 - value of mantissa ok 1560 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); ($m, $e) = $x -> eparts(); # ok 1561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1563 - value of mantissa ok 1564 - value of exponent ok 1565 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $m = $x -> eparts(); # ok 1566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1567 - value of mantissa ok 1568 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); ($m, $e) = $x -> eparts(); # ok 1569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1571 - value of mantissa ok 1572 - value of exponent ok 1573 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $m = $x -> eparts(); # ok 1574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1575 - value of mantissa ok 1576 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); ($m, $e) = $x -> eparts(); # ok 1577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1579 - value of mantissa ok 1580 - value of exponent ok 1581 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $m = $x -> eparts(); # ok 1582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1583 - value of mantissa ok 1584 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); ($m, $e) = $x -> eparts(); # ok 1585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1587 - value of mantissa ok 1588 - value of exponent ok 1589 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $m = $x -> eparts(); # ok 1590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1591 - value of mantissa ok 1592 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); ($m, $e) = $x -> eparts(); # ok 1593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1595 - value of mantissa ok 1596 - value of exponent ok 1597 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $m = $x -> eparts(); # ok 1598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1599 - value of mantissa ok 1600 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); ($m, $e) = $x -> eparts(); # ok 1601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1603 - value of mantissa ok 1604 - value of exponent ok 1605 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $m = $x -> eparts(); # ok 1606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1607 - value of mantissa ok 1608 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); ($m, $e) = $x -> eparts(); # ok 1609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1611 - value of mantissa ok 1612 - value of exponent ok 1613 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $m = $x -> eparts(); # ok 1614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1615 - value of mantissa ok 1616 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); ($m, $e) = $x -> eparts(); # ok 1617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1619 - value of mantissa ok 1620 - value of exponent ok 1621 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $m = $x -> eparts(); # ok 1622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1623 - value of mantissa ok 1624 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); ($m, $e) = $x -> eparts(); # ok 1625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1627 - value of mantissa ok 1628 - value of exponent ok 1629 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $m = $x -> eparts(); # ok 1630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1631 - value of mantissa ok 1632 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); ($m, $e) = $x -> eparts(); # ok 1633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1635 - value of mantissa ok 1636 - value of exponent ok 1637 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); $m = $x -> eparts(); # ok 1638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1639 - value of mantissa ok 1640 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); ($m, $e) = $x -> eparts(); # ok 1641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1643 - value of mantissa ok 1644 - value of exponent ok 1645 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); $m = $x -> eparts(); # ok 1646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1647 - value of mantissa ok 1648 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); ($m, $e) = $x -> eparts(); # ok 1649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1651 - value of mantissa ok 1652 - value of exponent ok 1653 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); $m = $x -> eparts(); # ok 1654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1655 - value of mantissa ok 1656 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); ($m, $e) = $x -> eparts(); # ok 1657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1659 - value of mantissa ok 1660 - value of exponent ok 1661 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); $m = $x -> eparts(); # ok 1662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1663 - value of mantissa ok 1664 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); ($m, $e) = $x -> eparts(); # ok 1665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1667 - value of mantissa ok 1668 - value of exponent ok 1669 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); $m = $x -> eparts(); # ok 1670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1671 - value of mantissa ok 1672 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); ($m, $e) = $x -> eparts(); # ok 1673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1675 - value of mantissa ok 1676 - value of exponent ok 1677 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); $m = $x -> eparts(); # ok 1678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1679 - value of mantissa ok 1680 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); ($m, $e) = $x -> eparts(); # ok 1681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1683 - value of mantissa ok 1684 - value of exponent ok 1685 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); $m = $x -> eparts(); # ok 1686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1687 - value of mantissa ok 1688 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); ($m, $e) = $x -> eparts(); # ok 1689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1691 - value of mantissa ok 1692 - value of exponent ok 1693 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); $m = $x -> eparts(); # ok 1694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1695 - value of mantissa ok 1696 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); ($m, $e) = $x -> eparts(); # ok 1697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1699 - value of mantissa ok 1700 - value of exponent ok 1701 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); $m = $x -> eparts(); # ok 1702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1703 - value of mantissa ok 1704 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); ($m, $e) = $x -> eparts(); # ok 1705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1707 - value of mantissa ok 1708 - value of exponent ok 1709 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $m = $x -> eparts(); # ok 1710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1711 - value of mantissa ok 1712 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); ($m, $e) = $x -> eparts(); # ok 1713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1715 - value of mantissa ok 1716 - value of exponent ok 1717 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $m = $x -> eparts(); # ok 1718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1719 - value of mantissa ok 1720 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); ($m, $e) = $x -> eparts(); # ok 1721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1723 - value of mantissa ok 1724 - value of exponent ok 1725 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $m = $x -> eparts(); # ok 1726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1727 - value of mantissa ok 1728 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); ($m, $e) = $x -> eparts(); # ok 1729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1731 - value of mantissa ok 1732 - value of exponent ok 1733 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $m = $x -> eparts(); # ok 1734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1735 - value of mantissa ok 1736 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); ($m, $e) = $x -> eparts(); # ok 1737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1739 - value of mantissa ok 1740 - value of exponent ok 1741 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $m = $x -> eparts(); # ok 1742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1743 - value of mantissa ok 1744 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); ($m, $e) = $x -> eparts(); # ok 1745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1747 - value of mantissa ok 1748 - value of exponent ok 1749 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $m = $x -> eparts(); # ok 1750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1751 - value of mantissa ok 1752 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); ($m, $e) = $x -> eparts(); # ok 1753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1755 - value of mantissa ok 1756 - value of exponent ok 1757 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $m = $x -> eparts(); # ok 1758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1759 - value of mantissa ok 1760 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); ($m, $e) = $x -> eparts(); # ok 1761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1763 - value of mantissa ok 1764 - value of exponent ok 1765 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $m = $x -> eparts(); # ok 1766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1767 - value of mantissa ok 1768 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); ($m, $e) = $x -> eparts(); # ok 1769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1771 - value of mantissa ok 1772 - value of exponent ok 1773 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $m = $x -> eparts(); # ok 1774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1775 - value of mantissa ok 1776 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); ($m, $e) = $x -> eparts(); # ok 1777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1779 - value of mantissa ok 1780 - value of exponent ok 1781 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $m = $x -> eparts(); # ok 1782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1783 - value of mantissa ok 1784 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); ($m, $e) = $x -> eparts(); # ok 1785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1787 - value of mantissa ok 1788 - value of exponent ok 1789 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $m = $x -> eparts(); # ok 1790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1791 - value of mantissa ok 1792 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); ($m, $e) = $x -> eparts(); # ok 1793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1795 - value of mantissa ok 1796 - value of exponent ok 1797 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $m = $x -> eparts(); # ok 1798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1799 - value of mantissa ok 1800 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); ($m, $e) = $x -> eparts(); # ok 1801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1803 - value of mantissa ok 1804 - value of exponent ok 1805 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $m = $x -> eparts(); # ok 1806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1807 - value of mantissa ok 1808 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); ($m, $e) = $x -> eparts(); # ok 1809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1811 - value of mantissa ok 1812 - value of exponent ok 1813 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $m = $x -> eparts(); # ok 1814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1815 - value of mantissa ok 1816 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); ($m, $e) = $x -> eparts(); # ok 1817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1819 - value of mantissa ok 1820 - value of exponent ok 1821 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $m = $x -> eparts(); # ok 1822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1823 - value of mantissa ok 1824 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); ($m, $e) = $x -> eparts(); # ok 1825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1827 - value of mantissa ok 1828 - value of exponent ok 1829 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $m = $x -> eparts(); # ok 1830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1831 - value of mantissa ok 1832 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); ($m, $e) = $x -> eparts(); # ok 1833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1835 - value of mantissa ok 1836 - value of exponent ok 1837 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); $m = $x -> eparts(); # ok 1838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1839 - value of mantissa ok 1840 - input is unmodified ok t/eparts-mbi.t ................................ 1..784 # # $x = Math::BigInt -> new("NaN"); ($m, $e) = $x -> eparts(); # ok 1 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 2 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigInt -> new("NaN"); $m = $x -> eparts(); # ok 6 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigInt -> new("inf"); ($m, $e) = $x -> eparts(); # ok 9 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 10 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigInt -> new("inf"); $m = $x -> eparts(); # ok 14 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigInt -> new("-inf"); ($m, $e) = $x -> eparts(); # ok 17 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 18 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigInt -> new("-inf"); $m = $x -> eparts(); # ok 22 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigInt -> new("0"); ($m, $e) = $x -> eparts(); # ok 25 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 26 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigInt -> new("0"); $m = $x -> eparts(); # ok 30 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigInt -> new("1"); ($m, $e) = $x -> eparts(); # ok 33 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 34 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigInt -> new("1"); $m = $x -> eparts(); # ok 38 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigInt -> new("10"); ($m, $e) = $x -> eparts(); # ok 41 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 42 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigInt -> new("10"); $m = $x -> eparts(); # ok 46 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigInt -> new("100"); ($m, $e) = $x -> eparts(); # ok 49 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 50 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigInt -> new("100"); $m = $x -> eparts(); # ok 54 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigInt -> new("1000"); ($m, $e) = $x -> eparts(); # ok 57 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 58 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigInt -> new("1000"); $m = $x -> eparts(); # ok 62 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigInt -> new("10000"); ($m, $e) = $x -> eparts(); # ok 65 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 66 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigInt -> new("10000"); $m = $x -> eparts(); # ok 70 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigInt -> new("100000"); ($m, $e) = $x -> eparts(); # ok 73 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 74 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigInt -> new("100000"); $m = $x -> eparts(); # ok 78 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigInt -> new("1000000"); ($m, $e) = $x -> eparts(); # ok 81 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 82 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigInt -> new("1000000"); $m = $x -> eparts(); # ok 86 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigInt -> new("10000000"); ($m, $e) = $x -> eparts(); # ok 89 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 90 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigInt -> new("10000000"); $m = $x -> eparts(); # ok 94 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigInt -> new("100000000"); ($m, $e) = $x -> eparts(); # ok 97 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 98 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigInt -> new("100000000"); $m = $x -> eparts(); # ok 102 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); ($m, $e) = $x -> eparts(); # ok 105 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 106 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); $m = $x -> eparts(); # ok 110 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); ($m, $e) = $x -> eparts(); # ok 113 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 114 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); $m = $x -> eparts(); # ok 118 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); ($m, $e) = $x -> eparts(); # ok 121 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 122 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); $m = $x -> eparts(); # ok 126 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); ($m, $e) = $x -> eparts(); # ok 129 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 130 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); $m = $x -> eparts(); # ok 134 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigInt -> new("12"); ($m, $e) = $x -> eparts(); # ok 137 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 138 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigInt -> new("12"); $m = $x -> eparts(); # ok 142 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigInt -> new("120"); ($m, $e) = $x -> eparts(); # ok 145 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 146 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigInt -> new("120"); $m = $x -> eparts(); # ok 150 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigInt -> new("1200"); ($m, $e) = $x -> eparts(); # ok 153 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 154 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigInt -> new("1200"); $m = $x -> eparts(); # ok 158 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigInt -> new("12000"); ($m, $e) = $x -> eparts(); # ok 161 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 162 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigInt -> new("12000"); $m = $x -> eparts(); # ok 166 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigInt -> new("120000"); ($m, $e) = $x -> eparts(); # ok 169 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 170 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigInt -> new("120000"); $m = $x -> eparts(); # ok 174 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigInt -> new("1200000"); ($m, $e) = $x -> eparts(); # ok 177 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 178 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigInt -> new("1200000"); $m = $x -> eparts(); # ok 182 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigInt -> new("12000000"); ($m, $e) = $x -> eparts(); # ok 185 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 186 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigInt -> new("12000000"); $m = $x -> eparts(); # ok 190 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigInt -> new("120000000"); ($m, $e) = $x -> eparts(); # ok 193 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 194 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigInt -> new("120000000"); $m = $x -> eparts(); # ok 198 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); ($m, $e) = $x -> eparts(); # ok 201 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 202 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); $m = $x -> eparts(); # ok 206 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); ($m, $e) = $x -> eparts(); # ok 209 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 210 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); $m = $x -> eparts(); # ok 214 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); ($m, $e) = $x -> eparts(); # ok 217 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 218 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); $m = $x -> eparts(); # ok 222 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); ($m, $e) = $x -> eparts(); # ok 225 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 226 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); $m = $x -> eparts(); # ok 230 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigInt -> new("123"); ($m, $e) = $x -> eparts(); # ok 233 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 234 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigInt -> new("123"); $m = $x -> eparts(); # ok 238 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigInt -> new("1230"); ($m, $e) = $x -> eparts(); # ok 241 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 242 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigInt -> new("1230"); $m = $x -> eparts(); # ok 246 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigInt -> new("12300"); ($m, $e) = $x -> eparts(); # ok 249 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 250 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigInt -> new("12300"); $m = $x -> eparts(); # ok 254 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigInt -> new("123000"); ($m, $e) = $x -> eparts(); # ok 257 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 258 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigInt -> new("123000"); $m = $x -> eparts(); # ok 262 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigInt -> new("1230000"); ($m, $e) = $x -> eparts(); # ok 265 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 266 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigInt -> new("1230000"); $m = $x -> eparts(); # ok 270 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigInt -> new("12300000"); ($m, $e) = $x -> eparts(); # ok 273 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 274 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigInt -> new("12300000"); $m = $x -> eparts(); # ok 278 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigInt -> new("123000000"); ($m, $e) = $x -> eparts(); # ok 281 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 282 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigInt -> new("123000000"); $m = $x -> eparts(); # ok 286 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); ($m, $e) = $x -> eparts(); # ok 289 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 290 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); $m = $x -> eparts(); # ok 294 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); ($m, $e) = $x -> eparts(); # ok 297 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 298 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); $m = $x -> eparts(); # ok 302 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); ($m, $e) = $x -> eparts(); # ok 305 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 306 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); $m = $x -> eparts(); # ok 310 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); ($m, $e) = $x -> eparts(); # ok 313 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 314 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); $m = $x -> eparts(); # ok 318 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigInt -> new("1234"); ($m, $e) = $x -> eparts(); # ok 321 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 322 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigInt -> new("1234"); $m = $x -> eparts(); # ok 326 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigInt -> new("12340"); ($m, $e) = $x -> eparts(); # ok 329 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 330 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigInt -> new("12340"); $m = $x -> eparts(); # ok 334 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigInt -> new("123400"); ($m, $e) = $x -> eparts(); # ok 337 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 338 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigInt -> new("123400"); $m = $x -> eparts(); # ok 342 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigInt -> new("1234000"); ($m, $e) = $x -> eparts(); # ok 345 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 346 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigInt -> new("1234000"); $m = $x -> eparts(); # ok 350 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigInt -> new("12340000"); ($m, $e) = $x -> eparts(); # ok 353 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 354 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigInt -> new("12340000"); $m = $x -> eparts(); # ok 358 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigInt -> new("123400000"); ($m, $e) = $x -> eparts(); # ok 361 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 362 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigInt -> new("123400000"); $m = $x -> eparts(); # ok 366 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); ($m, $e) = $x -> eparts(); # ok 369 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 370 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); $m = $x -> eparts(); # ok 374 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); ($m, $e) = $x -> eparts(); # ok 377 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 378 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); $m = $x -> eparts(); # ok 382 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); ($m, $e) = $x -> eparts(); # ok 385 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 386 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); $m = $x -> eparts(); # ok 390 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); ($m, $e) = $x -> eparts(); # ok 393 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 394 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); $m = $x -> eparts(); # ok 398 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigInt -> new("3141592"); ($m, $e) = $x -> eparts(); # ok 401 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 402 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigInt -> new("3141592"); $m = $x -> eparts(); # ok 406 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigInt -> new("-1"); ($m, $e) = $x -> eparts(); # ok 409 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 410 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigInt -> new("-1"); $m = $x -> eparts(); # ok 414 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigInt -> new("-10"); ($m, $e) = $x -> eparts(); # ok 417 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 418 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigInt -> new("-10"); $m = $x -> eparts(); # ok 422 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigInt -> new("-100"); ($m, $e) = $x -> eparts(); # ok 425 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 426 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigInt -> new("-100"); $m = $x -> eparts(); # ok 430 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigInt -> new("-1000"); ($m, $e) = $x -> eparts(); # ok 433 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 434 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigInt -> new("-1000"); $m = $x -> eparts(); # ok 438 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigInt -> new("-10000"); ($m, $e) = $x -> eparts(); # ok 441 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 442 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigInt -> new("-10000"); $m = $x -> eparts(); # ok 446 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigInt -> new("-100000"); ($m, $e) = $x -> eparts(); # ok 449 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 450 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigInt -> new("-100000"); $m = $x -> eparts(); # ok 454 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); ($m, $e) = $x -> eparts(); # ok 457 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 458 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); $m = $x -> eparts(); # ok 462 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); ($m, $e) = $x -> eparts(); # ok 465 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 466 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); $m = $x -> eparts(); # ok 470 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); ($m, $e) = $x -> eparts(); # ok 473 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 474 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); $m = $x -> eparts(); # ok 478 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); ($m, $e) = $x -> eparts(); # ok 481 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 482 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); $m = $x -> eparts(); # ok 486 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); ($m, $e) = $x -> eparts(); # ok 489 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 490 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); $m = $x -> eparts(); # ok 494 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); ($m, $e) = $x -> eparts(); # ok 497 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 498 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); $m = $x -> eparts(); # ok 502 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); ($m, $e) = $x -> eparts(); # ok 505 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 506 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $m = $x -> eparts(); # ok 510 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigInt -> new("-12"); ($m, $e) = $x -> eparts(); # ok 513 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 514 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigInt -> new("-12"); $m = $x -> eparts(); # ok 518 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigInt -> new("-120"); ($m, $e) = $x -> eparts(); # ok 521 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 522 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigInt -> new("-120"); $m = $x -> eparts(); # ok 526 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigInt -> new("-1200"); ($m, $e) = $x -> eparts(); # ok 529 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 530 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigInt -> new("-1200"); $m = $x -> eparts(); # ok 534 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigInt -> new("-12000"); ($m, $e) = $x -> eparts(); # ok 537 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 538 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigInt -> new("-12000"); $m = $x -> eparts(); # ok 542 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigInt -> new("-120000"); ($m, $e) = $x -> eparts(); # ok 545 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 546 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigInt -> new("-120000"); $m = $x -> eparts(); # ok 550 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); ($m, $e) = $x -> eparts(); # ok 553 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 554 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); $m = $x -> eparts(); # ok 558 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); ($m, $e) = $x -> eparts(); # ok 561 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 562 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); $m = $x -> eparts(); # ok 566 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); ($m, $e) = $x -> eparts(); # ok 569 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 570 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); $m = $x -> eparts(); # ok 574 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); ($m, $e) = $x -> eparts(); # ok 577 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 578 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); $m = $x -> eparts(); # ok 582 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); ($m, $e) = $x -> eparts(); # ok 585 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 586 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); $m = $x -> eparts(); # ok 590 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); ($m, $e) = $x -> eparts(); # ok 593 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 594 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); $m = $x -> eparts(); # ok 598 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); ($m, $e) = $x -> eparts(); # ok 601 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 602 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $m = $x -> eparts(); # ok 606 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigInt -> new("-123"); ($m, $e) = $x -> eparts(); # ok 609 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 610 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigInt -> new("-123"); $m = $x -> eparts(); # ok 614 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigInt -> new("-1230"); ($m, $e) = $x -> eparts(); # ok 617 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 618 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigInt -> new("-1230"); $m = $x -> eparts(); # ok 622 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigInt -> new("-12300"); ($m, $e) = $x -> eparts(); # ok 625 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 626 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigInt -> new("-12300"); $m = $x -> eparts(); # ok 630 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigInt -> new("-123000"); ($m, $e) = $x -> eparts(); # ok 633 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 634 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigInt -> new("-123000"); $m = $x -> eparts(); # ok 638 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); ($m, $e) = $x -> eparts(); # ok 641 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 642 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); $m = $x -> eparts(); # ok 646 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); ($m, $e) = $x -> eparts(); # ok 649 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 650 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); $m = $x -> eparts(); # ok 654 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); ($m, $e) = $x -> eparts(); # ok 657 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 658 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); $m = $x -> eparts(); # ok 662 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); ($m, $e) = $x -> eparts(); # ok 665 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 666 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); $m = $x -> eparts(); # ok 670 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); ($m, $e) = $x -> eparts(); # ok 673 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 674 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); $m = $x -> eparts(); # ok 678 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); ($m, $e) = $x -> eparts(); # ok 681 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 682 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); $m = $x -> eparts(); # ok 686 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); ($m, $e) = $x -> eparts(); # ok 689 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 690 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $m = $x -> eparts(); # ok 694 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigInt -> new("-1234"); ($m, $e) = $x -> eparts(); # ok 697 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 698 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigInt -> new("-1234"); $m = $x -> eparts(); # ok 702 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigInt -> new("-12340"); ($m, $e) = $x -> eparts(); # ok 705 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 706 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigInt -> new("-12340"); $m = $x -> eparts(); # ok 710 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigInt -> new("-123400"); ($m, $e) = $x -> eparts(); # ok 713 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 714 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigInt -> new("-123400"); $m = $x -> eparts(); # ok 718 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); ($m, $e) = $x -> eparts(); # ok 721 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 722 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); $m = $x -> eparts(); # ok 726 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); ($m, $e) = $x -> eparts(); # ok 729 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 730 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); $m = $x -> eparts(); # ok 734 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); ($m, $e) = $x -> eparts(); # ok 737 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 738 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); $m = $x -> eparts(); # ok 742 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); ($m, $e) = $x -> eparts(); # ok 745 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 746 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); $m = $x -> eparts(); # ok 750 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); ($m, $e) = $x -> eparts(); # ok 753 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 754 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); $m = $x -> eparts(); # ok 758 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); ($m, $e) = $x -> eparts(); # ok 761 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 762 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); $m = $x -> eparts(); # ok 766 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); ($m, $e) = $x -> eparts(); # ok 769 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 770 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $m = $x -> eparts(); # ok 774 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); ($m, $e) = $x -> eparts(); # ok 777 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 778 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); $m = $x -> eparts(); # ok 782 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 783 - value of mantissa ok 784 - input is unmodified ok t/from_bin-mbf.t .............................. 1..183 ok 1 - use Math::BigFloat; # Subtest: $x = Math::BigFloat -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigFloat -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigFloat -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.1p+1"); # Subtest: $x = Math::BigFloat -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigFloat -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.01p+2"); # Subtest: $x = Math::BigFloat -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigFloat -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.001p+3"); # Subtest: $x = Math::BigFloat -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigFloat -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigFloat -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10p-1"); # Subtest: $x = Math::BigFloat -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigFloat -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b100p-2"); # Subtest: $x = Math::BigFloat -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigFloat -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1000p-3"); # Subtest: $x = Math::BigFloat -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigFloat -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigFloat -> new("0"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigFloat -> new("1"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-0b1p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigFloat -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigFloat -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p+7"); # Subtest: $x = Math::BigFloat -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigFloat -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0p-7"); # Subtest: $x = Math::BigFloat -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigFloat -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0.p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigFloat -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.0p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigFloat -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigFloat -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigFloat -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigFloat -> new("0"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigFloat -> new("1"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("b1100101011111110"); # Subtest: $x = Math::BigFloat -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigFloat -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigFloat -> new("0"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigFloat -> new("1"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("1100101011111110"); # Subtest: $x = Math::BigFloat -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigFloat -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigFloat -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigFloat -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigFloat -> new("0"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigFloat -> new("1"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigFloat -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigFloat -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigFloat -> new("0"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigFloat -> new("1"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigFloat -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigFloat -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigFloat -> new("0"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigFloat -> new("1"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigFloat -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigFloat -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigFloat -> new("0"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigFloat -> new("1"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigFloat -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigFloat -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigFloat -> new("-1"); $x -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigFloat -> new("0"); $x -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigFloat -> new("1"); $x -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigFloat -> new("-inf"); $x -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigFloat -> new("+inf"); $x -> from_bin("0b.p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigFloat -> new("NaN"); $x -> from_bin("0b.p+0"); ok t/from_bin-mbi.t .............................. 1..344 ok 1 - use Math::BigInt; # Subtest: $x = Math::BigInt -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigInt -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b0"); # Subtest: $x = Math::BigInt -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigInt -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1"); # Subtest: $x = Math::BigInt -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigInt -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10"); # Subtest: $x = Math::BigInt -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigInt -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11"); # Subtest: $x = Math::BigInt -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigInt -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100"); # Subtest: $x = Math::BigInt -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigInt -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b101"); # Subtest: $x = Math::BigInt -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigInt -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b110"); # Subtest: $x = Math::BigInt -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigInt -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111"); # Subtest: $x = Math::BigInt -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigInt -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000"); # Subtest: $x = Math::BigInt -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigInt -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1001"); # Subtest: $x = Math::BigInt -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigInt -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1010"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1010"); # Subtest: $x = Math::BigInt -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigInt -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1011"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1011"); # Subtest: $x = Math::BigInt -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigInt -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1100"); # Subtest: $x = Math::BigInt -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigInt -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1101"); # Subtest: $x = Math::BigInt -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigInt -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1110"); # Subtest: $x = Math::BigInt -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigInt -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111"); # Subtest: $x = Math::BigInt -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigInt -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000"); # Subtest: $x = Math::BigInt -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigInt -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10001"); # Subtest: $x = Math::BigInt -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigInt -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111110"); # Subtest: $x = Math::BigInt -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigInt -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111"); # Subtest: $x = Math::BigInt -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigInt -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000"); # Subtest: $x = Math::BigInt -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigInt -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000001"); # Subtest: $x = Math::BigInt -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigInt -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigInt -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigInt -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigInt -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 184 - $x = Math::BigInt -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 185 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 186 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 187 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 188 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 189 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 190 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 191 - $x = Math::BigInt -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 192 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 193 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 194 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 195 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 196 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 197 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 198 - $x = Math::BigInt -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 199 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 200 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 201 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 202 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 203 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 204 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 205 - $x = Math::BigInt -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 206 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 207 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 208 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 209 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 210 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 211 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 212 - $x = Math::BigInt -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 213 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 214 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 215 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 216 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 217 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 218 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 219 - $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 220 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 221 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 222 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 223 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 224 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 225 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 226 - $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 227 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 228 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 229 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 230 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 231 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 232 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 233 - $x = Math::BigInt -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 234 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 235 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 236 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 237 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 238 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 239 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 240 - $x = Math::BigInt -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 241 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 242 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 243 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 244 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 245 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 246 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 247 - $x = Math::BigInt -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 248 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 249 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 250 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 251 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 252 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 253 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 254 - $x = Math::BigInt -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 255 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 256 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 257 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 258 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 259 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 260 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 261 - $x = Math::BigInt -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 262 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 263 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 264 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 265 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 266 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 267 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b10000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 268 - $x = Math::BigInt -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 269 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 270 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 271 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 272 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 273 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 274 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 275 - $x = Math::BigInt -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 276 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 277 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 278 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 279 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 280 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 281 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 282 - $x = Math::BigInt -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 283 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 284 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 285 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 286 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 287 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 288 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 289 - $x = Math::BigInt -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 290 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 291 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 292 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 293 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 294 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 295 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b1000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 296 - $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 297 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 298 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 299 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 300 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 301 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 302 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111110"); # Subtest: $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 303 - $x = Math::BigInt -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 304 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 305 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 306 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 307 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 308 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 309 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b11111111111111111111111111111111111111111111111111111111"); # Subtest: $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 310 - $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 311 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 312 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 313 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 314 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 315 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 316 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000000"); # Subtest: $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 317 - $x = Math::BigInt -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 318 - $x = Math::BigInt -> new("-1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 319 - $x = Math::BigInt -> new("0"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 320 - $x = Math::BigInt -> new("1"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 321 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 322 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 323 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("0b100000000000000000000000000000000000000000000000000000001"); # Subtest: $x = Math::BigInt -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 324 - $x = Math::BigInt -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 325 - $x = Math::BigInt -> new("-1"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 326 - $x = Math::BigInt -> new("0"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 327 - $x = Math::BigInt -> new("1"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 328 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 329 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 330 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("NaN"); # Subtest: $x = Math::BigInt -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 331 - $x = Math::BigInt -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 332 - $x = Math::BigInt -> new("-1"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 333 - $x = Math::BigInt -> new("0"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 334 - $x = Math::BigInt -> new("1"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 335 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 336 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 337 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("+inf"); # Subtest: $x = Math::BigInt -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 338 - $x = Math::BigInt -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 339 - $x = Math::BigInt -> new("-1"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 340 - $x = Math::BigInt -> new("0"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 341 - $x = Math::BigInt -> new("1"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 342 - $x = Math::BigInt -> new("-inf"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 343 - $x = Math::BigInt -> new("+inf"); $x -> from_bin("-inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_bin("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 344 - $x = Math::BigInt -> new("NaN"); $x -> from_bin("-inf"); ok t/from_hex-mbf.t .............................. 1..183 ok 1 - use Math::BigFloat; # Subtest: $x = Math::BigFloat -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigFloat -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x1p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigFloat -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.8p+1"); # Subtest: $x = Math::BigFloat -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigFloat -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.4p+2"); # Subtest: $x = Math::BigFloat -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigFloat -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.2p+3"); # Subtest: $x = Math::BigFloat -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigFloat -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.1p+4"); # Subtest: $x = Math::BigFloat -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigFloat -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x2p-1"); # Subtest: $x = Math::BigFloat -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigFloat -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x4p-2"); # Subtest: $x = Math::BigFloat -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigFloat -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x8p-3"); # Subtest: $x = Math::BigFloat -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigFloat -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigFloat -> new("0"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigFloat -> new("1"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-0x1p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigFloat -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigFloat -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p+7"); # Subtest: $x = Math::BigFloat -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigFloat -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0p-7"); # Subtest: $x = Math::BigFloat -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigFloat -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0.p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigFloat -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.0p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigFloat -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigFloat -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0xcafe"); # Subtest: $x = Math::BigFloat -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigFloat -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigFloat -> new("0"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigFloat -> new("1"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("xcafe"); # Subtest: $x = Math::BigFloat -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigFloat -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigFloat -> new("0"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigFloat -> new("1"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("cafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("cafe"); # Subtest: $x = Math::BigFloat -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigFloat -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigFloat -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigFloat -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigFloat -> new("0"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigFloat -> new("1"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigFloat -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigFloat -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigFloat -> new("0"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigFloat -> new("1"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigFloat -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigFloat -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigFloat -> new("0"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigFloat -> new("1"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigFloat -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigFloat -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigFloat -> new("0"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigFloat -> new("1"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigFloat -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigFloat -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigFloat -> new("-1"); $x -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigFloat -> new("0"); $x -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigFloat -> new("1"); $x -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigFloat -> new("-inf"); $x -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigFloat -> new("+inf"); $x -> from_hex("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigFloat -> new("NaN"); $x -> from_hex("0x.p+0"); ok t/from_hex-mbi.t .............................. 1..344 ok 1 - use Math::BigInt; # Subtest: $x = Math::BigInt -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigInt -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x0"); # Subtest: $x = Math::BigInt -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigInt -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1"); # Subtest: $x = Math::BigInt -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigInt -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x2"); # Subtest: $x = Math::BigInt -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigInt -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x3"); # Subtest: $x = Math::BigInt -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigInt -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x4"); # Subtest: $x = Math::BigInt -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigInt -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x5"); # Subtest: $x = Math::BigInt -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigInt -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x6"); # Subtest: $x = Math::BigInt -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigInt -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x7"); # Subtest: $x = Math::BigInt -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigInt -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x8"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x8"); # Subtest: $x = Math::BigInt -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigInt -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x9"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x9"); # Subtest: $x = Math::BigInt -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigInt -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xa"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xa"); # Subtest: $x = Math::BigInt -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigInt -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xb"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xb"); # Subtest: $x = Math::BigInt -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigInt -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xc"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xc"); # Subtest: $x = Math::BigInt -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigInt -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xd"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xd"); # Subtest: $x = Math::BigInt -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigInt -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xe"); # Subtest: $x = Math::BigInt -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigInt -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xf"); # Subtest: $x = Math::BigInt -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigInt -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10"); # Subtest: $x = Math::BigInt -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigInt -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x11"); # Subtest: $x = Math::BigInt -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigInt -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfe"); # Subtest: $x = Math::BigInt -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigInt -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xff"); # Subtest: $x = Math::BigInt -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigInt -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100"); # Subtest: $x = Math::BigInt -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigInt -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x101"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x101"); # Subtest: $x = Math::BigInt -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigInt -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigInt -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffff"); # Subtest: $x = Math::BigInt -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigInt -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000"); # Subtest: $x = Math::BigInt -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigInt -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10001"); # Subtest: $x = Math::BigInt -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 184 - $x = Math::BigInt -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 185 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 186 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 187 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 188 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 189 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 190 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 191 - $x = Math::BigInt -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 192 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 193 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 194 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 195 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 196 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 197 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffff"); # Subtest: $x = Math::BigInt -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 198 - $x = Math::BigInt -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 199 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 200 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 201 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 202 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 203 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 204 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000"); # Subtest: $x = Math::BigInt -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 205 - $x = Math::BigInt -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 206 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 207 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 208 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 209 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 210 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 211 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000001"); # Subtest: $x = Math::BigInt -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 212 - $x = Math::BigInt -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 213 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 214 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 215 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 216 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 217 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 218 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 219 - $x = Math::BigInt -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 220 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 221 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 222 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 223 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 224 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 225 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffff"); # Subtest: $x = Math::BigInt -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 226 - $x = Math::BigInt -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 227 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 228 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 229 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 230 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 231 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 232 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000"); # Subtest: $x = Math::BigInt -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 233 - $x = Math::BigInt -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 234 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 235 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 236 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 237 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 238 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 239 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000001"); # Subtest: $x = Math::BigInt -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 240 - $x = Math::BigInt -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 241 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 242 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 243 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 244 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 245 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 246 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 247 - $x = Math::BigInt -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 248 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 249 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 250 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 251 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 252 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 253 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffff"); # Subtest: $x = Math::BigInt -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 254 - $x = Math::BigInt -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 255 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 256 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 257 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 258 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 259 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 260 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000000000"); # Subtest: $x = Math::BigInt -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 261 - $x = Math::BigInt -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 262 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 263 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 264 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 265 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 266 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 267 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x10000000001"); # Subtest: $x = Math::BigInt -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 268 - $x = Math::BigInt -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 269 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 270 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 271 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 272 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 273 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 274 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 275 - $x = Math::BigInt -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 276 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 277 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 278 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 279 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 280 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 281 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffffff"); # Subtest: $x = Math::BigInt -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 282 - $x = Math::BigInt -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 283 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 284 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 285 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 286 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 287 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 288 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000000000"); # Subtest: $x = Math::BigInt -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 289 - $x = Math::BigInt -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 290 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 291 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 292 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 293 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 294 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 295 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x1000000000001"); # Subtest: $x = Math::BigInt -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 296 - $x = Math::BigInt -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 297 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 298 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 299 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 300 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 301 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffffffe"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 302 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xfffffffffffffe"); # Subtest: $x = Math::BigInt -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 303 - $x = Math::BigInt -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 304 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 305 - $x = Math::BigInt -> new("0"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 306 - $x = Math::BigInt -> new("1"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 307 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 308 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffffffff"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 309 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0xffffffffffffff"); # Subtest: $x = Math::BigInt -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 310 - $x = Math::BigInt -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 311 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 312 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 313 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 314 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 315 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 316 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000000000"); # Subtest: $x = Math::BigInt -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 317 - $x = Math::BigInt -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 318 - $x = Math::BigInt -> new("-1"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 319 - $x = Math::BigInt -> new("0"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 320 - $x = Math::BigInt -> new("1"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 321 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 322 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 323 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("0x100000000000001"); # Subtest: $x = Math::BigInt -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 324 - $x = Math::BigInt -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 325 - $x = Math::BigInt -> new("-1"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 326 - $x = Math::BigInt -> new("0"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 327 - $x = Math::BigInt -> new("1"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 328 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 329 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 330 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("NaN"); # Subtest: $x = Math::BigInt -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 331 - $x = Math::BigInt -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 332 - $x = Math::BigInt -> new("-1"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 333 - $x = Math::BigInt -> new("0"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 334 - $x = Math::BigInt -> new("1"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 335 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 336 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 337 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("+inf"); # Subtest: $x = Math::BigInt -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 338 - $x = Math::BigInt -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 339 - $x = Math::BigInt -> new("-1"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 340 - $x = Math::BigInt -> new("0"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 341 - $x = Math::BigInt -> new("1"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 342 - $x = Math::BigInt -> new("-inf"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 343 - $x = Math::BigInt -> new("+inf"); $x -> from_hex("-inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_hex("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 344 - $x = Math::BigInt -> new("NaN"); $x -> from_hex("-inf"); ok t/from_oct-mbf.t .............................. 1..183 ok 1 - use Math::BigFloat; # Subtest: $x = Math::BigFloat -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigFloat -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigFloat -> new("0"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigFloat -> new("1"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("01p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("01p+0"); # Subtest: $x = Math::BigFloat -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigFloat -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.4p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.4p+1"); # Subtest: $x = Math::BigFloat -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigFloat -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.2p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.2p+2"); # Subtest: $x = Math::BigFloat -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigFloat -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.1p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.1p+3"); # Subtest: $x = Math::BigFloat -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigFloat -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.04p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.04p+4"); # Subtest: $x = Math::BigFloat -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigFloat -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigFloat -> new("0"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigFloat -> new("1"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("02p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("02p-1"); # Subtest: $x = Math::BigFloat -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigFloat -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigFloat -> new("0"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigFloat -> new("1"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("04p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("04p-2"); # Subtest: $x = Math::BigFloat -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigFloat -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigFloat -> new("0"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigFloat -> new("1"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("010p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("010p-3"); # Subtest: $x = Math::BigFloat -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigFloat -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigFloat -> new("0"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigFloat -> new("1"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-1p+0"); # Subtest: $x = Math::BigFloat -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigFloat -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p+0"); # Subtest: $x = Math::BigFloat -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigFloat -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p+7"); # Subtest: $x = Math::BigFloat -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigFloat -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0p-7"); # Subtest: $x = Math::BigFloat -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigFloat -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.p+0"); # Subtest: $x = Math::BigFloat -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigFloat -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigFloat -> new("-1"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigFloat -> new("0"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigFloat -> new("1"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct(".0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct(".0p+0"); # Subtest: $x = Math::BigFloat -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigFloat -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0.0p+0"); # Subtest: $x = Math::BigFloat -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigFloat -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigFloat -> new("0"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigFloat -> new("1"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("145376"); # Subtest: $x = Math::BigFloat -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigFloat -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigFloat -> new("0"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigFloat -> new("1"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("0145376"); # Subtest: $x = Math::BigFloat -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigFloat -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigFloat -> new("0"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigFloat -> new("1"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("00145376"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("00145376"); # Subtest: $x = Math::BigFloat -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigFloat -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigFloat -> new("0"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigFloat -> new("1"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("3.1p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("3.1p+2"); # Subtest: $x = Math::BigFloat -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigFloat -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigFloat -> new("0"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigFloat -> new("1"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("22.15p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("22.15p-1"); # Subtest: $x = Math::BigFloat -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigFloat -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigFloat -> new("0"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigFloat -> new("1"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-0.361152746757p+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-0.361152746757p+32"); # Subtest: $x = Math::BigFloat -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigFloat -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigFloat -> new("0"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigFloat -> new("1"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("44.3212636115p+30"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("44.3212636115p+30"); # Subtest: $x = Math::BigFloat -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigFloat -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigFloat -> new("0"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigFloat -> new("1"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigFloat -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigFloat -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigFloat -> new("0"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigFloat -> new("1"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigFloat -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigFloat -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigFloat -> new("-1"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigFloat -> new("0"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigFloat -> new("1"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigFloat -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigFloat -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("-1"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigFloat -> new("-1"); $x -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("0"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigFloat -> new("0"); $x -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("1"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigFloat -> new("1"); $x -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("-inf"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigFloat -> new("-inf"); $x -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("+inf"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigFloat -> new("+inf"); $x -> from_oct(".p+0"); # Subtest: $x = Math::BigFloat -> new("NaN"); $x -> from_oct(".p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigFloat -> new("NaN"); $x -> from_oct(".p+0"); ok t/from_oct-mbi.t .............................. 1..344 ok 1 - use Math::BigInt; # Subtest: $x = Math::BigInt -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigInt -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigInt -> new("-1"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigInt -> new("0"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigInt -> new("1"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("0"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("0"); # Subtest: $x = Math::BigInt -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigInt -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigInt -> new("-1"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigInt -> new("0"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigInt -> new("1"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("1"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("1"); # Subtest: $x = Math::BigInt -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigInt -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigInt -> new("-1"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigInt -> new("0"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigInt -> new("1"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("2"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("2"); # Subtest: $x = Math::BigInt -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigInt -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigInt -> new("-1"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigInt -> new("0"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigInt -> new("1"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("3"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("3"); # Subtest: $x = Math::BigInt -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigInt -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigInt -> new("-1"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigInt -> new("0"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigInt -> new("1"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("4"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("4"); # Subtest: $x = Math::BigInt -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigInt -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigInt -> new("-1"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigInt -> new("0"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigInt -> new("1"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("5"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("5"); # Subtest: $x = Math::BigInt -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigInt -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigInt -> new("-1"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigInt -> new("0"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigInt -> new("1"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("6"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("6"); # Subtest: $x = Math::BigInt -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 51 - $x = Math::BigInt -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 52 - $x = Math::BigInt -> new("-1"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 53 - $x = Math::BigInt -> new("0"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 54 - $x = Math::BigInt -> new("1"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 55 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 56 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("7"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 57 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("7"); # Subtest: $x = Math::BigInt -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 58 - $x = Math::BigInt -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 59 - $x = Math::BigInt -> new("-1"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 60 - $x = Math::BigInt -> new("0"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 61 - $x = Math::BigInt -> new("1"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 62 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 63 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("10"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 64 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("10"); # Subtest: $x = Math::BigInt -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 65 - $x = Math::BigInt -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 66 - $x = Math::BigInt -> new("-1"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 67 - $x = Math::BigInt -> new("0"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 68 - $x = Math::BigInt -> new("1"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 69 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 70 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("11"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 71 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("11"); # Subtest: $x = Math::BigInt -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 72 - $x = Math::BigInt -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 73 - $x = Math::BigInt -> new("-1"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 74 - $x = Math::BigInt -> new("0"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 75 - $x = Math::BigInt -> new("1"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 76 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 77 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("12"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 78 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("12"); # Subtest: $x = Math::BigInt -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 79 - $x = Math::BigInt -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 80 - $x = Math::BigInt -> new("-1"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 81 - $x = Math::BigInt -> new("0"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 82 - $x = Math::BigInt -> new("1"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 83 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 84 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("13"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 85 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("13"); # Subtest: $x = Math::BigInt -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 86 - $x = Math::BigInt -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 87 - $x = Math::BigInt -> new("-1"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 88 - $x = Math::BigInt -> new("0"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 89 - $x = Math::BigInt -> new("1"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 90 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 91 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("14"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 92 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("14"); # Subtest: $x = Math::BigInt -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 93 - $x = Math::BigInt -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 94 - $x = Math::BigInt -> new("-1"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 95 - $x = Math::BigInt -> new("0"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 96 - $x = Math::BigInt -> new("1"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 97 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 98 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("15"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 99 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("15"); # Subtest: $x = Math::BigInt -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 100 - $x = Math::BigInt -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 101 - $x = Math::BigInt -> new("-1"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 102 - $x = Math::BigInt -> new("0"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 103 - $x = Math::BigInt -> new("1"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 104 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 105 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("16"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 106 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("16"); # Subtest: $x = Math::BigInt -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 107 - $x = Math::BigInt -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 108 - $x = Math::BigInt -> new("-1"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 109 - $x = Math::BigInt -> new("0"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 110 - $x = Math::BigInt -> new("1"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 111 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 112 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("17"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 113 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("17"); # Subtest: $x = Math::BigInt -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 114 - $x = Math::BigInt -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 115 - $x = Math::BigInt -> new("-1"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 116 - $x = Math::BigInt -> new("0"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 117 - $x = Math::BigInt -> new("1"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 118 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 119 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("20"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 120 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("20"); # Subtest: $x = Math::BigInt -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 121 - $x = Math::BigInt -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 122 - $x = Math::BigInt -> new("-1"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 123 - $x = Math::BigInt -> new("0"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 124 - $x = Math::BigInt -> new("1"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 125 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 126 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("21"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 127 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("21"); # Subtest: $x = Math::BigInt -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 128 - $x = Math::BigInt -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 129 - $x = Math::BigInt -> new("-1"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 130 - $x = Math::BigInt -> new("0"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 131 - $x = Math::BigInt -> new("1"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 132 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 133 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("376"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 134 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("376"); # Subtest: $x = Math::BigInt -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 135 - $x = Math::BigInt -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 136 - $x = Math::BigInt -> new("-1"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 137 - $x = Math::BigInt -> new("0"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 138 - $x = Math::BigInt -> new("1"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 139 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 140 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("377"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 141 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("377"); # Subtest: $x = Math::BigInt -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 142 - $x = Math::BigInt -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 143 - $x = Math::BigInt -> new("-1"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 144 - $x = Math::BigInt -> new("0"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 145 - $x = Math::BigInt -> new("1"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 146 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 147 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("400"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 148 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("400"); # Subtest: $x = Math::BigInt -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 149 - $x = Math::BigInt -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 150 - $x = Math::BigInt -> new("-1"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 151 - $x = Math::BigInt -> new("0"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 152 - $x = Math::BigInt -> new("1"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 153 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 154 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("401"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 155 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("401"); # Subtest: $x = Math::BigInt -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 156 - $x = Math::BigInt -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 157 - $x = Math::BigInt -> new("-1"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 158 - $x = Math::BigInt -> new("0"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 159 - $x = Math::BigInt -> new("1"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 160 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 161 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("177776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 162 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("177776"); # Subtest: $x = Math::BigInt -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 163 - $x = Math::BigInt -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 164 - $x = Math::BigInt -> new("-1"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 165 - $x = Math::BigInt -> new("0"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 166 - $x = Math::BigInt -> new("1"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 167 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 168 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("177777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 169 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("177777"); # Subtest: $x = Math::BigInt -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 170 - $x = Math::BigInt -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 171 - $x = Math::BigInt -> new("-1"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 172 - $x = Math::BigInt -> new("0"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 173 - $x = Math::BigInt -> new("1"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 174 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 175 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("200000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 176 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("200000"); # Subtest: $x = Math::BigInt -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 177 - $x = Math::BigInt -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 178 - $x = Math::BigInt -> new("-1"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 179 - $x = Math::BigInt -> new("0"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 180 - $x = Math::BigInt -> new("1"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 181 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 182 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("200001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 183 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("200001"); # Subtest: $x = Math::BigInt -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 184 - $x = Math::BigInt -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 185 - $x = Math::BigInt -> new("-1"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 186 - $x = Math::BigInt -> new("0"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 187 - $x = Math::BigInt -> new("1"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 188 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 189 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("77777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 190 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("77777776"); # Subtest: $x = Math::BigInt -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 191 - $x = Math::BigInt -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 192 - $x = Math::BigInt -> new("-1"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 193 - $x = Math::BigInt -> new("0"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 194 - $x = Math::BigInt -> new("1"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 195 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 196 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("77777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 197 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("77777777"); # Subtest: $x = Math::BigInt -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 198 - $x = Math::BigInt -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 199 - $x = Math::BigInt -> new("-1"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 200 - $x = Math::BigInt -> new("0"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 201 - $x = Math::BigInt -> new("1"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 202 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 203 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("100000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 204 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("100000000"); # Subtest: $x = Math::BigInt -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 205 - $x = Math::BigInt -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 206 - $x = Math::BigInt -> new("-1"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 207 - $x = Math::BigInt -> new("0"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 208 - $x = Math::BigInt -> new("1"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 209 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 210 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("100000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 211 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("100000001"); # Subtest: $x = Math::BigInt -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 212 - $x = Math::BigInt -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 213 - $x = Math::BigInt -> new("-1"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 214 - $x = Math::BigInt -> new("0"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 215 - $x = Math::BigInt -> new("1"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 216 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 217 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("37777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 218 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("37777777776"); # Subtest: $x = Math::BigInt -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 219 - $x = Math::BigInt -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 220 - $x = Math::BigInt -> new("-1"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 221 - $x = Math::BigInt -> new("0"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 222 - $x = Math::BigInt -> new("1"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 223 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 224 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("37777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 225 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("37777777777"); # Subtest: $x = Math::BigInt -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 226 - $x = Math::BigInt -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 227 - $x = Math::BigInt -> new("-1"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 228 - $x = Math::BigInt -> new("0"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 229 - $x = Math::BigInt -> new("1"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 230 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 231 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("40000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 232 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("40000000000"); # Subtest: $x = Math::BigInt -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 233 - $x = Math::BigInt -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 234 - $x = Math::BigInt -> new("-1"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 235 - $x = Math::BigInt -> new("0"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 236 - $x = Math::BigInt -> new("1"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 237 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 238 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("40000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 239 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("40000000001"); # Subtest: $x = Math::BigInt -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 240 - $x = Math::BigInt -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 241 - $x = Math::BigInt -> new("-1"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 242 - $x = Math::BigInt -> new("0"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 243 - $x = Math::BigInt -> new("1"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 244 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 245 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("17777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 246 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("17777777777776"); # Subtest: $x = Math::BigInt -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 247 - $x = Math::BigInt -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 248 - $x = Math::BigInt -> new("-1"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 249 - $x = Math::BigInt -> new("0"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 250 - $x = Math::BigInt -> new("1"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 251 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 252 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("17777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 253 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("17777777777777"); # Subtest: $x = Math::BigInt -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 254 - $x = Math::BigInt -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 255 - $x = Math::BigInt -> new("-1"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 256 - $x = Math::BigInt -> new("0"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 257 - $x = Math::BigInt -> new("1"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 258 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 259 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("20000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 260 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("20000000000000"); # Subtest: $x = Math::BigInt -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 261 - $x = Math::BigInt -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 262 - $x = Math::BigInt -> new("-1"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 263 - $x = Math::BigInt -> new("0"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 264 - $x = Math::BigInt -> new("1"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 265 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 266 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("20000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 267 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("20000000000001"); # Subtest: $x = Math::BigInt -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 268 - $x = Math::BigInt -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 269 - $x = Math::BigInt -> new("-1"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 270 - $x = Math::BigInt -> new("0"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 271 - $x = Math::BigInt -> new("1"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 272 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 273 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("7777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 274 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("7777777777777776"); # Subtest: $x = Math::BigInt -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 275 - $x = Math::BigInt -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 276 - $x = Math::BigInt -> new("-1"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 277 - $x = Math::BigInt -> new("0"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 278 - $x = Math::BigInt -> new("1"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 279 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 280 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("7777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 281 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("7777777777777777"); # Subtest: $x = Math::BigInt -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 282 - $x = Math::BigInt -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 283 - $x = Math::BigInt -> new("-1"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 284 - $x = Math::BigInt -> new("0"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 285 - $x = Math::BigInt -> new("1"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 286 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 287 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("10000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 288 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("10000000000000000"); # Subtest: $x = Math::BigInt -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 289 - $x = Math::BigInt -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 290 - $x = Math::BigInt -> new("-1"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 291 - $x = Math::BigInt -> new("0"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 292 - $x = Math::BigInt -> new("1"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 293 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 294 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("10000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 295 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("10000000000000001"); # Subtest: $x = Math::BigInt -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 296 - $x = Math::BigInt -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 297 - $x = Math::BigInt -> new("-1"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 298 - $x = Math::BigInt -> new("0"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 299 - $x = Math::BigInt -> new("1"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 300 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 301 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("3777777777777777776"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 302 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("3777777777777777776"); # Subtest: $x = Math::BigInt -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 303 - $x = Math::BigInt -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 304 - $x = Math::BigInt -> new("-1"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 305 - $x = Math::BigInt -> new("0"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 306 - $x = Math::BigInt -> new("1"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 307 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 308 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("3777777777777777777"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 309 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("3777777777777777777"); # Subtest: $x = Math::BigInt -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 310 - $x = Math::BigInt -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 311 - $x = Math::BigInt -> new("-1"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 312 - $x = Math::BigInt -> new("0"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 313 - $x = Math::BigInt -> new("1"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 314 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 315 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("4000000000000000000"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 316 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("4000000000000000000"); # Subtest: $x = Math::BigInt -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 317 - $x = Math::BigInt -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 318 - $x = Math::BigInt -> new("-1"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 319 - $x = Math::BigInt -> new("0"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 320 - $x = Math::BigInt -> new("1"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 321 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 322 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("4000000000000000001"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 323 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("4000000000000000001"); # Subtest: $x = Math::BigInt -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 324 - $x = Math::BigInt -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 325 - $x = Math::BigInt -> new("-1"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 326 - $x = Math::BigInt -> new("0"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 327 - $x = Math::BigInt -> new("1"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 328 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 329 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("NaN"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 330 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("NaN"); # Subtest: $x = Math::BigInt -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 331 - $x = Math::BigInt -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 332 - $x = Math::BigInt -> new("-1"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 333 - $x = Math::BigInt -> new("0"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 334 - $x = Math::BigInt -> new("1"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 335 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 336 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("+inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 337 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("+inf"); # Subtest: $x = Math::BigInt -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 338 - $x = Math::BigInt -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("-1"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 339 - $x = Math::BigInt -> new("-1"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("0"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 340 - $x = Math::BigInt -> new("0"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("1"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 341 - $x = Math::BigInt -> new("1"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("-inf"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 342 - $x = Math::BigInt -> new("-inf"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("+inf"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 343 - $x = Math::BigInt -> new("+inf"); $x -> from_oct("-inf"); # Subtest: $x = Math::BigInt -> new("NaN"); $x -> from_oct("-inf"); ok 1 - output arg is a Math::BigInt 1..2 ok 2 - output arg has the right value ok 344 - $x = Math::BigInt -> new("NaN"); $x -> from_oct("-inf"); ok t/inf_nan.t ................................... 1..2052 ok 1 - x Math::BigInt -inf + -inf ok 2 - r Math::BigInt -inf + -inf ok 3 - x Math::BigInt::Subclass -inf + -inf ok 4 - r Math::BigInt::Subclass -inf + -inf ok 5 - x Math::BigFloat -inf + -inf ok 6 - r Math::BigFloat -inf + -inf ok 7 - x Math::BigFloat::Subclass -inf + -inf ok 8 - r Math::BigFloat::Subclass -inf + -inf ok 9 - x Math::BigInt -1 + -inf ok 10 - r Math::BigInt -1 + -inf ok 11 - x Math::BigInt::Subclass -1 + -inf ok 12 - r Math::BigInt::Subclass -1 + -inf ok 13 - x Math::BigFloat -1 + -inf ok 14 - r Math::BigFloat -1 + -inf ok 15 - x Math::BigFloat::Subclass -1 + -inf ok 16 - r Math::BigFloat::Subclass -1 + -inf ok 17 - x Math::BigInt -0 + -inf ok 18 - r Math::BigInt -0 + -inf ok 19 - x Math::BigInt::Subclass -0 + -inf ok 20 - r Math::BigInt::Subclass -0 + -inf ok 21 - x Math::BigFloat -0 + -inf ok 22 - r Math::BigFloat -0 + -inf ok 23 - x Math::BigFloat::Subclass -0 + -inf ok 24 - r Math::BigFloat::Subclass -0 + -inf ok 25 - x Math::BigInt 0 + -inf ok 26 - r Math::BigInt 0 + -inf ok 27 - x Math::BigInt::Subclass 0 + -inf ok 28 - r Math::BigInt::Subclass 0 + -inf ok 29 - x Math::BigFloat 0 + -inf ok 30 - r Math::BigFloat 0 + -inf ok 31 - x Math::BigFloat::Subclass 0 + -inf ok 32 - r Math::BigFloat::Subclass 0 + -inf ok 33 - x Math::BigInt 1 + -inf ok 34 - r Math::BigInt 1 + -inf ok 35 - x Math::BigInt::Subclass 1 + -inf ok 36 - r Math::BigInt::Subclass 1 + -inf ok 37 - x Math::BigFloat 1 + -inf ok 38 - r Math::BigFloat 1 + -inf ok 39 - x Math::BigFloat::Subclass 1 + -inf ok 40 - r Math::BigFloat::Subclass 1 + -inf ok 41 - x Math::BigInt inf + -inf ok 42 - r Math::BigInt inf + -inf ok 43 - x Math::BigInt::Subclass inf + -inf ok 44 - r Math::BigInt::Subclass inf + -inf ok 45 - x Math::BigFloat inf + -inf ok 46 - r Math::BigFloat inf + -inf ok 47 - x Math::BigFloat::Subclass inf + -inf ok 48 - r Math::BigFloat::Subclass inf + -inf ok 49 - x Math::BigInt NaN + -inf ok 50 - r Math::BigInt NaN + -inf ok 51 - x Math::BigInt::Subclass NaN + -inf ok 52 - r Math::BigInt::Subclass NaN + -inf ok 53 - x Math::BigFloat NaN + -inf ok 54 - r Math::BigFloat NaN + -inf ok 55 - x Math::BigFloat::Subclass NaN + -inf ok 56 - r Math::BigFloat::Subclass NaN + -inf ok 57 - x Math::BigInt -inf + -1 ok 58 - r Math::BigInt -inf + -1 ok 59 - x Math::BigInt::Subclass -inf + -1 ok 60 - r Math::BigInt::Subclass -inf + -1 ok 61 - x Math::BigFloat -inf + -1 ok 62 - r Math::BigFloat -inf + -1 ok 63 - x Math::BigFloat::Subclass -inf + -1 ok 64 - r Math::BigFloat::Subclass -inf + -1 ok 65 - x Math::BigInt -1 + -1 ok 66 - r Math::BigInt -1 + -1 ok 67 - x Math::BigInt::Subclass -1 + -1 ok 68 - r Math::BigInt::Subclass -1 + -1 ok 69 - x Math::BigFloat -1 + -1 ok 70 - r Math::BigFloat -1 + -1 ok 71 - x Math::BigFloat::Subclass -1 + -1 ok 72 - r Math::BigFloat::Subclass -1 + -1 ok 73 - x Math::BigInt -0 + -1 ok 74 - r Math::BigInt -0 + -1 ok 75 - x Math::BigInt::Subclass -0 + -1 ok 76 - r Math::BigInt::Subclass -0 + -1 ok 77 - x Math::BigFloat -0 + -1 ok 78 - r Math::BigFloat -0 + -1 ok 79 - x Math::BigFloat::Subclass -0 + -1 ok 80 - r Math::BigFloat::Subclass -0 + -1 ok 81 - x Math::BigInt 0 + -1 ok 82 - r Math::BigInt 0 + -1 ok 83 - x Math::BigInt::Subclass 0 + -1 ok 84 - r Math::BigInt::Subclass 0 + -1 ok 85 - x Math::BigFloat 0 + -1 ok 86 - r Math::BigFloat 0 + -1 ok 87 - x Math::BigFloat::Subclass 0 + -1 ok 88 - r Math::BigFloat::Subclass 0 + -1 ok 89 - x Math::BigInt 1 + -1 ok 90 - r Math::BigInt 1 + -1 ok 91 - x Math::BigInt::Subclass 1 + -1 ok 92 - r Math::BigInt::Subclass 1 + -1 ok 93 - x Math::BigFloat 1 + -1 ok 94 - r Math::BigFloat 1 + -1 ok 95 - x Math::BigFloat::Subclass 1 + -1 ok 96 - r Math::BigFloat::Subclass 1 + -1 ok 97 - x Math::BigInt inf + -1 ok 98 - r Math::BigInt inf + -1 ok 99 - x Math::BigInt::Subclass inf + -1 ok 100 - r Math::BigInt::Subclass inf + -1 ok 101 - x Math::BigFloat inf + -1 ok 102 - r Math::BigFloat inf + -1 ok 103 - x Math::BigFloat::Subclass inf + -1 ok 104 - r Math::BigFloat::Subclass inf + -1 ok 105 - x Math::BigInt NaN + -1 ok 106 - r Math::BigInt NaN + -1 ok 107 - x Math::BigInt::Subclass NaN + -1 ok 108 - r Math::BigInt::Subclass NaN + -1 ok 109 - x Math::BigFloat NaN + -1 ok 110 - r Math::BigFloat NaN + -1 ok 111 - x Math::BigFloat::Subclass NaN + -1 ok 112 - r Math::BigFloat::Subclass NaN + -1 ok 113 - x Math::BigInt -inf + 0 ok 114 - r Math::BigInt -inf + 0 ok 115 - x Math::BigInt::Subclass -inf + 0 ok 116 - r Math::BigInt::Subclass -inf + 0 ok 117 - x Math::BigFloat -inf + 0 ok 118 - r Math::BigFloat -inf + 0 ok 119 - x Math::BigFloat::Subclass -inf + 0 ok 120 - r Math::BigFloat::Subclass -inf + 0 ok 121 - x Math::BigInt -1 + 0 ok 122 - r Math::BigInt -1 + 0 ok 123 - x Math::BigInt::Subclass -1 + 0 ok 124 - r Math::BigInt::Subclass -1 + 0 ok 125 - x Math::BigFloat -1 + 0 ok 126 - r Math::BigFloat -1 + 0 ok 127 - x Math::BigFloat::Subclass -1 + 0 ok 128 - r Math::BigFloat::Subclass -1 + 0 ok 129 - x Math::BigInt -0 + 0 ok 130 - r Math::BigInt -0 + 0 ok 131 - x Math::BigInt::Subclass -0 + 0 ok 132 - r Math::BigInt::Subclass -0 + 0 ok 133 - x Math::BigFloat -0 + 0 ok 134 - r Math::BigFloat -0 + 0 ok 135 - x Math::BigFloat::Subclass -0 + 0 ok 136 - r Math::BigFloat::Subclass -0 + 0 ok 137 - x Math::BigInt 0 + 0 ok 138 - r Math::BigInt 0 + 0 ok 139 - x Math::BigInt::Subclass 0 + 0 ok 140 - r Math::BigInt::Subclass 0 + 0 ok 141 - x Math::BigFloat 0 + 0 ok 142 - r Math::BigFloat 0 + 0 ok 143 - x Math::BigFloat::Subclass 0 + 0 ok 144 - r Math::BigFloat::Subclass 0 + 0 ok 145 - x Math::BigInt 1 + 0 ok 146 - r Math::BigInt 1 + 0 ok 147 - x Math::BigInt::Subclass 1 + 0 ok 148 - r Math::BigInt::Subclass 1 + 0 ok 149 - x Math::BigFloat 1 + 0 ok 150 - r Math::BigFloat 1 + 0 ok 151 - x Math::BigFloat::Subclass 1 + 0 ok 152 - r Math::BigFloat::Subclass 1 + 0 ok 153 - x Math::BigInt inf + 0 ok 154 - r Math::BigInt inf + 0 ok 155 - x Math::BigInt::Subclass inf + 0 ok 156 - r Math::BigInt::Subclass inf + 0 ok 157 - x Math::BigFloat inf + 0 ok 158 - r Math::BigFloat inf + 0 ok 159 - x Math::BigFloat::Subclass inf + 0 ok 160 - r Math::BigFloat::Subclass inf + 0 ok 161 - x Math::BigInt NaN + 0 ok 162 - r Math::BigInt NaN + 0 ok 163 - x Math::BigInt::Subclass NaN + 0 ok 164 - r Math::BigInt::Subclass NaN + 0 ok 165 - x Math::BigFloat NaN + 0 ok 166 - r Math::BigFloat NaN + 0 ok 167 - x Math::BigFloat::Subclass NaN + 0 ok 168 - r Math::BigFloat::Subclass NaN + 0 ok 169 - x Math::BigInt -inf + 1 ok 170 - r Math::BigInt -inf + 1 ok 171 - x Math::BigInt::Subclass -inf + 1 ok 172 - r Math::BigInt::Subclass -inf + 1 ok 173 - x Math::BigFloat -inf + 1 ok 174 - r Math::BigFloat -inf + 1 ok 175 - x Math::BigFloat::Subclass -inf + 1 ok 176 - r Math::BigFloat::Subclass -inf + 1 ok 177 - x Math::BigInt -1 + 1 ok 178 - r Math::BigInt -1 + 1 ok 179 - x Math::BigInt::Subclass -1 + 1 ok 180 - r Math::BigInt::Subclass -1 + 1 ok 181 - x Math::BigFloat -1 + 1 ok 182 - r Math::BigFloat -1 + 1 ok 183 - x Math::BigFloat::Subclass -1 + 1 ok 184 - r Math::BigFloat::Subclass -1 + 1 ok 185 - x Math::BigInt -0 + 1 ok 186 - r Math::BigInt -0 + 1 ok 187 - x Math::BigInt::Subclass -0 + 1 ok 188 - r Math::BigInt::Subclass -0 + 1 ok 189 - x Math::BigFloat -0 + 1 ok 190 - r Math::BigFloat -0 + 1 ok 191 - x Math::BigFloat::Subclass -0 + 1 ok 192 - r Math::BigFloat::Subclass -0 + 1 ok 193 - x Math::BigInt 0 + 1 ok 194 - r Math::BigInt 0 + 1 ok 195 - x Math::BigInt::Subclass 0 + 1 ok 196 - r Math::BigInt::Subclass 0 + 1 ok 197 - x Math::BigFloat 0 + 1 ok 198 - r Math::BigFloat 0 + 1 ok 199 - x Math::BigFloat::Subclass 0 + 1 ok 200 - r Math::BigFloat::Subclass 0 + 1 ok 201 - x Math::BigInt 1 + 1 ok 202 - r Math::BigInt 1 + 1 ok 203 - x Math::BigInt::Subclass 1 + 1 ok 204 - r Math::BigInt::Subclass 1 + 1 ok 205 - x Math::BigFloat 1 + 1 ok 206 - r Math::BigFloat 1 + 1 ok 207 - x Math::BigFloat::Subclass 1 + 1 ok 208 - r Math::BigFloat::Subclass 1 + 1 ok 209 - x Math::BigInt inf + 1 ok 210 - r Math::BigInt inf + 1 ok 211 - x Math::BigInt::Subclass inf + 1 ok 212 - r Math::BigInt::Subclass inf + 1 ok 213 - x Math::BigFloat inf + 1 ok 214 - r Math::BigFloat inf + 1 ok 215 - x Math::BigFloat::Subclass inf + 1 ok 216 - r Math::BigFloat::Subclass inf + 1 ok 217 - x Math::BigInt NaN + 1 ok 218 - r Math::BigInt NaN + 1 ok 219 - x Math::BigInt::Subclass NaN + 1 ok 220 - r Math::BigInt::Subclass NaN + 1 ok 221 - x Math::BigFloat NaN + 1 ok 222 - r Math::BigFloat NaN + 1 ok 223 - x Math::BigFloat::Subclass NaN + 1 ok 224 - r Math::BigFloat::Subclass NaN + 1 ok 225 - x Math::BigInt -inf + inf ok 226 - r Math::BigInt -inf + inf ok 227 - x Math::BigInt::Subclass -inf + inf ok 228 - r Math::BigInt::Subclass -inf + inf ok 229 - x Math::BigFloat -inf + inf ok 230 - r Math::BigFloat -inf + inf ok 231 - x Math::BigFloat::Subclass -inf + inf ok 232 - r Math::BigFloat::Subclass -inf + inf ok 233 - x Math::BigInt -1 + inf ok 234 - r Math::BigInt -1 + inf ok 235 - x Math::BigInt::Subclass -1 + inf ok 236 - r Math::BigInt::Subclass -1 + inf ok 237 - x Math::BigFloat -1 + inf ok 238 - r Math::BigFloat -1 + inf ok 239 - x Math::BigFloat::Subclass -1 + inf ok 240 - r Math::BigFloat::Subclass -1 + inf ok 241 - x Math::BigInt -0 + inf ok 242 - r Math::BigInt -0 + inf ok 243 - x Math::BigInt::Subclass -0 + inf ok 244 - r Math::BigInt::Subclass -0 + inf ok 245 - x Math::BigFloat -0 + inf ok 246 - r Math::BigFloat -0 + inf ok 247 - x Math::BigFloat::Subclass -0 + inf ok 248 - r Math::BigFloat::Subclass -0 + inf ok 249 - x Math::BigInt 0 + inf ok 250 - r Math::BigInt 0 + inf ok 251 - x Math::BigInt::Subclass 0 + inf ok 252 - r Math::BigInt::Subclass 0 + inf ok 253 - x Math::BigFloat 0 + inf ok 254 - r Math::BigFloat 0 + inf ok 255 - x Math::BigFloat::Subclass 0 + inf ok 256 - r Math::BigFloat::Subclass 0 + inf ok 257 - x Math::BigInt 1 + inf ok 258 - r Math::BigInt 1 + inf ok 259 - x Math::BigInt::Subclass 1 + inf ok 260 - r Math::BigInt::Subclass 1 + inf ok 261 - x Math::BigFloat 1 + inf ok 262 - r Math::BigFloat 1 + inf ok 263 - x Math::BigFloat::Subclass 1 + inf ok 264 - r Math::BigFloat::Subclass 1 + inf ok 265 - x Math::BigInt inf + inf ok 266 - r Math::BigInt inf + inf ok 267 - x Math::BigInt::Subclass inf + inf ok 268 - r Math::BigInt::Subclass inf + inf ok 269 - x Math::BigFloat inf + inf ok 270 - r Math::BigFloat inf + inf ok 271 - x Math::BigFloat::Subclass inf + inf ok 272 - r Math::BigFloat::Subclass inf + inf ok 273 - x Math::BigInt NaN + inf ok 274 - r Math::BigInt NaN + inf ok 275 - x Math::BigInt::Subclass NaN + inf ok 276 - r Math::BigInt::Subclass NaN + inf ok 277 - x Math::BigFloat NaN + inf ok 278 - r Math::BigFloat NaN + inf ok 279 - x Math::BigFloat::Subclass NaN + inf ok 280 - r Math::BigFloat::Subclass NaN + inf ok 281 - x Math::BigInt -inf + NaN ok 282 - r Math::BigInt -inf + NaN ok 283 - x Math::BigInt::Subclass -inf + NaN ok 284 - r Math::BigInt::Subclass -inf + NaN ok 285 - x Math::BigFloat -inf + NaN ok 286 - r Math::BigFloat -inf + NaN ok 287 - x Math::BigFloat::Subclass -inf + NaN ok 288 - r Math::BigFloat::Subclass -inf + NaN ok 289 - x Math::BigInt -1 + NaN ok 290 - r Math::BigInt -1 + NaN ok 291 - x Math::BigInt::Subclass -1 + NaN ok 292 - r Math::BigInt::Subclass -1 + NaN ok 293 - x Math::BigFloat -1 + NaN ok 294 - r Math::BigFloat -1 + NaN ok 295 - x Math::BigFloat::Subclass -1 + NaN ok 296 - r Math::BigFloat::Subclass -1 + NaN ok 297 - x Math::BigInt -0 + NaN ok 298 - r Math::BigInt -0 + NaN ok 299 - x Math::BigInt::Subclass -0 + NaN ok 300 - r Math::BigInt::Subclass -0 + NaN ok 301 - x Math::BigFloat -0 + NaN ok 302 - r Math::BigFloat -0 + NaN ok 303 - x Math::BigFloat::Subclass -0 + NaN ok 304 - r Math::BigFloat::Subclass -0 + NaN ok 305 - x Math::BigInt 0 + NaN ok 306 - r Math::BigInt 0 + NaN ok 307 - x Math::BigInt::Subclass 0 + NaN ok 308 - r Math::BigInt::Subclass 0 + NaN ok 309 - x Math::BigFloat 0 + NaN ok 310 - r Math::BigFloat 0 + NaN ok 311 - x Math::BigFloat::Subclass 0 + NaN ok 312 - r Math::BigFloat::Subclass 0 + NaN ok 313 - x Math::BigInt 1 + NaN ok 314 - r Math::BigInt 1 + NaN ok 315 - x Math::BigInt::Subclass 1 + NaN ok 316 - r Math::BigInt::Subclass 1 + NaN ok 317 - x Math::BigFloat 1 + NaN ok 318 - r Math::BigFloat 1 + NaN ok 319 - x Math::BigFloat::Subclass 1 + NaN ok 320 - r Math::BigFloat::Subclass 1 + NaN ok 321 - x Math::BigInt inf + NaN ok 322 - r Math::BigInt inf + NaN ok 323 - x Math::BigInt::Subclass inf + NaN ok 324 - r Math::BigInt::Subclass inf + NaN ok 325 - x Math::BigFloat inf + NaN ok 326 - r Math::BigFloat inf + NaN ok 327 - x Math::BigFloat::Subclass inf + NaN ok 328 - r Math::BigFloat::Subclass inf + NaN ok 329 - x Math::BigInt NaN + NaN ok 330 - r Math::BigInt NaN + NaN ok 331 - x Math::BigInt::Subclass NaN + NaN ok 332 - r Math::BigInt::Subclass NaN + NaN ok 333 - x Math::BigFloat NaN + NaN ok 334 - r Math::BigFloat NaN + NaN ok 335 - x Math::BigFloat::Subclass NaN + NaN ok 336 - r Math::BigFloat::Subclass NaN + NaN ok 337 - x Math::BigInt -inf - -inf ok 338 - r Math::BigInt -inf - -inf ok 339 - x Math::BigInt::Subclass -inf - -inf ok 340 - r Math::BigInt::Subclass -inf - -inf ok 341 - x Math::BigFloat -inf - -inf ok 342 - r Math::BigFloat -inf - -inf ok 343 - x Math::BigFloat::Subclass -inf - -inf ok 344 - r Math::BigFloat::Subclass -inf - -inf ok 345 - x Math::BigInt -1 - -inf ok 346 - r Math::BigInt -1 - -inf ok 347 - x Math::BigInt::Subclass -1 - -inf ok 348 - r Math::BigInt::Subclass -1 - -inf ok 349 - x Math::BigFloat -1 - -inf ok 350 - r Math::BigFloat -1 - -inf ok 351 - x Math::BigFloat::Subclass -1 - -inf ok 352 - r Math::BigFloat::Subclass -1 - -inf ok 353 - x Math::BigInt -0 - -inf ok 354 - r Math::BigInt -0 - -inf ok 355 - x Math::BigInt::Subclass -0 - -inf ok 356 - r Math::BigInt::Subclass -0 - -inf ok 357 - x Math::BigFloat -0 - -inf ok 358 - r Math::BigFloat -0 - -inf ok 359 - x Math::BigFloat::Subclass -0 - -inf ok 360 - r Math::BigFloat::Subclass -0 - -inf ok 361 - x Math::BigInt 0 - -inf ok 362 - r Math::BigInt 0 - -inf ok 363 - x Math::BigInt::Subclass 0 - -inf ok 364 - r Math::BigInt::Subclass 0 - -inf ok 365 - x Math::BigFloat 0 - -inf ok 366 - r Math::BigFloat 0 - -inf ok 367 - x Math::BigFloat::Subclass 0 - -inf ok 368 - r Math::BigFloat::Subclass 0 - -inf ok 369 - x Math::BigInt 1 - -inf ok 370 - r Math::BigInt 1 - -inf ok 371 - x Math::BigInt::Subclass 1 - -inf ok 372 - r Math::BigInt::Subclass 1 - -inf ok 373 - x Math::BigFloat 1 - -inf ok 374 - r Math::BigFloat 1 - -inf ok 375 - x Math::BigFloat::Subclass 1 - -inf ok 376 - r Math::BigFloat::Subclass 1 - -inf ok 377 - x Math::BigInt inf - -inf ok 378 - r Math::BigInt inf - -inf ok 379 - x Math::BigInt::Subclass inf - -inf ok 380 - r Math::BigInt::Subclass inf - -inf ok 381 - x Math::BigFloat inf - -inf ok 382 - r Math::BigFloat inf - -inf ok 383 - x Math::BigFloat::Subclass inf - -inf ok 384 - r Math::BigFloat::Subclass inf - -inf ok 385 - x Math::BigInt NaN - -inf ok 386 - r Math::BigInt NaN - -inf ok 387 - x Math::BigInt::Subclass NaN - -inf ok 388 - r Math::BigInt::Subclass NaN - -inf ok 389 - x Math::BigFloat NaN - -inf ok 390 - r Math::BigFloat NaN - -inf ok 391 - x Math::BigFloat::Subclass NaN - -inf ok 392 - r Math::BigFloat::Subclass NaN - -inf ok 393 - x Math::BigInt -inf - -1 ok 394 - r Math::BigInt -inf - -1 ok 395 - x Math::BigInt::Subclass -inf - -1 ok 396 - r Math::BigInt::Subclass -inf - -1 ok 397 - x Math::BigFloat -inf - -1 ok 398 - r Math::BigFloat -inf - -1 ok 399 - x Math::BigFloat::Subclass -inf - -1 ok 400 - r Math::BigFloat::Subclass -inf - -1 ok 401 - x Math::BigInt -1 - -1 ok 402 - r Math::BigInt -1 - -1 ok 403 - x Math::BigInt::Subclass -1 - -1 ok 404 - r Math::BigInt::Subclass -1 - -1 ok 405 - x Math::BigFloat -1 - -1 ok 406 - r Math::BigFloat -1 - -1 ok 407 - x Math::BigFloat::Subclass -1 - -1 ok 408 - r Math::BigFloat::Subclass -1 - -1 ok 409 - x Math::BigInt -0 - -1 ok 410 - r Math::BigInt -0 - -1 ok 411 - x Math::BigInt::Subclass -0 - -1 ok 412 - r Math::BigInt::Subclass -0 - -1 ok 413 - x Math::BigFloat -0 - -1 ok 414 - r Math::BigFloat -0 - -1 ok 415 - x Math::BigFloat::Subclass -0 - -1 ok 416 - r Math::BigFloat::Subclass -0 - -1 ok 417 - x Math::BigInt 0 - -1 ok 418 - r Math::BigInt 0 - -1 ok 419 - x Math::BigInt::Subclass 0 - -1 ok 420 - r Math::BigInt::Subclass 0 - -1 ok 421 - x Math::BigFloat 0 - -1 ok 422 - r Math::BigFloat 0 - -1 ok 423 - x Math::BigFloat::Subclass 0 - -1 ok 424 - r Math::BigFloat::Subclass 0 - -1 ok 425 - x Math::BigInt 1 - -1 ok 426 - r Math::BigInt 1 - -1 ok 427 - x Math::BigInt::Subclass 1 - -1 ok 428 - r Math::BigInt::Subclass 1 - -1 ok 429 - x Math::BigFloat 1 - -1 ok 430 - r Math::BigFloat 1 - -1 ok 431 - x Math::BigFloat::Subclass 1 - -1 ok 432 - r Math::BigFloat::Subclass 1 - -1 ok 433 - x Math::BigInt inf - -1 ok 434 - r Math::BigInt inf - -1 ok 435 - x Math::BigInt::Subclass inf - -1 ok 436 - r Math::BigInt::Subclass inf - -1 ok 437 - x Math::BigFloat inf - -1 ok 438 - r Math::BigFloat inf - -1 ok 439 - x Math::BigFloat::Subclass inf - -1 ok 440 - r Math::BigFloat::Subclass inf - -1 ok 441 - x Math::BigInt NaN - -1 ok 442 - r Math::BigInt NaN - -1 ok 443 - x Math::BigInt::Subclass NaN - -1 ok 444 - r Math::BigInt::Subclass NaN - -1 ok 445 - x Math::BigFloat NaN - -1 ok 446 - r Math::BigFloat NaN - -1 ok 447 - x Math::BigFloat::Subclass NaN - -1 ok 448 - r Math::BigFloat::Subclass NaN - -1 ok 449 - x Math::BigInt -inf - 0 ok 450 - r Math::BigInt -inf - 0 ok 451 - x Math::BigInt::Subclass -inf - 0 ok 452 - r Math::BigInt::Subclass -inf - 0 ok 453 - x Math::BigFloat -inf - 0 ok 454 - r Math::BigFloat -inf - 0 ok 455 - x Math::BigFloat::Subclass -inf - 0 ok 456 - r Math::BigFloat::Subclass -inf - 0 ok 457 - x Math::BigInt -1 - 0 ok 458 - r Math::BigInt -1 - 0 ok 459 - x Math::BigInt::Subclass -1 - 0 ok 460 - r Math::BigInt::Subclass -1 - 0 ok 461 - x Math::BigFloat -1 - 0 ok 462 - r Math::BigFloat -1 - 0 ok 463 - x Math::BigFloat::Subclass -1 - 0 ok 464 - r Math::BigFloat::Subclass -1 - 0 ok 465 - x Math::BigInt -0 - 0 ok 466 - r Math::BigInt -0 - 0 ok 467 - x Math::BigInt::Subclass -0 - 0 ok 468 - r Math::BigInt::Subclass -0 - 0 ok 469 - x Math::BigFloat -0 - 0 ok 470 - r Math::BigFloat -0 - 0 ok 471 - x Math::BigFloat::Subclass -0 - 0 ok 472 - r Math::BigFloat::Subclass -0 - 0 ok 473 - x Math::BigInt 0 - 0 ok 474 - r Math::BigInt 0 - 0 ok 475 - x Math::BigInt::Subclass 0 - 0 ok 476 - r Math::BigInt::Subclass 0 - 0 ok 477 - x Math::BigFloat 0 - 0 ok 478 - r Math::BigFloat 0 - 0 ok 479 - x Math::BigFloat::Subclass 0 - 0 ok 480 - r Math::BigFloat::Subclass 0 - 0 ok 481 - x Math::BigInt 1 - 0 ok 482 - r Math::BigInt 1 - 0 ok 483 - x Math::BigInt::Subclass 1 - 0 ok 484 - r Math::BigInt::Subclass 1 - 0 ok 485 - x Math::BigFloat 1 - 0 ok 486 - r Math::BigFloat 1 - 0 ok 487 - x Math::BigFloat::Subclass 1 - 0 ok 488 - r Math::BigFloat::Subclass 1 - 0 ok 489 - x Math::BigInt inf - 0 ok 490 - r Math::BigInt inf - 0 ok 491 - x Math::BigInt::Subclass inf - 0 ok 492 - r Math::BigInt::Subclass inf - 0 ok 493 - x Math::BigFloat inf - 0 ok 494 - r Math::BigFloat inf - 0 ok 495 - x Math::BigFloat::Subclass inf - 0 ok 496 - r Math::BigFloat::Subclass inf - 0 ok 497 - x Math::BigInt NaN - 0 ok 498 - r Math::BigInt NaN - 0 ok 499 - x Math::BigInt::Subclass NaN - 0 ok 500 - r Math::BigInt::Subclass NaN - 0 ok 501 - x Math::BigFloat NaN - 0 ok 502 - r Math::BigFloat NaN - 0 ok 503 - x Math::BigFloat::Subclass NaN - 0 ok 504 - r Math::BigFloat::Subclass NaN - 0 ok 505 - x Math::BigInt -inf - 1 ok 506 - r Math::BigInt -inf - 1 ok 507 - x Math::BigInt::Subclass -inf - 1 ok 508 - r Math::BigInt::Subclass -inf - 1 ok 509 - x Math::BigFloat -inf - 1 ok 510 - r Math::BigFloat -inf - 1 ok 511 - x Math::BigFloat::Subclass -inf - 1 ok 512 - r Math::BigFloat::Subclass -inf - 1 ok 513 - x Math::BigInt -1 - 1 ok 514 - r Math::BigInt -1 - 1 ok 515 - x Math::BigInt::Subclass -1 - 1 ok 516 - r Math::BigInt::Subclass -1 - 1 ok 517 - x Math::BigFloat -1 - 1 ok 518 - r Math::BigFloat -1 - 1 ok 519 - x Math::BigFloat::Subclass -1 - 1 ok 520 - r Math::BigFloat::Subclass -1 - 1 ok 521 - x Math::BigInt -0 - 1 ok 522 - r Math::BigInt -0 - 1 ok 523 - x Math::BigInt::Subclass -0 - 1 ok 524 - r Math::BigInt::Subclass -0 - 1 ok 525 - x Math::BigFloat -0 - 1 ok 526 - r Math::BigFloat -0 - 1 ok 527 - x Math::BigFloat::Subclass -0 - 1 ok 528 - r Math::BigFloat::Subclass -0 - 1 ok 529 - x Math::BigInt 0 - 1 ok 530 - r Math::BigInt 0 - 1 ok 531 - x Math::BigInt::Subclass 0 - 1 ok 532 - r Math::BigInt::Subclass 0 - 1 ok 533 - x Math::BigFloat 0 - 1 ok 534 - r Math::BigFloat 0 - 1 ok 535 - x Math::BigFloat::Subclass 0 - 1 ok 536 - r Math::BigFloat::Subclass 0 - 1 ok 537 - x Math::BigInt 1 - 1 ok 538 - r Math::BigInt 1 - 1 ok 539 - x Math::BigInt::Subclass 1 - 1 ok 540 - r Math::BigInt::Subclass 1 - 1 ok 541 - x Math::BigFloat 1 - 1 ok 542 - r Math::BigFloat 1 - 1 ok 543 - x Math::BigFloat::Subclass 1 - 1 ok 544 - r Math::BigFloat::Subclass 1 - 1 ok 545 - x Math::BigInt inf - 1 ok 546 - r Math::BigInt inf - 1 ok 547 - x Math::BigInt::Subclass inf - 1 ok 548 - r Math::BigInt::Subclass inf - 1 ok 549 - x Math::BigFloat inf - 1 ok 550 - r Math::BigFloat inf - 1 ok 551 - x Math::BigFloat::Subclass inf - 1 ok 552 - r Math::BigFloat::Subclass inf - 1 ok 553 - x Math::BigInt NaN - 1 ok 554 - r Math::BigInt NaN - 1 ok 555 - x Math::BigInt::Subclass NaN - 1 ok 556 - r Math::BigInt::Subclass NaN - 1 ok 557 - x Math::BigFloat NaN - 1 ok 558 - r Math::BigFloat NaN - 1 ok 559 - x Math::BigFloat::Subclass NaN - 1 ok 560 - r Math::BigFloat::Subclass NaN - 1 ok 561 - x Math::BigInt -inf - inf ok 562 - r Math::BigInt -inf - inf ok 563 - x Math::BigInt::Subclass -inf - inf ok 564 - r Math::BigInt::Subclass -inf - inf ok 565 - x Math::BigFloat -inf - inf ok 566 - r Math::BigFloat -inf - inf ok 567 - x Math::BigFloat::Subclass -inf - inf ok 568 - r Math::BigFloat::Subclass -inf - inf ok 569 - x Math::BigInt -1 - inf ok 570 - r Math::BigInt -1 - inf ok 571 - x Math::BigInt::Subclass -1 - inf ok 572 - r Math::BigInt::Subclass -1 - inf ok 573 - x Math::BigFloat -1 - inf ok 574 - r Math::BigFloat -1 - inf ok 575 - x Math::BigFloat::Subclass -1 - inf ok 576 - r Math::BigFloat::Subclass -1 - inf ok 577 - x Math::BigInt -0 - inf ok 578 - r Math::BigInt -0 - inf ok 579 - x Math::BigInt::Subclass -0 - inf ok 580 - r Math::BigInt::Subclass -0 - inf ok 581 - x Math::BigFloat -0 - inf ok 582 - r Math::BigFloat -0 - inf ok 583 - x Math::BigFloat::Subclass -0 - inf ok 584 - r Math::BigFloat::Subclass -0 - inf ok 585 - x Math::BigInt 0 - inf ok 586 - r Math::BigInt 0 - inf ok 587 - x Math::BigInt::Subclass 0 - inf ok 588 - r Math::BigInt::Subclass 0 - inf ok 589 - x Math::BigFloat 0 - inf ok 590 - r Math::BigFloat 0 - inf ok 591 - x Math::BigFloat::Subclass 0 - inf ok 592 - r Math::BigFloat::Subclass 0 - inf ok 593 - x Math::BigInt 1 - inf ok 594 - r Math::BigInt 1 - inf ok 595 - x Math::BigInt::Subclass 1 - inf ok 596 - r Math::BigInt::Subclass 1 - inf ok 597 - x Math::BigFloat 1 - inf ok 598 - r Math::BigFloat 1 - inf ok 599 - x Math::BigFloat::Subclass 1 - inf ok 600 - r Math::BigFloat::Subclass 1 - inf ok 601 - x Math::BigInt inf - inf ok 602 - r Math::BigInt inf - inf ok 603 - x Math::BigInt::Subclass inf - inf ok 604 - r Math::BigInt::Subclass inf - inf ok 605 - x Math::BigFloat inf - inf ok 606 - r Math::BigFloat inf - inf ok 607 - x Math::BigFloat::Subclass inf - inf ok 608 - r Math::BigFloat::Subclass inf - inf ok 609 - x Math::BigInt NaN - inf ok 610 - r Math::BigInt NaN - inf ok 611 - x Math::BigInt::Subclass NaN - inf ok 612 - r Math::BigInt::Subclass NaN - inf ok 613 - x Math::BigFloat NaN - inf ok 614 - r Math::BigFloat NaN - inf ok 615 - x Math::BigFloat::Subclass NaN - inf ok 616 - r Math::BigFloat::Subclass NaN - inf ok 617 - x Math::BigInt -inf - NaN ok 618 - r Math::BigInt -inf - NaN ok 619 - x Math::BigInt::Subclass -inf - NaN ok 620 - r Math::BigInt::Subclass -inf - NaN ok 621 - x Math::BigFloat -inf - NaN ok 622 - r Math::BigFloat -inf - NaN ok 623 - x Math::BigFloat::Subclass -inf - NaN ok 624 - r Math::BigFloat::Subclass -inf - NaN ok 625 - x Math::BigInt -1 - NaN ok 626 - r Math::BigInt -1 - NaN ok 627 - x Math::BigInt::Subclass -1 - NaN ok 628 - r Math::BigInt::Subclass -1 - NaN ok 629 - x Math::BigFloat -1 - NaN ok 630 - r Math::BigFloat -1 - NaN ok 631 - x Math::BigFloat::Subclass -1 - NaN ok 632 - r Math::BigFloat::Subclass -1 - NaN ok 633 - x Math::BigInt -0 - NaN ok 634 - r Math::BigInt -0 - NaN ok 635 - x Math::BigInt::Subclass -0 - NaN ok 636 - r Math::BigInt::Subclass -0 - NaN ok 637 - x Math::BigFloat -0 - NaN ok 638 - r Math::BigFloat -0 - NaN ok 639 - x Math::BigFloat::Subclass -0 - NaN ok 640 - r Math::BigFloat::Subclass -0 - NaN ok 641 - x Math::BigInt 0 - NaN ok 642 - r Math::BigInt 0 - NaN ok 643 - x Math::BigInt::Subclass 0 - NaN ok 644 - r Math::BigInt::Subclass 0 - NaN ok 645 - x Math::BigFloat 0 - NaN ok 646 - r Math::BigFloat 0 - NaN ok 647 - x Math::BigFloat::Subclass 0 - NaN ok 648 - r Math::BigFloat::Subclass 0 - NaN ok 649 - x Math::BigInt 1 - NaN ok 650 - r Math::BigInt 1 - NaN ok 651 - x Math::BigInt::Subclass 1 - NaN ok 652 - r Math::BigInt::Subclass 1 - NaN ok 653 - x Math::BigFloat 1 - NaN ok 654 - r Math::BigFloat 1 - NaN ok 655 - x Math::BigFloat::Subclass 1 - NaN ok 656 - r Math::BigFloat::Subclass 1 - NaN ok 657 - x Math::BigInt inf - NaN ok 658 - r Math::BigInt inf - NaN ok 659 - x Math::BigInt::Subclass inf - NaN ok 660 - r Math::BigInt::Subclass inf - NaN ok 661 - x Math::BigFloat inf - NaN ok 662 - r Math::BigFloat inf - NaN ok 663 - x Math::BigFloat::Subclass inf - NaN ok 664 - r Math::BigFloat::Subclass inf - NaN ok 665 - x Math::BigInt NaN - NaN ok 666 - r Math::BigInt NaN - NaN ok 667 - x Math::BigInt::Subclass NaN - NaN ok 668 - r Math::BigInt::Subclass NaN - NaN ok 669 - x Math::BigFloat NaN - NaN ok 670 - r Math::BigFloat NaN - NaN ok 671 - x Math::BigFloat::Subclass NaN - NaN ok 672 - r Math::BigFloat::Subclass NaN - NaN ok 673 - x Math::BigInt -inf * -inf ok 674 - r Math::BigInt -inf * -inf ok 675 - x Math::BigInt::Subclass -inf * -inf ok 676 - r Math::BigInt::Subclass -inf * -inf ok 677 - x Math::BigFloat -inf * -inf ok 678 - r Math::BigFloat -inf * -inf ok 679 - x Math::BigFloat::Subclass -inf * -inf ok 680 - r Math::BigFloat::Subclass -inf * -inf ok 681 - x Math::BigInt -1 * -inf ok 682 - r Math::BigInt -1 * -inf ok 683 - x Math::BigInt::Subclass -1 * -inf ok 684 - r Math::BigInt::Subclass -1 * -inf ok 685 - x Math::BigFloat -1 * -inf ok 686 - r Math::BigFloat -1 * -inf ok 687 - x Math::BigFloat::Subclass -1 * -inf ok 688 - r Math::BigFloat::Subclass -1 * -inf ok 689 - x Math::BigInt -0 * -inf ok 690 - r Math::BigInt -0 * -inf ok 691 - x Math::BigInt::Subclass -0 * -inf ok 692 - r Math::BigInt::Subclass -0 * -inf ok 693 - x Math::BigFloat -0 * -inf ok 694 - r Math::BigFloat -0 * -inf ok 695 - x Math::BigFloat::Subclass -0 * -inf ok 696 - r Math::BigFloat::Subclass -0 * -inf ok 697 - x Math::BigInt 0 * -inf ok 698 - r Math::BigInt 0 * -inf ok 699 - x Math::BigInt::Subclass 0 * -inf ok 700 - r Math::BigInt::Subclass 0 * -inf ok 701 - x Math::BigFloat 0 * -inf ok 702 - r Math::BigFloat 0 * -inf ok 703 - x Math::BigFloat::Subclass 0 * -inf ok 704 - r Math::BigFloat::Subclass 0 * -inf ok 705 - x Math::BigInt 1 * -inf ok 706 - r Math::BigInt 1 * -inf ok 707 - x Math::BigInt::Subclass 1 * -inf ok 708 - r Math::BigInt::Subclass 1 * -inf ok 709 - x Math::BigFloat 1 * -inf ok 710 - r Math::BigFloat 1 * -inf ok 711 - x Math::BigFloat::Subclass 1 * -inf ok 712 - r Math::BigFloat::Subclass 1 * -inf ok 713 - x Math::BigInt inf * -inf ok 714 - r Math::BigInt inf * -inf ok 715 - x Math::BigInt::Subclass inf * -inf ok 716 - r Math::BigInt::Subclass inf * -inf ok 717 - x Math::BigFloat inf * -inf ok 718 - r Math::BigFloat inf * -inf ok 719 - x Math::BigFloat::Subclass inf * -inf ok 720 - r Math::BigFloat::Subclass inf * -inf ok 721 - x Math::BigInt NaN * -inf ok 722 - r Math::BigInt NaN * -inf ok 723 - x Math::BigInt::Subclass NaN * -inf ok 724 - r Math::BigInt::Subclass NaN * -inf ok 725 - x Math::BigFloat NaN * -inf ok 726 - r Math::BigFloat NaN * -inf ok 727 - x Math::BigFloat::Subclass NaN * -inf ok 728 - r Math::BigFloat::Subclass NaN * -inf ok 729 - x Math::BigInt -inf * -1 ok 730 - r Math::BigInt -inf * -1 ok 731 - x Math::BigInt::Subclass -inf * -1 ok 732 - r Math::BigInt::Subclass -inf * -1 ok 733 - x Math::BigFloat -inf * -1 ok 734 - r Math::BigFloat -inf * -1 ok 735 - x Math::BigFloat::Subclass -inf * -1 ok 736 - r Math::BigFloat::Subclass -inf * -1 ok 737 - x Math::BigInt -1 * -1 ok 738 - r Math::BigInt -1 * -1 ok 739 - x Math::BigInt::Subclass -1 * -1 ok 740 - r Math::BigInt::Subclass -1 * -1 ok 741 - x Math::BigFloat -1 * -1 ok 742 - r Math::BigFloat -1 * -1 ok 743 - x Math::BigFloat::Subclass -1 * -1 ok 744 - r Math::BigFloat::Subclass -1 * -1 ok 745 - x Math::BigInt -0 * -1 ok 746 - r Math::BigInt -0 * -1 ok 747 - x Math::BigInt::Subclass -0 * -1 ok 748 - r Math::BigInt::Subclass -0 * -1 ok 749 - x Math::BigFloat -0 * -1 ok 750 - r Math::BigFloat -0 * -1 ok 751 - x Math::BigFloat::Subclass -0 * -1 ok 752 - r Math::BigFloat::Subclass -0 * -1 ok 753 - x Math::BigInt 0 * -1 ok 754 - r Math::BigInt 0 * -1 ok 755 - x Math::BigInt::Subclass 0 * -1 ok 756 - r Math::BigInt::Subclass 0 * -1 ok 757 - x Math::BigFloat 0 * -1 ok 758 - r Math::BigFloat 0 * -1 ok 759 - x Math::BigFloat::Subclass 0 * -1 ok 760 - r Math::BigFloat::Subclass 0 * -1 ok 761 - x Math::BigInt 1 * -1 ok 762 - r Math::BigInt 1 * -1 ok 763 - x Math::BigInt::Subclass 1 * -1 ok 764 - r Math::BigInt::Subclass 1 * -1 ok 765 - x Math::BigFloat 1 * -1 ok 766 - r Math::BigFloat 1 * -1 ok 767 - x Math::BigFloat::Subclass 1 * -1 ok 768 - r Math::BigFloat::Subclass 1 * -1 ok 769 - x Math::BigInt inf * -1 ok 770 - r Math::BigInt inf * -1 ok 771 - x Math::BigInt::Subclass inf * -1 ok 772 - r Math::BigInt::Subclass inf * -1 ok 773 - x Math::BigFloat inf * -1 ok 774 - r Math::BigFloat inf * -1 ok 775 - x Math::BigFloat::Subclass inf * -1 ok 776 - r Math::BigFloat::Subclass inf * -1 ok 777 - x Math::BigInt NaN * -1 ok 778 - r Math::BigInt NaN * -1 ok 779 - x Math::BigInt::Subclass NaN * -1 ok 780 - r Math::BigInt::Subclass NaN * -1 ok 781 - x Math::BigFloat NaN * -1 ok 782 - r Math::BigFloat NaN * -1 ok 783 - x Math::BigFloat::Subclass NaN * -1 ok 784 - r Math::BigFloat::Subclass NaN * -1 ok 785 - x Math::BigInt -inf * 0 ok 786 - r Math::BigInt -inf * 0 ok 787 - x Math::BigInt::Subclass -inf * 0 ok 788 - r Math::BigInt::Subclass -inf * 0 ok 789 - x Math::BigFloat -inf * 0 ok 790 - r Math::BigFloat -inf * 0 ok 791 - x Math::BigFloat::Subclass -inf * 0 ok 792 - r Math::BigFloat::Subclass -inf * 0 ok 793 - x Math::BigInt -1 * 0 ok 794 - r Math::BigInt -1 * 0 ok 795 - x Math::BigInt::Subclass -1 * 0 ok 796 - r Math::BigInt::Subclass -1 * 0 ok 797 - x Math::BigFloat -1 * 0 ok 798 - r Math::BigFloat -1 * 0 ok 799 - x Math::BigFloat::Subclass -1 * 0 ok 800 - r Math::BigFloat::Subclass -1 * 0 ok 801 - x Math::BigInt -0 * 0 ok 802 - r Math::BigInt -0 * 0 ok 803 - x Math::BigInt::Subclass -0 * 0 ok 804 - r Math::BigInt::Subclass -0 * 0 ok 805 - x Math::BigFloat -0 * 0 ok 806 - r Math::BigFloat -0 * 0 ok 807 - x Math::BigFloat::Subclass -0 * 0 ok 808 - r Math::BigFloat::Subclass -0 * 0 ok 809 - x Math::BigInt 0 * 0 ok 810 - r Math::BigInt 0 * 0 ok 811 - x Math::BigInt::Subclass 0 * 0 ok 812 - r Math::BigInt::Subclass 0 * 0 ok 813 - x Math::BigFloat 0 * 0 ok 814 - r Math::BigFloat 0 * 0 ok 815 - x Math::BigFloat::Subclass 0 * 0 ok 816 - r Math::BigFloat::Subclass 0 * 0 ok 817 - x Math::BigInt 1 * 0 ok 818 - r Math::BigInt 1 * 0 ok 819 - x Math::BigInt::Subclass 1 * 0 ok 820 - r Math::BigInt::Subclass 1 * 0 ok 821 - x Math::BigFloat 1 * 0 ok 822 - r Math::BigFloat 1 * 0 ok 823 - x Math::BigFloat::Subclass 1 * 0 ok 824 - r Math::BigFloat::Subclass 1 * 0 ok 825 - x Math::BigInt inf * 0 ok 826 - r Math::BigInt inf * 0 ok 827 - x Math::BigInt::Subclass inf * 0 ok 828 - r Math::BigInt::Subclass inf * 0 ok 829 - x Math::BigFloat inf * 0 ok 830 - r Math::BigFloat inf * 0 ok 831 - x Math::BigFloat::Subclass inf * 0 ok 832 - r Math::BigFloat::Subclass inf * 0 ok 833 - x Math::BigInt NaN * 0 ok 834 - r Math::BigInt NaN * 0 ok 835 - x Math::BigInt::Subclass NaN * 0 ok 836 - r Math::BigInt::Subclass NaN * 0 ok 837 - x Math::BigFloat NaN * 0 ok 838 - r Math::BigFloat NaN * 0 ok 839 - x Math::BigFloat::Subclass NaN * 0 ok 840 - r Math::BigFloat::Subclass NaN * 0 ok 841 - x Math::BigInt -inf * 1 ok 842 - r Math::BigInt -inf * 1 ok 843 - x Math::BigInt::Subclass -inf * 1 ok 844 - r Math::BigInt::Subclass -inf * 1 ok 845 - x Math::BigFloat -inf * 1 ok 846 - r Math::BigFloat -inf * 1 ok 847 - x Math::BigFloat::Subclass -inf * 1 ok 848 - r Math::BigFloat::Subclass -inf * 1 ok 849 - x Math::BigInt -1 * 1 ok 850 - r Math::BigInt -1 * 1 ok 851 - x Math::BigInt::Subclass -1 * 1 ok 852 - r Math::BigInt::Subclass -1 * 1 ok 853 - x Math::BigFloat -1 * 1 ok 854 - r Math::BigFloat -1 * 1 ok 855 - x Math::BigFloat::Subclass -1 * 1 ok 856 - r Math::BigFloat::Subclass -1 * 1 ok 857 - x Math::BigInt -0 * 1 ok 858 - r Math::BigInt -0 * 1 ok 859 - x Math::BigInt::Subclass -0 * 1 ok 860 - r Math::BigInt::Subclass -0 * 1 ok 861 - x Math::BigFloat -0 * 1 ok 862 - r Math::BigFloat -0 * 1 ok 863 - x Math::BigFloat::Subclass -0 * 1 ok 864 - r Math::BigFloat::Subclass -0 * 1 ok 865 - x Math::BigInt 0 * 1 ok 866 - r Math::BigInt 0 * 1 ok 867 - x Math::BigInt::Subclass 0 * 1 ok 868 - r Math::BigInt::Subclass 0 * 1 ok 869 - x Math::BigFloat 0 * 1 ok 870 - r Math::BigFloat 0 * 1 ok 871 - x Math::BigFloat::Subclass 0 * 1 ok 872 - r Math::BigFloat::Subclass 0 * 1 ok 873 - x Math::BigInt 1 * 1 ok 874 - r Math::BigInt 1 * 1 ok 875 - x Math::BigInt::Subclass 1 * 1 ok 876 - r Math::BigInt::Subclass 1 * 1 ok 877 - x Math::BigFloat 1 * 1 ok 878 - r Math::BigFloat 1 * 1 ok 879 - x Math::BigFloat::Subclass 1 * 1 ok 880 - r Math::BigFloat::Subclass 1 * 1 ok 881 - x Math::BigInt inf * 1 ok 882 - r Math::BigInt inf * 1 ok 883 - x Math::BigInt::Subclass inf * 1 ok 884 - r Math::BigInt::Subclass inf * 1 ok 885 - x Math::BigFloat inf * 1 ok 886 - r Math::BigFloat inf * 1 ok 887 - x Math::BigFloat::Subclass inf * 1 ok 888 - r Math::BigFloat::Subclass inf * 1 ok 889 - x Math::BigInt NaN * 1 ok 890 - r Math::BigInt NaN * 1 ok 891 - x Math::BigInt::Subclass NaN * 1 ok 892 - r Math::BigInt::Subclass NaN * 1 ok 893 - x Math::BigFloat NaN * 1 ok 894 - r Math::BigFloat NaN * 1 ok 895 - x Math::BigFloat::Subclass NaN * 1 ok 896 - r Math::BigFloat::Subclass NaN * 1 ok 897 - x Math::BigInt -inf * inf ok 898 - r Math::BigInt -inf * inf ok 899 - x Math::BigInt::Subclass -inf * inf ok 900 - r Math::BigInt::Subclass -inf * inf ok 901 - x Math::BigFloat -inf * inf ok 902 - r Math::BigFloat -inf * inf ok 903 - x Math::BigFloat::Subclass -inf * inf ok 904 - r Math::BigFloat::Subclass -inf * inf ok 905 - x Math::BigInt -1 * inf ok 906 - r Math::BigInt -1 * inf ok 907 - x Math::BigInt::Subclass -1 * inf ok 908 - r Math::BigInt::Subclass -1 * inf ok 909 - x Math::BigFloat -1 * inf ok 910 - r Math::BigFloat -1 * inf ok 911 - x Math::BigFloat::Subclass -1 * inf ok 912 - r Math::BigFloat::Subclass -1 * inf ok 913 - x Math::BigInt -0 * inf ok 914 - r Math::BigInt -0 * inf ok 915 - x Math::BigInt::Subclass -0 * inf ok 916 - r Math::BigInt::Subclass -0 * inf ok 917 - x Math::BigFloat -0 * inf ok 918 - r Math::BigFloat -0 * inf ok 919 - x Math::BigFloat::Subclass -0 * inf ok 920 - r Math::BigFloat::Subclass -0 * inf ok 921 - x Math::BigInt 0 * inf ok 922 - r Math::BigInt 0 * inf ok 923 - x Math::BigInt::Subclass 0 * inf ok 924 - r Math::BigInt::Subclass 0 * inf ok 925 - x Math::BigFloat 0 * inf ok 926 - r Math::BigFloat 0 * inf ok 927 - x Math::BigFloat::Subclass 0 * inf ok 928 - r Math::BigFloat::Subclass 0 * inf ok 929 - x Math::BigInt 1 * inf ok 930 - r Math::BigInt 1 * inf ok 931 - x Math::BigInt::Subclass 1 * inf ok 932 - r Math::BigInt::Subclass 1 * inf ok 933 - x Math::BigFloat 1 * inf ok 934 - r Math::BigFloat 1 * inf ok 935 - x Math::BigFloat::Subclass 1 * inf ok 936 - r Math::BigFloat::Subclass 1 * inf ok 937 - x Math::BigInt inf * inf ok 938 - r Math::BigInt inf * inf ok 939 - x Math::BigInt::Subclass inf * inf ok 940 - r Math::BigInt::Subclass inf * inf ok 941 - x Math::BigFloat inf * inf ok 942 - r Math::BigFloat inf * inf ok 943 - x Math::BigFloat::Subclass inf * inf ok 944 - r Math::BigFloat::Subclass inf * inf ok 945 - x Math::BigInt NaN * inf ok 946 - r Math::BigInt NaN * inf ok 947 - x Math::BigInt::Subclass NaN * inf ok 948 - r Math::BigInt::Subclass NaN * inf ok 949 - x Math::BigFloat NaN * inf ok 950 - r Math::BigFloat NaN * inf ok 951 - x Math::BigFloat::Subclass NaN * inf ok 952 - r Math::BigFloat::Subclass NaN * inf ok 953 - x Math::BigInt -inf * NaN ok 954 - r Math::BigInt -inf * NaN ok 955 - x Math::BigInt::Subclass -inf * NaN ok 956 - r Math::BigInt::Subclass -inf * NaN ok 957 - x Math::BigFloat -inf * NaN ok 958 - r Math::BigFloat -inf * NaN ok 959 - x Math::BigFloat::Subclass -inf * NaN ok 960 - r Math::BigFloat::Subclass -inf * NaN ok 961 - x Math::BigInt -1 * NaN ok 962 - r Math::BigInt -1 * NaN ok 963 - x Math::BigInt::Subclass -1 * NaN ok 964 - r Math::BigInt::Subclass -1 * NaN ok 965 - x Math::BigFloat -1 * NaN ok 966 - r Math::BigFloat -1 * NaN ok 967 - x Math::BigFloat::Subclass -1 * NaN ok 968 - r Math::BigFloat::Subclass -1 * NaN ok 969 - x Math::BigInt -0 * NaN ok 970 - r Math::BigInt -0 * NaN ok 971 - x Math::BigInt::Subclass -0 * NaN ok 972 - r Math::BigInt::Subclass -0 * NaN ok 973 - x Math::BigFloat -0 * NaN ok 974 - r Math::BigFloat -0 * NaN ok 975 - x Math::BigFloat::Subclass -0 * NaN ok 976 - r Math::BigFloat::Subclass -0 * NaN ok 977 - x Math::BigInt 0 * NaN ok 978 - r Math::BigInt 0 * NaN ok 979 - x Math::BigInt::Subclass 0 * NaN ok 980 - r Math::BigInt::Subclass 0 * NaN ok 981 - x Math::BigFloat 0 * NaN ok 982 - r Math::BigFloat 0 * NaN ok 983 - x Math::BigFloat::Subclass 0 * NaN ok 984 - r Math::BigFloat::Subclass 0 * NaN ok 985 - x Math::BigInt 1 * NaN ok 986 - r Math::BigInt 1 * NaN ok 987 - x Math::BigInt::Subclass 1 * NaN ok 988 - r Math::BigInt::Subclass 1 * NaN ok 989 - x Math::BigFloat 1 * NaN ok 990 - r Math::BigFloat 1 * NaN ok 991 - x Math::BigFloat::Subclass 1 * NaN ok 992 - r Math::BigFloat::Subclass 1 * NaN ok 993 - x Math::BigInt inf * NaN ok 994 - r Math::BigInt inf * NaN ok 995 - x Math::BigInt::Subclass inf * NaN ok 996 - r Math::BigInt::Subclass inf * NaN ok 997 - x Math::BigFloat inf * NaN ok 998 - r Math::BigFloat inf * NaN ok 999 - x Math::BigFloat::Subclass inf * NaN ok 1000 - r Math::BigFloat::Subclass inf * NaN ok 1001 - x Math::BigInt NaN * NaN ok 1002 - r Math::BigInt NaN * NaN ok 1003 - x Math::BigInt::Subclass NaN * NaN ok 1004 - r Math::BigInt::Subclass NaN * NaN ok 1005 - x Math::BigFloat NaN * NaN ok 1006 - r Math::BigFloat NaN * NaN ok 1007 - x Math::BigFloat::Subclass NaN * NaN ok 1008 - r Math::BigFloat::Subclass NaN * NaN ok 1009 - x Math::BigInt -inf / -inf ok 1010 - r Math::BigInt -inf / -inf ok 1011 - t Math::BigInt -inf / -inf ok 1012 - d Math::BigInt -inf / -inf ok 1013 - m Math::BigInt -inf % -inf ok 1014 - o Math::BigInt -inf % -inf ok 1015 - x Math::BigInt::Subclass -inf / -inf ok 1016 - r Math::BigInt::Subclass -inf / -inf ok 1017 - t Math::BigInt::Subclass -inf / -inf ok 1018 - d Math::BigInt::Subclass -inf / -inf ok 1019 - m Math::BigInt::Subclass -inf % -inf ok 1020 - o Math::BigInt::Subclass -inf % -inf ok 1021 - t Math::BigFloat -inf / -inf ok 1022 - d Math::BigFloat -inf / -inf ok 1023 - m Math::BigFloat -inf % -inf ok 1024 - o Math::BigFloat -inf % -inf ok 1025 - t Math::BigFloat::Subclass -inf / -inf ok 1026 - d Math::BigFloat::Subclass -inf / -inf ok 1027 - m Math::BigFloat::Subclass -inf % -inf ok 1028 - o Math::BigFloat::Subclass -inf % -inf ok 1029 - x Math::BigInt -1 / -inf ok 1030 - r Math::BigInt -1 / -inf ok 1031 - t Math::BigInt -1 / -inf ok 1032 - d Math::BigInt -1 / -inf ok 1033 - m Math::BigInt -1 % -inf ok 1034 - o Math::BigInt -1 % -inf ok 1035 - x Math::BigInt::Subclass -1 / -inf ok 1036 - r Math::BigInt::Subclass -1 / -inf ok 1037 - t Math::BigInt::Subclass -1 / -inf ok 1038 - d Math::BigInt::Subclass -1 / -inf ok 1039 - m Math::BigInt::Subclass -1 % -inf ok 1040 - o Math::BigInt::Subclass -1 % -inf ok 1041 - t Math::BigFloat -1 / -inf ok 1042 - d Math::BigFloat -1 / -inf ok 1043 - m Math::BigFloat -1 % -inf ok 1044 - o Math::BigFloat -1 % -inf ok 1045 - t Math::BigFloat::Subclass -1 / -inf ok 1046 - d Math::BigFloat::Subclass -1 / -inf ok 1047 - m Math::BigFloat::Subclass -1 % -inf ok 1048 - o Math::BigFloat::Subclass -1 % -inf ok 1049 - x Math::BigInt -0 / -inf ok 1050 - r Math::BigInt -0 / -inf ok 1051 - t Math::BigInt -0 / -inf ok 1052 - d Math::BigInt -0 / -inf ok 1053 - m Math::BigInt -0 % -inf ok 1054 - o Math::BigInt -0 % -inf ok 1055 - x Math::BigInt::Subclass -0 / -inf ok 1056 - r Math::BigInt::Subclass -0 / -inf ok 1057 - t Math::BigInt::Subclass -0 / -inf ok 1058 - d Math::BigInt::Subclass -0 / -inf ok 1059 - m Math::BigInt::Subclass -0 % -inf ok 1060 - o Math::BigInt::Subclass -0 % -inf ok 1061 - t Math::BigFloat -0 / -inf ok 1062 - d Math::BigFloat -0 / -inf ok 1063 - m Math::BigFloat -0 % -inf ok 1064 - o Math::BigFloat -0 % -inf ok 1065 - t Math::BigFloat::Subclass -0 / -inf ok 1066 - d Math::BigFloat::Subclass -0 / -inf ok 1067 - m Math::BigFloat::Subclass -0 % -inf ok 1068 - o Math::BigFloat::Subclass -0 % -inf ok 1069 - x Math::BigInt 0 / -inf ok 1070 - r Math::BigInt 0 / -inf ok 1071 - t Math::BigInt 0 / -inf ok 1072 - d Math::BigInt 0 / -inf ok 1073 - m Math::BigInt 0 % -inf ok 1074 - o Math::BigInt 0 % -inf ok 1075 - x Math::BigInt::Subclass 0 / -inf ok 1076 - r Math::BigInt::Subclass 0 / -inf ok 1077 - t Math::BigInt::Subclass 0 / -inf ok 1078 - d Math::BigInt::Subclass 0 / -inf ok 1079 - m Math::BigInt::Subclass 0 % -inf ok 1080 - o Math::BigInt::Subclass 0 % -inf ok 1081 - t Math::BigFloat 0 / -inf ok 1082 - d Math::BigFloat 0 / -inf ok 1083 - m Math::BigFloat 0 % -inf ok 1084 - o Math::BigFloat 0 % -inf ok 1085 - t Math::BigFloat::Subclass 0 / -inf ok 1086 - d Math::BigFloat::Subclass 0 / -inf ok 1087 - m Math::BigFloat::Subclass 0 % -inf ok 1088 - o Math::BigFloat::Subclass 0 % -inf ok 1089 - x Math::BigInt 1 / -inf ok 1090 - r Math::BigInt 1 / -inf ok 1091 - t Math::BigInt 1 / -inf ok 1092 - d Math::BigInt 1 / -inf ok 1093 - m Math::BigInt 1 % -inf ok 1094 - o Math::BigInt 1 % -inf ok 1095 - x Math::BigInt::Subclass 1 / -inf ok 1096 - r Math::BigInt::Subclass 1 / -inf ok 1097 - t Math::BigInt::Subclass 1 / -inf ok 1098 - d Math::BigInt::Subclass 1 / -inf ok 1099 - m Math::BigInt::Subclass 1 % -inf ok 1100 - o Math::BigInt::Subclass 1 % -inf ok 1101 - t Math::BigFloat 1 / -inf ok 1102 - d Math::BigFloat 1 / -inf ok 1103 - m Math::BigFloat 1 % -inf ok 1104 - o Math::BigFloat 1 % -inf ok 1105 - t Math::BigFloat::Subclass 1 / -inf ok 1106 - d Math::BigFloat::Subclass 1 / -inf ok 1107 - m Math::BigFloat::Subclass 1 % -inf ok 1108 - o Math::BigFloat::Subclass 1 % -inf ok 1109 - x Math::BigInt inf / -inf ok 1110 - r Math::BigInt inf / -inf ok 1111 - t Math::BigInt inf / -inf ok 1112 - d Math::BigInt inf / -inf ok 1113 - m Math::BigInt inf % -inf ok 1114 - o Math::BigInt inf % -inf ok 1115 - x Math::BigInt::Subclass inf / -inf ok 1116 - r Math::BigInt::Subclass inf / -inf ok 1117 - t Math::BigInt::Subclass inf / -inf ok 1118 - d Math::BigInt::Subclass inf / -inf ok 1119 - m Math::BigInt::Subclass inf % -inf ok 1120 - o Math::BigInt::Subclass inf % -inf ok 1121 - t Math::BigFloat inf / -inf ok 1122 - d Math::BigFloat inf / -inf ok 1123 - m Math::BigFloat inf % -inf ok 1124 - o Math::BigFloat inf % -inf ok 1125 - t Math::BigFloat::Subclass inf / -inf ok 1126 - d Math::BigFloat::Subclass inf / -inf ok 1127 - m Math::BigFloat::Subclass inf % -inf ok 1128 - o Math::BigFloat::Subclass inf % -inf ok 1129 - x Math::BigInt NaN / -inf ok 1130 - r Math::BigInt NaN / -inf ok 1131 - t Math::BigInt NaN / -inf ok 1132 - d Math::BigInt NaN / -inf ok 1133 - m Math::BigInt NaN % -inf ok 1134 - o Math::BigInt NaN % -inf ok 1135 - x Math::BigInt::Subclass NaN / -inf ok 1136 - r Math::BigInt::Subclass NaN / -inf ok 1137 - t Math::BigInt::Subclass NaN / -inf ok 1138 - d Math::BigInt::Subclass NaN / -inf ok 1139 - m Math::BigInt::Subclass NaN % -inf ok 1140 - o Math::BigInt::Subclass NaN % -inf ok 1141 - t Math::BigFloat NaN / -inf ok 1142 - d Math::BigFloat NaN / -inf ok 1143 - m Math::BigFloat NaN % -inf ok 1144 - o Math::BigFloat NaN % -inf ok 1145 - t Math::BigFloat::Subclass NaN / -inf ok 1146 - d Math::BigFloat::Subclass NaN / -inf ok 1147 - m Math::BigFloat::Subclass NaN % -inf ok 1148 - o Math::BigFloat::Subclass NaN % -inf ok 1149 - x Math::BigInt -inf / -1 ok 1150 - r Math::BigInt -inf / -1 ok 1151 - t Math::BigInt -inf / -1 ok 1152 - d Math::BigInt -inf / -1 ok 1153 - m Math::BigInt -inf % -1 ok 1154 - o Math::BigInt -inf % -1 ok 1155 - x Math::BigInt::Subclass -inf / -1 ok 1156 - r Math::BigInt::Subclass -inf / -1 ok 1157 - t Math::BigInt::Subclass -inf / -1 ok 1158 - d Math::BigInt::Subclass -inf / -1 ok 1159 - m Math::BigInt::Subclass -inf % -1 ok 1160 - o Math::BigInt::Subclass -inf % -1 ok 1161 - t Math::BigFloat -inf / -1 ok 1162 - d Math::BigFloat -inf / -1 ok 1163 - m Math::BigFloat -inf % -1 ok 1164 - o Math::BigFloat -inf % -1 ok 1165 - t Math::BigFloat::Subclass -inf / -1 ok 1166 - d Math::BigFloat::Subclass -inf / -1 ok 1167 - m Math::BigFloat::Subclass -inf % -1 ok 1168 - o Math::BigFloat::Subclass -inf % -1 ok 1169 - x Math::BigInt -1 / -1 ok 1170 - r Math::BigInt -1 / -1 ok 1171 - t Math::BigInt -1 / -1 ok 1172 - d Math::BigInt -1 / -1 ok 1173 - m Math::BigInt -1 % -1 ok 1174 - o Math::BigInt -1 % -1 ok 1175 - x Math::BigInt::Subclass -1 / -1 ok 1176 - r Math::BigInt::Subclass -1 / -1 ok 1177 - t Math::BigInt::Subclass -1 / -1 ok 1178 - d Math::BigInt::Subclass -1 / -1 ok 1179 - m Math::BigInt::Subclass -1 % -1 ok 1180 - o Math::BigInt::Subclass -1 % -1 ok 1181 - t Math::BigFloat -1 / -1 ok 1182 - d Math::BigFloat -1 / -1 ok 1183 - m Math::BigFloat -1 % -1 ok 1184 - o Math::BigFloat -1 % -1 ok 1185 - t Math::BigFloat::Subclass -1 / -1 ok 1186 - d Math::BigFloat::Subclass -1 / -1 ok 1187 - m Math::BigFloat::Subclass -1 % -1 ok 1188 - o Math::BigFloat::Subclass -1 % -1 ok 1189 - x Math::BigInt -0 / -1 ok 1190 - r Math::BigInt -0 / -1 ok 1191 - t Math::BigInt -0 / -1 ok 1192 - d Math::BigInt -0 / -1 ok 1193 - m Math::BigInt -0 % -1 ok 1194 - o Math::BigInt -0 % -1 ok 1195 - x Math::BigInt::Subclass -0 / -1 ok 1196 - r Math::BigInt::Subclass -0 / -1 ok 1197 - t Math::BigInt::Subclass -0 / -1 ok 1198 - d Math::BigInt::Subclass -0 / -1 ok 1199 - m Math::BigInt::Subclass -0 % -1 ok 1200 - o Math::BigInt::Subclass -0 % -1 ok 1201 - t Math::BigFloat -0 / -1 ok 1202 - d Math::BigFloat -0 / -1 ok 1203 - m Math::BigFloat -0 % -1 ok 1204 - o Math::BigFloat -0 % -1 ok 1205 - t Math::BigFloat::Subclass -0 / -1 ok 1206 - d Math::BigFloat::Subclass -0 / -1 ok 1207 - m Math::BigFloat::Subclass -0 % -1 ok 1208 - o Math::BigFloat::Subclass -0 % -1 ok 1209 - x Math::BigInt 0 / -1 ok 1210 - r Math::BigInt 0 / -1 ok 1211 - t Math::BigInt 0 / -1 ok 1212 - d Math::BigInt 0 / -1 ok 1213 - m Math::BigInt 0 % -1 ok 1214 - o Math::BigInt 0 % -1 ok 1215 - x Math::BigInt::Subclass 0 / -1 ok 1216 - r Math::BigInt::Subclass 0 / -1 ok 1217 - t Math::BigInt::Subclass 0 / -1 ok 1218 - d Math::BigInt::Subclass 0 / -1 ok 1219 - m Math::BigInt::Subclass 0 % -1 ok 1220 - o Math::BigInt::Subclass 0 % -1 ok 1221 - t Math::BigFloat 0 / -1 ok 1222 - d Math::BigFloat 0 / -1 ok 1223 - m Math::BigFloat 0 % -1 ok 1224 - o Math::BigFloat 0 % -1 ok 1225 - t Math::BigFloat::Subclass 0 / -1 ok 1226 - d Math::BigFloat::Subclass 0 / -1 ok 1227 - m Math::BigFloat::Subclass 0 % -1 ok 1228 - o Math::BigFloat::Subclass 0 % -1 ok 1229 - x Math::BigInt 1 / -1 ok 1230 - r Math::BigInt 1 / -1 ok 1231 - t Math::BigInt 1 / -1 ok 1232 - d Math::BigInt 1 / -1 ok 1233 - m Math::BigInt 1 % -1 ok 1234 - o Math::BigInt 1 % -1 ok 1235 - x Math::BigInt::Subclass 1 / -1 ok 1236 - r Math::BigInt::Subclass 1 / -1 ok 1237 - t Math::BigInt::Subclass 1 / -1 ok 1238 - d Math::BigInt::Subclass 1 / -1 ok 1239 - m Math::BigInt::Subclass 1 % -1 ok 1240 - o Math::BigInt::Subclass 1 % -1 ok 1241 - t Math::BigFloat 1 / -1 ok 1242 - d Math::BigFloat 1 / -1 ok 1243 - m Math::BigFloat 1 % -1 ok 1244 - o Math::BigFloat 1 % -1 ok 1245 - t Math::BigFloat::Subclass 1 / -1 ok 1246 - d Math::BigFloat::Subclass 1 / -1 ok 1247 - m Math::BigFloat::Subclass 1 % -1 ok 1248 - o Math::BigFloat::Subclass 1 % -1 ok 1249 - x Math::BigInt inf / -1 ok 1250 - r Math::BigInt inf / -1 ok 1251 - t Math::BigInt inf / -1 ok 1252 - d Math::BigInt inf / -1 ok 1253 - m Math::BigInt inf % -1 ok 1254 - o Math::BigInt inf % -1 ok 1255 - x Math::BigInt::Subclass inf / -1 ok 1256 - r Math::BigInt::Subclass inf / -1 ok 1257 - t Math::BigInt::Subclass inf / -1 ok 1258 - d Math::BigInt::Subclass inf / -1 ok 1259 - m Math::BigInt::Subclass inf % -1 ok 1260 - o Math::BigInt::Subclass inf % -1 ok 1261 - t Math::BigFloat inf / -1 ok 1262 - d Math::BigFloat inf / -1 ok 1263 - m Math::BigFloat inf % -1 ok 1264 - o Math::BigFloat inf % -1 ok 1265 - t Math::BigFloat::Subclass inf / -1 ok 1266 - d Math::BigFloat::Subclass inf / -1 ok 1267 - m Math::BigFloat::Subclass inf % -1 ok 1268 - o Math::BigFloat::Subclass inf % -1 ok 1269 - x Math::BigInt NaN / -1 ok 1270 - r Math::BigInt NaN / -1 ok 1271 - t Math::BigInt NaN / -1 ok 1272 - d Math::BigInt NaN / -1 ok 1273 - m Math::BigInt NaN % -1 ok 1274 - o Math::BigInt NaN % -1 ok 1275 - x Math::BigInt::Subclass NaN / -1 ok 1276 - r Math::BigInt::Subclass NaN / -1 ok 1277 - t Math::BigInt::Subclass NaN / -1 ok 1278 - d Math::BigInt::Subclass NaN / -1 ok 1279 - m Math::BigInt::Subclass NaN % -1 ok 1280 - o Math::BigInt::Subclass NaN % -1 ok 1281 - t Math::BigFloat NaN / -1 ok 1282 - d Math::BigFloat NaN / -1 ok 1283 - m Math::BigFloat NaN % -1 ok 1284 - o Math::BigFloat NaN % -1 ok 1285 - t Math::BigFloat::Subclass NaN / -1 ok 1286 - d Math::BigFloat::Subclass NaN / -1 ok 1287 - m Math::BigFloat::Subclass NaN % -1 ok 1288 - o Math::BigFloat::Subclass NaN % -1 ok 1289 - x Math::BigInt -inf / 0 ok 1290 - r Math::BigInt -inf / 0 ok 1291 - t Math::BigInt -inf / 0 ok 1292 - d Math::BigInt -inf / 0 ok 1293 - m Math::BigInt -inf % 0 ok 1294 - o Math::BigInt -inf % 0 ok 1295 - x Math::BigInt::Subclass -inf / 0 ok 1296 - r Math::BigInt::Subclass -inf / 0 ok 1297 - t Math::BigInt::Subclass -inf / 0 ok 1298 - d Math::BigInt::Subclass -inf / 0 ok 1299 - m Math::BigInt::Subclass -inf % 0 ok 1300 - o Math::BigInt::Subclass -inf % 0 ok 1301 - t Math::BigFloat -inf / 0 ok 1302 - d Math::BigFloat -inf / 0 ok 1303 - m Math::BigFloat -inf % 0 ok 1304 - o Math::BigFloat -inf % 0 ok 1305 - t Math::BigFloat::Subclass -inf / 0 ok 1306 - d Math::BigFloat::Subclass -inf / 0 ok 1307 - m Math::BigFloat::Subclass -inf % 0 ok 1308 - o Math::BigFloat::Subclass -inf % 0 ok 1309 - x Math::BigInt -1 / 0 ok 1310 - r Math::BigInt -1 / 0 ok 1311 - t Math::BigInt -1 / 0 ok 1312 - d Math::BigInt -1 / 0 ok 1313 - m Math::BigInt -1 % 0 ok 1314 - o Math::BigInt -1 % 0 ok 1315 - x Math::BigInt::Subclass -1 / 0 ok 1316 - r Math::BigInt::Subclass -1 / 0 ok 1317 - t Math::BigInt::Subclass -1 / 0 ok 1318 - d Math::BigInt::Subclass -1 / 0 ok 1319 - m Math::BigInt::Subclass -1 % 0 ok 1320 - o Math::BigInt::Subclass -1 % 0 ok 1321 - t Math::BigFloat -1 / 0 ok 1322 - d Math::BigFloat -1 / 0 ok 1323 - m Math::BigFloat -1 % 0 ok 1324 - o Math::BigFloat -1 % 0 ok 1325 - t Math::BigFloat::Subclass -1 / 0 ok 1326 - d Math::BigFloat::Subclass -1 / 0 ok 1327 - m Math::BigFloat::Subclass -1 % 0 ok 1328 - o Math::BigFloat::Subclass -1 % 0 ok 1329 - x Math::BigInt -0 / 0 ok 1330 - r Math::BigInt -0 / 0 ok 1331 - t Math::BigInt -0 / 0 ok 1332 - d Math::BigInt -0 / 0 ok 1333 - m Math::BigInt -0 % 0 ok 1334 - o Math::BigInt -0 % 0 ok 1335 - x Math::BigInt::Subclass -0 / 0 ok 1336 - r Math::BigInt::Subclass -0 / 0 ok 1337 - t Math::BigInt::Subclass -0 / 0 ok 1338 - d Math::BigInt::Subclass -0 / 0 ok 1339 - m Math::BigInt::Subclass -0 % 0 ok 1340 - o Math::BigInt::Subclass -0 % 0 ok 1341 - t Math::BigFloat -0 / 0 ok 1342 - d Math::BigFloat -0 / 0 ok 1343 - m Math::BigFloat -0 % 0 ok 1344 - o Math::BigFloat -0 % 0 ok 1345 - t Math::BigFloat::Subclass -0 / 0 ok 1346 - d Math::BigFloat::Subclass -0 / 0 ok 1347 - m Math::BigFloat::Subclass -0 % 0 ok 1348 - o Math::BigFloat::Subclass -0 % 0 ok 1349 - x Math::BigInt 0 / 0 ok 1350 - r Math::BigInt 0 / 0 ok 1351 - t Math::BigInt 0 / 0 ok 1352 - d Math::BigInt 0 / 0 ok 1353 - m Math::BigInt 0 % 0 ok 1354 - o Math::BigInt 0 % 0 ok 1355 - x Math::BigInt::Subclass 0 / 0 ok 1356 - r Math::BigInt::Subclass 0 / 0 ok 1357 - t Math::BigInt::Subclass 0 / 0 ok 1358 - d Math::BigInt::Subclass 0 / 0 ok 1359 - m Math::BigInt::Subclass 0 % 0 ok 1360 - o Math::BigInt::Subclass 0 % 0 ok 1361 - t Math::BigFloat 0 / 0 ok 1362 - d Math::BigFloat 0 / 0 ok 1363 - m Math::BigFloat 0 % 0 ok 1364 - o Math::BigFloat 0 % 0 ok 1365 - t Math::BigFloat::Subclass 0 / 0 ok 1366 - d Math::BigFloat::Subclass 0 / 0 ok 1367 - m Math::BigFloat::Subclass 0 % 0 ok 1368 - o Math::BigFloat::Subclass 0 % 0 ok 1369 - x Math::BigInt 1 / 0 ok 1370 - r Math::BigInt 1 / 0 ok 1371 - t Math::BigInt 1 / 0 ok 1372 - d Math::BigInt 1 / 0 ok 1373 - m Math::BigInt 1 % 0 ok 1374 - o Math::BigInt 1 % 0 ok 1375 - x Math::BigInt::Subclass 1 / 0 ok 1376 - r Math::BigInt::Subclass 1 / 0 ok 1377 - t Math::BigInt::Subclass 1 / 0 ok 1378 - d Math::BigInt::Subclass 1 / 0 ok 1379 - m Math::BigInt::Subclass 1 % 0 ok 1380 - o Math::BigInt::Subclass 1 % 0 ok 1381 - t Math::BigFloat 1 / 0 ok 1382 - d Math::BigFloat 1 / 0 ok 1383 - m Math::BigFloat 1 % 0 ok 1384 - o Math::BigFloat 1 % 0 ok 1385 - t Math::BigFloat::Subclass 1 / 0 ok 1386 - d Math::BigFloat::Subclass 1 / 0 ok 1387 - m Math::BigFloat::Subclass 1 % 0 ok 1388 - o Math::BigFloat::Subclass 1 % 0 ok 1389 - x Math::BigInt inf / 0 ok 1390 - r Math::BigInt inf / 0 ok 1391 - t Math::BigInt inf / 0 ok 1392 - d Math::BigInt inf / 0 ok 1393 - m Math::BigInt inf % 0 ok 1394 - o Math::BigInt inf % 0 ok 1395 - x Math::BigInt::Subclass inf / 0 ok 1396 - r Math::BigInt::Subclass inf / 0 ok 1397 - t Math::BigInt::Subclass inf / 0 ok 1398 - d Math::BigInt::Subclass inf / 0 ok 1399 - m Math::BigInt::Subclass inf % 0 ok 1400 - o Math::BigInt::Subclass inf % 0 ok 1401 - t Math::BigFloat inf / 0 ok 1402 - d Math::BigFloat inf / 0 ok 1403 - m Math::BigFloat inf % 0 ok 1404 - o Math::BigFloat inf % 0 ok 1405 - t Math::BigFloat::Subclass inf / 0 ok 1406 - d Math::BigFloat::Subclass inf / 0 ok 1407 - m Math::BigFloat::Subclass inf % 0 ok 1408 - o Math::BigFloat::Subclass inf % 0 ok 1409 - x Math::BigInt NaN / 0 ok 1410 - r Math::BigInt NaN / 0 ok 1411 - t Math::BigInt NaN / 0 ok 1412 - d Math::BigInt NaN / 0 ok 1413 - m Math::BigInt NaN % 0 ok 1414 - o Math::BigInt NaN % 0 ok 1415 - x Math::BigInt::Subclass NaN / 0 ok 1416 - r Math::BigInt::Subclass NaN / 0 ok 1417 - t Math::BigInt::Subclass NaN / 0 ok 1418 - d Math::BigInt::Subclass NaN / 0 ok 1419 - m Math::BigInt::Subclass NaN % 0 ok 1420 - o Math::BigInt::Subclass NaN % 0 ok 1421 - t Math::BigFloat NaN / 0 ok 1422 - d Math::BigFloat NaN / 0 ok 1423 - m Math::BigFloat NaN % 0 ok 1424 - o Math::BigFloat NaN % 0 ok 1425 - t Math::BigFloat::Subclass NaN / 0 ok 1426 - d Math::BigFloat::Subclass NaN / 0 ok 1427 - m Math::BigFloat::Subclass NaN % 0 ok 1428 - o Math::BigFloat::Subclass NaN % 0 ok 1429 - x Math::BigInt -inf / 1 ok 1430 - r Math::BigInt -inf / 1 ok 1431 - t Math::BigInt -inf / 1 ok 1432 - d Math::BigInt -inf / 1 ok 1433 - m Math::BigInt -inf % 1 ok 1434 - o Math::BigInt -inf % 1 ok 1435 - x Math::BigInt::Subclass -inf / 1 ok 1436 - r Math::BigInt::Subclass -inf / 1 ok 1437 - t Math::BigInt::Subclass -inf / 1 ok 1438 - d Math::BigInt::Subclass -inf / 1 ok 1439 - m Math::BigInt::Subclass -inf % 1 ok 1440 - o Math::BigInt::Subclass -inf % 1 ok 1441 - t Math::BigFloat -inf / 1 ok 1442 - d Math::BigFloat -inf / 1 ok 1443 - m Math::BigFloat -inf % 1 ok 1444 - o Math::BigFloat -inf % 1 ok 1445 - t Math::BigFloat::Subclass -inf / 1 ok 1446 - d Math::BigFloat::Subclass -inf / 1 ok 1447 - m Math::BigFloat::Subclass -inf % 1 ok 1448 - o Math::BigFloat::Subclass -inf % 1 ok 1449 - x Math::BigInt -1 / 1 ok 1450 - r Math::BigInt -1 / 1 ok 1451 - t Math::BigInt -1 / 1 ok 1452 - d Math::BigInt -1 / 1 ok 1453 - m Math::BigInt -1 % 1 ok 1454 - o Math::BigInt -1 % 1 ok 1455 - x Math::BigInt::Subclass -1 / 1 ok 1456 - r Math::BigInt::Subclass -1 / 1 ok 1457 - t Math::BigInt::Subclass -1 / 1 ok 1458 - d Math::BigInt::Subclass -1 / 1 ok 1459 - m Math::BigInt::Subclass -1 % 1 ok 1460 - o Math::BigInt::Subclass -1 % 1 ok 1461 - t Math::BigFloat -1 / 1 ok 1462 - d Math::BigFloat -1 / 1 ok 1463 - m Math::BigFloat -1 % 1 ok 1464 - o Math::BigFloat -1 % 1 ok 1465 - t Math::BigFloat::Subclass -1 / 1 ok 1466 - d Math::BigFloat::Subclass -1 / 1 ok 1467 - m Math::BigFloat::Subclass -1 % 1 ok 1468 - o Math::BigFloat::Subclass -1 % 1 ok 1469 - x Math::BigInt -0 / 1 ok 1470 - r Math::BigInt -0 / 1 ok 1471 - t Math::BigInt -0 / 1 ok 1472 - d Math::BigInt -0 / 1 ok 1473 - m Math::BigInt -0 % 1 ok 1474 - o Math::BigInt -0 % 1 ok 1475 - x Math::BigInt::Subclass -0 / 1 ok 1476 - r Math::BigInt::Subclass -0 / 1 ok 1477 - t Math::BigInt::Subclass -0 / 1 ok 1478 - d Math::BigInt::Subclass -0 / 1 ok 1479 - m Math::BigInt::Subclass -0 % 1 ok 1480 - o Math::BigInt::Subclass -0 % 1 ok 1481 - t Math::BigFloat -0 / 1 ok 1482 - d Math::BigFloat -0 / 1 ok 1483 - m Math::BigFloat -0 % 1 ok 1484 - o Math::BigFloat -0 % 1 ok 1485 - t Math::BigFloat::Subclass -0 / 1 ok 1486 - d Math::BigFloat::Subclass -0 / 1 ok 1487 - m Math::BigFloat::Subclass -0 % 1 ok 1488 - o Math::BigFloat::Subclass -0 % 1 ok 1489 - x Math::BigInt 0 / 1 ok 1490 - r Math::BigInt 0 / 1 ok 1491 - t Math::BigInt 0 / 1 ok 1492 - d Math::BigInt 0 / 1 ok 1493 - m Math::BigInt 0 % 1 ok 1494 - o Math::BigInt 0 % 1 ok 1495 - x Math::BigInt::Subclass 0 / 1 ok 1496 - r Math::BigInt::Subclass 0 / 1 ok 1497 - t Math::BigInt::Subclass 0 / 1 ok 1498 - d Math::BigInt::Subclass 0 / 1 ok 1499 - m Math::BigInt::Subclass 0 % 1 ok 1500 - o Math::BigInt::Subclass 0 % 1 ok 1501 - t Math::BigFloat 0 / 1 ok 1502 - d Math::BigFloat 0 / 1 ok 1503 - m Math::BigFloat 0 % 1 ok 1504 - o Math::BigFloat 0 % 1 ok 1505 - t Math::BigFloat::Subclass 0 / 1 ok 1506 - d Math::BigFloat::Subclass 0 / 1 ok 1507 - m Math::BigFloat::Subclass 0 % 1 ok 1508 - o Math::BigFloat::Subclass 0 % 1 ok 1509 - x Math::BigInt 1 / 1 ok 1510 - r Math::BigInt 1 / 1 ok 1511 - t Math::BigInt 1 / 1 ok 1512 - d Math::BigInt 1 / 1 ok 1513 - m Math::BigInt 1 % 1 ok 1514 - o Math::BigInt 1 % 1 ok 1515 - x Math::BigInt::Subclass 1 / 1 ok 1516 - r Math::BigInt::Subclass 1 / 1 ok 1517 - t Math::BigInt::Subclass 1 / 1 ok 1518 - d Math::BigInt::Subclass 1 / 1 ok 1519 - m Math::BigInt::Subclass 1 % 1 ok 1520 - o Math::BigInt::Subclass 1 % 1 ok 1521 - t Math::BigFloat 1 / 1 ok 1522 - d Math::BigFloat 1 / 1 ok 1523 - m Math::BigFloat 1 % 1 ok 1524 - o Math::BigFloat 1 % 1 ok 1525 - t Math::BigFloat::Subclass 1 / 1 ok 1526 - d Math::BigFloat::Subclass 1 / 1 ok 1527 - m Math::BigFloat::Subclass 1 % 1 ok 1528 - o Math::BigFloat::Subclass 1 % 1 ok 1529 - x Math::BigInt inf / 1 ok 1530 - r Math::BigInt inf / 1 ok 1531 - t Math::BigInt inf / 1 ok 1532 - d Math::BigInt inf / 1 ok 1533 - m Math::BigInt inf % 1 ok 1534 - o Math::BigInt inf % 1 ok 1535 - x Math::BigInt::Subclass inf / 1 ok 1536 - r Math::BigInt::Subclass inf / 1 ok 1537 - t Math::BigInt::Subclass inf / 1 ok 1538 - d Math::BigInt::Subclass inf / 1 ok 1539 - m Math::BigInt::Subclass inf % 1 ok 1540 - o Math::BigInt::Subclass inf % 1 ok 1541 - t Math::BigFloat inf / 1 ok 1542 - d Math::BigFloat inf / 1 ok 1543 - m Math::BigFloat inf % 1 ok 1544 - o Math::BigFloat inf % 1 ok 1545 - t Math::BigFloat::Subclass inf / 1 ok 1546 - d Math::BigFloat::Subclass inf / 1 ok 1547 - m Math::BigFloat::Subclass inf % 1 ok 1548 - o Math::BigFloat::Subclass inf % 1 ok 1549 - x Math::BigInt NaN / 1 ok 1550 - r Math::BigInt NaN / 1 ok 1551 - t Math::BigInt NaN / 1 ok 1552 - d Math::BigInt NaN / 1 ok 1553 - m Math::BigInt NaN % 1 ok 1554 - o Math::BigInt NaN % 1 ok 1555 - x Math::BigInt::Subclass NaN / 1 ok 1556 - r Math::BigInt::Subclass NaN / 1 ok 1557 - t Math::BigInt::Subclass NaN / 1 ok 1558 - d Math::BigInt::Subclass NaN / 1 ok 1559 - m Math::BigInt::Subclass NaN % 1 ok 1560 - o Math::BigInt::Subclass NaN % 1 ok 1561 - t Math::BigFloat NaN / 1 ok 1562 - d Math::BigFloat NaN / 1 ok 1563 - m Math::BigFloat NaN % 1 ok 1564 - o Math::BigFloat NaN % 1 ok 1565 - t Math::BigFloat::Subclass NaN / 1 ok 1566 - d Math::BigFloat::Subclass NaN / 1 ok 1567 - m Math::BigFloat::Subclass NaN % 1 ok 1568 - o Math::BigFloat::Subclass NaN % 1 ok 1569 - x Math::BigInt -inf / inf ok 1570 - r Math::BigInt -inf / inf ok 1571 - t Math::BigInt -inf / inf ok 1572 - d Math::BigInt -inf / inf ok 1573 - m Math::BigInt -inf % inf ok 1574 - o Math::BigInt -inf % inf ok 1575 - x Math::BigInt::Subclass -inf / inf ok 1576 - r Math::BigInt::Subclass -inf / inf ok 1577 - t Math::BigInt::Subclass -inf / inf ok 1578 - d Math::BigInt::Subclass -inf / inf ok 1579 - m Math::BigInt::Subclass -inf % inf ok 1580 - o Math::BigInt::Subclass -inf % inf ok 1581 - t Math::BigFloat -inf / inf ok 1582 - d Math::BigFloat -inf / inf ok 1583 - m Math::BigFloat -inf % inf ok 1584 - o Math::BigFloat -inf % inf ok 1585 - t Math::BigFloat::Subclass -inf / inf ok 1586 - d Math::BigFloat::Subclass -inf / inf ok 1587 - m Math::BigFloat::Subclass -inf % inf ok 1588 - o Math::BigFloat::Subclass -inf % inf ok 1589 - x Math::BigInt -1 / inf ok 1590 - r Math::BigInt -1 / inf ok 1591 - t Math::BigInt -1 / inf ok 1592 - d Math::BigInt -1 / inf ok 1593 - m Math::BigInt -1 % inf ok 1594 - o Math::BigInt -1 % inf ok 1595 - x Math::BigInt::Subclass -1 / inf ok 1596 - r Math::BigInt::Subclass -1 / inf ok 1597 - t Math::BigInt::Subclass -1 / inf ok 1598 - d Math::BigInt::Subclass -1 / inf ok 1599 - m Math::BigInt::Subclass -1 % inf ok 1600 - o Math::BigInt::Subclass -1 % inf ok 1601 - t Math::BigFloat -1 / inf ok 1602 - d Math::BigFloat -1 / inf ok 1603 - m Math::BigFloat -1 % inf ok 1604 - o Math::BigFloat -1 % inf ok 1605 - t Math::BigFloat::Subclass -1 / inf ok 1606 - d Math::BigFloat::Subclass -1 / inf ok 1607 - m Math::BigFloat::Subclass -1 % inf ok 1608 - o Math::BigFloat::Subclass -1 % inf ok 1609 - x Math::BigInt -0 / inf ok 1610 - r Math::BigInt -0 / inf ok 1611 - t Math::BigInt -0 / inf ok 1612 - d Math::BigInt -0 / inf ok 1613 - m Math::BigInt -0 % inf ok 1614 - o Math::BigInt -0 % inf ok 1615 - x Math::BigInt::Subclass -0 / inf ok 1616 - r Math::BigInt::Subclass -0 / inf ok 1617 - t Math::BigInt::Subclass -0 / inf ok 1618 - d Math::BigInt::Subclass -0 / inf ok 1619 - m Math::BigInt::Subclass -0 % inf ok 1620 - o Math::BigInt::Subclass -0 % inf ok 1621 - t Math::BigFloat -0 / inf ok 1622 - d Math::BigFloat -0 / inf ok 1623 - m Math::BigFloat -0 % inf ok 1624 - o Math::BigFloat -0 % inf ok 1625 - t Math::BigFloat::Subclass -0 / inf ok 1626 - d Math::BigFloat::Subclass -0 / inf ok 1627 - m Math::BigFloat::Subclass -0 % inf ok 1628 - o Math::BigFloat::Subclass -0 % inf ok 1629 - x Math::BigInt 0 / inf ok 1630 - r Math::BigInt 0 / inf ok 1631 - t Math::BigInt 0 / inf ok 1632 - d Math::BigInt 0 / inf ok 1633 - m Math::BigInt 0 % inf ok 1634 - o Math::BigInt 0 % inf ok 1635 - x Math::BigInt::Subclass 0 / inf ok 1636 - r Math::BigInt::Subclass 0 / inf ok 1637 - t Math::BigInt::Subclass 0 / inf ok 1638 - d Math::BigInt::Subclass 0 / inf ok 1639 - m Math::BigInt::Subclass 0 % inf ok 1640 - o Math::BigInt::Subclass 0 % inf ok 1641 - t Math::BigFloat 0 / inf ok 1642 - d Math::BigFloat 0 / inf ok 1643 - m Math::BigFloat 0 % inf ok 1644 - o Math::BigFloat 0 % inf ok 1645 - t Math::BigFloat::Subclass 0 / inf ok 1646 - d Math::BigFloat::Subclass 0 / inf ok 1647 - m Math::BigFloat::Subclass 0 % inf ok 1648 - o Math::BigFloat::Subclass 0 % inf ok 1649 - x Math::BigInt 1 / inf ok 1650 - r Math::BigInt 1 / inf ok 1651 - t Math::BigInt 1 / inf ok 1652 - d Math::BigInt 1 / inf ok 1653 - m Math::BigInt 1 % inf ok 1654 - o Math::BigInt 1 % inf ok 1655 - x Math::BigInt::Subclass 1 / inf ok 1656 - r Math::BigInt::Subclass 1 / inf ok 1657 - t Math::BigInt::Subclass 1 / inf ok 1658 - d Math::BigInt::Subclass 1 / inf ok 1659 - m Math::BigInt::Subclass 1 % inf ok 1660 - o Math::BigInt::Subclass 1 % inf ok 1661 - t Math::BigFloat 1 / inf ok 1662 - d Math::BigFloat 1 / inf ok 1663 - m Math::BigFloat 1 % inf ok 1664 - o Math::BigFloat 1 % inf ok 1665 - t Math::BigFloat::Subclass 1 / inf ok 1666 - d Math::BigFloat::Subclass 1 / inf ok 1667 - m Math::BigFloat::Subclass 1 % inf ok 1668 - o Math::BigFloat::Subclass 1 % inf ok 1669 - x Math::BigInt inf / inf ok 1670 - r Math::BigInt inf / inf ok 1671 - t Math::BigInt inf / inf ok 1672 - d Math::BigInt inf / inf ok 1673 - m Math::BigInt inf % inf ok 1674 - o Math::BigInt inf % inf ok 1675 - x Math::BigInt::Subclass inf / inf ok 1676 - r Math::BigInt::Subclass inf / inf ok 1677 - t Math::BigInt::Subclass inf / inf ok 1678 - d Math::BigInt::Subclass inf / inf ok 1679 - m Math::BigInt::Subclass inf % inf ok 1680 - o Math::BigInt::Subclass inf % inf ok 1681 - t Math::BigFloat inf / inf ok 1682 - d Math::BigFloat inf / inf ok 1683 - m Math::BigFloat inf % inf ok 1684 - o Math::BigFloat inf % inf ok 1685 - t Math::BigFloat::Subclass inf / inf ok 1686 - d Math::BigFloat::Subclass inf / inf ok 1687 - m Math::BigFloat::Subclass inf % inf ok 1688 - o Math::BigFloat::Subclass inf % inf ok 1689 - x Math::BigInt NaN / inf ok 1690 - r Math::BigInt NaN / inf ok 1691 - t Math::BigInt NaN / inf ok 1692 - d Math::BigInt NaN / inf ok 1693 - m Math::BigInt NaN % inf ok 1694 - o Math::BigInt NaN % inf ok 1695 - x Math::BigInt::Subclass NaN / inf ok 1696 - r Math::BigInt::Subclass NaN / inf ok 1697 - t Math::BigInt::Subclass NaN / inf ok 1698 - d Math::BigInt::Subclass NaN / inf ok 1699 - m Math::BigInt::Subclass NaN % inf ok 1700 - o Math::BigInt::Subclass NaN % inf ok 1701 - t Math::BigFloat NaN / inf ok 1702 - d Math::BigFloat NaN / inf ok 1703 - m Math::BigFloat NaN % inf ok 1704 - o Math::BigFloat NaN % inf ok 1705 - t Math::BigFloat::Subclass NaN / inf ok 1706 - d Math::BigFloat::Subclass NaN / inf ok 1707 - m Math::BigFloat::Subclass NaN % inf ok 1708 - o Math::BigFloat::Subclass NaN % inf ok 1709 - x Math::BigInt -inf / NaN ok 1710 - r Math::BigInt -inf / NaN ok 1711 - t Math::BigInt -inf / NaN ok 1712 - d Math::BigInt -inf / NaN ok 1713 - m Math::BigInt -inf % NaN ok 1714 - o Math::BigInt -inf % NaN ok 1715 - x Math::BigInt::Subclass -inf / NaN ok 1716 - r Math::BigInt::Subclass -inf / NaN ok 1717 - t Math::BigInt::Subclass -inf / NaN ok 1718 - d Math::BigInt::Subclass -inf / NaN ok 1719 - m Math::BigInt::Subclass -inf % NaN ok 1720 - o Math::BigInt::Subclass -inf % NaN ok 1721 - t Math::BigFloat -inf / NaN ok 1722 - d Math::BigFloat -inf / NaN ok 1723 - m Math::BigFloat -inf % NaN ok 1724 - o Math::BigFloat -inf % NaN ok 1725 - t Math::BigFloat::Subclass -inf / NaN ok 1726 - d Math::BigFloat::Subclass -inf / NaN ok 1727 - m Math::BigFloat::Subclass -inf % NaN ok 1728 - o Math::BigFloat::Subclass -inf % NaN ok 1729 - x Math::BigInt -1 / NaN ok 1730 - r Math::BigInt -1 / NaN ok 1731 - t Math::BigInt -1 / NaN ok 1732 - d Math::BigInt -1 / NaN ok 1733 - m Math::BigInt -1 % NaN ok 1734 - o Math::BigInt -1 % NaN ok 1735 - x Math::BigInt::Subclass -1 / NaN ok 1736 - r Math::BigInt::Subclass -1 / NaN ok 1737 - t Math::BigInt::Subclass -1 / NaN ok 1738 - d Math::BigInt::Subclass -1 / NaN ok 1739 - m Math::BigInt::Subclass -1 % NaN ok 1740 - o Math::BigInt::Subclass -1 % NaN ok 1741 - t Math::BigFloat -1 / NaN ok 1742 - d Math::BigFloat -1 / NaN ok 1743 - m Math::BigFloat -1 % NaN ok 1744 - o Math::BigFloat -1 % NaN ok 1745 - t Math::BigFloat::Subclass -1 / NaN ok 1746 - d Math::BigFloat::Subclass -1 / NaN ok 1747 - m Math::BigFloat::Subclass -1 % NaN ok 1748 - o Math::BigFloat::Subclass -1 % NaN ok 1749 - x Math::BigInt -0 / NaN ok 1750 - r Math::BigInt -0 / NaN ok 1751 - t Math::BigInt -0 / NaN ok 1752 - d Math::BigInt -0 / NaN ok 1753 - m Math::BigInt -0 % NaN ok 1754 - o Math::BigInt -0 % NaN ok 1755 - x Math::BigInt::Subclass -0 / NaN ok 1756 - r Math::BigInt::Subclass -0 / NaN ok 1757 - t Math::BigInt::Subclass -0 / NaN ok 1758 - d Math::BigInt::Subclass -0 / NaN ok 1759 - m Math::BigInt::Subclass -0 % NaN ok 1760 - o Math::BigInt::Subclass -0 % NaN ok 1761 - t Math::BigFloat -0 / NaN ok 1762 - d Math::BigFloat -0 / NaN ok 1763 - m Math::BigFloat -0 % NaN ok 1764 - o Math::BigFloat -0 % NaN ok 1765 - t Math::BigFloat::Subclass -0 / NaN ok 1766 - d Math::BigFloat::Subclass -0 / NaN ok 1767 - m Math::BigFloat::Subclass -0 % NaN ok 1768 - o Math::BigFloat::Subclass -0 % NaN ok 1769 - x Math::BigInt 0 / NaN ok 1770 - r Math::BigInt 0 / NaN ok 1771 - t Math::BigInt 0 / NaN ok 1772 - d Math::BigInt 0 / NaN ok 1773 - m Math::BigInt 0 % NaN ok 1774 - o Math::BigInt 0 % NaN ok 1775 - x Math::BigInt::Subclass 0 / NaN ok 1776 - r Math::BigInt::Subclass 0 / NaN ok 1777 - t Math::BigInt::Subclass 0 / NaN ok 1778 - d Math::BigInt::Subclass 0 / NaN ok 1779 - m Math::BigInt::Subclass 0 % NaN ok 1780 - o Math::BigInt::Subclass 0 % NaN ok 1781 - t Math::BigFloat 0 / NaN ok 1782 - d Math::BigFloat 0 / NaN ok 1783 - m Math::BigFloat 0 % NaN ok 1784 - o Math::BigFloat 0 % NaN ok 1785 - t Math::BigFloat::Subclass 0 / NaN ok 1786 - d Math::BigFloat::Subclass 0 / NaN ok 1787 - m Math::BigFloat::Subclass 0 % NaN ok 1788 - o Math::BigFloat::Subclass 0 % NaN ok 1789 - x Math::BigInt 1 / NaN ok 1790 - r Math::BigInt 1 / NaN ok 1791 - t Math::BigInt 1 / NaN ok 1792 - d Math::BigInt 1 / NaN ok 1793 - m Math::BigInt 1 % NaN ok 1794 - o Math::BigInt 1 % NaN ok 1795 - x Math::BigInt::Subclass 1 / NaN ok 1796 - r Math::BigInt::Subclass 1 / NaN ok 1797 - t Math::BigInt::Subclass 1 / NaN ok 1798 - d Math::BigInt::Subclass 1 / NaN ok 1799 - m Math::BigInt::Subclass 1 % NaN ok 1800 - o Math::BigInt::Subclass 1 % NaN ok 1801 - t Math::BigFloat 1 / NaN ok 1802 - d Math::BigFloat 1 / NaN ok 1803 - m Math::BigFloat 1 % NaN ok 1804 - o Math::BigFloat 1 % NaN ok 1805 - t Math::BigFloat::Subclass 1 / NaN ok 1806 - d Math::BigFloat::Subclass 1 / NaN ok 1807 - m Math::BigFloat::Subclass 1 % NaN ok 1808 - o Math::BigFloat::Subclass 1 % NaN ok 1809 - x Math::BigInt inf / NaN ok 1810 - r Math::BigInt inf / NaN ok 1811 - t Math::BigInt inf / NaN ok 1812 - d Math::BigInt inf / NaN ok 1813 - m Math::BigInt inf % NaN ok 1814 - o Math::BigInt inf % NaN ok 1815 - x Math::BigInt::Subclass inf / NaN ok 1816 - r Math::BigInt::Subclass inf / NaN ok 1817 - t Math::BigInt::Subclass inf / NaN ok 1818 - d Math::BigInt::Subclass inf / NaN ok 1819 - m Math::BigInt::Subclass inf % NaN ok 1820 - o Math::BigInt::Subclass inf % NaN ok 1821 - t Math::BigFloat inf / NaN ok 1822 - d Math::BigFloat inf / NaN ok 1823 - m Math::BigFloat inf % NaN ok 1824 - o Math::BigFloat inf % NaN ok 1825 - t Math::BigFloat::Subclass inf / NaN ok 1826 - d Math::BigFloat::Subclass inf / NaN ok 1827 - m Math::BigFloat::Subclass inf % NaN ok 1828 - o Math::BigFloat::Subclass inf % NaN ok 1829 - x Math::BigInt NaN / NaN ok 1830 - r Math::BigInt NaN / NaN ok 1831 - t Math::BigInt NaN / NaN ok 1832 - d Math::BigInt NaN / NaN ok 1833 - m Math::BigInt NaN % NaN ok 1834 - o Math::BigInt NaN % NaN ok 1835 - x Math::BigInt::Subclass NaN / NaN ok 1836 - r Math::BigInt::Subclass NaN / NaN ok 1837 - t Math::BigInt::Subclass NaN / NaN ok 1838 - d Math::BigInt::Subclass NaN / NaN ok 1839 - m Math::BigInt::Subclass NaN % NaN ok 1840 - o Math::BigInt::Subclass NaN % NaN ok 1841 - t Math::BigFloat NaN / NaN ok 1842 - d Math::BigFloat NaN / NaN ok 1843 - m Math::BigFloat NaN % NaN ok 1844 - o Math::BigFloat NaN % NaN ok 1845 - t Math::BigFloat::Subclass NaN / NaN ok 1846 - d Math::BigFloat::Subclass NaN / NaN ok 1847 - m Math::BigFloat::Subclass NaN % NaN ok 1848 - o Math::BigFloat::Subclass NaN % NaN ok 1849 - x Math::BigFloat -inf / -inf ok 1850 - r Math::BigFloat -inf / -inf ok 1851 - x Math::BigFloat::Subclass -inf / -inf ok 1852 - r Math::BigFloat::Subclass -inf / -inf ok 1853 - x Math::BigFloat -1 / -inf ok 1854 - r Math::BigFloat -1 / -inf ok 1855 - x Math::BigFloat::Subclass -1 / -inf ok 1856 - r Math::BigFloat::Subclass -1 / -inf ok 1857 - x Math::BigFloat -0 / -inf ok 1858 - r Math::BigFloat -0 / -inf ok 1859 - x Math::BigFloat::Subclass -0 / -inf ok 1860 - r Math::BigFloat::Subclass -0 / -inf ok 1861 - x Math::BigFloat 0 / -inf ok 1862 - r Math::BigFloat 0 / -inf ok 1863 - x Math::BigFloat::Subclass 0 / -inf ok 1864 - r Math::BigFloat::Subclass 0 / -inf ok 1865 - x Math::BigFloat 1 / -inf ok 1866 - r Math::BigFloat 1 / -inf ok 1867 - x Math::BigFloat::Subclass 1 / -inf ok 1868 - r Math::BigFloat::Subclass 1 / -inf ok 1869 - x Math::BigFloat inf / -inf ok 1870 - r Math::BigFloat inf / -inf ok 1871 - x Math::BigFloat::Subclass inf / -inf ok 1872 - r Math::BigFloat::Subclass inf / -inf ok 1873 - x Math::BigFloat NaN / -inf ok 1874 - r Math::BigFloat NaN / -inf ok 1875 - x Math::BigFloat::Subclass NaN / -inf ok 1876 - r Math::BigFloat::Subclass NaN / -inf ok 1877 - x Math::BigFloat -inf / -1 ok 1878 - r Math::BigFloat -inf / -1 ok 1879 - x Math::BigFloat::Subclass -inf / -1 ok 1880 - r Math::BigFloat::Subclass -inf / -1 ok 1881 - x Math::BigFloat -1 / -1 ok 1882 - r Math::BigFloat -1 / -1 ok 1883 - x Math::BigFloat::Subclass -1 / -1 ok 1884 - r Math::BigFloat::Subclass -1 / -1 ok 1885 - x Math::BigFloat -0 / -1 ok 1886 - r Math::BigFloat -0 / -1 ok 1887 - x Math::BigFloat::Subclass -0 / -1 ok 1888 - r Math::BigFloat::Subclass -0 / -1 ok 1889 - x Math::BigFloat 0 / -1 ok 1890 - r Math::BigFloat 0 / -1 ok 1891 - x Math::BigFloat::Subclass 0 / -1 ok 1892 - r Math::BigFloat::Subclass 0 / -1 ok 1893 - x Math::BigFloat 1 / -1 ok 1894 - r Math::BigFloat 1 / -1 ok 1895 - x Math::BigFloat::Subclass 1 / -1 ok 1896 - r Math::BigFloat::Subclass 1 / -1 ok 1897 - x Math::BigFloat inf / -1 ok 1898 - r Math::BigFloat inf / -1 ok 1899 - x Math::BigFloat::Subclass inf / -1 ok 1900 - r Math::BigFloat::Subclass inf / -1 ok 1901 - x Math::BigFloat NaN / -1 ok 1902 - r Math::BigFloat NaN / -1 ok 1903 - x Math::BigFloat::Subclass NaN / -1 ok 1904 - r Math::BigFloat::Subclass NaN / -1 ok 1905 - x Math::BigFloat -inf / 0 ok 1906 - r Math::BigFloat -inf / 0 ok 1907 - x Math::BigFloat::Subclass -inf / 0 ok 1908 - r Math::BigFloat::Subclass -inf / 0 ok 1909 - x Math::BigFloat -1 / 0 ok 1910 - r Math::BigFloat -1 / 0 ok 1911 - x Math::BigFloat::Subclass -1 / 0 ok 1912 - r Math::BigFloat::Subclass -1 / 0 ok 1913 - x Math::BigFloat -0 / 0 ok 1914 - r Math::BigFloat -0 / 0 ok 1915 - x Math::BigFloat::Subclass -0 / 0 ok 1916 - r Math::BigFloat::Subclass -0 / 0 ok 1917 - x Math::BigFloat 0 / 0 ok 1918 - r Math::BigFloat 0 / 0 ok 1919 - x Math::BigFloat::Subclass 0 / 0 ok 1920 - r Math::BigFloat::Subclass 0 / 0 ok 1921 - x Math::BigFloat 1 / 0 ok 1922 - r Math::BigFloat 1 / 0 ok 1923 - x Math::BigFloat::Subclass 1 / 0 ok 1924 - r Math::BigFloat::Subclass 1 / 0 ok 1925 - x Math::BigFloat inf / 0 ok 1926 - r Math::BigFloat inf / 0 ok 1927 - x Math::BigFloat::Subclass inf / 0 ok 1928 - r Math::BigFloat::Subclass inf / 0 ok 1929 - x Math::BigFloat NaN / 0 ok 1930 - r Math::BigFloat NaN / 0 ok 1931 - x Math::BigFloat::Subclass NaN / 0 ok 1932 - r Math::BigFloat::Subclass NaN / 0 ok 1933 - x Math::BigFloat -inf / 1 ok 1934 - r Math::BigFloat -inf / 1 ok 1935 - x Math::BigFloat::Subclass -inf / 1 ok 1936 - r Math::BigFloat::Subclass -inf / 1 ok 1937 - x Math::BigFloat -1 / 1 ok 1938 - r Math::BigFloat -1 / 1 ok 1939 - x Math::BigFloat::Subclass -1 / 1 ok 1940 - r Math::BigFloat::Subclass -1 / 1 ok 1941 - x Math::BigFloat -0 / 1 ok 1942 - r Math::BigFloat -0 / 1 ok 1943 - x Math::BigFloat::Subclass -0 / 1 ok 1944 - r Math::BigFloat::Subclass -0 / 1 ok 1945 - x Math::BigFloat 0 / 1 ok 1946 - r Math::BigFloat 0 / 1 ok 1947 - x Math::BigFloat::Subclass 0 / 1 ok 1948 - r Math::BigFloat::Subclass 0 / 1 ok 1949 - x Math::BigFloat 1 / 1 ok 1950 - r Math::BigFloat 1 / 1 ok 1951 - x Math::BigFloat::Subclass 1 / 1 ok 1952 - r Math::BigFloat::Subclass 1 / 1 ok 1953 - x Math::BigFloat inf / 1 ok 1954 - r Math::BigFloat inf / 1 ok 1955 - x Math::BigFloat::Subclass inf / 1 ok 1956 - r Math::BigFloat::Subclass inf / 1 ok 1957 - x Math::BigFloat NaN / 1 ok 1958 - r Math::BigFloat NaN / 1 ok 1959 - x Math::BigFloat::Subclass NaN / 1 ok 1960 - r Math::BigFloat::Subclass NaN / 1 ok 1961 - x Math::BigFloat -inf / inf ok 1962 - r Math::BigFloat -inf / inf ok 1963 - x Math::BigFloat::Subclass -inf / inf ok 1964 - r Math::BigFloat::Subclass -inf / inf ok 1965 - x Math::BigFloat -1 / inf ok 1966 - r Math::BigFloat -1 / inf ok 1967 - x Math::BigFloat::Subclass -1 / inf ok 1968 - r Math::BigFloat::Subclass -1 / inf ok 1969 - x Math::BigFloat -0 / inf ok 1970 - r Math::BigFloat -0 / inf ok 1971 - x Math::BigFloat::Subclass -0 / inf ok 1972 - r Math::BigFloat::Subclass -0 / inf ok 1973 - x Math::BigFloat 0 / inf ok 1974 - r Math::BigFloat 0 / inf ok 1975 - x Math::BigFloat::Subclass 0 / inf ok 1976 - r Math::BigFloat::Subclass 0 / inf ok 1977 - x Math::BigFloat 1 / inf ok 1978 - r Math::BigFloat 1 / inf ok 1979 - x Math::BigFloat::Subclass 1 / inf ok 1980 - r Math::BigFloat::Subclass 1 / inf ok 1981 - x Math::BigFloat inf / inf ok 1982 - r Math::BigFloat inf / inf ok 1983 - x Math::BigFloat::Subclass inf / inf ok 1984 - r Math::BigFloat::Subclass inf / inf ok 1985 - x Math::BigFloat NaN / inf ok 1986 - r Math::BigFloat NaN / inf ok 1987 - x Math::BigFloat::Subclass NaN / inf ok 1988 - r Math::BigFloat::Subclass NaN / inf ok 1989 - x Math::BigFloat -inf / NaN ok 1990 - r Math::BigFloat -inf / NaN ok 1991 - x Math::BigFloat::Subclass -inf / NaN ok 1992 - r Math::BigFloat::Subclass -inf / NaN ok 1993 - x Math::BigFloat -1 / NaN ok 1994 - r Math::BigFloat -1 / NaN ok 1995 - x Math::BigFloat::Subclass -1 / NaN ok 1996 - r Math::BigFloat::Subclass -1 / NaN ok 1997 - x Math::BigFloat -0 / NaN ok 1998 - r Math::BigFloat -0 / NaN ok 1999 - x Math::BigFloat::Subclass -0 / NaN ok 2000 - r Math::BigFloat::Subclass -0 / NaN ok 2001 - x Math::BigFloat 0 / NaN ok 2002 - r Math::BigFloat 0 / NaN ok 2003 - x Math::BigFloat::Subclass 0 / NaN ok 2004 - r Math::BigFloat::Subclass 0 / NaN ok 2005 - x Math::BigFloat 1 / NaN ok 2006 - r Math::BigFloat 1 / NaN ok 2007 - x Math::BigFloat::Subclass 1 / NaN ok 2008 - r Math::BigFloat::Subclass 1 / NaN ok 2009 - x Math::BigFloat inf / NaN ok 2010 - r Math::BigFloat inf / NaN ok 2011 - x Math::BigFloat::Subclass inf / NaN ok 2012 - r Math::BigFloat::Subclass inf / NaN ok 2013 - x Math::BigFloat NaN / NaN ok 2014 - r Math::BigFloat NaN / NaN ok 2015 - x Math::BigFloat::Subclass NaN / NaN ok 2016 - r Math::BigFloat::Subclass NaN / NaN ok 2017 - NaN == NaN: "" ok 2018 - NaN != NaN: 1 ok 2019 - NaN == NaN: "" ok 2020 - NaN != NaN: 1 ok 2021 - 0 != NaN: 1 ok 2022 - 0 == NaN: "" ok 2023 - 0 < NaN: "" ok 2024 - 0 <= NaN: "" ok 2025 - 0 >= NaN: "" ok 2026 - NaN == NaN: "" ok 2027 - NaN != NaN: 1 ok 2028 - NaN == NaN: "" ok 2029 - NaN != NaN: 1 ok 2030 - 0 != NaN: 1 ok 2031 - 0 == NaN: "" ok 2032 - 0 < NaN: "" ok 2033 - 0 <= NaN: "" ok 2034 - 0 >= NaN: "" ok 2035 - NaN == NaN: "" ok 2036 - NaN != NaN: 1 ok 2037 - NaN == NaN: "" ok 2038 - NaN != NaN: 1 ok 2039 - 0 != NaN: 1 ok 2040 - 0 == NaN: "" ok 2041 - 0 < NaN: "" ok 2042 - 0 <= NaN: "" ok 2043 - 0 >= NaN: "" ok 2044 - NaN == NaN: "" ok 2045 - NaN != NaN: 1 ok 2046 - NaN == NaN: "" ok 2047 - NaN != NaN: 1 ok 2048 - 0 != NaN: 1 ok 2049 - 0 == NaN: "" ok 2050 - 0 < NaN: "" ok 2051 - 0 <= NaN: "" ok 2052 - 0 >= NaN: "" ok t/isa.t ....................................... 1..11 ok 1 - An object of class 'Math::BigInt::Subclass' isa 'Math::BigInt' ok 2 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 3 - A Math::BigFloat isn't a Math::BigInt ok 4 - ref($x) = "Math::BigInt" ok 5 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 6 - ref($x) = "Math::BigInt" ok 7 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 8 - ref($x) = "Math::BigFloat" ok 9 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 10 - ref($x) = "Math::BigFloat" ok 11 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok t/lib_load.t .................................. 1..4 ok 1 - Math::BigFloat got Math::BigInt::Calc # BareCalc using Calc v1.999807 ok 2 - Math::BigFloat was notified ok 3 - "only" worked ok 4 - "try" worked ok t/mbf_ali.t ................................... 1..6 ok 1 - Math::BigFloat -> new(123) -> is_pos() ok 2 - Math::BigFloat -> new(123) -> is_neg() ok 3 - Math::BigFloat -> new(123) -> as_int() ok 4 - ref(Math::BigFloat -> new(123) -> as_int()) ok 5 - Math::BigFloat -> new(123) -> bneg() -> is_pos() ok 6 - Math::BigFloat -> new(123) -> bneg() -> is_neg() ok t/mbi_ali.t ................................... 1..6 ok 1 - Math::BigInt -> new(123) -> is_pos() ok 2 - Math::BigInt -> new(123) -> is_neg() ok 3 - Math::BigInt -> new(123) -> as_int() ok 4 - ref(Math::BigInt -> new(123) -> as_int()) ok 5 - Math::BigInt -> new(123) -> bneg() -> is_pos() ok 6 - Math::BigInt -> new(123) -> bneg() -> is_neg() ok t/mbi_rand.t .................................. 1..512 ok 1 - AdivB * B + 2 * AmodB - AmodB == A ok 2 - AdivB * B / B == AdivB ok 3 - AdivB * A + 2 * AmodB - AmodB == B ok 4 - AdivB * A / A == AdivB ok 5 - AdivB * B + 2 * AmodB - AmodB == A ok 6 - AdivB * B / B == AdivB ok 7 - AdivB * A + 2 * AmodB - AmodB == B ok 8 - AdivB * A / A == AdivB ok 9 - AdivB * B + 2 * AmodB - AmodB == A ok 10 - AdivB * B / B == AdivB ok 11 - AdivB * A + 2 * AmodB - AmodB == B ok 12 - AdivB * A / A == AdivB ok 13 - AdivB * B + 2 * AmodB - AmodB == A ok 14 - AdivB * B / B == AdivB ok 15 - AdivB * A + 2 * AmodB - AmodB == B ok 16 - AdivB * A / A == AdivB ok 17 - AdivB * B + 2 * AmodB - AmodB == A ok 18 - AdivB * B / B == AdivB ok 19 - AdivB * A + 2 * AmodB - AmodB == B ok 20 - AdivB * A / A == AdivB ok 21 - AdivB * B + 2 * AmodB - AmodB == A ok 22 - AdivB * B / B == AdivB ok 23 - AdivB * A + 2 * AmodB - AmodB == B ok 24 - AdivB * A / A == AdivB ok 25 - AdivB * B + 2 * AmodB - AmodB == A ok 26 - AdivB * B / B == AdivB ok 27 - AdivB * A + 2 * AmodB - AmodB == B ok 28 - AdivB * A / A == AdivB ok 29 - AdivB * B + 2 * AmodB - AmodB == A ok 30 - AdivB * B / B == AdivB ok 31 - AdivB * A + 2 * AmodB - AmodB == B ok 32 - AdivB * A / A == AdivB ok 33 - AdivB * B + 2 * AmodB - AmodB == A ok 34 - AdivB * B / B == AdivB ok 35 - AdivB * A + 2 * AmodB - AmodB == B ok 36 - AdivB * A / A == AdivB ok 37 - AdivB * B + 2 * AmodB - AmodB == A ok 38 - AdivB * B / B == AdivB ok 39 - AdivB * A + 2 * AmodB - AmodB == B ok 40 - AdivB * A / A == AdivB ok 41 - AdivB * B + 2 * AmodB - AmodB == A ok 42 - AdivB * B / B == AdivB ok 43 - AdivB * A + 2 * AmodB - AmodB == B ok 44 - AdivB * A / A == AdivB ok 45 - AdivB * B + 2 * AmodB - AmodB == A ok 46 - AdivB * B / B == AdivB ok 47 - AdivB * A + 2 * AmodB - AmodB == B ok 48 - AdivB * A / A == AdivB ok 49 - AdivB * B + 2 * AmodB - AmodB == A ok 50 - AdivB * B / B == AdivB ok 51 - AdivB * A + 2 * AmodB - AmodB == B ok 52 - AdivB * A / A == AdivB ok 53 - AdivB * B + 2 * AmodB - AmodB == A ok 54 - AdivB * B / B == AdivB ok 55 - AdivB * A + 2 * AmodB - AmodB == B ok 56 - AdivB * A / A == AdivB ok 57 - AdivB * B + 2 * AmodB - AmodB == A ok 58 - AdivB * B / B == AdivB ok 59 - AdivB * A + 2 * AmodB - AmodB == B ok 60 - AdivB * A / A == AdivB ok 61 - AdivB * B + 2 * AmodB - AmodB == A ok 62 - AdivB * B / B == AdivB ok 63 - AdivB * A + 2 * AmodB - AmodB == B ok 64 - AdivB * A / A == AdivB ok 65 - AdivB * B + 2 * AmodB - AmodB == A ok 66 - AdivB * B / B == AdivB ok 67 - AdivB * A + 2 * AmodB - AmodB == B ok 68 - AdivB * A / A == AdivB ok 69 - AdivB * B + 2 * AmodB - AmodB == A ok 70 - AdivB * B / B == AdivB ok 71 - AdivB * A + 2 * AmodB - AmodB == B ok 72 - AdivB * A / A == AdivB ok 73 - AdivB * B + 2 * AmodB - AmodB == A ok 74 - AdivB * B / B == AdivB ok 75 - AdivB * A + 2 * AmodB - AmodB == B ok 76 - AdivB * A / A == AdivB ok 77 - AdivB * B + 2 * AmodB - AmodB == A ok 78 - AdivB * B / B == AdivB ok 79 - AdivB * A + 2 * AmodB - AmodB == B ok 80 - AdivB * A / A == AdivB ok 81 - AdivB * B + 2 * AmodB - AmodB == A ok 82 - AdivB * B / B == AdivB ok 83 - AdivB * A + 2 * AmodB - AmodB == B ok 84 - AdivB * A / A == AdivB ok 85 - AdivB * B + 2 * AmodB - AmodB == A ok 86 - AdivB * B / B == AdivB ok 87 - AdivB * A + 2 * AmodB - AmodB == B ok 88 - AdivB * A / A == AdivB ok 89 - AdivB * B + 2 * AmodB - AmodB == A ok 90 - AdivB * B / B == AdivB ok 91 - AdivB * A + 2 * AmodB - AmodB == B ok 92 - AdivB * A / A == AdivB ok 93 - AdivB * B + 2 * AmodB - AmodB == A ok 94 - AdivB * B / B == AdivB ok 95 - AdivB * A + 2 * AmodB - AmodB == B ok 96 - AdivB * A / A == AdivB ok 97 - AdivB * B + 2 * AmodB - AmodB == A ok 98 - AdivB * B / B == AdivB ok 99 - AdivB * A + 2 * AmodB - AmodB == B ok 100 - AdivB * A / A == AdivB ok 101 - AdivB * B + 2 * AmodB - AmodB == A ok 102 - AdivB * B / B == AdivB ok 103 - AdivB * A + 2 * AmodB - AmodB == B ok 104 - AdivB * A / A == AdivB ok 105 - AdivB * B + 2 * AmodB - AmodB == A ok 106 - AdivB * B / B == AdivB ok 107 - AdivB * A + 2 * AmodB - AmodB == B ok 108 - AdivB * A / A == AdivB ok 109 - AdivB * B + 2 * AmodB - AmodB == A ok 110 - AdivB * B / B == AdivB ok 111 - AdivB * A + 2 * AmodB - AmodB == B ok 112 - AdivB * A / A == AdivB ok 113 - AdivB * B + 2 * AmodB - AmodB == A ok 114 - AdivB * B / B == AdivB ok 115 - AdivB * A + 2 * AmodB - AmodB == B ok 116 - AdivB * A / A == AdivB ok 117 - AdivB * B + 2 * AmodB - AmodB == A ok 118 - AdivB * B / B == AdivB ok 119 - AdivB * A + 2 * AmodB - AmodB == B ok 120 - AdivB * A / A == AdivB ok 121 - AdivB * B + 2 * AmodB - AmodB == A ok 122 - AdivB * B / B == AdivB ok 123 - AdivB * A + 2 * AmodB - AmodB == B ok 124 - AdivB * A / A == AdivB ok 125 - AdivB * B + 2 * AmodB - AmodB == A ok 126 - AdivB * B / B == AdivB ok 127 - AdivB * A + 2 * AmodB - AmodB == B ok 128 - AdivB * A / A == AdivB ok 129 - AdivB * B + 2 * AmodB - AmodB == A ok 130 - AdivB * B / B == AdivB ok 131 - AdivB * A + 2 * AmodB - AmodB == B ok 132 - AdivB * A / A == AdivB ok 133 - AdivB * B + 2 * AmodB - AmodB == A ok 134 - AdivB * B / B == AdivB ok 135 - AdivB * A + 2 * AmodB - AmodB == B ok 136 - AdivB * A / A == AdivB ok 137 - AdivB * B + 2 * AmodB - AmodB == A ok 138 - AdivB * B / B == AdivB ok 139 - AdivB * A + 2 * AmodB - AmodB == B ok 140 - AdivB * A / A == AdivB ok 141 - AdivB * B + 2 * AmodB - AmodB == A ok 142 - AdivB * B / B == AdivB ok 143 - AdivB * A + 2 * AmodB - AmodB == B ok 144 - AdivB * A / A == AdivB ok 145 - AdivB * B + 2 * AmodB - AmodB == A ok 146 - AdivB * B / B == AdivB ok 147 - AdivB * A + 2 * AmodB - AmodB == B ok 148 - AdivB * A / A == AdivB ok 149 - AdivB * B + 2 * AmodB - AmodB == A ok 150 - AdivB * B / B == AdivB ok 151 - AdivB * A + 2 * AmodB - AmodB == B ok 152 - AdivB * A / A == AdivB ok 153 - AdivB * B + 2 * AmodB - AmodB == A ok 154 - AdivB * B / B == AdivB ok 155 - AdivB * A + 2 * AmodB - AmodB == B ok 156 - AdivB * A / A == AdivB ok 157 - AdivB * B + 2 * AmodB - AmodB == A ok 158 - AdivB * B / B == AdivB ok 159 - AdivB * A + 2 * AmodB - AmodB == B ok 160 - AdivB * A / A == AdivB ok 161 - AdivB * B + 2 * AmodB - AmodB == A ok 162 - AdivB * B / B == AdivB ok 163 - AdivB * A + 2 * AmodB - AmodB == B ok 164 - AdivB * A / A == AdivB ok 165 - AdivB * B + 2 * AmodB - AmodB == A ok 166 - AdivB * B / B == AdivB ok 167 - AdivB * A + 2 * AmodB - AmodB == B ok 168 - AdivB * A / A == AdivB ok 169 - AdivB * B + 2 * AmodB - AmodB == A ok 170 - AdivB * B / B == AdivB ok 171 - AdivB * A + 2 * AmodB - AmodB == B ok 172 - AdivB * A / A == AdivB ok 173 - AdivB * B + 2 * AmodB - AmodB == A ok 174 - AdivB * B / B == AdivB ok 175 - AdivB * A + 2 * AmodB - AmodB == B ok 176 - AdivB * A / A == AdivB ok 177 - AdivB * B + 2 * AmodB - AmodB == A ok 178 - AdivB * B / B == AdivB ok 179 - AdivB * A + 2 * AmodB - AmodB == B ok 180 - AdivB * A / A == AdivB ok 181 - AdivB * B + 2 * AmodB - AmodB == A ok 182 - AdivB * B / B == AdivB ok 183 - AdivB * A + 2 * AmodB - AmodB == B ok 184 - AdivB * A / A == AdivB ok 185 - AdivB * B + 2 * AmodB - AmodB == A ok 186 - AdivB * B / B == AdivB ok 187 - AdivB * A + 2 * AmodB - AmodB == B ok 188 - AdivB * A / A == AdivB ok 189 - AdivB * B + 2 * AmodB - AmodB == A ok 190 - AdivB * B / B == AdivB ok 191 - AdivB * A + 2 * AmodB - AmodB == B ok 192 - AdivB * A / A == AdivB ok 193 - AdivB * B + 2 * AmodB - AmodB == A ok 194 - AdivB * B / B == AdivB ok 195 - AdivB * A + 2 * AmodB - AmodB == B ok 196 - AdivB * A / A == AdivB ok 197 - AdivB * B + 2 * AmodB - AmodB == A ok 198 - AdivB * B / B == AdivB ok 199 - AdivB * A + 2 * AmodB - AmodB == B ok 200 - AdivB * A / A == AdivB ok 201 - AdivB * B + 2 * AmodB - AmodB == A ok 202 - AdivB * B / B == AdivB ok 203 - AdivB * A + 2 * AmodB - AmodB == B ok 204 - AdivB * A / A == AdivB ok 205 - AdivB * B + 2 * AmodB - AmodB == A ok 206 - AdivB * B / B == AdivB ok 207 - AdivB * A + 2 * AmodB - AmodB == B ok 208 - AdivB * A / A == AdivB ok 209 - AdivB * B + 2 * AmodB - AmodB == A ok 210 - AdivB * B / B == AdivB ok 211 - AdivB * A + 2 * AmodB - AmodB == B ok 212 - AdivB * A / A == AdivB ok 213 - AdivB * B + 2 * AmodB - AmodB == A ok 214 - AdivB * B / B == AdivB ok 215 - AdivB * A + 2 * AmodB - AmodB == B ok 216 - AdivB * A / A == AdivB ok 217 - AdivB * B + 2 * AmodB - AmodB == A ok 218 - AdivB * B / B == AdivB ok 219 - AdivB * A + 2 * AmodB - AmodB == B ok 220 - AdivB * A / A == AdivB ok 221 - AdivB * B + 2 * AmodB - AmodB == A ok 222 - AdivB * B / B == AdivB ok 223 - AdivB * A + 2 * AmodB - AmodB == B ok 224 - AdivB * A / A == AdivB ok 225 - AdivB * B + 2 * AmodB - AmodB == A ok 226 - AdivB * B / B == AdivB ok 227 - AdivB * A + 2 * AmodB - AmodB == B ok 228 - AdivB * A / A == AdivB ok 229 - AdivB * B + 2 * AmodB - AmodB == A ok 230 - AdivB * B / B == AdivB ok 231 - AdivB * A + 2 * AmodB - AmodB == B ok 232 - AdivB * A / A == AdivB ok 233 - AdivB * B + 2 * AmodB - AmodB == A ok 234 - AdivB * B / B == AdivB ok 235 - AdivB * A + 2 * AmodB - AmodB == B ok 236 - AdivB * A / A == AdivB ok 237 - AdivB * B + 2 * AmodB - AmodB == A ok 238 - AdivB * B / B == AdivB ok 239 - AdivB * A + 2 * AmodB - AmodB == B ok 240 - AdivB * A / A == AdivB ok 241 - AdivB * B + 2 * AmodB - AmodB == A ok 242 - AdivB * B / B == AdivB ok 243 - AdivB * A + 2 * AmodB - AmodB == B ok 244 - AdivB * A / A == AdivB ok 245 - AdivB * B + 2 * AmodB - AmodB == A ok 246 - AdivB * B / B == AdivB ok 247 - AdivB * A + 2 * AmodB - AmodB == B ok 248 - AdivB * A / A == AdivB ok 249 - AdivB * B + 2 * AmodB - AmodB == A ok 250 - AdivB * B / B == AdivB ok 251 - AdivB * A + 2 * AmodB - AmodB == B ok 252 - AdivB * A / A == AdivB ok 253 - AdivB * B + 2 * AmodB - AmodB == A ok 254 - AdivB * B / B == AdivB ok 255 - AdivB * A + 2 * AmodB - AmodB == B ok 256 - AdivB * A / A == AdivB ok 257 - AdivB * B + 2 * AmodB - AmodB == A ok 258 - AdivB * B / B == AdivB ok 259 - AdivB * A + 2 * AmodB - AmodB == B ok 260 - AdivB * A / A == AdivB ok 261 - AdivB * B + 2 * AmodB - AmodB == A ok 262 - AdivB * B / B == AdivB ok 263 - AdivB * A + 2 * AmodB - AmodB == B ok 264 - AdivB * A / A == AdivB ok 265 - AdivB * B + 2 * AmodB - AmodB == A ok 266 - AdivB * B / B == AdivB ok 267 - AdivB * A + 2 * AmodB - AmodB == B ok 268 - AdivB * A / A == AdivB ok 269 - AdivB * B + 2 * AmodB - AmodB == A ok 270 - AdivB * B / B == AdivB ok 271 - AdivB * A + 2 * AmodB - AmodB == B ok 272 - AdivB * A / A == AdivB ok 273 - AdivB * B + 2 * AmodB - AmodB == A ok 274 - AdivB * B / B == AdivB ok 275 - AdivB * A + 2 * AmodB - AmodB == B ok 276 - AdivB * A / A == AdivB ok 277 - AdivB * B + 2 * AmodB - AmodB == A ok 278 - AdivB * B / B == AdivB ok 279 - AdivB * A + 2 * AmodB - AmodB == B ok 280 - AdivB * A / A == AdivB ok 281 - AdivB * B + 2 * AmodB - AmodB == A ok 282 - AdivB * B / B == AdivB ok 283 - AdivB * A + 2 * AmodB - AmodB == B ok 284 - AdivB * A / A == AdivB ok 285 - AdivB * B + 2 * AmodB - AmodB == A ok 286 - AdivB * B / B == AdivB ok 287 - AdivB * A + 2 * AmodB - AmodB == B ok 288 - AdivB * A / A == AdivB ok 289 - AdivB * B + 2 * AmodB - AmodB == A ok 290 - AdivB * B / B == AdivB ok 291 - AdivB * A + 2 * AmodB - AmodB == B ok 292 - AdivB * A / A == AdivB ok 293 - AdivB * B + 2 * AmodB - AmodB == A ok 294 - AdivB * B / B == AdivB ok 295 - AdivB * A + 2 * AmodB - AmodB == B ok 296 - AdivB * A / A == AdivB ok 297 - AdivB * B + 2 * AmodB - AmodB == A ok 298 - AdivB * B / B == AdivB ok 299 - AdivB * A + 2 * AmodB - AmodB == B ok 300 - AdivB * A / A == AdivB ok 301 - AdivB * B + 2 * AmodB - AmodB == A ok 302 - AdivB * B / B == AdivB ok 303 - AdivB * A + 2 * AmodB - AmodB == B ok 304 - AdivB * A / A == AdivB ok 305 - AdivB * B + 2 * AmodB - AmodB == A ok 306 - AdivB * B / B == AdivB ok 307 - AdivB * A + 2 * AmodB - AmodB == B ok 308 - AdivB * A / A == AdivB ok 309 - AdivB * B + 2 * AmodB - AmodB == A ok 310 - AdivB * B / B == AdivB ok 311 - AdivB * A + 2 * AmodB - AmodB == B ok 312 - AdivB * A / A == AdivB ok 313 - AdivB * B + 2 * AmodB - AmodB == A ok 314 - AdivB * B / B == AdivB ok 315 - AdivB * A + 2 * AmodB - AmodB == B ok 316 - AdivB * A / A == AdivB ok 317 - AdivB * B + 2 * AmodB - AmodB == A ok 318 - AdivB * B / B == AdivB ok 319 - AdivB * A + 2 * AmodB - AmodB == B ok 320 - AdivB * A / A == AdivB ok 321 - AdivB * B + 2 * AmodB - AmodB == A ok 322 - AdivB * B / B == AdivB ok 323 - AdivB * A + 2 * AmodB - AmodB == B ok 324 - AdivB * A / A == AdivB ok 325 - AdivB * B + 2 * AmodB - AmodB == A ok 326 - AdivB * B / B == AdivB ok 327 - AdivB * A + 2 * AmodB - AmodB == B ok 328 - AdivB * A / A == AdivB ok 329 - AdivB * B + 2 * AmodB - AmodB == A ok 330 - AdivB * B / B == AdivB ok 331 - AdivB * A + 2 * AmodB - AmodB == B ok 332 - AdivB * A / A == AdivB ok 333 - AdivB * B + 2 * AmodB - AmodB == A ok 334 - AdivB * B / B == AdivB ok 335 - AdivB * A + 2 * AmodB - AmodB == B ok 336 - AdivB * A / A == AdivB ok 337 - AdivB * B + 2 * AmodB - AmodB == A ok 338 - AdivB * B / B == AdivB ok 339 - AdivB * A + 2 * AmodB - AmodB == B ok 340 - AdivB * A / A == AdivB ok 341 - AdivB * B + 2 * AmodB - AmodB == A ok 342 - AdivB * B / B == AdivB ok 343 - AdivB * A + 2 * AmodB - AmodB == B ok 344 - AdivB * A / A == AdivB ok 345 - AdivB * B + 2 * AmodB - AmodB == A ok 346 - AdivB * B / B == AdivB ok 347 - AdivB * A + 2 * AmodB - AmodB == B ok 348 - AdivB * A / A == AdivB ok 349 - AdivB * B + 2 * AmodB - AmodB == A ok 350 - AdivB * B / B == AdivB ok 351 - AdivB * A + 2 * AmodB - AmodB == B ok 352 - AdivB * A / A == AdivB ok 353 - AdivB * B + 2 * AmodB - AmodB == A ok 354 - AdivB * B / B == AdivB ok 355 - AdivB * A + 2 * AmodB - AmodB == B ok 356 - AdivB * A / A == AdivB ok 357 - AdivB * B + 2 * AmodB - AmodB == A ok 358 - AdivB * B / B == AdivB ok 359 - AdivB * A + 2 * AmodB - AmodB == B ok 360 - AdivB * A / A == AdivB ok 361 - AdivB * B + 2 * AmodB - AmodB == A ok 362 - AdivB * B / B == AdivB ok 363 - AdivB * A + 2 * AmodB - AmodB == B ok 364 - AdivB * A / A == AdivB ok 365 - AdivB * B + 2 * AmodB - AmodB == A ok 366 - AdivB * B / B == AdivB ok 367 - AdivB * A + 2 * AmodB - AmodB == B ok 368 - AdivB * A / A == AdivB ok 369 - AdivB * B + 2 * AmodB - AmodB == A ok 370 - AdivB * B / B == AdivB ok 371 - AdivB * A + 2 * AmodB - AmodB == B ok 372 - AdivB * A / A == AdivB ok 373 - AdivB * B + 2 * AmodB - AmodB == A ok 374 - AdivB * B / B == AdivB ok 375 - AdivB * A + 2 * AmodB - AmodB == B ok 376 - AdivB * A / A == AdivB ok 377 - AdivB * B + 2 * AmodB - AmodB == A ok 378 - AdivB * B / B == AdivB ok 379 - AdivB * A + 2 * AmodB - AmodB == B ok 380 - AdivB * A / A == AdivB ok 381 - AdivB * B + 2 * AmodB - AmodB == A ok 382 - AdivB * B / B == AdivB ok 383 - AdivB * A + 2 * AmodB - AmodB == B ok 384 - AdivB * A / A == AdivB ok 385 - AdivB * B + 2 * AmodB - AmodB == A ok 386 - AdivB * B / B == AdivB ok 387 - AdivB * A + 2 * AmodB - AmodB == B ok 388 - AdivB * A / A == AdivB ok 389 - AdivB * B + 2 * AmodB - AmodB == A ok 390 - AdivB * B / B == AdivB ok 391 - AdivB * A + 2 * AmodB - AmodB == B ok 392 - AdivB * A / A == AdivB ok 393 - AdivB * B + 2 * AmodB - AmodB == A ok 394 - AdivB * B / B == AdivB ok 395 - AdivB * A + 2 * AmodB - AmodB == B ok 396 - AdivB * A / A == AdivB ok 397 - AdivB * B + 2 * AmodB - AmodB == A ok 398 - AdivB * B / B == AdivB ok 399 - AdivB * A + 2 * AmodB - AmodB == B ok 400 - AdivB * A / A == AdivB ok 401 - AdivB * B + 2 * AmodB - AmodB == A ok 402 - AdivB * B / B == AdivB ok 403 - AdivB * A + 2 * AmodB - AmodB == B ok 404 - AdivB * A / A == AdivB ok 405 - AdivB * B + 2 * AmodB - AmodB == A ok 406 - AdivB * B / B == AdivB ok 407 - AdivB * A + 2 * AmodB - AmodB == B ok 408 - AdivB * A / A == AdivB ok 409 - AdivB * B + 2 * AmodB - AmodB == A ok 410 - AdivB * B / B == AdivB ok 411 - AdivB * A + 2 * AmodB - AmodB == B ok 412 - AdivB * A / A == AdivB ok 413 - AdivB * B + 2 * AmodB - AmodB == A ok 414 - AdivB * B / B == AdivB ok 415 - AdivB * A + 2 * AmodB - AmodB == B ok 416 - AdivB * A / A == AdivB ok 417 - AdivB * B + 2 * AmodB - AmodB == A ok 418 - AdivB * B / B == AdivB ok 419 - AdivB * A + 2 * AmodB - AmodB == B ok 420 - AdivB * A / A == AdivB ok 421 - AdivB * B + 2 * AmodB - AmodB == A ok 422 - AdivB * B / B == AdivB ok 423 - AdivB * A + 2 * AmodB - AmodB == B ok 424 - AdivB * A / A == AdivB ok 425 - AdivB * B + 2 * AmodB - AmodB == A ok 426 - AdivB * B / B == AdivB ok 427 - AdivB * A + 2 * AmodB - AmodB == B ok 428 - AdivB * A / A == AdivB ok 429 - AdivB * B + 2 * AmodB - AmodB == A ok 430 - AdivB * B / B == AdivB ok 431 - AdivB * A + 2 * AmodB - AmodB == B ok 432 - AdivB * A / A == AdivB ok 433 - AdivB * B + 2 * AmodB - AmodB == A ok 434 - AdivB * B / B == AdivB ok 435 - AdivB * A + 2 * AmodB - AmodB == B ok 436 - AdivB * A / A == AdivB ok 437 - AdivB * B + 2 * AmodB - AmodB == A ok 438 - AdivB * B / B == AdivB ok 439 - AdivB * A + 2 * AmodB - AmodB == B ok 440 - AdivB * A / A == AdivB ok 441 - AdivB * B + 2 * AmodB - AmodB == A ok 442 - AdivB * B / B == AdivB ok 443 - AdivB * A + 2 * AmodB - AmodB == B ok 444 - AdivB * A / A == AdivB ok 445 - AdivB * B + 2 * AmodB - AmodB == A ok 446 - AdivB * B / B == AdivB ok 447 - AdivB * A + 2 * AmodB - AmodB == B ok 448 - AdivB * A / A == AdivB ok 449 - AdivB * B + 2 * AmodB - AmodB == A ok 450 - AdivB * B / B == AdivB ok 451 - AdivB * A + 2 * AmodB - AmodB == B ok 452 - AdivB * A / A == AdivB ok 453 - AdivB * B + 2 * AmodB - AmodB == A ok 454 - AdivB * B / B == AdivB ok 455 - AdivB * A + 2 * AmodB - AmodB == B ok 456 - AdivB * A / A == AdivB ok 457 - AdivB * B + 2 * AmodB - AmodB == A ok 458 - AdivB * B / B == AdivB ok 459 - AdivB * A + 2 * AmodB - AmodB == B ok 460 - AdivB * A / A == AdivB ok 461 - AdivB * B + 2 * AmodB - AmodB == A ok 462 - AdivB * B / B == AdivB ok 463 - AdivB * A + 2 * AmodB - AmodB == B ok 464 - AdivB * A / A == AdivB ok 465 - AdivB * B + 2 * AmodB - AmodB == A ok 466 - AdivB * B / B == AdivB ok 467 - AdivB * A + 2 * AmodB - AmodB == B ok 468 - AdivB * A / A == AdivB ok 469 - AdivB * B + 2 * AmodB - AmodB == A ok 470 - AdivB * B / B == AdivB ok 471 - AdivB * A + 2 * AmodB - AmodB == B ok 472 - AdivB * A / A == AdivB ok 473 - AdivB * B + 2 * AmodB - AmodB == A ok 474 - AdivB * B / B == AdivB ok 475 - AdivB * A + 2 * AmodB - AmodB == B ok 476 - AdivB * A / A == AdivB ok 477 - AdivB * B + 2 * AmodB - AmodB == A ok 478 - AdivB * B / B == AdivB ok 479 - AdivB * A + 2 * AmodB - AmodB == B ok 480 - AdivB * A / A == AdivB ok 481 - AdivB * B + 2 * AmodB - AmodB == A ok 482 - AdivB * B / B == AdivB ok 483 - AdivB * A + 2 * AmodB - AmodB == B ok 484 - AdivB * A / A == AdivB ok 485 - AdivB * B + 2 * AmodB - AmodB == A ok 486 - AdivB * B / B == AdivB ok 487 - AdivB * A + 2 * AmodB - AmodB == B ok 488 - AdivB * A / A == AdivB ok 489 - AdivB * B + 2 * AmodB - AmodB == A ok 490 - AdivB * B / B == AdivB ok 491 - AdivB * A + 2 * AmodB - AmodB == B ok 492 - AdivB * A / A == AdivB ok 493 - AdivB * B + 2 * AmodB - AmodB == A ok 494 - AdivB * B / B == AdivB ok 495 - AdivB * A + 2 * AmodB - AmodB == B ok 496 - AdivB * A / A == AdivB ok 497 - AdivB * B + 2 * AmodB - AmodB == A ok 498 - AdivB * B / B == AdivB ok 499 - AdivB * A + 2 * AmodB - AmodB == B ok 500 - AdivB * A / A == AdivB ok 501 - AdivB * B + 2 * AmodB - AmodB == A ok 502 - AdivB * B / B == AdivB ok 503 - AdivB * A + 2 * AmodB - AmodB == B ok 504 - AdivB * A / A == AdivB ok 505 - AdivB * B + 2 * AmodB - AmodB == A ok 506 - AdivB * B / B == AdivB ok 507 - AdivB * A + 2 * AmodB - AmodB == B ok 508 - AdivB * A / A == AdivB ok 509 - AdivB * B + 2 * AmodB - AmodB == A ok 510 - AdivB * B / B == AdivB ok 511 - AdivB * A + 2 * AmodB - AmodB == B ok 512 - AdivB * A / A == AdivB ok t/mbimbf.t .................................... 1..738 ok 1 - ${"Math::BigInt::accuracy"} ok 2 - ${"Math::BigInt::precision"} ok 3 - Math::BigInt->accuracy() ok 4 - Math::BigInt->precision() ok 5 - ${"Math::BigInt::div_scale"} ok 6 - ${"Math::BigInt::round_mode"} ok 7 - Math::BigInt->round_mode() ok 8 - ${"Math::BigFloat::accuracy"} ok 9 - ${"Math::BigFloat::precision"} ok 10 - Math::BigFloat->precision() ok 11 - Math::BigFloat->precision() ok 12 - ${"Math::BigFloat::div_scale"} ok 13 - ${"Math::BigFloat::round_mode"} ok 14 - Math::BigFloat->round_mode() ok 15 - Math::BigInt->accuracy() ok 16 - Math::BigInt->precision() ok 17 - Math::BigInt->round_mode() ok 18 - Math::BigInt->div_scale() ok 19 - Math::BigInt->div_scale(20) ok 20 - Math::BigInt->div_scale() ok 21 - Math::BigInt->round_mode("odd") ok 22 - Math::BigInt->round_mode() ok 23 - Math::BigInt->accuracy(2) ok 24 - Math::BigInt->accuracy() ok 25 - Math::BigInt->accuracy(undef) ok 26 - Math::BigInt->precision(2) ok 27 - Math::BigInt->precision(-2) ok 28 - Math::BigInt->precision() ok 29 - Math::BigInt->precision(undef) ok 30 - Math::BigFloat->accuracy() ok 31 - Math::BigFloat->precision() ok 32 - Math::BigFloat->round_mode() ok 33 - Math::BigFloat->div_scale() ok 34 - Math::BigFloat->div_scale(20) ok 35 - Math::BigFloat->div_scale() ok 36 - Math::BigFloat->round_mode("odd") ok 37 - Math::BigFloat->round_mode() ok 38 - Math::BigFloat->accuracy(2) ok 39 - Math::BigFloat->accuracy() ok 40 - Math::BigFloat->accuracy(undef) ok 41 - Math::BigFloat->precision(2) ok 42 - Math::BigFloat->precision(-2) ok 43 - Math::BigFloat->precision() ok 44 - Math::BigFloat->precision(undef) ok 45 - ${"Math::BigFloat::accuracy"} = 5 ok 46 - ${"Math::BigInt::accuracy"} = 5 ok 47 - ${"Math::BigFloat::accuracy"} = 42 ok 48 - ${"Math::BigInt::accuracy"} = 42 ok 49 - ${"Math::BigFloat::accuracy"} = -1 ok 50 - ${"Math::BigInt::accuracy"} = -1 ok 51 - ${"Math::BigFloat::accuracy"} = 0 ok 52 - ${"Math::BigInt::accuracy"} = 0 ok 53 - ${"Math::BigFloat::accuracy"} = undef ok 54 - ${"Math::BigInt::accuracy"} = undef ok 55 - ${"Math::BigFloat::precision"} = 5 ok 56 - ${"Math::BigInt::precision"} = 5 ok 57 - ${"Math::BigFloat::precision"} = 42 ok 58 - ${"Math::BigInt::precision"} = 42 ok 59 - ${"Math::BigFloat::precision"} = -1 ok 60 - ${"Math::BigInt::precision"} = -1 ok 61 - ${"Math::BigFloat::precision"} = 0 ok 62 - ${"Math::BigInt::precision"} = 0 ok 63 - ${"Math::BigFloat::precision"} = undef ok 64 - ${"Math::BigInt::precision"} = undef ok 65 - ${"Math::BigFloat::div_scale"} = 5 ok 66 - ${"Math::BigInt::div_scale"} = 5 ok 67 - ${"Math::BigFloat::div_scale"} = 42 ok 68 - ${"Math::BigInt::div_scale"} = 42 ok 69 - ${"Math::BigFloat::div_scale"} = 1 ok 70 - ${"Math::BigInt::div_scale"} = 1 ok 71 - ${"Math::BigFloat::round_mode"} = "odd" ok 72 - ${"Math::BigInt::round_mode"} = "odd" ok 73 - ${"Math::BigFloat::round_mode"} = "even" ok 74 - ${"Math::BigInt::round_mode"} = "even" ok 75 - ${"Math::BigFloat::round_mode"} = "zero" ok 76 - ${"Math::BigInt::round_mode"} = "zero" ok 77 - ${"Math::BigFloat::round_mode"} = "trunc" ok 78 - ${"Math::BigInt::round_mode"} = "trunc" ok 79 - ${"Math::BigFloat::round_mode"} = "+inf" ok 80 - ${"Math::BigInt::round_mode"} = "+inf" ok 81 - ${"Math::BigFloat::round_mode"} = "-inf" ok 82 - ${"Math::BigInt::round_mode"} = "-inf" ok 83 - ${"Math::BigFloat::round_mode"} ok 84 - ${"Math::BigInt::round_mode"} ok 85 - $x->accuracy() ok 86 - $x->accuracy(5) ok 87 - $x->accuracy(undef) ok 88 - $x->precision() ok 89 - $x->precision(5) ok 90 - $x->precision(undef) ok 91 - ${"Math::BigInt::accuracy"} = 42 ok 92 - ${"Math::BigFloat::accuracy"} = 64 ok 93 - ${"Math::BigInt::accuracy"} = 42 ok 94 - ${"Math::BigFloat::accuracy"} = 64 ok 95 - Math::BigInt->new(123456) = 123500 ok 96 - Math::BigInt->new(123456) = 123000 ok 97 - Math::BigFloat->new("123.456") = 123.5 ok 98 - Math::BigFloat->new("123.456") = 123.5 ok 99 - Math::BigFloat->new("123.456") = 123.456 ok 100 - $x = Math::BigFloat->new("123.456"); $x->accuracy(4) ok 101 - $x = Math::BigFloat->new("123.456"); $x->precision(-2) ok 102 - $x = Math::BigInt->new(123456); $x->accuracy(4) ok 103 - $x = Math::BigInt->new(123456); $x->precision(2) ok 104 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(5) ok 105 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(4) ok 106 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(5, 2) ok 107 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(undef, -2) ok 108 - $x = Math::BigFloat->new("123.456"); $x->copy()->round(undef, 2) ok 109 - $x = Math::BigInt->new("123"); $x->round(5, 2) ok 110 - $x = Math::BigFloat->new("123.45000"); $x->copy()->round(undef, -1, "odd") ok 111 - $x = Math::BigFloat->new("123.4567"); $y = $x->copy()->bround() ok 112 - $y = $x->copy()->round(5); $y->accuracy() ok 113 - $y = $x->copy()->round(5); $y->precision() ok 114 - $y = $x->copy()->round(undef, 2); $y->precision() ok 115 - $y = $x->copy()->round(undef, 2); $y->accuracy() ok 116 - $x = $mbf->new("123.4567") ok 117 - $x->accuracy(4) ok 118 - $x->precision(-2) ok 119 - $x->accuracy() ok 120 - $x = $mbf->new("123.4567") ok 121 - $x->precision(-2) ok 122 - $x->accuracy(4) ok 123 - $x->precision() ok 124 - $z = $x->copy(); $z->accuracy() ok 125 - $z = $x->copy(); $z->precision() ok 126 - $x->copy()->bdiv(3, 4) ok 127 - $x->copy()->bdiv(3, 8) ok 128 - $x->copy()->bdiv(3, 16) ok 129 - $x->copy()->bdiv(3, 32) ok 130 - $x = Math::BigInt->bzero(); $x->accuracy(5); $x->{_a} ok 131 - $x = Math::BigInt->bzero(); $x->precision(5); $x->{_p} ok 132 - $x = Math::BigInt->new(0); $x->accuracy(5); $x->{_a} ok 133 - $x = Math::BigInt->new(0); $x->precision(5); $x->{_p} ok 134 - $x = Math::BigInt->bzero(); $x->round(5); $x->{_a} ok 135 - $x = Math::BigInt->bzero(); $x->round(undef, 5); $x->{_p} ok 136 - $x = Math::BigInt->new(0); $x->round(5); $x->{_a} ok 137 - $x = Math::BigInt->new(0); $x->round(undef, 5); $x->{_p} ok 138 - $x = Math::BigInt->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 139 - $x = Math::BigFloat->bzero(); $x->accuracy(5); $x->{_a} ok 140 - $x = Math::BigFloat->bzero(); $x->precision(5); $x->{_p} ok 141 - $x = Math::BigFloat->new(0); $x->accuracy(5); $x->{_a} ok 142 - $x = Math::BigFloat->new(0); $x->precision(5); $x->{_p} ok 143 - $x = Math::BigFloat->bzero(); $x->round(5); $x->{_a} ok 144 - $x = Math::BigFloat->bzero(); $x->round(undef, 5); $x->{_p} ok 145 - $x = Math::BigFloat->new(0); $x->round(5); $x->{_a} ok 146 - $x = Math::BigFloat->new(0); $x->round(undef, 5); $x->{_p} ok 147 - $x = Math::BigFloat->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 148 - Math::BigInt->new(123)->badd(123) ok 149 - Math::BigInt->badd(123, 321) ok 150 - Math::BigInt->badd(123, Math::BigInt->new(321)) ok 151 - Math::BigInt->new(123)->bsub(122) ok 152 - Math::BigInt->bsub(321, 123) ok 153 - Math::BigInt->bsub(321, Math::BigInt->new(123)) ok 154 - Math::BigInt->new(123)->bmul(123) ok 155 - Math::BigInt->bmul(123, 123) ok 156 - Math::BigInt->bmul(123, Math::BigInt->new(123)) ok 157 - Math::BigInt->new(15131)->bmod(123) ok 158 - Math::BigInt->bmod(15131, 123) ok 159 - Math::BigInt->bmod(15131, Math::BigInt->new(123)) ok 160 - Math::BigInt->new(2)->bpow(16) ok 161 - Math::BigInt->bpow(2, 16) ok 162 - Math::BigInt->bpow(2, Math::BigInt->new(16)) ok 163 - Math::BigInt->new(2**15)->brsft(1) ok 164 - Math::BigInt->brsft(2**15, 1) ok 165 - Math::BigInt->brsft(2**15, Math::BigInt->new(1)) ok 166 - Math::BigInt->new(2**13)->blsft(1) ok 167 - Math::BigInt->blsft(2**13, 1) ok 168 - Math::BigInt->blsft(2**13, Math::BigInt->new(1)) ok 169 - Math::BigFloat->new(123)->badd(123) ok 170 - Math::BigFloat->badd(123, 321) ok 171 - Math::BigFloat->badd(123, Math::BigFloat->new(321)) ok 172 - Math::BigFloat->new(123)->bsub(122) ok 173 - Math::BigFloat->bsub(321, 123) ok 174 - Math::BigFloat->bsub(321, Math::BigFloat->new(123)) ok 175 - Math::BigFloat->new(123)->bmul(123) ok 176 - Math::BigFloat->bmul(123, 123) ok 177 - Math::BigFloat->bmul(123, Math::BigFloat->new(123)) ok 178 - Math::BigFloat->new(15131)->bmod(123) ok 179 - Math::BigFloat->bmod(15131, 123) ok 180 - Math::BigFloat->bmod(15131, Math::BigFloat->new(123)) ok 181 - Math::BigFloat->new(2)->bpow(16) ok 182 - Math::BigFloat->bpow(2, 16) ok 183 - Math::BigFloat->bpow(2, Math::BigFloat->new(16)) ok 184 - Math::BigFloat->new(2**15)->brsft(1) ok 185 - Math::BigFloat->brsft(2**15, 1) ok 186 - Math::BigFloat->brsft(2**15, Math::BigFloat->new(1)) ok 187 - Math::BigFloat->new(2**13)->blsft(1) ok 188 - Math::BigFloat->blsft(2**13, 1) ok 189 - Math::BigFloat->blsft(2**13, Math::BigFloat->new(1)) ok 190 - $z = $x + $y ok 191 - $z = $y - $x ok 192 - $z = $y * $x ok 193 - $z = $x ** 2 ok 194 - $z = $x * $x ok 195 - $z = $z / 2 ok 196 - $z++ ok 197 - $z = $x + $y ok 198 - $z = $y - $x ok 199 - $z = $y * $x ok 200 - $z = $x ** 2 ok 201 - $z++ ok 202 - $z = $z / 2 ok 203 - $x->bnot() ok 204 - $x->babs() ok 205 - $x->bneg() ok 206 - $x ok 207 - $x->bdiv($y) ok 208 - $x->{_a} ok 209 - $x->bdiv($y) ok 210 - $x->{_a} ok 211 - $x->bdiv($y) ok 212 - $x->{_a} ok 213 - $x->bdiv($y) ok 214 - $x->{_a} ok 215 - $x->copy()->bsqrt(...) ok 216 - $x->copy->bsqrt(...) ok 217 - $x->{_a} ok 218 - $z = $x->bsqrt(); $z ok 219 - $z = $x->bsqrt(); $x ok 220 - $x->copy()->bpow(...) ok 221 - $x->copy()->bpow(...) vs. $x->copy()->bsqrt(...) ok 222 - $x->copy()->bpow('2', 0) ok 223 - $mbi->new(12)->bfac() ok 224 - $mbi->new(12)->bfac(2) ok 225 - $x = Math::BigInt->new(12); $x->accuracy(2); $x->bfac() ok 226 - $x = Math::BigInt->new(13); $x->accuracy(2); $x->bfac() ok 227 - $x = Math::BigInt->new(13); $x->accuracy(3); $x->bfac() ok 228 - $x = Math::BigInt->new(13); $x->accuracy(4); $x->bfac() ok 229 - $x = Math::BigInt->new(20); $x->accuracy(1); $x->bfac() ok 230 - $x = Math::BigInt->new("123456")->bsqrt(2, undef) ok 231 - $x->accuracy() ok 232 - $x = 360 ok 233 - $x = 400 ok 234 - $z = $x + $y; ok 235 - $z is a "Math::BigFloat" object ok 236 - $z = $x / $y; ok 237 - $z is a "Math::BigFloat" object ok 238 - $z = $u * $y; ok 239 - $z is a "Math::BigFloat" object ok 240 - $z = 31000 ok 241 - $z = 30900 ok 242 - $z = 30863 ok 243 - $z = 30863 ok 244 - $z = 30860 ok 245 - $z = 30900 ok 246 - $z = 30862.5 ok 247 - $z = "" ok 248 - "$z = $y >= 3.17" gives warning as expected ok 249 - $z = "" ok 250 - "$z = $y >= 3.17" gives warning as expected ok 251 - $x->bdiv(3) ok 252 - $x->{_a} ok 253 - $x->bdiv($y) ok 254 - $x->{_a} ok 255 - $x->bdiv(3) ok 256 - $x->bdiv(3, undef, -2) ok 257 - $x->bdiv(3, undef, -8) = "3.33333333" ok 258 - $x->bdiv($y) = '3.333' ok 259 - $x->{_a} = 4 ok 260 - $y->{_a} = 4 ok 261 - $x->{_p} = undef ok 262 - $y->{_p} = undef ok 263 - $x->bdiv($y) = '3.33' ok 264 - $x->{_p} = -2 ok 265 - $y->{_p} = -2 ok 266 - $x->{_a} = undef ok 267 - $y->{_a} = undef ok 268 - "$x->bround(-2)" gives warning as expected ok 269 - $x = "1.000" ok 270 - $x->{_a} = 4 ok 271 - $x = "1.000" ok 272 - $x = "1230" ok 273 - $x->{_a} = 3 ok 274 - $x = "1230" ok 275 - $x = "1200" ok 276 - $x->{_a} = 2 ok 277 - $x = "12300" ok 278 - $x->{_a} = 4 ok 279 - $x = "12000" ok 280 - $x->{_a} = 3 ok 281 - $x = "10000" ok 282 - $x->{_a} = 2 ok 283 - $x = "0" ok 284 - $x->{_a} = 1 ok 285 - $x = "0" ok 286 - $x->{_a} = 0 ok 287 - $x = "100000" ok 288 - $x->{_a} = 0 ok 289 - $x = "100000" ok 290 - $x->{_a} = 0 ok 291 - $x = "12345" ok 292 - $x->{_a} = 5 ok 293 - $x = "12345" ok 294 - $x = "0.01" ok 295 - $x = "0.00" ok 296 - $x = "0.00" ok 297 - $x = "12340" ok 298 - $x = "12340" ok 299 - $x->{_a} = undef ok 300 - $x = "0.000176118351532229658330398027474462839027826699542092286016203" ok 301 - $x = "0.000176118351532229658330398027474462839027826699542092286016202888340965128566396618527651" ok 302 - $x = "0.00017611835153222965833039802747446283902782669954209228601620288834096512856639662" ok 303 - $x = "1.00000" ok 304 - $x->bfround(-2) = "1.00" ok 305 - $x->{_p} = -2 ok 306 - $x->bround(2) = "12000" ok 307 - $x->{_a} = 2 ok 308 - $x->bround(2) = "1.2" ok 309 - $x->{_a} = 2 ok 310 - $x = "12350" ok 311 - $x->{_a} = 4 ok 312 - $x->{_p} = undef ok 313 - $x->{_a} = undef ok 314 - $x->{_p} = undef ok 315 - $x->{_a} = undef ok 316 - $x->{_p} = undef ok 317 - $y->{_a} = undef ok 318 - $y->{_p} = undef ok 319 - $x+$y = 24000 ok 320 - $x-$y = 42000 ok 321 - $x+$y = "2.46" ok 322 - scalar(@params) = 1 ok 323 - scalar(@params) = 4 ok 324 - $params[0] = $x ok 325 - $params[1] = 1 ok 326 - $params[2] = undef ok 327 - $params[3] = "odd" ok 328 - scalar(@params) = 4 ok 329 - $params[0] = $x ok 330 - $params[1] = undef ok 331 - $params[2] = 2 ok 332 - $params[3] = "odd" ok 333 - round mode "foo" gives a warning as expected ok 334 - scalar(@params) = 4 ok 335 - $params[0] = $x ok 336 - $params[1] = undef ok 337 - $params[2] = 2 ok 338 - $params[3] = "+inf" ok 339 - scalar(@params) = 1 ok 340 - $params[0] = $x ok 341 - scalar(@params) = 1 ok 342 - $params[0] = $x ok 343 - $x->is_nan() = 1 ok 344 - scalar(@params) = 1 ok 345 - $params[0] = $x ok 346 - $x->is_nan() = 1 ok 347 - $x = Math::BigInt->new(2)->bzero(); $x->{_a} ok 348 - $x = Math::BigInt->new(2)->bzero(); $x->{_p} ok 349 - $x = Math::BigInt->new(2)->bone(); $x->{_a} ok 350 - $x = Math::BigInt->new(2)->bone(); $x->{_p} ok 351 - $x = Math::BigInt->new(2)->binf(); $x->{_a} ok 352 - $x = Math::BigInt->new(2)->binf(); $x->{_p} ok 353 - $x = Math::BigInt->new(2)->bnan(); $x->{_a} ok 354 - $x = Math::BigInt->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 355 - $x = Math::BigInt->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 356 - $x = Math::BigInt->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 357 - $x = Math::BigInt->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 358 - $x = Math::BigInt->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 359 - $x = Math::BigInt->new(2, 1); $x->{_a} ok 360 - $x = Math::BigInt->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 361 - $x = Math::BigInt->new(2, undef, 1); $x->{_a} ok 362 - $x = Math::BigInt->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 363 - $x = Math::BigInt->new(2, 1)->bzero(); $x->{_a} ok 364 - $x = Math::BigInt->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 365 - $x = Math::BigInt->new(2, undef, 1)->bzero(); $x->{_a} ok 366 - $x = Math::BigInt->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 367 - $x = Math::BigInt->new(2, 1)->bone(); $x->{_a} ok 368 - $x = Math::BigInt->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 369 - $x = Math::BigInt->new(2, undef, 1)->bone(); $x->{_a} ok 370 - $x = Math::BigInt->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 371 - $x = Math::BigInt->new(2); $x->{_a} ok 372 - $x = Math::BigInt->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 373 - $x = Math::BigInt->new(2); $x->bone('+', undef, 2); $x->{_a} ok 374 - $x = Math::BigInt->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 375 - $x = Math::BigInt->new(2); $x->bone('-', 2, undef); $x->{_a} ok 376 - $x = Math::BigInt->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 377 - $x = Math::BigInt->new(2); $x->bone('-', undef, 2); $x->{_a} ok 378 - $x = Math::BigInt->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 379 - $x = Math::BigInt->new(2);$x->bzero(2, undef); $x->{_a} ok 380 - $x = Math::BigInt->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 381 - $x = Math::BigInt->new(2); $x->bzero(undef, 2); $x->{_a} ok 382 - $x = Math::BigInt->new(2); $x->bzero(undef, 2); $x->{_p} ok 383 - $x = Math::BigFloat->new(2)->bzero(); $x->{_a} ok 384 - $x = Math::BigFloat->new(2)->bzero(); $x->{_p} ok 385 - $x = Math::BigFloat->new(2)->bone(); $x->{_a} ok 386 - $x = Math::BigFloat->new(2)->bone(); $x->{_p} ok 387 - $x = Math::BigFloat->new(2)->binf(); $x->{_a} ok 388 - $x = Math::BigFloat->new(2)->binf(); $x->{_p} ok 389 - $x = Math::BigFloat->new(2)->bnan(); $x->{_a} ok 390 - $x = Math::BigFloat->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 391 - $x = Math::BigFloat->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 392 - $x = Math::BigFloat->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 393 - $x = Math::BigFloat->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 394 - $x = Math::BigFloat->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 395 - $x = Math::BigFloat->new(2, 1); $x->{_a} ok 396 - $x = Math::BigFloat->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 397 - $x = Math::BigFloat->new(2, undef, 1); $x->{_a} ok 398 - $x = Math::BigFloat->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 399 - $x = Math::BigFloat->new(2, 1)->bzero(); $x->{_a} ok 400 - $x = Math::BigFloat->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 401 - $x = Math::BigFloat->new(2, undef, 1)->bzero(); $x->{_a} ok 402 - $x = Math::BigFloat->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 403 - $x = Math::BigFloat->new(2, 1)->bone(); $x->{_a} ok 404 - $x = Math::BigFloat->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 405 - $x = Math::BigFloat->new(2, undef, 1)->bone(); $x->{_a} ok 406 - $x = Math::BigFloat->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 407 - $x = Math::BigFloat->new(2); $x->{_a} ok 408 - $x = Math::BigFloat->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 409 - $x = Math::BigFloat->new(2); $x->bone('+', undef, 2); $x->{_a} ok 410 - $x = Math::BigFloat->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 411 - $x = Math::BigFloat->new(2); $x->bone('-', 2, undef); $x->{_a} ok 412 - $x = Math::BigFloat->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 413 - $x = Math::BigFloat->new(2); $x->bone('-', undef, 2); $x->{_a} ok 414 - $x = Math::BigFloat->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 415 - $x = Math::BigFloat->new(2);$x->bzero(2, undef); $x->{_a} ok 416 - $x = Math::BigFloat->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 417 - $x = Math::BigFloat->new(2); $x->bzero(undef, 2); $x->{_a} ok 418 - $x = Math::BigFloat->new(2); $x->bzero(undef, 2); $x->{_p} # Verify that class accuracy is copied into new objects. ok 419 - Math::BigInt->accuracy(3); $x = Math::BigInt->bzero(); $x->accuracy() ok 420 - Math::BigInt->accuracy(3); $x = Math::BigInt->bone(); $x->accuracy() ok 421 - Math::BigInt->accuracy(3); $x = Math::BigInt->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 422 - Math::BigInt->precision(-4); $x = Math::BigInt->bzero(); $x->precision() ok 423 - Math::BigInt->precision(-4); $x = Math::BigInt->bone(); $x->precision() ok 424 - Math::BigInt->precision(-4); $x = Math::BigInt->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 425 - Math::BigInt->accuracy(2); $x = Math::BigInt->bzero(5); $x->accuracy() ok 426 # skip 1 ok 427 - Math::BigInt->accuracy(2); $x = Math::BigInt->bone("+", 5); $x->accuracy() ok 428 # skip 1 ok 429 - Math::BigInt->accuracy(2); $x = Math::BigInt->new(2, 5); $x->accuracy() ok 430 # skip 1 # Verify that setting precision as method argument overrides class variable ok 431 - Math::BigInt->precision(-2); $x = Math::BigInt->bzero(undef, -6); $x->precision() ok 432 # skip 1 ok 433 - Math::BigInt->precision(-2); $x = Math::BigInt->bone("+", undef, -6); $x->precision() ok 434 # skip 1 ok 435 - Math::BigInt->precision(-2); $x = Math::BigInt->new(2, undef, -6); $x->precision() ok 436 # skip 1 # Verify that class accuracy is copied into new objects. ok 437 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->bzero(); $x->accuracy() ok 438 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->bone(); $x->accuracy() ok 439 - Math::BigFloat->accuracy(3); $x = Math::BigFloat->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 440 - Math::BigFloat->precision(-4); $x = Math::BigFloat->bzero(); $x->precision() ok 441 - Math::BigFloat->precision(-4); $x = Math::BigFloat->bone(); $x->precision() ok 442 - Math::BigFloat->precision(-4); $x = Math::BigFloat->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 443 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->bzero(5); $x->accuracy() ok 444 # skip 1 ok 445 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->bone("+", 5); $x->accuracy() ok 446 # skip 1 ok 447 - Math::BigFloat->accuracy(2); $x = Math::BigFloat->new(2, 5); $x->accuracy() ok 448 # skip 1 # Verify that setting precision as method argument overrides class variable ok 449 - Math::BigFloat->precision(-2); $x = Math::BigFloat->bzero(undef, -6); $x->precision() ok 450 # skip 1 ok 451 - Math::BigFloat->precision(-2); $x = Math::BigFloat->bone("+", undef, -6); $x->precision() ok 452 # skip 1 ok 453 - Math::BigFloat->precision(-2); $x = Math::BigFloat->new(2, undef, -6); $x->precision() ok 454 # skip 1 ok 455 - mixing A and P creates a NaN ok 456 - $class->new(123) = "NaN" ok 457 - mixing A and P creates a NaN ok 458 - $class->new(123) = "NaN" ok 459 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->badd($y); ok 460 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bsub($y); ok 461 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bmul($y); ok 462 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bpow($y); ok 463 - my $x = Math::BigInt->new(1234); $x->accuracy(5); my $y = Math::BigInt->new(12); $y->precision(-3); $x->bmod($y); ok 464 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->badd($y); ok 465 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bsub($y); ok 466 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bmul($y); ok 467 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bpow($y); ok 468 - my $x = Math::BigFloat->new(1234); $x->accuracy(5); my $y = Math::BigFloat->new(12); $y->precision(-3); $x->bmod($y); ok 469 - my $x = Math::BigInt->new(1234, 5, -3); ok 470 - my $x = Math::BigInt->bsqrt(1234, 5, -3); ok 471 - $x = 120 ok 472 - $x = 120 ok 473 - $x = 120 ok 474 - $x = 120 ok 475 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("123"); $x->$f($y); ok 476 - is a valid object ok 477 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 478 - is a valid object ok 479 - $x->{_a} == 3 ok 480 - $x->{_p} is undef ok 481 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("0"); $x->$f($y); ok 482 - is a valid object ok 483 - $x->{_p} == -3 ok 484 - $x->{_a} is undef ok 485 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->accuracy(3); $x->$f($y); ok 486 - is a valid object ok 487 - $x->{_a} == 3 ok 488 - $x->{_p} is undef ok 489 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->precision(-3); $x->$f($y); ok 490 - is a valid object ok 491 - $x->{_p} == -3 ok 492 - $x->{_a} is undef ok 493 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->$f($y); ok 494 - is a valid object ok 495 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 496 - is a valid object ok 497 - $x->{_a} == 3 ok 498 - $x->{_p} is undef ok 499 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("0"); $x->$f($y); ok 500 - is a valid object ok 501 - $x->{_p} == -3 ok 502 - $x->{_a} is undef ok 503 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->accuracy(3); $x->$f($y); ok 504 - is a valid object ok 505 - $x->{_a} == 3 ok 506 - $x->{_p} is undef ok 507 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("0"); $y->precision(-3); $x->$f($y); ok 508 - is a valid object ok 509 - $x->{_p} == -3 ok 510 - $x->{_a} is undef ok 511 - $x = Math::BigInt->new("123"); $x->accuracy(3); $y = Math::BigInt->new("1"); $x->$f($y); ok 512 - is a valid object ok 513 - $x->{_a} == 3 ok 514 - $x->{_p} is undef ok 515 - $x = Math::BigInt->new("123"); $x->precision(-3); $y = Math::BigInt->new("1"); $x->$f($y); ok 516 - is a valid object ok 517 - $x->{_p} == -3 ok 518 - $x->{_a} is undef ok 519 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->accuracy(3); $x->$f($y); ok 520 - is a valid object ok 521 - $x->{_a} == 3 ok 522 - $x->{_p} is undef ok 523 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->precision(-3); $x->$f($y); ok 524 - is a valid object ok 525 - $x->{_p} == -3 ok 526 - $x->{_a} is undef ok 527 - $x = Math::BigInt->new("1"); $x->accuracy(3); $y = Math::BigInt->new("123"); $x->$f($y); ok 528 - is a valid object ok 529 - $x->{_a} == 3 ok 530 - $x->{_p} is undef ok 531 - $x = Math::BigInt->new("1"); $x->precision(-3); $y = Math::BigInt->new("123"); $x->$f($y); ok 532 - is a valid object ok 533 - $x->{_p} == -3 ok 534 - $x->{_a} is undef ok 535 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->accuracy(3); $x->$f($y); ok 536 - is a valid object ok 537 - $x->{_a} == 3 ok 538 - $x->{_p} is undef ok 539 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->precision(-3); $x->$f($y); ok 540 - is a valid object ok 541 - $x->{_p} == -3 ok 542 - $x->{_a} is undef ok 543 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $x->$f($y); ok 544 - is a valid object ok 545 - $x = Math::BigInt->new("123"); $x->accuracy(4); $y = Math::BigInt->new("1"); $x->$f($y); ok 546 - is a valid object ok 547 - $x->{_a} == 4 ok 548 - $x->{_p} is undef ok 549 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->accuracy(4); $x->$f($y); ok 550 - is a valid object ok 551 - $x->{_a} == 4 ok 552 - $x->{_p} is undef ok 553 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("1"); $y->precision(-4); $x->$f($y); ok 554 - is a valid object ok 555 - $x->{_p} == -4 ok 556 - $x->{_a} is undef ok 557 - $x = Math::BigInt->new("123"); $x->precision(-4); $y = Math::BigInt->new("1"); $x->$f($y); ok 558 - is a valid object ok 559 - $x->{_p} == -4 ok 560 - $x->{_a} is undef ok 561 - $x = Math::BigInt->new("1"); $x->accuracy(4); $y = Math::BigInt->new("123"); $x->$f($y); ok 562 - is a valid object ok 563 - $x->{_a} == 4 ok 564 - $x->{_p} is undef ok 565 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->accuracy(4); $x->$f($y); ok 566 - is a valid object ok 567 - $x->{_a} == 4 ok 568 - $x->{_p} is undef ok 569 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("123"); $y->precision(-4); $x->$f($y); ok 570 - is a valid object ok 571 - $x->{_p} == -4 ok 572 - $x->{_a} is undef ok 573 - $x = Math::BigInt->new("1"); $x->precision(-4); $y = Math::BigInt->new("123"); $x->$f($y); ok 574 - is a valid object ok 575 - $x->{_p} == -4 ok 576 - $x->{_a} is undef ok 577 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 578 - is a valid object ok 579 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 580 - is a valid object ok 581 - $x->{_a} == 1 ok 582 - $x->{_p} is undef ok 583 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 584 - is a valid object ok 585 - $x->{_a} == 1 ok 586 - $x->{_p} is undef ok 587 - $x = Math::BigInt->new("1234"); $x->precision(-1); $y = Math::BigInt->new("0"); $x->$f($y); ok 588 - is a valid object ok 589 - $x->{_p} == -1 ok 590 - $x->{_a} is undef ok 591 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(-1); $x->$f($y); ok 592 - is a valid object ok 593 - $x->{_p} == -1 ok 594 - $x->{_a} is undef ok 595 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 596 - is a valid object ok 597 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 598 - is a valid object ok 599 - $x->{_a} == 2 ok 600 - $x->{_p} is undef ok 601 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 602 - is a valid object ok 603 - $x->{_a} == 2 ok 604 - $x->{_p} is undef ok 605 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 606 - is a valid object ok 607 - $x->{_p} == 1 ok 608 - $x->{_a} is undef ok 609 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 610 - is a valid object ok 611 - $x->{_p} == 1 ok 612 - $x->{_a} is undef ok 613 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 614 - is a valid object ok 615 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 616 - is a valid object ok 617 - $x->{_a} == 1 ok 618 - $x->{_p} is undef ok 619 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 620 - is a valid object ok 621 - $x->{_a} == 1 ok 622 - $x->{_p} is undef ok 623 - $x = Math::BigInt->new("1234"); $x->precision(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 624 - is a valid object ok 625 - $x->{_p} == 3 ok 626 - $x->{_a} is undef ok 627 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(3); $x->$f($y); ok 628 - is a valid object ok 629 - $x->{_p} == 3 ok 630 - $x->{_a} is undef ok 631 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 632 - is a valid object ok 633 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 634 - is a valid object ok 635 - $x->{_a} == 2 ok 636 - $x->{_p} is undef ok 637 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 638 - is a valid object ok 639 - $x->{_a} == 2 ok 640 - $x->{_p} is undef ok 641 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 642 - is a valid object ok 643 - $x->{_p} == 1 ok 644 - $x->{_a} is undef ok 645 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 646 - is a valid object ok 647 - $x->{_p} == 1 ok 648 - $x->{_a} is undef ok 649 - $x = Math::BigInt->new("0xFF"); $x->accuracy(2); $y = Math::BigInt->new("0xFFF"); $x->$f($y); ok 650 - is a valid object ok 651 - $x->{_a} == 2 ok 652 - $x->{_p} is undef ok 653 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFFF"); $y->accuracy(2); $x->$f($y); ok 654 - is a valid object ok 655 - $x->{_a} == 2 ok 656 - $x->{_p} is undef ok 657 - $x = Math::BigInt->new("0xFF"); $x->precision(2); $y = Math::BigInt->new("0xFFF"); $x->$f($y); ok 658 - is a valid object ok 659 - $x->{_p} == 2 ok 660 - $x->{_a} is undef ok 661 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFFF"); $y->precision(2); $x->$f($y); ok 662 - is a valid object ok 663 - $x->{_p} == 2 ok 664 - $x->{_a} is undef ok 665 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x->$f($y); ok 666 - is a valid object ok 667 - $x = Math::BigInt->new("1234"); $x->accuracy(1); $y = Math::BigInt->new("0"); $x->$f($y); ok 668 - is a valid object ok 669 - $x->{_a} == 1 ok 670 - $x->{_p} is undef ok 671 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->accuracy(1); $x->$f($y); ok 672 - is a valid object ok 673 - $x->{_a} == 1 ok 674 - $x->{_p} is undef ok 675 - $x = Math::BigInt->new("1234"); $x->precision(3); $y = Math::BigInt->new("0"); $x->$f($y); ok 676 - is a valid object ok 677 - $x->{_p} == 3 ok 678 - $x->{_a} is undef ok 679 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); $y->precision(3); $x->$f($y); ok 680 - is a valid object ok 681 - $x->{_p} == 3 ok 682 - $x->{_a} is undef ok 683 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0x10"); $x->$f($y); ok 684 - is a valid object ok 685 - $x = Math::BigInt->new("250"); $x->accuracy(2); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 686 - is a valid object ok 687 - $x->{_a} == 2 ok 688 - $x->{_p} is undef ok 689 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("250"); $y->accuracy(2); $x->$f($y); ok 690 - is a valid object ok 691 - $x->{_a} == 2 ok 692 - $x->{_p} is undef ok 693 - $x = Math::BigInt->new("0xFF"); $x->precision(1); $y = Math::BigInt->new("0xFF"); $x->$f($y); ok 694 - is a valid object ok 695 - $x->{_p} == 1 ok 696 - $x->{_a} is undef ok 697 - $x = Math::BigInt->new("0xFF"); $y = Math::BigInt->new("0xFF"); $y->precision(1); $x->$f($y); ok 698 - is a valid object ok 699 - $x->{_p} == 1 ok 700 - $x->{_a} is undef ok 701 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x->$f($y); ok 702 - is a valid object ok 703 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x->$f($y); ok 704 - is a valid object ok 705 - $x = Math::BigInt->new("2"); $x->accuracy(2); $y = Math::BigInt->new("0"); $x->$f($y); ok 706 - is a valid object ok 707 - $x->{_a} == 2 ok 708 - $x->{_p} is undef ok 709 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $y->accuracy(2); $x->$f($y); ok 710 - is a valid object ok 711 - $x->{_a} == 2 ok 712 - $x->{_p} is undef ok 713 - $Math::BigInt::rnd_mode = "even" ok 714 - $Math::BigFloat::rnd_mode = "even" ok 715 - $mbi->round_mode("huhmbi") ok 716 - $mbf->round_mode("huhmbf") ok 717 - $Math::BigInt::rnd_mode = "huhmbi" ok 718 - $Math::BigFloat::rnd_mode = "huhmbf" ok 719 - $Math::BigInt::rnd_mode = "odd" ok 720 - $Math::BigInt::rnd_mode = "odd" ok 721 - set A ... ok 722 - ... and now P must be cleared ok 723 - set P ... ok 724 - ... and now A must be cleared ok 725 - set A ... ok 726 - ... and now P must be cleared ok 727 - set P ... ok 728 - ... and now A must be cleared ok 729 - $x has A of 42 ok 730 - $x has A from global ok 731 - $x has still A of 42 ok 732 - $x has A of 42 ok 733 - $x has A from global ok 734 - $x has still A of 42 ok 735 - bug with blog(Math::BigFloat, Math::BigInt) ok 736 - $x->bsqrt() with many digits ok 737 - $x->bsqrt() with many digits ok 738 - $x->bsqrt() with many digits ok t/nan_cmp.t ................................... 1..26 ok 1 - Math::BigInt->bone() == Math::BigInt->bone() ok 2 - Math::BigInt->bone() != Math::BigInt->bnan() ok 3 - Math::BigInt->bnan() != Math::BigInt->bone() ok 4 - Math::BigInt->bnan() != Math::BigInt->bnan() ok 5 - Math::BigInt->bnan() == Math::BigInt->bone() ok 6 - Math::BigInt->bone() == Math::BigInt->bnan() ok 7 - Math::BigInt->bnan() == Math::BigInt->bnan() ok 8 - Math::BigInt->bnan() <= Math::BigInt->bone() ok 9 - Math::BigInt->bone() <= Math::BigInt->bnan() ok 10 - Math::BigInt->bnan() <= Math::BigInt->bnan() ok 11 - Math::BigInt->bnan() >= Math::BigInt->bone() ok 12 - Math::BigInt->bone() >= Math::BigInt->bnan() ok 13 - Math::BigInt->bnan() >= Math::BigInt->bnan() ok 14 - Math::BigFloat->bone() == Math::BigFloat->bone() ok 15 - Math::BigFloat->bone() != Math::BigFloat->bnan() ok 16 - Math::BigFloat->bnan() != Math::BigFloat->bone() ok 17 - Math::BigFloat->bnan() != Math::BigFloat->bnan() ok 18 - Math::BigFloat->bnan() == Math::BigFloat->bone() ok 19 - Math::BigFloat->bone() == Math::BigFloat->bnan() ok 20 - Math::BigFloat->bnan() == Math::BigFloat->bnan() ok 21 - Math::BigFloat->bnan() <= Math::BigFloat->bone() ok 22 - Math::BigFloat->bone() <= Math::BigFloat->bnan() ok 23 - Math::BigFloat->bnan() <= Math::BigFloat->bnan() ok 24 - Math::BigFloat->bnan() >= Math::BigFloat->bone() ok 25 - Math::BigFloat->bone() >= Math::BigFloat->bnan() ok 26 - Math::BigFloat->bnan() >= Math::BigFloat->bnan() ok t/new-mbf.t ................................... 1..50 ok 1 - use Math::BigFloat; # Subtest: $x = Math::BigFloat -> new("NaN"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 2 - $x = Math::BigFloat -> new("NaN"); # Subtest: $x = Math::BigFloat -> new("inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 3 - $x = Math::BigFloat -> new("inf"); # Subtest: $x = Math::BigFloat -> new("infinity"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 4 - $x = Math::BigFloat -> new("infinity"); # Subtest: $x = Math::BigFloat -> new("+inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 5 - $x = Math::BigFloat -> new("+inf"); # Subtest: $x = Math::BigFloat -> new("+infinity"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 6 - $x = Math::BigFloat -> new("+infinity"); # Subtest: $x = Math::BigFloat -> new("-inf"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 7 - $x = Math::BigFloat -> new("-inf"); # Subtest: $x = Math::BigFloat -> new("-infinity"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 8 - $x = Math::BigFloat -> new("-infinity"); # Subtest: $x = Math::BigFloat -> new("0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 9 - $x = Math::BigFloat -> new("0x1p+0"); # Subtest: $x = Math::BigFloat -> new("0x.8p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 10 - $x = Math::BigFloat -> new("0x.8p+1"); # Subtest: $x = Math::BigFloat -> new("0x.4p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 11 - $x = Math::BigFloat -> new("0x.4p+2"); # Subtest: $x = Math::BigFloat -> new("0x.2p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 12 - $x = Math::BigFloat -> new("0x.2p+3"); # Subtest: $x = Math::BigFloat -> new("0x.1p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 13 - $x = Math::BigFloat -> new("0x.1p+4"); # Subtest: $x = Math::BigFloat -> new("0x2p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 14 - $x = Math::BigFloat -> new("0x2p-1"); # Subtest: $x = Math::BigFloat -> new("0x4p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 15 - $x = Math::BigFloat -> new("0x4p-2"); # Subtest: $x = Math::BigFloat -> new("0x8p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 16 - $x = Math::BigFloat -> new("0x8p-3"); # Subtest: $x = Math::BigFloat -> new("-0x1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 17 - $x = Math::BigFloat -> new("-0x1p+0"); # Subtest: $x = Math::BigFloat -> new("0x0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 18 - $x = Math::BigFloat -> new("0x0p+0"); # Subtest: $x = Math::BigFloat -> new("0x0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 19 - $x = Math::BigFloat -> new("0x0p+7"); # Subtest: $x = Math::BigFloat -> new("0x0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 20 - $x = Math::BigFloat -> new("0x0p-7"); # Subtest: $x = Math::BigFloat -> new("0x0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 21 - $x = Math::BigFloat -> new("0x0.p+0"); # Subtest: $x = Math::BigFloat -> new("0x.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 22 - $x = Math::BigFloat -> new("0x.0p+0"); # Subtest: $x = Math::BigFloat -> new("0x0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 23 - $x = Math::BigFloat -> new("0x0.0p+0"); # Subtest: $x = Math::BigFloat -> new("0xcafe"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 24 - $x = Math::BigFloat -> new("0xcafe"); # Subtest: $x = Math::BigFloat -> new("0x1.9p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 25 - $x = Math::BigFloat -> new("0x1.9p+3"); # Subtest: $x = Math::BigFloat -> new("0x12.34p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 26 - $x = Math::BigFloat -> new("0x12.34p-1"); # Subtest: $x = Math::BigFloat -> new("-0x.789abcdefp+32"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 27 - $x = Math::BigFloat -> new("-0x.789abcdefp+32"); # Subtest: $x = Math::BigFloat -> new("0x12.3456789ap+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 28 - $x = Math::BigFloat -> new("0x12.3456789ap+31"); # Subtest: $x = Math::BigFloat -> new("0x.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 29 - $x = Math::BigFloat -> new("0x.p+0"); # Subtest: $x = Math::BigFloat -> new("0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 30 - $x = Math::BigFloat -> new("0b1p+0"); # Subtest: $x = Math::BigFloat -> new("0b.1p+1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 31 - $x = Math::BigFloat -> new("0b.1p+1"); # Subtest: $x = Math::BigFloat -> new("0b.01p+2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 32 - $x = Math::BigFloat -> new("0b.01p+2"); # Subtest: $x = Math::BigFloat -> new("0b.001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 33 - $x = Math::BigFloat -> new("0b.001p+3"); # Subtest: $x = Math::BigFloat -> new("0b.0001p+4"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 34 - $x = Math::BigFloat -> new("0b.0001p+4"); # Subtest: $x = Math::BigFloat -> new("0b10p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 35 - $x = Math::BigFloat -> new("0b10p-1"); # Subtest: $x = Math::BigFloat -> new("0b100p-2"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 36 - $x = Math::BigFloat -> new("0b100p-2"); # Subtest: $x = Math::BigFloat -> new("0b1000p-3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 37 - $x = Math::BigFloat -> new("0b1000p-3"); # Subtest: $x = Math::BigFloat -> new("-0b1p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 38 - $x = Math::BigFloat -> new("-0b1p+0"); # Subtest: $x = Math::BigFloat -> new("0b0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 39 - $x = Math::BigFloat -> new("0b0p+0"); # Subtest: $x = Math::BigFloat -> new("0b0p+7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 40 - $x = Math::BigFloat -> new("0b0p+7"); # Subtest: $x = Math::BigFloat -> new("0b0p-7"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 41 - $x = Math::BigFloat -> new("0b0p-7"); # Subtest: $x = Math::BigFloat -> new("0b0.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 42 - $x = Math::BigFloat -> new("0b0.p+0"); # Subtest: $x = Math::BigFloat -> new("0b.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 43 - $x = Math::BigFloat -> new("0b.0p+0"); # Subtest: $x = Math::BigFloat -> new("0b0.0p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 44 - $x = Math::BigFloat -> new("0b0.0p+0"); # Subtest: $x = Math::BigFloat -> new("0b1100101011111110"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 45 - $x = Math::BigFloat -> new("0b1100101011111110"); # Subtest: $x = Math::BigFloat -> new("0b1.1001p+3"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 46 - $x = Math::BigFloat -> new("0b1.1001p+3"); # Subtest: $x = Math::BigFloat -> new("0b10010.001101p-1"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 47 - $x = Math::BigFloat -> new("0b10010.001101p-1"); # Subtest: $x = Math::BigFloat -> new("-0b.11110001001101010111100110111101111p+31"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 48 - $x = Math::BigFloat -> new("-0b.11110001001101010111100110111101111p+31"); # Subtest: $x = Math::BigFloat -> new("0b10.0100011010001010110011110001001101p+34"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 49 - $x = Math::BigFloat -> new("0b10.0100011010001010110011110001001101p+34"); # Subtest: $x = Math::BigFloat -> new("0b.p+0"); ok 1 - output arg is a Math::BigFloat 1..2 ok 2 - output arg has the right value ok 50 - $x = Math::BigFloat -> new("0b.p+0"); ok t/new_overloaded.t ............................ 1..4 ok 1 - Overloaded::Num->new(2.23) ok 2 - Math::BigFloat->new() accepts overloaded numbers ok 3 - Math::BigInt->new() accepts overloaded numbers ok 4 - Math::BigFloat->new() accepts a Math::BigInt ok t/nparts-mbf.t ................................ 1..1840 # # $x = Math::BigFloat -> new("NaN"); ($m, $e) = $x -> nparts(); # ok 1 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 2 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigFloat -> new("NaN"); $m = $x -> nparts(); # ok 6 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigFloat -> new("inf"); ($m, $e) = $x -> nparts(); # ok 9 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 10 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigFloat -> new("inf"); $m = $x -> nparts(); # ok 14 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); ($m, $e) = $x -> nparts(); # ok 17 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 18 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); $m = $x -> nparts(); # ok 22 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigFloat -> new("0"); ($m, $e) = $x -> nparts(); # ok 25 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 26 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigFloat -> new("0"); $m = $x -> nparts(); # ok 30 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); ($m, $e) = $x -> nparts(); # ok 33 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 34 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $m = $x -> nparts(); # ok 38 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); ($m, $e) = $x -> nparts(); # ok 41 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 42 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $m = $x -> nparts(); # ok 46 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); ($m, $e) = $x -> nparts(); # ok 49 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 50 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $m = $x -> nparts(); # ok 54 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); ($m, $e) = $x -> nparts(); # ok 57 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 58 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $m = $x -> nparts(); # ok 62 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); ($m, $e) = $x -> nparts(); # ok 65 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 66 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $m = $x -> nparts(); # ok 70 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); ($m, $e) = $x -> nparts(); # ok 73 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 74 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $m = $x -> nparts(); # ok 78 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); ($m, $e) = $x -> nparts(); # ok 81 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 82 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); $m = $x -> nparts(); # ok 86 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); ($m, $e) = $x -> nparts(); # ok 89 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 90 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); $m = $x -> nparts(); # ok 94 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); ($m, $e) = $x -> nparts(); # ok 97 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 98 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); $m = $x -> nparts(); # ok 102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); ($m, $e) = $x -> nparts(); # ok 105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); $m = $x -> nparts(); # ok 110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); ($m, $e) = $x -> nparts(); # ok 113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); $m = $x -> nparts(); # ok 118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); ($m, $e) = $x -> nparts(); # ok 121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); $m = $x -> nparts(); # ok 126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigFloat -> new("1"); ($m, $e) = $x -> nparts(); # ok 129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigFloat -> new("1"); $m = $x -> nparts(); # ok 134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigFloat -> new("10"); ($m, $e) = $x -> nparts(); # ok 137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigFloat -> new("10"); $m = $x -> nparts(); # ok 142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigFloat -> new("100"); ($m, $e) = $x -> nparts(); # ok 145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigFloat -> new("100"); $m = $x -> nparts(); # ok 150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigFloat -> new("1000"); ($m, $e) = $x -> nparts(); # ok 153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigFloat -> new("1000"); $m = $x -> nparts(); # ok 158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigFloat -> new("10000"); ($m, $e) = $x -> nparts(); # ok 161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigFloat -> new("10000"); $m = $x -> nparts(); # ok 166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigFloat -> new("100000"); ($m, $e) = $x -> nparts(); # ok 169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigFloat -> new("100000"); $m = $x -> nparts(); # ok 174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); ($m, $e) = $x -> nparts(); # ok 177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); $m = $x -> nparts(); # ok 182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); ($m, $e) = $x -> nparts(); # ok 185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); $m = $x -> nparts(); # ok 190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); ($m, $e) = $x -> nparts(); # ok 193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); $m = $x -> nparts(); # ok 198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); ($m, $e) = $x -> nparts(); # ok 201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); $m = $x -> nparts(); # ok 206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); ($m, $e) = $x -> nparts(); # ok 209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); $m = $x -> nparts(); # ok 214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); ($m, $e) = $x -> nparts(); # ok 217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); $m = $x -> nparts(); # ok 222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); ($m, $e) = $x -> nparts(); # ok 225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $m = $x -> nparts(); # ok 230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); ($m, $e) = $x -> nparts(); # ok 233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $m = $x -> nparts(); # ok 238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); ($m, $e) = $x -> nparts(); # ok 241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $m = $x -> nparts(); # ok 246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); ($m, $e) = $x -> nparts(); # ok 249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $m = $x -> nparts(); # ok 254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); ($m, $e) = $x -> nparts(); # ok 257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $m = $x -> nparts(); # ok 262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); ($m, $e) = $x -> nparts(); # ok 265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $m = $x -> nparts(); # ok 270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); ($m, $e) = $x -> nparts(); # ok 273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $m = $x -> nparts(); # ok 278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); ($m, $e) = $x -> nparts(); # ok 281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $m = $x -> nparts(); # ok 286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); ($m, $e) = $x -> nparts(); # ok 289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); $m = $x -> nparts(); # ok 294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); ($m, $e) = $x -> nparts(); # ok 297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); $m = $x -> nparts(); # ok 302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); ($m, $e) = $x -> nparts(); # ok 305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); $m = $x -> nparts(); # ok 310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); ($m, $e) = $x -> nparts(); # ok 313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); $m = $x -> nparts(); # ok 318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); ($m, $e) = $x -> nparts(); # ok 321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); $m = $x -> nparts(); # ok 326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); ($m, $e) = $x -> nparts(); # ok 329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); $m = $x -> nparts(); # ok 334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigFloat -> new("12"); ($m, $e) = $x -> nparts(); # ok 337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigFloat -> new("12"); $m = $x -> nparts(); # ok 342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigFloat -> new("120"); ($m, $e) = $x -> nparts(); # ok 345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigFloat -> new("120"); $m = $x -> nparts(); # ok 350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigFloat -> new("1200"); ($m, $e) = $x -> nparts(); # ok 353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigFloat -> new("1200"); $m = $x -> nparts(); # ok 358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigFloat -> new("12000"); ($m, $e) = $x -> nparts(); # ok 361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigFloat -> new("12000"); $m = $x -> nparts(); # ok 366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigFloat -> new("120000"); ($m, $e) = $x -> nparts(); # ok 369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigFloat -> new("120000"); $m = $x -> nparts(); # ok 374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); ($m, $e) = $x -> nparts(); # ok 377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); $m = $x -> nparts(); # ok 382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); ($m, $e) = $x -> nparts(); # ok 385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); $m = $x -> nparts(); # ok 390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); ($m, $e) = $x -> nparts(); # ok 393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); $m = $x -> nparts(); # ok 398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); ($m, $e) = $x -> nparts(); # ok 401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); $m = $x -> nparts(); # ok 406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); ($m, $e) = $x -> nparts(); # ok 409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); $m = $x -> nparts(); # ok 414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); ($m, $e) = $x -> nparts(); # ok 417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); $m = $x -> nparts(); # ok 422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); ($m, $e) = $x -> nparts(); # ok 425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $m = $x -> nparts(); # ok 430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); ($m, $e) = $x -> nparts(); # ok 433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $m = $x -> nparts(); # ok 438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); ($m, $e) = $x -> nparts(); # ok 441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $m = $x -> nparts(); # ok 446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); ($m, $e) = $x -> nparts(); # ok 449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $m = $x -> nparts(); # ok 454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); ($m, $e) = $x -> nparts(); # ok 457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $m = $x -> nparts(); # ok 462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); ($m, $e) = $x -> nparts(); # ok 465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $m = $x -> nparts(); # ok 470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); ($m, $e) = $x -> nparts(); # ok 473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $m = $x -> nparts(); # ok 478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); ($m, $e) = $x -> nparts(); # ok 481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $m = $x -> nparts(); # ok 486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); ($m, $e) = $x -> nparts(); # ok 489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $m = $x -> nparts(); # ok 494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); ($m, $e) = $x -> nparts(); # ok 497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); $m = $x -> nparts(); # ok 502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); ($m, $e) = $x -> nparts(); # ok 505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); $m = $x -> nparts(); # ok 510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); ($m, $e) = $x -> nparts(); # ok 513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); $m = $x -> nparts(); # ok 518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); ($m, $e) = $x -> nparts(); # ok 521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); $m = $x -> nparts(); # ok 526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); ($m, $e) = $x -> nparts(); # ok 529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); $m = $x -> nparts(); # ok 534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); ($m, $e) = $x -> nparts(); # ok 537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); $m = $x -> nparts(); # ok 542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigFloat -> new("123"); ($m, $e) = $x -> nparts(); # ok 545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigFloat -> new("123"); $m = $x -> nparts(); # ok 550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigFloat -> new("1230"); ($m, $e) = $x -> nparts(); # ok 553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigFloat -> new("1230"); $m = $x -> nparts(); # ok 558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigFloat -> new("12300"); ($m, $e) = $x -> nparts(); # ok 561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigFloat -> new("12300"); $m = $x -> nparts(); # ok 566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigFloat -> new("123000"); ($m, $e) = $x -> nparts(); # ok 569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigFloat -> new("123000"); $m = $x -> nparts(); # ok 574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); ($m, $e) = $x -> nparts(); # ok 577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); $m = $x -> nparts(); # ok 582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); ($m, $e) = $x -> nparts(); # ok 585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); $m = $x -> nparts(); # ok 590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); ($m, $e) = $x -> nparts(); # ok 593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); $m = $x -> nparts(); # ok 598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); ($m, $e) = $x -> nparts(); # ok 601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); $m = $x -> nparts(); # ok 606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); ($m, $e) = $x -> nparts(); # ok 609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); $m = $x -> nparts(); # ok 614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); ($m, $e) = $x -> nparts(); # ok 617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); $m = $x -> nparts(); # ok 622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); ($m, $e) = $x -> nparts(); # ok 625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $m = $x -> nparts(); # ok 630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); ($m, $e) = $x -> nparts(); # ok 633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $m = $x -> nparts(); # ok 638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); ($m, $e) = $x -> nparts(); # ok 641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $m = $x -> nparts(); # ok 646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); ($m, $e) = $x -> nparts(); # ok 649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $m = $x -> nparts(); # ok 654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); ($m, $e) = $x -> nparts(); # ok 657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $m = $x -> nparts(); # ok 662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); ($m, $e) = $x -> nparts(); # ok 665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $m = $x -> nparts(); # ok 670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); ($m, $e) = $x -> nparts(); # ok 673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $m = $x -> nparts(); # ok 678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); ($m, $e) = $x -> nparts(); # ok 681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $m = $x -> nparts(); # ok 686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); ($m, $e) = $x -> nparts(); # ok 689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $m = $x -> nparts(); # ok 694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); ($m, $e) = $x -> nparts(); # ok 697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $m = $x -> nparts(); # ok 702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); ($m, $e) = $x -> nparts(); # ok 705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); $m = $x -> nparts(); # ok 710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); ($m, $e) = $x -> nparts(); # ok 713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); $m = $x -> nparts(); # ok 718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); ($m, $e) = $x -> nparts(); # ok 721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); $m = $x -> nparts(); # ok 726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); ($m, $e) = $x -> nparts(); # ok 729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); $m = $x -> nparts(); # ok 734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); ($m, $e) = $x -> nparts(); # ok 737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); $m = $x -> nparts(); # ok 742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); ($m, $e) = $x -> nparts(); # ok 745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); $m = $x -> nparts(); # ok 750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigFloat -> new("1234"); ($m, $e) = $x -> nparts(); # ok 753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigFloat -> new("1234"); $m = $x -> nparts(); # ok 758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigFloat -> new("12340"); ($m, $e) = $x -> nparts(); # ok 761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigFloat -> new("12340"); $m = $x -> nparts(); # ok 766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigFloat -> new("123400"); ($m, $e) = $x -> nparts(); # ok 769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigFloat -> new("123400"); $m = $x -> nparts(); # ok 774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); ($m, $e) = $x -> nparts(); # ok 777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); $m = $x -> nparts(); # ok 782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 783 - value of mantissa ok 784 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); ($m, $e) = $x -> nparts(); # ok 785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 787 - value of mantissa ok 788 - value of exponent ok 789 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); $m = $x -> nparts(); # ok 790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 791 - value of mantissa ok 792 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); ($m, $e) = $x -> nparts(); # ok 793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 795 - value of mantissa ok 796 - value of exponent ok 797 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); $m = $x -> nparts(); # ok 798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 799 - value of mantissa ok 800 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); ($m, $e) = $x -> nparts(); # ok 801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 803 - value of mantissa ok 804 - value of exponent ok 805 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); $m = $x -> nparts(); # ok 806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 807 - value of mantissa ok 808 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); ($m, $e) = $x -> nparts(); # ok 809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 811 - value of mantissa ok 812 - value of exponent ok 813 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); $m = $x -> nparts(); # ok 814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 815 - value of mantissa ok 816 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); ($m, $e) = $x -> nparts(); # ok 817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 819 - value of mantissa ok 820 - value of exponent ok 821 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); $m = $x -> nparts(); # ok 822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 823 - value of mantissa ok 824 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); ($m, $e) = $x -> nparts(); # ok 825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 827 - value of mantissa ok 828 - value of exponent ok 829 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $m = $x -> nparts(); # ok 830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 831 - value of mantissa ok 832 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); ($m, $e) = $x -> nparts(); # ok 833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 835 - value of mantissa ok 836 - value of exponent ok 837 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $m = $x -> nparts(); # ok 838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 839 - value of mantissa ok 840 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); ($m, $e) = $x -> nparts(); # ok 841 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 842 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 843 - value of mantissa ok 844 - value of exponent ok 845 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $m = $x -> nparts(); # ok 846 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 847 - value of mantissa ok 848 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); ($m, $e) = $x -> nparts(); # ok 849 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 850 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 851 - value of mantissa ok 852 - value of exponent ok 853 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $m = $x -> nparts(); # ok 854 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 855 - value of mantissa ok 856 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); ($m, $e) = $x -> nparts(); # ok 857 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 858 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 859 - value of mantissa ok 860 - value of exponent ok 861 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $m = $x -> nparts(); # ok 862 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 863 - value of mantissa ok 864 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); ($m, $e) = $x -> nparts(); # ok 865 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 866 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 867 - value of mantissa ok 868 - value of exponent ok 869 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $m = $x -> nparts(); # ok 870 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 871 - value of mantissa ok 872 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); ($m, $e) = $x -> nparts(); # ok 873 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 874 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 875 - value of mantissa ok 876 - value of exponent ok 877 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $m = $x -> nparts(); # ok 878 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 879 - value of mantissa ok 880 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); ($m, $e) = $x -> nparts(); # ok 881 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 882 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 883 - value of mantissa ok 884 - value of exponent ok 885 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); $m = $x -> nparts(); # ok 886 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 887 - value of mantissa ok 888 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); ($m, $e) = $x -> nparts(); # ok 889 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 890 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 891 - value of mantissa ok 892 - value of exponent ok 893 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); $m = $x -> nparts(); # ok 894 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 895 - value of mantissa ok 896 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); ($m, $e) = $x -> nparts(); # ok 897 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 898 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 899 - value of mantissa ok 900 - value of exponent ok 901 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); $m = $x -> nparts(); # ok 902 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 903 - value of mantissa ok 904 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); ($m, $e) = $x -> nparts(); # ok 905 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 906 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 907 - value of mantissa ok 908 - value of exponent ok 909 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); $m = $x -> nparts(); # ok 910 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 911 - value of mantissa ok 912 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); ($m, $e) = $x -> nparts(); # ok 913 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 914 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 915 - value of mantissa ok 916 - value of exponent ok 917 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); $m = $x -> nparts(); # ok 918 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 919 - value of mantissa ok 920 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); ($m, $e) = $x -> nparts(); # ok 921 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 922 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 923 - value of mantissa ok 924 - value of exponent ok 925 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); $m = $x -> nparts(); # ok 926 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 927 - value of mantissa ok 928 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); ($m, $e) = $x -> nparts(); # ok 929 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 930 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 931 - value of mantissa ok 932 - value of exponent ok 933 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); $m = $x -> nparts(); # ok 934 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 935 - value of mantissa ok 936 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); ($m, $e) = $x -> nparts(); # ok 937 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 938 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 939 - value of mantissa ok 940 - value of exponent ok 941 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $m = $x -> nparts(); # ok 942 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 943 - value of mantissa ok 944 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); ($m, $e) = $x -> nparts(); # ok 945 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 946 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 947 - value of mantissa ok 948 - value of exponent ok 949 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $m = $x -> nparts(); # ok 950 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 951 - value of mantissa ok 952 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); ($m, $e) = $x -> nparts(); # ok 953 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 954 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 955 - value of mantissa ok 956 - value of exponent ok 957 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $m = $x -> nparts(); # ok 958 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 959 - value of mantissa ok 960 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); ($m, $e) = $x -> nparts(); # ok 961 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 962 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 963 - value of mantissa ok 964 - value of exponent ok 965 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $m = $x -> nparts(); # ok 966 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 967 - value of mantissa ok 968 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); ($m, $e) = $x -> nparts(); # ok 969 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 970 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 971 - value of mantissa ok 972 - value of exponent ok 973 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $m = $x -> nparts(); # ok 974 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 975 - value of mantissa ok 976 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); ($m, $e) = $x -> nparts(); # ok 977 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 978 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 979 - value of mantissa ok 980 - value of exponent ok 981 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $m = $x -> nparts(); # ok 982 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 983 - value of mantissa ok 984 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); ($m, $e) = $x -> nparts(); # ok 985 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 986 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 987 - value of mantissa ok 988 - value of exponent ok 989 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $m = $x -> nparts(); # ok 990 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 991 - value of mantissa ok 992 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); ($m, $e) = $x -> nparts(); # ok 993 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 994 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 995 - value of mantissa ok 996 - value of exponent ok 997 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $m = $x -> nparts(); # ok 998 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 999 - value of mantissa ok 1000 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); ($m, $e) = $x -> nparts(); # ok 1001 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1002 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1003 - value of mantissa ok 1004 - value of exponent ok 1005 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $m = $x -> nparts(); # ok 1006 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1007 - value of mantissa ok 1008 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); ($m, $e) = $x -> nparts(); # ok 1009 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1010 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1011 - value of mantissa ok 1012 - value of exponent ok 1013 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); $m = $x -> nparts(); # ok 1014 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1015 - value of mantissa ok 1016 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); ($m, $e) = $x -> nparts(); # ok 1017 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1018 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1019 - value of mantissa ok 1020 - value of exponent ok 1021 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); $m = $x -> nparts(); # ok 1022 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1023 - value of mantissa ok 1024 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); ($m, $e) = $x -> nparts(); # ok 1025 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1026 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1027 - value of mantissa ok 1028 - value of exponent ok 1029 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); $m = $x -> nparts(); # ok 1030 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1031 - value of mantissa ok 1032 - input is unmodified # # $x = Math::BigFloat -> new("-1"); ($m, $e) = $x -> nparts(); # ok 1033 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1034 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1035 - value of mantissa ok 1036 - value of exponent ok 1037 - input is unmodified # # $x = Math::BigFloat -> new("-1"); $m = $x -> nparts(); # ok 1038 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1039 - value of mantissa ok 1040 - input is unmodified # # $x = Math::BigFloat -> new("-10"); ($m, $e) = $x -> nparts(); # ok 1041 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1042 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1043 - value of mantissa ok 1044 - value of exponent ok 1045 - input is unmodified # # $x = Math::BigFloat -> new("-10"); $m = $x -> nparts(); # ok 1046 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1047 - value of mantissa ok 1048 - input is unmodified # # $x = Math::BigFloat -> new("-100"); ($m, $e) = $x -> nparts(); # ok 1049 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1050 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1051 - value of mantissa ok 1052 - value of exponent ok 1053 - input is unmodified # # $x = Math::BigFloat -> new("-100"); $m = $x -> nparts(); # ok 1054 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1055 - value of mantissa ok 1056 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); ($m, $e) = $x -> nparts(); # ok 1057 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1058 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1059 - value of mantissa ok 1060 - value of exponent ok 1061 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); $m = $x -> nparts(); # ok 1062 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1063 - value of mantissa ok 1064 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); ($m, $e) = $x -> nparts(); # ok 1065 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1066 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1067 - value of mantissa ok 1068 - value of exponent ok 1069 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); $m = $x -> nparts(); # ok 1070 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1071 - value of mantissa ok 1072 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); ($m, $e) = $x -> nparts(); # ok 1073 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1074 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1075 - value of mantissa ok 1076 - value of exponent ok 1077 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); $m = $x -> nparts(); # ok 1078 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1079 - value of mantissa ok 1080 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); ($m, $e) = $x -> nparts(); # ok 1081 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1082 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1083 - value of mantissa ok 1084 - value of exponent ok 1085 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); $m = $x -> nparts(); # ok 1086 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1087 - value of mantissa ok 1088 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); ($m, $e) = $x -> nparts(); # ok 1089 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1090 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1091 - value of mantissa ok 1092 - value of exponent ok 1093 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); $m = $x -> nparts(); # ok 1094 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1095 - value of mantissa ok 1096 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); ($m, $e) = $x -> nparts(); # ok 1097 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1098 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1099 - value of mantissa ok 1100 - value of exponent ok 1101 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); $m = $x -> nparts(); # ok 1102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1103 - value of mantissa ok 1104 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); ($m, $e) = $x -> nparts(); # ok 1105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1107 - value of mantissa ok 1108 - value of exponent ok 1109 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $m = $x -> nparts(); # ok 1110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1111 - value of mantissa ok 1112 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); ($m, $e) = $x -> nparts(); # ok 1113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1115 - value of mantissa ok 1116 - value of exponent ok 1117 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $m = $x -> nparts(); # ok 1118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1119 - value of mantissa ok 1120 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); ($m, $e) = $x -> nparts(); # ok 1121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1123 - value of mantissa ok 1124 - value of exponent ok 1125 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $m = $x -> nparts(); # ok 1126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1127 - value of mantissa ok 1128 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); ($m, $e) = $x -> nparts(); # ok 1129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1131 - value of mantissa ok 1132 - value of exponent ok 1133 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $m = $x -> nparts(); # ok 1134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1135 - value of mantissa ok 1136 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); ($m, $e) = $x -> nparts(); # ok 1137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1139 - value of mantissa ok 1140 - value of exponent ok 1141 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $m = $x -> nparts(); # ok 1142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1143 - value of mantissa ok 1144 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); ($m, $e) = $x -> nparts(); # ok 1145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1147 - value of mantissa ok 1148 - value of exponent ok 1149 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $m = $x -> nparts(); # ok 1150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1151 - value of mantissa ok 1152 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); ($m, $e) = $x -> nparts(); # ok 1153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1155 - value of mantissa ok 1156 - value of exponent ok 1157 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $m = $x -> nparts(); # ok 1158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1159 - value of mantissa ok 1160 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); ($m, $e) = $x -> nparts(); # ok 1161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1163 - value of mantissa ok 1164 - value of exponent ok 1165 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $m = $x -> nparts(); # ok 1166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1167 - value of mantissa ok 1168 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); ($m, $e) = $x -> nparts(); # ok 1169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1171 - value of mantissa ok 1172 - value of exponent ok 1173 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $m = $x -> nparts(); # ok 1174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1175 - value of mantissa ok 1176 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); ($m, $e) = $x -> nparts(); # ok 1177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1179 - value of mantissa ok 1180 - value of exponent ok 1181 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $m = $x -> nparts(); # ok 1182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1183 - value of mantissa ok 1184 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); ($m, $e) = $x -> nparts(); # ok 1185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1187 - value of mantissa ok 1188 - value of exponent ok 1189 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $m = $x -> nparts(); # ok 1190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1191 - value of mantissa ok 1192 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); ($m, $e) = $x -> nparts(); # ok 1193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1195 - value of mantissa ok 1196 - value of exponent ok 1197 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $m = $x -> nparts(); # ok 1198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1199 - value of mantissa ok 1200 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); ($m, $e) = $x -> nparts(); # ok 1201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1203 - value of mantissa ok 1204 - value of exponent ok 1205 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $m = $x -> nparts(); # ok 1206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1207 - value of mantissa ok 1208 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); ($m, $e) = $x -> nparts(); # ok 1209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1211 - value of mantissa ok 1212 - value of exponent ok 1213 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $m = $x -> nparts(); # ok 1214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1215 - value of mantissa ok 1216 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); ($m, $e) = $x -> nparts(); # ok 1217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1219 - value of mantissa ok 1220 - value of exponent ok 1221 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); $m = $x -> nparts(); # ok 1222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1223 - value of mantissa ok 1224 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); ($m, $e) = $x -> nparts(); # ok 1225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1227 - value of mantissa ok 1228 - value of exponent ok 1229 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); $m = $x -> nparts(); # ok 1230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1231 - value of mantissa ok 1232 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); ($m, $e) = $x -> nparts(); # ok 1233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1235 - value of mantissa ok 1236 - value of exponent ok 1237 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); $m = $x -> nparts(); # ok 1238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1239 - value of mantissa ok 1240 - input is unmodified # # $x = Math::BigFloat -> new("-12"); ($m, $e) = $x -> nparts(); # ok 1241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1243 - value of mantissa ok 1244 - value of exponent ok 1245 - input is unmodified # # $x = Math::BigFloat -> new("-12"); $m = $x -> nparts(); # ok 1246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1247 - value of mantissa ok 1248 - input is unmodified # # $x = Math::BigFloat -> new("-120"); ($m, $e) = $x -> nparts(); # ok 1249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1251 - value of mantissa ok 1252 - value of exponent ok 1253 - input is unmodified # # $x = Math::BigFloat -> new("-120"); $m = $x -> nparts(); # ok 1254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1255 - value of mantissa ok 1256 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); ($m, $e) = $x -> nparts(); # ok 1257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1259 - value of mantissa ok 1260 - value of exponent ok 1261 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); $m = $x -> nparts(); # ok 1262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1263 - value of mantissa ok 1264 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); ($m, $e) = $x -> nparts(); # ok 1265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1267 - value of mantissa ok 1268 - value of exponent ok 1269 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); $m = $x -> nparts(); # ok 1270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1271 - value of mantissa ok 1272 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); ($m, $e) = $x -> nparts(); # ok 1273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1275 - value of mantissa ok 1276 - value of exponent ok 1277 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); $m = $x -> nparts(); # ok 1278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1279 - value of mantissa ok 1280 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); ($m, $e) = $x -> nparts(); # ok 1281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1283 - value of mantissa ok 1284 - value of exponent ok 1285 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); $m = $x -> nparts(); # ok 1286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1287 - value of mantissa ok 1288 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); ($m, $e) = $x -> nparts(); # ok 1289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1291 - value of mantissa ok 1292 - value of exponent ok 1293 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); $m = $x -> nparts(); # ok 1294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1295 - value of mantissa ok 1296 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); ($m, $e) = $x -> nparts(); # ok 1297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1299 - value of mantissa ok 1300 - value of exponent ok 1301 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); $m = $x -> nparts(); # ok 1302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1303 - value of mantissa ok 1304 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); ($m, $e) = $x -> nparts(); # ok 1305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1307 - value of mantissa ok 1308 - value of exponent ok 1309 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $m = $x -> nparts(); # ok 1310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1311 - value of mantissa ok 1312 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); ($m, $e) = $x -> nparts(); # ok 1313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1315 - value of mantissa ok 1316 - value of exponent ok 1317 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $m = $x -> nparts(); # ok 1318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1319 - value of mantissa ok 1320 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); ($m, $e) = $x -> nparts(); # ok 1321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1323 - value of mantissa ok 1324 - value of exponent ok 1325 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $m = $x -> nparts(); # ok 1326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1327 - value of mantissa ok 1328 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); ($m, $e) = $x -> nparts(); # ok 1329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1331 - value of mantissa ok 1332 - value of exponent ok 1333 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $m = $x -> nparts(); # ok 1334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1335 - value of mantissa ok 1336 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); ($m, $e) = $x -> nparts(); # ok 1337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1339 - value of mantissa ok 1340 - value of exponent ok 1341 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $m = $x -> nparts(); # ok 1342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1343 - value of mantissa ok 1344 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); ($m, $e) = $x -> nparts(); # ok 1345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1347 - value of mantissa ok 1348 - value of exponent ok 1349 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $m = $x -> nparts(); # ok 1350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1351 - value of mantissa ok 1352 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); ($m, $e) = $x -> nparts(); # ok 1353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1355 - value of mantissa ok 1356 - value of exponent ok 1357 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $m = $x -> nparts(); # ok 1358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1359 - value of mantissa ok 1360 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); ($m, $e) = $x -> nparts(); # ok 1361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1363 - value of mantissa ok 1364 - value of exponent ok 1365 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $m = $x -> nparts(); # ok 1366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1367 - value of mantissa ok 1368 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); ($m, $e) = $x -> nparts(); # ok 1369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1371 - value of mantissa ok 1372 - value of exponent ok 1373 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $m = $x -> nparts(); # ok 1374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1375 - value of mantissa ok 1376 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); ($m, $e) = $x -> nparts(); # ok 1377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1379 - value of mantissa ok 1380 - value of exponent ok 1381 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $m = $x -> nparts(); # ok 1382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1383 - value of mantissa ok 1384 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); ($m, $e) = $x -> nparts(); # ok 1385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1387 - value of mantissa ok 1388 - value of exponent ok 1389 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $m = $x -> nparts(); # ok 1390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1391 - value of mantissa ok 1392 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); ($m, $e) = $x -> nparts(); # ok 1393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1395 - value of mantissa ok 1396 - value of exponent ok 1397 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $m = $x -> nparts(); # ok 1398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1399 - value of mantissa ok 1400 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); ($m, $e) = $x -> nparts(); # ok 1401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1403 - value of mantissa ok 1404 - value of exponent ok 1405 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $m = $x -> nparts(); # ok 1406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1407 - value of mantissa ok 1408 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); ($m, $e) = $x -> nparts(); # ok 1409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1411 - value of mantissa ok 1412 - value of exponent ok 1413 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $m = $x -> nparts(); # ok 1414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1415 - value of mantissa ok 1416 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); ($m, $e) = $x -> nparts(); # ok 1417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1419 - value of mantissa ok 1420 - value of exponent ok 1421 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $m = $x -> nparts(); # ok 1422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1423 - value of mantissa ok 1424 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); ($m, $e) = $x -> nparts(); # ok 1425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1427 - value of mantissa ok 1428 - value of exponent ok 1429 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); $m = $x -> nparts(); # ok 1430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1431 - value of mantissa ok 1432 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); ($m, $e) = $x -> nparts(); # ok 1433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1435 - value of mantissa ok 1436 - value of exponent ok 1437 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); $m = $x -> nparts(); # ok 1438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1439 - value of mantissa ok 1440 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); ($m, $e) = $x -> nparts(); # ok 1441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1443 - value of mantissa ok 1444 - value of exponent ok 1445 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); $m = $x -> nparts(); # ok 1446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1447 - value of mantissa ok 1448 - input is unmodified # # $x = Math::BigFloat -> new("-123"); ($m, $e) = $x -> nparts(); # ok 1449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1451 - value of mantissa ok 1452 - value of exponent ok 1453 - input is unmodified # # $x = Math::BigFloat -> new("-123"); $m = $x -> nparts(); # ok 1454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1455 - value of mantissa ok 1456 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); ($m, $e) = $x -> nparts(); # ok 1457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1459 - value of mantissa ok 1460 - value of exponent ok 1461 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); $m = $x -> nparts(); # ok 1462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1463 - value of mantissa ok 1464 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); ($m, $e) = $x -> nparts(); # ok 1465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1467 - value of mantissa ok 1468 - value of exponent ok 1469 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); $m = $x -> nparts(); # ok 1470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1471 - value of mantissa ok 1472 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); ($m, $e) = $x -> nparts(); # ok 1473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1475 - value of mantissa ok 1476 - value of exponent ok 1477 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); $m = $x -> nparts(); # ok 1478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1479 - value of mantissa ok 1480 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); ($m, $e) = $x -> nparts(); # ok 1481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1483 - value of mantissa ok 1484 - value of exponent ok 1485 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); $m = $x -> nparts(); # ok 1486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1487 - value of mantissa ok 1488 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); ($m, $e) = $x -> nparts(); # ok 1489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1491 - value of mantissa ok 1492 - value of exponent ok 1493 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); $m = $x -> nparts(); # ok 1494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1495 - value of mantissa ok 1496 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); ($m, $e) = $x -> nparts(); # ok 1497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1499 - value of mantissa ok 1500 - value of exponent ok 1501 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); $m = $x -> nparts(); # ok 1502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1503 - value of mantissa ok 1504 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); ($m, $e) = $x -> nparts(); # ok 1505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1507 - value of mantissa ok 1508 - value of exponent ok 1509 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $m = $x -> nparts(); # ok 1510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1511 - value of mantissa ok 1512 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); ($m, $e) = $x -> nparts(); # ok 1513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1515 - value of mantissa ok 1516 - value of exponent ok 1517 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $m = $x -> nparts(); # ok 1518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1519 - value of mantissa ok 1520 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); ($m, $e) = $x -> nparts(); # ok 1521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1523 - value of mantissa ok 1524 - value of exponent ok 1525 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $m = $x -> nparts(); # ok 1526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1527 - value of mantissa ok 1528 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); ($m, $e) = $x -> nparts(); # ok 1529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1531 - value of mantissa ok 1532 - value of exponent ok 1533 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $m = $x -> nparts(); # ok 1534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1535 - value of mantissa ok 1536 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); ($m, $e) = $x -> nparts(); # ok 1537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1539 - value of mantissa ok 1540 - value of exponent ok 1541 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $m = $x -> nparts(); # ok 1542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1543 - value of mantissa ok 1544 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); ($m, $e) = $x -> nparts(); # ok 1545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1547 - value of mantissa ok 1548 - value of exponent ok 1549 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $m = $x -> nparts(); # ok 1550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1551 - value of mantissa ok 1552 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); ($m, $e) = $x -> nparts(); # ok 1553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1555 - value of mantissa ok 1556 - value of exponent ok 1557 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $m = $x -> nparts(); # ok 1558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1559 - value of mantissa ok 1560 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); ($m, $e) = $x -> nparts(); # ok 1561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1563 - value of mantissa ok 1564 - value of exponent ok 1565 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $m = $x -> nparts(); # ok 1566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1567 - value of mantissa ok 1568 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); ($m, $e) = $x -> nparts(); # ok 1569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1571 - value of mantissa ok 1572 - value of exponent ok 1573 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $m = $x -> nparts(); # ok 1574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1575 - value of mantissa ok 1576 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); ($m, $e) = $x -> nparts(); # ok 1577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1579 - value of mantissa ok 1580 - value of exponent ok 1581 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $m = $x -> nparts(); # ok 1582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1583 - value of mantissa ok 1584 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); ($m, $e) = $x -> nparts(); # ok 1585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1587 - value of mantissa ok 1588 - value of exponent ok 1589 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $m = $x -> nparts(); # ok 1590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1591 - value of mantissa ok 1592 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); ($m, $e) = $x -> nparts(); # ok 1593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1595 - value of mantissa ok 1596 - value of exponent ok 1597 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $m = $x -> nparts(); # ok 1598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1599 - value of mantissa ok 1600 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); ($m, $e) = $x -> nparts(); # ok 1601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1603 - value of mantissa ok 1604 - value of exponent ok 1605 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $m = $x -> nparts(); # ok 1606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1607 - value of mantissa ok 1608 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); ($m, $e) = $x -> nparts(); # ok 1609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1611 - value of mantissa ok 1612 - value of exponent ok 1613 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $m = $x -> nparts(); # ok 1614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1615 - value of mantissa ok 1616 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); ($m, $e) = $x -> nparts(); # ok 1617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1619 - value of mantissa ok 1620 - value of exponent ok 1621 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $m = $x -> nparts(); # ok 1622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1623 - value of mantissa ok 1624 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); ($m, $e) = $x -> nparts(); # ok 1625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1627 - value of mantissa ok 1628 - value of exponent ok 1629 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $m = $x -> nparts(); # ok 1630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1631 - value of mantissa ok 1632 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); ($m, $e) = $x -> nparts(); # ok 1633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1635 - value of mantissa ok 1636 - value of exponent ok 1637 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); $m = $x -> nparts(); # ok 1638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1639 - value of mantissa ok 1640 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); ($m, $e) = $x -> nparts(); # ok 1641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1643 - value of mantissa ok 1644 - value of exponent ok 1645 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); $m = $x -> nparts(); # ok 1646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1647 - value of mantissa ok 1648 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); ($m, $e) = $x -> nparts(); # ok 1649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1651 - value of mantissa ok 1652 - value of exponent ok 1653 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); $m = $x -> nparts(); # ok 1654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1655 - value of mantissa ok 1656 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); ($m, $e) = $x -> nparts(); # ok 1657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1659 - value of mantissa ok 1660 - value of exponent ok 1661 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); $m = $x -> nparts(); # ok 1662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1663 - value of mantissa ok 1664 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); ($m, $e) = $x -> nparts(); # ok 1665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1667 - value of mantissa ok 1668 - value of exponent ok 1669 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); $m = $x -> nparts(); # ok 1670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1671 - value of mantissa ok 1672 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); ($m, $e) = $x -> nparts(); # ok 1673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1675 - value of mantissa ok 1676 - value of exponent ok 1677 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); $m = $x -> nparts(); # ok 1678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1679 - value of mantissa ok 1680 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); ($m, $e) = $x -> nparts(); # ok 1681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1683 - value of mantissa ok 1684 - value of exponent ok 1685 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); $m = $x -> nparts(); # ok 1686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1687 - value of mantissa ok 1688 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); ($m, $e) = $x -> nparts(); # ok 1689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1691 - value of mantissa ok 1692 - value of exponent ok 1693 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); $m = $x -> nparts(); # ok 1694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1695 - value of mantissa ok 1696 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); ($m, $e) = $x -> nparts(); # ok 1697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1699 - value of mantissa ok 1700 - value of exponent ok 1701 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); $m = $x -> nparts(); # ok 1702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1703 - value of mantissa ok 1704 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); ($m, $e) = $x -> nparts(); # ok 1705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1707 - value of mantissa ok 1708 - value of exponent ok 1709 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $m = $x -> nparts(); # ok 1710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1711 - value of mantissa ok 1712 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); ($m, $e) = $x -> nparts(); # ok 1713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1715 - value of mantissa ok 1716 - value of exponent ok 1717 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $m = $x -> nparts(); # ok 1718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1719 - value of mantissa ok 1720 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); ($m, $e) = $x -> nparts(); # ok 1721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1723 - value of mantissa ok 1724 - value of exponent ok 1725 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $m = $x -> nparts(); # ok 1726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1727 - value of mantissa ok 1728 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); ($m, $e) = $x -> nparts(); # ok 1729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1731 - value of mantissa ok 1732 - value of exponent ok 1733 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $m = $x -> nparts(); # ok 1734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1735 - value of mantissa ok 1736 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); ($m, $e) = $x -> nparts(); # ok 1737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1739 - value of mantissa ok 1740 - value of exponent ok 1741 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $m = $x -> nparts(); # ok 1742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1743 - value of mantissa ok 1744 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); ($m, $e) = $x -> nparts(); # ok 1745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1747 - value of mantissa ok 1748 - value of exponent ok 1749 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $m = $x -> nparts(); # ok 1750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1751 - value of mantissa ok 1752 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); ($m, $e) = $x -> nparts(); # ok 1753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1755 - value of mantissa ok 1756 - value of exponent ok 1757 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $m = $x -> nparts(); # ok 1758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1759 - value of mantissa ok 1760 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); ($m, $e) = $x -> nparts(); # ok 1761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1763 - value of mantissa ok 1764 - value of exponent ok 1765 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $m = $x -> nparts(); # ok 1766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1767 - value of mantissa ok 1768 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); ($m, $e) = $x -> nparts(); # ok 1769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1771 - value of mantissa ok 1772 - value of exponent ok 1773 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $m = $x -> nparts(); # ok 1774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1775 - value of mantissa ok 1776 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); ($m, $e) = $x -> nparts(); # ok 1777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1779 - value of mantissa ok 1780 - value of exponent ok 1781 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $m = $x -> nparts(); # ok 1782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1783 - value of mantissa ok 1784 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); ($m, $e) = $x -> nparts(); # ok 1785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1787 - value of mantissa ok 1788 - value of exponent ok 1789 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $m = $x -> nparts(); # ok 1790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1791 - value of mantissa ok 1792 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); ($m, $e) = $x -> nparts(); # ok 1793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1795 - value of mantissa ok 1796 - value of exponent ok 1797 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $m = $x -> nparts(); # ok 1798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1799 - value of mantissa ok 1800 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); ($m, $e) = $x -> nparts(); # ok 1801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1803 - value of mantissa ok 1804 - value of exponent ok 1805 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $m = $x -> nparts(); # ok 1806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1807 - value of mantissa ok 1808 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); ($m, $e) = $x -> nparts(); # ok 1809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1811 - value of mantissa ok 1812 - value of exponent ok 1813 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $m = $x -> nparts(); # ok 1814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1815 - value of mantissa ok 1816 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); ($m, $e) = $x -> nparts(); # ok 1817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1819 - value of mantissa ok 1820 - value of exponent ok 1821 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $m = $x -> nparts(); # ok 1822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1823 - value of mantissa ok 1824 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); ($m, $e) = $x -> nparts(); # ok 1825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1827 - value of mantissa ok 1828 - value of exponent ok 1829 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $m = $x -> nparts(); # ok 1830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1831 - value of mantissa ok 1832 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); ($m, $e) = $x -> nparts(); # ok 1833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1835 - value of mantissa ok 1836 - value of exponent ok 1837 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); $m = $x -> nparts(); # ok 1838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1839 - value of mantissa ok 1840 - input is unmodified ok t/nparts-mbi.t ................................ 1..784 # # $x = Math::BigInt -> new("NaN"); ($m, $e) = $x -> nparts(); # ok 1 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 2 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigInt -> new("NaN"); $m = $x -> nparts(); # ok 6 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigInt -> new("inf"); ($m, $e) = $x -> nparts(); # ok 9 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 10 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigInt -> new("inf"); $m = $x -> nparts(); # ok 14 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigInt -> new("-inf"); ($m, $e) = $x -> nparts(); # ok 17 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 18 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigInt -> new("-inf"); $m = $x -> nparts(); # ok 22 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigInt -> new("0"); ($m, $e) = $x -> nparts(); # ok 25 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 26 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigInt -> new("0"); $m = $x -> nparts(); # ok 30 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigInt -> new("1"); ($m, $e) = $x -> nparts(); # ok 33 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 34 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigInt -> new("1"); $m = $x -> nparts(); # ok 38 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigInt -> new("10"); ($m, $e) = $x -> nparts(); # ok 41 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 42 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigInt -> new("10"); $m = $x -> nparts(); # ok 46 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigInt -> new("100"); ($m, $e) = $x -> nparts(); # ok 49 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 50 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigInt -> new("100"); $m = $x -> nparts(); # ok 54 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigInt -> new("1000"); ($m, $e) = $x -> nparts(); # ok 57 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 58 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigInt -> new("1000"); $m = $x -> nparts(); # ok 62 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigInt -> new("10000"); ($m, $e) = $x -> nparts(); # ok 65 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 66 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigInt -> new("10000"); $m = $x -> nparts(); # ok 70 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigInt -> new("100000"); ($m, $e) = $x -> nparts(); # ok 73 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 74 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigInt -> new("100000"); $m = $x -> nparts(); # ok 78 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigInt -> new("1000000"); ($m, $e) = $x -> nparts(); # ok 81 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 82 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigInt -> new("1000000"); $m = $x -> nparts(); # ok 86 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigInt -> new("10000000"); ($m, $e) = $x -> nparts(); # ok 89 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 90 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigInt -> new("10000000"); $m = $x -> nparts(); # ok 94 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigInt -> new("100000000"); ($m, $e) = $x -> nparts(); # ok 97 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 98 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigInt -> new("100000000"); $m = $x -> nparts(); # ok 102 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); ($m, $e) = $x -> nparts(); # ok 105 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 106 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); $m = $x -> nparts(); # ok 110 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); ($m, $e) = $x -> nparts(); # ok 113 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 114 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); $m = $x -> nparts(); # ok 118 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); ($m, $e) = $x -> nparts(); # ok 121 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 122 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); $m = $x -> nparts(); # ok 126 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); ($m, $e) = $x -> nparts(); # ok 129 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 130 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); $m = $x -> nparts(); # ok 134 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigInt -> new("12"); ($m, $e) = $x -> nparts(); # ok 137 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 138 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigInt -> new("12"); $m = $x -> nparts(); # ok 142 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigInt -> new("120"); ($m, $e) = $x -> nparts(); # ok 145 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 146 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigInt -> new("120"); $m = $x -> nparts(); # ok 150 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigInt -> new("1200"); ($m, $e) = $x -> nparts(); # ok 153 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 154 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigInt -> new("1200"); $m = $x -> nparts(); # ok 158 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigInt -> new("12000"); ($m, $e) = $x -> nparts(); # ok 161 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 162 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigInt -> new("12000"); $m = $x -> nparts(); # ok 166 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigInt -> new("120000"); ($m, $e) = $x -> nparts(); # ok 169 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 170 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigInt -> new("120000"); $m = $x -> nparts(); # ok 174 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigInt -> new("1200000"); ($m, $e) = $x -> nparts(); # ok 177 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 178 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigInt -> new("1200000"); $m = $x -> nparts(); # ok 182 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigInt -> new("12000000"); ($m, $e) = $x -> nparts(); # ok 185 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 186 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigInt -> new("12000000"); $m = $x -> nparts(); # ok 190 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigInt -> new("120000000"); ($m, $e) = $x -> nparts(); # ok 193 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 194 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigInt -> new("120000000"); $m = $x -> nparts(); # ok 198 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); ($m, $e) = $x -> nparts(); # ok 201 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 202 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); $m = $x -> nparts(); # ok 206 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); ($m, $e) = $x -> nparts(); # ok 209 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 210 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); $m = $x -> nparts(); # ok 214 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); ($m, $e) = $x -> nparts(); # ok 217 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 218 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); $m = $x -> nparts(); # ok 222 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); ($m, $e) = $x -> nparts(); # ok 225 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 226 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); $m = $x -> nparts(); # ok 230 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigInt -> new("123"); ($m, $e) = $x -> nparts(); # ok 233 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 234 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigInt -> new("123"); $m = $x -> nparts(); # ok 238 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigInt -> new("1230"); ($m, $e) = $x -> nparts(); # ok 241 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 242 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigInt -> new("1230"); $m = $x -> nparts(); # ok 246 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigInt -> new("12300"); ($m, $e) = $x -> nparts(); # ok 249 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 250 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigInt -> new("12300"); $m = $x -> nparts(); # ok 254 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigInt -> new("123000"); ($m, $e) = $x -> nparts(); # ok 257 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 258 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigInt -> new("123000"); $m = $x -> nparts(); # ok 262 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigInt -> new("1230000"); ($m, $e) = $x -> nparts(); # ok 265 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 266 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigInt -> new("1230000"); $m = $x -> nparts(); # ok 270 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigInt -> new("12300000"); ($m, $e) = $x -> nparts(); # ok 273 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 274 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigInt -> new("12300000"); $m = $x -> nparts(); # ok 278 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigInt -> new("123000000"); ($m, $e) = $x -> nparts(); # ok 281 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 282 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigInt -> new("123000000"); $m = $x -> nparts(); # ok 286 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); ($m, $e) = $x -> nparts(); # ok 289 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 290 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); $m = $x -> nparts(); # ok 294 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); ($m, $e) = $x -> nparts(); # ok 297 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 298 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); $m = $x -> nparts(); # ok 302 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); ($m, $e) = $x -> nparts(); # ok 305 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 306 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); $m = $x -> nparts(); # ok 310 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); ($m, $e) = $x -> nparts(); # ok 313 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 314 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); $m = $x -> nparts(); # ok 318 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigInt -> new("1234"); ($m, $e) = $x -> nparts(); # ok 321 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 322 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigInt -> new("1234"); $m = $x -> nparts(); # ok 326 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigInt -> new("12340"); ($m, $e) = $x -> nparts(); # ok 329 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 330 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigInt -> new("12340"); $m = $x -> nparts(); # ok 334 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigInt -> new("123400"); ($m, $e) = $x -> nparts(); # ok 337 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 338 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigInt -> new("123400"); $m = $x -> nparts(); # ok 342 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigInt -> new("1234000"); ($m, $e) = $x -> nparts(); # ok 345 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 346 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigInt -> new("1234000"); $m = $x -> nparts(); # ok 350 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigInt -> new("12340000"); ($m, $e) = $x -> nparts(); # ok 353 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 354 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigInt -> new("12340000"); $m = $x -> nparts(); # ok 358 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigInt -> new("123400000"); ($m, $e) = $x -> nparts(); # ok 361 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 362 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigInt -> new("123400000"); $m = $x -> nparts(); # ok 366 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); ($m, $e) = $x -> nparts(); # ok 369 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 370 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); $m = $x -> nparts(); # ok 374 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); ($m, $e) = $x -> nparts(); # ok 377 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 378 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); $m = $x -> nparts(); # ok 382 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); ($m, $e) = $x -> nparts(); # ok 385 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 386 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); $m = $x -> nparts(); # ok 390 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); ($m, $e) = $x -> nparts(); # ok 393 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 394 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); $m = $x -> nparts(); # ok 398 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigInt -> new("3141592"); ($m, $e) = $x -> nparts(); # ok 401 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 402 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigInt -> new("3141592"); $m = $x -> nparts(); # ok 406 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigInt -> new("-1"); ($m, $e) = $x -> nparts(); # ok 409 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 410 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigInt -> new("-1"); $m = $x -> nparts(); # ok 414 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigInt -> new("-10"); ($m, $e) = $x -> nparts(); # ok 417 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 418 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigInt -> new("-10"); $m = $x -> nparts(); # ok 422 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigInt -> new("-100"); ($m, $e) = $x -> nparts(); # ok 425 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 426 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigInt -> new("-100"); $m = $x -> nparts(); # ok 430 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigInt -> new("-1000"); ($m, $e) = $x -> nparts(); # ok 433 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 434 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigInt -> new("-1000"); $m = $x -> nparts(); # ok 438 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigInt -> new("-10000"); ($m, $e) = $x -> nparts(); # ok 441 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 442 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigInt -> new("-10000"); $m = $x -> nparts(); # ok 446 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigInt -> new("-100000"); ($m, $e) = $x -> nparts(); # ok 449 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 450 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigInt -> new("-100000"); $m = $x -> nparts(); # ok 454 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); ($m, $e) = $x -> nparts(); # ok 457 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 458 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); $m = $x -> nparts(); # ok 462 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); ($m, $e) = $x -> nparts(); # ok 465 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 466 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); $m = $x -> nparts(); # ok 470 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); ($m, $e) = $x -> nparts(); # ok 473 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 474 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); $m = $x -> nparts(); # ok 478 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); ($m, $e) = $x -> nparts(); # ok 481 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 482 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); $m = $x -> nparts(); # ok 486 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); ($m, $e) = $x -> nparts(); # ok 489 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 490 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); $m = $x -> nparts(); # ok 494 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); ($m, $e) = $x -> nparts(); # ok 497 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 498 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); $m = $x -> nparts(); # ok 502 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); ($m, $e) = $x -> nparts(); # ok 505 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 506 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $m = $x -> nparts(); # ok 510 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigInt -> new("-12"); ($m, $e) = $x -> nparts(); # ok 513 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 514 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigInt -> new("-12"); $m = $x -> nparts(); # ok 518 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigInt -> new("-120"); ($m, $e) = $x -> nparts(); # ok 521 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 522 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigInt -> new("-120"); $m = $x -> nparts(); # ok 526 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigInt -> new("-1200"); ($m, $e) = $x -> nparts(); # ok 529 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 530 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigInt -> new("-1200"); $m = $x -> nparts(); # ok 534 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigInt -> new("-12000"); ($m, $e) = $x -> nparts(); # ok 537 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 538 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigInt -> new("-12000"); $m = $x -> nparts(); # ok 542 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigInt -> new("-120000"); ($m, $e) = $x -> nparts(); # ok 545 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 546 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigInt -> new("-120000"); $m = $x -> nparts(); # ok 550 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); ($m, $e) = $x -> nparts(); # ok 553 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 554 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); $m = $x -> nparts(); # ok 558 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); ($m, $e) = $x -> nparts(); # ok 561 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 562 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); $m = $x -> nparts(); # ok 566 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); ($m, $e) = $x -> nparts(); # ok 569 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 570 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); $m = $x -> nparts(); # ok 574 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); ($m, $e) = $x -> nparts(); # ok 577 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 578 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); $m = $x -> nparts(); # ok 582 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); ($m, $e) = $x -> nparts(); # ok 585 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 586 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); $m = $x -> nparts(); # ok 590 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); ($m, $e) = $x -> nparts(); # ok 593 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 594 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); $m = $x -> nparts(); # ok 598 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); ($m, $e) = $x -> nparts(); # ok 601 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 602 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $m = $x -> nparts(); # ok 606 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigInt -> new("-123"); ($m, $e) = $x -> nparts(); # ok 609 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 610 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigInt -> new("-123"); $m = $x -> nparts(); # ok 614 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigInt -> new("-1230"); ($m, $e) = $x -> nparts(); # ok 617 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 618 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigInt -> new("-1230"); $m = $x -> nparts(); # ok 622 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigInt -> new("-12300"); ($m, $e) = $x -> nparts(); # ok 625 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 626 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigInt -> new("-12300"); $m = $x -> nparts(); # ok 630 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigInt -> new("-123000"); ($m, $e) = $x -> nparts(); # ok 633 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 634 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigInt -> new("-123000"); $m = $x -> nparts(); # ok 638 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); ($m, $e) = $x -> nparts(); # ok 641 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 642 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); $m = $x -> nparts(); # ok 646 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); ($m, $e) = $x -> nparts(); # ok 649 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 650 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); $m = $x -> nparts(); # ok 654 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); ($m, $e) = $x -> nparts(); # ok 657 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 658 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); $m = $x -> nparts(); # ok 662 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); ($m, $e) = $x -> nparts(); # ok 665 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 666 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); $m = $x -> nparts(); # ok 670 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); ($m, $e) = $x -> nparts(); # ok 673 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 674 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); $m = $x -> nparts(); # ok 678 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); ($m, $e) = $x -> nparts(); # ok 681 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 682 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); $m = $x -> nparts(); # ok 686 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); ($m, $e) = $x -> nparts(); # ok 689 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 690 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $m = $x -> nparts(); # ok 694 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigInt -> new("-1234"); ($m, $e) = $x -> nparts(); # ok 697 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 698 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigInt -> new("-1234"); $m = $x -> nparts(); # ok 702 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigInt -> new("-12340"); ($m, $e) = $x -> nparts(); # ok 705 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 706 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigInt -> new("-12340"); $m = $x -> nparts(); # ok 710 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigInt -> new("-123400"); ($m, $e) = $x -> nparts(); # ok 713 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 714 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigInt -> new("-123400"); $m = $x -> nparts(); # ok 718 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); ($m, $e) = $x -> nparts(); # ok 721 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 722 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); $m = $x -> nparts(); # ok 726 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); ($m, $e) = $x -> nparts(); # ok 729 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 730 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); $m = $x -> nparts(); # ok 734 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); ($m, $e) = $x -> nparts(); # ok 737 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 738 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); $m = $x -> nparts(); # ok 742 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); ($m, $e) = $x -> nparts(); # ok 745 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 746 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); $m = $x -> nparts(); # ok 750 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); ($m, $e) = $x -> nparts(); # ok 753 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 754 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); $m = $x -> nparts(); # ok 758 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); ($m, $e) = $x -> nparts(); # ok 761 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 762 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); $m = $x -> nparts(); # ok 766 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); ($m, $e) = $x -> nparts(); # ok 769 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 770 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $m = $x -> nparts(); # ok 774 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); ($m, $e) = $x -> nparts(); # ok 777 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 778 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); $m = $x -> nparts(); # ok 782 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 783 - value of mantissa ok 784 - input is unmodified ok t/objectify_mbf.t ............................. 1..6 ok 1 - $float = Math::BigFloat -> new(10); $float_percent1 = My::Percent::Float1 -> new(100); $float * $float_percent1; ok 2 - $float = Math::BigFloat -> new(10); $float_percent2 = My::Percent::Float2 -> new(100); $float * $float_percent2; ok 3 - $float = Math::BigFloat -> new(10); $float_percent3 = My::Percent::Float3 -> new(100); $float * $float_percent3; ok 4 - $float = Math::BigFloat::Subclass -> new(10); $float_percent1 = My::Percent::Float1 -> new(100); $float * $float_percent1; ok 5 - $float = Math::BigFloat::Subclass -> new(10); $float_percent2 = My::Percent::Float2 -> new(100); $float * $float_percent2; ok 6 - $float = Math::BigFloat::Subclass -> new(10); $float_percent3 = My::Percent::Float3 -> new(100); $float * $float_percent3; ok t/objectify_mbi.t ............................. 1..10 ok 1 - $class -> new(10); $int_percent1 = My::Percent::Int1 -> new(100); $int * $int_percent1 ok 2 - $class -> new(10); $int_percent2 = My::Percent::Int2 -> new(100); $int * $int_percent2 ok 3 - $class -> new(10); $int_percent3 = My::Percent::Int3 -> new(100); $int * $int_percent3 ok 4 - $class -> new(10); $int_percent4 = My::Percent::Int4 -> new(100); $int * $int_percent4 ok 5 - $class -> new(10); $int_percent5 = My::Percent::Int5 -> new(100); $int * $int_percent5 ok 6 - $class -> new(10); $int_percent1 = My::Percent::Int1 -> new(100); $int * $int_percent1 ok 7 - $class -> new(10); $int_percent2 = My::Percent::Int2 -> new(100); $int * $int_percent2 ok 8 - $class -> new(10); $int_percent3 = My::Percent::Int3 -> new(100); $int * $int_percent3 ok 9 - $class -> new(10); $int_percent4 = My::Percent::Int4 -> new(100); $int * $int_percent4 ok 10 - $class -> new(10); $int_percent5 = My::Percent::Int5 -> new(100); $int * $int_percent5 ok t/req_mbf0.t .................................. 1..1 ok 1 - $x is 1 ok t/req_mbf1.t .................................. 1..1 ok 1 - $x is 1 ok t/req_mbfa.t .................................. 1..1 ok 1 - $x is NaN ok t/req_mbfi.t .................................. 1..1 ok 1 - $x is inf ok t/req_mbfn.t .................................. 1..1 ok 1 - $x is 2 ok t/req_mbfw.t .................................. 1..3 ok 1 - $x is 2 ok 2 - "with" ignored ok 3 - "with" ignored ok t/require.t ................................... 1..1 ok 1 - $x is 2 ok t/round.t ..................................... 1..95 ok 1 - round(3) ok 2 - round(3.1) ok 3 - round(3.5) ok 4 - round(3.6) ok 5 - round(3.9) ok 6 - bfround(3) ok 7 - bfround(3.1) ok 8 - bfround(3.5) ok 9 - bfround(3.6) ok 10 - bfround(3.9) ok 11 - bfround(2) ok 12 - bfround(2.1) ok 13 - bfround(2.5) ok 14 - bfround(2.6) ok 15 - bfround(2.9) ok 16 - bfround(-2) ok 17 - bfround(-2.1) ok 18 - bfround(-2.5) ok 19 - bfround(-2.6) ok 20 - bfround(-2.9) ok 21 - bfround(-3) ok 22 - bfround(-3.1) ok 23 - bfround(-3.5) ok 24 - bfround(-3.6) ok 25 - bfround(-3.9) ok 26 - bround(4) ok 27 - bround(4.1) ok 28 - bround(4.5) ok 29 - bround(4.6) ok 30 - bround(4.9) ok 31 - bround(3) ok 32 - bround(3.1) ok 33 - bround(3.5) ok 34 - bround(3.6) ok 35 - bround(3.9) ok 36 - bround(2) ok 37 - bround(2.1) ok 38 - bround(2.5) ok 39 - bround(2.6) ok 40 - bround(2.9) ok 41 - bsqrt(4) ok 42 - bsqrt(4.1) ok 43 - bsqrt(4.5) ok 44 - bsqrt(4.6) ok 45 - bsqrt(4.9) ok 46 - bsqrt(3) ok 47 - bsqrt(3.1) ok 48 - bsqrt(3.5) ok 49 - bsqrt(3.6) ok 50 - bsqrt(3.9) ok 51 - bsqrt(2) ok 52 - bsqrt(2.1) ok 53 - bsqrt(2.5) ok 54 - bsqrt(2.6) ok 55 - bsqrt(2.9) ok 56 - bsqrt(undef, 2) ok 57 - bsqrt(undef, 2.1) ok 58 - bsqrt(undef.2.5) ok 59 - bsqrt(undef, 2.6) ok 60 - bsqrt(undef, 2.9) ok 61 - bsqrt(undef, -2) ok 62 - bsqrt(undef, -2.1) ok 63 - bsqrt(undef.-2.5) ok 64 - bsqrt(undef, -2.6) ok 65 - bsqrt(undef, -2.9) ok 66 - bdiv(2, 6) ok 67 - bdiv(2, 6.1) ok 68 - bdiv(2, 6.5) ok 69 - bdiv(2, 6.6) ok 70 - bdiv(2, 6.9) ok 71 - bdiv(2, 4) ok 72 - bdiv(2, 4.1) ok 73 - bdiv(2, 4.5) ok 74 - bdiv(2, 4.6) ok 75 - bdiv(2, 4.9) ok 76 - bdiv(2, 3) ok 77 - bdiv(2, 3.1) ok 78 - bdiv(2, 3.5) ok 79 - bdiv(2, 3.6) ok 80 - bdiv(2, 3.9) ok 81 - bdiv(undef, -6) ok 82 - bdiv(2, undef, -6.1) ok 83 - bdiv(2, undef, -6.5) ok 84 - bdiv(2, undef, -6.6) ok 85 - bdiv(2, undef, -6.9) ok 86 - bdiv(undef, -4) ok 87 - bdiv(2, undef, -4.1) ok 88 - bdiv(2, undef, -4.5) ok 89 - bdiv(2, undef, -4.6) ok 90 - bdiv(2, undef, -4.9) ok 91 - bdiv(undef, -3) ok 92 - bdiv(2, undef, -3.1) ok 93 - bdiv(2, undef, -3.5) ok 94 - bdiv(2, undef, -3.6) ok 95 - bdiv(2, undef, -3.9) ok t/rt-16221.t .................................. 1..2 ok 1 - $int * $int_percent = 10 ok 2 - $float * $float_percent = 10 ok t/sparts-mbf.t ................................ 1..1840 # # $x = Math::BigFloat -> new("NaN"); ($m, $e) = $x -> sparts(); # ok 1 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 2 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigFloat -> new("NaN"); $m = $x -> sparts(); # ok 6 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigFloat -> new("inf"); ($m, $e) = $x -> sparts(); # ok 9 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 10 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigFloat -> new("inf"); $m = $x -> sparts(); # ok 14 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); ($m, $e) = $x -> sparts(); # ok 17 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 18 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigFloat -> new("-inf"); $m = $x -> sparts(); # ok 22 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigFloat -> new("0"); ($m, $e) = $x -> sparts(); # ok 25 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 26 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigFloat -> new("0"); $m = $x -> sparts(); # ok 30 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); ($m, $e) = $x -> sparts(); # ok 33 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 34 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001"); $m = $x -> sparts(); # ok 38 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); ($m, $e) = $x -> sparts(); # ok 41 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 42 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001"); $m = $x -> sparts(); # ok 46 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); ($m, $e) = $x -> sparts(); # ok 49 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 50 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001"); $m = $x -> sparts(); # ok 54 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); ($m, $e) = $x -> sparts(); # ok 57 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 58 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001"); $m = $x -> sparts(); # ok 62 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); ($m, $e) = $x -> sparts(); # ok 65 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 66 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001"); $m = $x -> sparts(); # ok 70 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); ($m, $e) = $x -> sparts(); # ok 73 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 74 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001"); $m = $x -> sparts(); # ok 78 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); ($m, $e) = $x -> sparts(); # ok 81 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 82 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigFloat -> new("0.000001"); $m = $x -> sparts(); # ok 86 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); ($m, $e) = $x -> sparts(); # ok 89 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 90 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigFloat -> new("0.00001"); $m = $x -> sparts(); # ok 94 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); ($m, $e) = $x -> sparts(); # ok 97 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 98 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigFloat -> new("0.0001"); $m = $x -> sparts(); # ok 102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); ($m, $e) = $x -> sparts(); # ok 105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigFloat -> new("0.001"); $m = $x -> sparts(); # ok 110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); ($m, $e) = $x -> sparts(); # ok 113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigFloat -> new("0.01"); $m = $x -> sparts(); # ok 118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); ($m, $e) = $x -> sparts(); # ok 121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigFloat -> new("0.1"); $m = $x -> sparts(); # ok 126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigFloat -> new("1"); ($m, $e) = $x -> sparts(); # ok 129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigFloat -> new("1"); $m = $x -> sparts(); # ok 134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigFloat -> new("10"); ($m, $e) = $x -> sparts(); # ok 137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigFloat -> new("10"); $m = $x -> sparts(); # ok 142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigFloat -> new("100"); ($m, $e) = $x -> sparts(); # ok 145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigFloat -> new("100"); $m = $x -> sparts(); # ok 150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigFloat -> new("1000"); ($m, $e) = $x -> sparts(); # ok 153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigFloat -> new("1000"); $m = $x -> sparts(); # ok 158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigFloat -> new("10000"); ($m, $e) = $x -> sparts(); # ok 161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigFloat -> new("10000"); $m = $x -> sparts(); # ok 166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigFloat -> new("100000"); ($m, $e) = $x -> sparts(); # ok 169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigFloat -> new("100000"); $m = $x -> sparts(); # ok 174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); ($m, $e) = $x -> sparts(); # ok 177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigFloat -> new("1000000"); $m = $x -> sparts(); # ok 182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); ($m, $e) = $x -> sparts(); # ok 185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigFloat -> new("10000000"); $m = $x -> sparts(); # ok 190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); ($m, $e) = $x -> sparts(); # ok 193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigFloat -> new("100000000"); $m = $x -> sparts(); # ok 198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); ($m, $e) = $x -> sparts(); # ok 201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigFloat -> new("1000000000"); $m = $x -> sparts(); # ok 206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); ($m, $e) = $x -> sparts(); # ok 209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigFloat -> new("10000000000"); $m = $x -> sparts(); # ok 214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); ($m, $e) = $x -> sparts(); # ok 217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigFloat -> new("100000000000"); $m = $x -> sparts(); # ok 222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); ($m, $e) = $x -> sparts(); # ok 225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigFloat -> new("1000000000000"); $m = $x -> sparts(); # ok 230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); ($m, $e) = $x -> sparts(); # ok 233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000012"); $m = $x -> sparts(); # ok 238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); ($m, $e) = $x -> sparts(); # ok 241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000012"); $m = $x -> sparts(); # ok 246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); ($m, $e) = $x -> sparts(); # ok 249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000012"); $m = $x -> sparts(); # ok 254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); ($m, $e) = $x -> sparts(); # ok 257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000012"); $m = $x -> sparts(); # ok 262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); ($m, $e) = $x -> sparts(); # ok 265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigFloat -> new("0.000000012"); $m = $x -> sparts(); # ok 270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); ($m, $e) = $x -> sparts(); # ok 273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigFloat -> new("0.00000012"); $m = $x -> sparts(); # ok 278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); ($m, $e) = $x -> sparts(); # ok 281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigFloat -> new("0.0000012"); $m = $x -> sparts(); # ok 286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); ($m, $e) = $x -> sparts(); # ok 289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigFloat -> new("0.000012"); $m = $x -> sparts(); # ok 294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); ($m, $e) = $x -> sparts(); # ok 297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigFloat -> new("0.00012"); $m = $x -> sparts(); # ok 302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); ($m, $e) = $x -> sparts(); # ok 305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigFloat -> new("0.0012"); $m = $x -> sparts(); # ok 310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); ($m, $e) = $x -> sparts(); # ok 313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigFloat -> new("0.012"); $m = $x -> sparts(); # ok 318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); ($m, $e) = $x -> sparts(); # ok 321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigFloat -> new("0.12"); $m = $x -> sparts(); # ok 326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); ($m, $e) = $x -> sparts(); # ok 329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigFloat -> new("1.2"); $m = $x -> sparts(); # ok 334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigFloat -> new("12"); ($m, $e) = $x -> sparts(); # ok 337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigFloat -> new("12"); $m = $x -> sparts(); # ok 342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigFloat -> new("120"); ($m, $e) = $x -> sparts(); # ok 345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigFloat -> new("120"); $m = $x -> sparts(); # ok 350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigFloat -> new("1200"); ($m, $e) = $x -> sparts(); # ok 353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigFloat -> new("1200"); $m = $x -> sparts(); # ok 358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigFloat -> new("12000"); ($m, $e) = $x -> sparts(); # ok 361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigFloat -> new("12000"); $m = $x -> sparts(); # ok 366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigFloat -> new("120000"); ($m, $e) = $x -> sparts(); # ok 369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigFloat -> new("120000"); $m = $x -> sparts(); # ok 374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); ($m, $e) = $x -> sparts(); # ok 377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigFloat -> new("1200000"); $m = $x -> sparts(); # ok 382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); ($m, $e) = $x -> sparts(); # ok 385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigFloat -> new("12000000"); $m = $x -> sparts(); # ok 390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); ($m, $e) = $x -> sparts(); # ok 393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigFloat -> new("120000000"); $m = $x -> sparts(); # ok 398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); ($m, $e) = $x -> sparts(); # ok 401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigFloat -> new("1200000000"); $m = $x -> sparts(); # ok 406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); ($m, $e) = $x -> sparts(); # ok 409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigFloat -> new("12000000000"); $m = $x -> sparts(); # ok 414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); ($m, $e) = $x -> sparts(); # ok 417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigFloat -> new("120000000000"); $m = $x -> sparts(); # ok 422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); ($m, $e) = $x -> sparts(); # ok 425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigFloat -> new("1200000000000"); $m = $x -> sparts(); # ok 430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); ($m, $e) = $x -> sparts(); # ok 433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000000123"); $m = $x -> sparts(); # ok 438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); ($m, $e) = $x -> sparts(); # ok 441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000000123"); $m = $x -> sparts(); # ok 446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); ($m, $e) = $x -> sparts(); # ok 449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000123"); $m = $x -> sparts(); # ok 454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); ($m, $e) = $x -> sparts(); # ok 457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000123"); $m = $x -> sparts(); # ok 462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); ($m, $e) = $x -> sparts(); # ok 465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000123"); $m = $x -> sparts(); # ok 470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); ($m, $e) = $x -> sparts(); # ok 473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigFloat -> new("0.000000123"); $m = $x -> sparts(); # ok 478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); ($m, $e) = $x -> sparts(); # ok 481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigFloat -> new("0.00000123"); $m = $x -> sparts(); # ok 486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); ($m, $e) = $x -> sparts(); # ok 489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigFloat -> new("0.0000123"); $m = $x -> sparts(); # ok 494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); ($m, $e) = $x -> sparts(); # ok 497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigFloat -> new("0.000123"); $m = $x -> sparts(); # ok 502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); ($m, $e) = $x -> sparts(); # ok 505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigFloat -> new("0.00123"); $m = $x -> sparts(); # ok 510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); ($m, $e) = $x -> sparts(); # ok 513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigFloat -> new("0.0123"); $m = $x -> sparts(); # ok 518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); ($m, $e) = $x -> sparts(); # ok 521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigFloat -> new("0.123"); $m = $x -> sparts(); # ok 526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); ($m, $e) = $x -> sparts(); # ok 529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigFloat -> new("1.23"); $m = $x -> sparts(); # ok 534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); ($m, $e) = $x -> sparts(); # ok 537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigFloat -> new("12.3"); $m = $x -> sparts(); # ok 542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigFloat -> new("123"); ($m, $e) = $x -> sparts(); # ok 545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigFloat -> new("123"); $m = $x -> sparts(); # ok 550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigFloat -> new("1230"); ($m, $e) = $x -> sparts(); # ok 553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigFloat -> new("1230"); $m = $x -> sparts(); # ok 558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigFloat -> new("12300"); ($m, $e) = $x -> sparts(); # ok 561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigFloat -> new("12300"); $m = $x -> sparts(); # ok 566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigFloat -> new("123000"); ($m, $e) = $x -> sparts(); # ok 569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigFloat -> new("123000"); $m = $x -> sparts(); # ok 574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); ($m, $e) = $x -> sparts(); # ok 577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigFloat -> new("1230000"); $m = $x -> sparts(); # ok 582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); ($m, $e) = $x -> sparts(); # ok 585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigFloat -> new("12300000"); $m = $x -> sparts(); # ok 590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); ($m, $e) = $x -> sparts(); # ok 593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigFloat -> new("123000000"); $m = $x -> sparts(); # ok 598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); ($m, $e) = $x -> sparts(); # ok 601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigFloat -> new("1230000000"); $m = $x -> sparts(); # ok 606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); ($m, $e) = $x -> sparts(); # ok 609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigFloat -> new("12300000000"); $m = $x -> sparts(); # ok 614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); ($m, $e) = $x -> sparts(); # ok 617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigFloat -> new("123000000000"); $m = $x -> sparts(); # ok 622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); ($m, $e) = $x -> sparts(); # ok 625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigFloat -> new("1230000000000"); $m = $x -> sparts(); # ok 630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); ($m, $e) = $x -> sparts(); # ok 633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigFloat -> new("0.000000000001234"); $m = $x -> sparts(); # ok 638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); ($m, $e) = $x -> sparts(); # ok 641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigFloat -> new("0.00000000001234"); $m = $x -> sparts(); # ok 646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); ($m, $e) = $x -> sparts(); # ok 649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigFloat -> new("0.0000000001234"); $m = $x -> sparts(); # ok 654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); ($m, $e) = $x -> sparts(); # ok 657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigFloat -> new("0.000000001234"); $m = $x -> sparts(); # ok 662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); ($m, $e) = $x -> sparts(); # ok 665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigFloat -> new("0.00000001234"); $m = $x -> sparts(); # ok 670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); ($m, $e) = $x -> sparts(); # ok 673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigFloat -> new("0.0000001234"); $m = $x -> sparts(); # ok 678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); ($m, $e) = $x -> sparts(); # ok 681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigFloat -> new("0.000001234"); $m = $x -> sparts(); # ok 686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); ($m, $e) = $x -> sparts(); # ok 689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigFloat -> new("0.00001234"); $m = $x -> sparts(); # ok 694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); ($m, $e) = $x -> sparts(); # ok 697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigFloat -> new("0.0001234"); $m = $x -> sparts(); # ok 702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); ($m, $e) = $x -> sparts(); # ok 705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigFloat -> new("0.001234"); $m = $x -> sparts(); # ok 710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); ($m, $e) = $x -> sparts(); # ok 713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigFloat -> new("0.01234"); $m = $x -> sparts(); # ok 718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); ($m, $e) = $x -> sparts(); # ok 721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigFloat -> new("0.1234"); $m = $x -> sparts(); # ok 726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); ($m, $e) = $x -> sparts(); # ok 729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigFloat -> new("1.234"); $m = $x -> sparts(); # ok 734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); ($m, $e) = $x -> sparts(); # ok 737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigFloat -> new("12.34"); $m = $x -> sparts(); # ok 742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); ($m, $e) = $x -> sparts(); # ok 745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigFloat -> new("123.4"); $m = $x -> sparts(); # ok 750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigFloat -> new("1234"); ($m, $e) = $x -> sparts(); # ok 753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigFloat -> new("1234"); $m = $x -> sparts(); # ok 758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigFloat -> new("12340"); ($m, $e) = $x -> sparts(); # ok 761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigFloat -> new("12340"); $m = $x -> sparts(); # ok 766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigFloat -> new("123400"); ($m, $e) = $x -> sparts(); # ok 769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigFloat -> new("123400"); $m = $x -> sparts(); # ok 774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); ($m, $e) = $x -> sparts(); # ok 777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigFloat -> new("1234000"); $m = $x -> sparts(); # ok 782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 783 - value of mantissa ok 784 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); ($m, $e) = $x -> sparts(); # ok 785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 787 - value of mantissa ok 788 - value of exponent ok 789 - input is unmodified # # $x = Math::BigFloat -> new("12340000"); $m = $x -> sparts(); # ok 790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 791 - value of mantissa ok 792 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); ($m, $e) = $x -> sparts(); # ok 793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 795 - value of mantissa ok 796 - value of exponent ok 797 - input is unmodified # # $x = Math::BigFloat -> new("123400000"); $m = $x -> sparts(); # ok 798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 799 - value of mantissa ok 800 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); ($m, $e) = $x -> sparts(); # ok 801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 803 - value of mantissa ok 804 - value of exponent ok 805 - input is unmodified # # $x = Math::BigFloat -> new("1234000000"); $m = $x -> sparts(); # ok 806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 807 - value of mantissa ok 808 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); ($m, $e) = $x -> sparts(); # ok 809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 811 - value of mantissa ok 812 - value of exponent ok 813 - input is unmodified # # $x = Math::BigFloat -> new("12340000000"); $m = $x -> sparts(); # ok 814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 815 - value of mantissa ok 816 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); ($m, $e) = $x -> sparts(); # ok 817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 819 - value of mantissa ok 820 - value of exponent ok 821 - input is unmodified # # $x = Math::BigFloat -> new("123400000000"); $m = $x -> sparts(); # ok 822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 823 - value of mantissa ok 824 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); ($m, $e) = $x -> sparts(); # ok 825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 827 - value of mantissa ok 828 - value of exponent ok 829 - input is unmodified # # $x = Math::BigFloat -> new("1234000000000"); $m = $x -> sparts(); # ok 830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 831 - value of mantissa ok 832 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); ($m, $e) = $x -> sparts(); # ok 833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 835 - value of mantissa ok 836 - value of exponent ok 837 - input is unmodified # # $x = Math::BigFloat -> new("0.000003141592"); $m = $x -> sparts(); # ok 838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 839 - value of mantissa ok 840 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); ($m, $e) = $x -> sparts(); # ok 841 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 842 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 843 - value of mantissa ok 844 - value of exponent ok 845 - input is unmodified # # $x = Math::BigFloat -> new("0.00003141592"); $m = $x -> sparts(); # ok 846 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 847 - value of mantissa ok 848 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); ($m, $e) = $x -> sparts(); # ok 849 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 850 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 851 - value of mantissa ok 852 - value of exponent ok 853 - input is unmodified # # $x = Math::BigFloat -> new("0.0003141592"); $m = $x -> sparts(); # ok 854 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 855 - value of mantissa ok 856 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); ($m, $e) = $x -> sparts(); # ok 857 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 858 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 859 - value of mantissa ok 860 - value of exponent ok 861 - input is unmodified # # $x = Math::BigFloat -> new("0.003141592"); $m = $x -> sparts(); # ok 862 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 863 - value of mantissa ok 864 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); ($m, $e) = $x -> sparts(); # ok 865 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 866 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 867 - value of mantissa ok 868 - value of exponent ok 869 - input is unmodified # # $x = Math::BigFloat -> new("0.03141592"); $m = $x -> sparts(); # ok 870 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 871 - value of mantissa ok 872 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); ($m, $e) = $x -> sparts(); # ok 873 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 874 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 875 - value of mantissa ok 876 - value of exponent ok 877 - input is unmodified # # $x = Math::BigFloat -> new("0.3141592"); $m = $x -> sparts(); # ok 878 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 879 - value of mantissa ok 880 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); ($m, $e) = $x -> sparts(); # ok 881 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 882 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 883 - value of mantissa ok 884 - value of exponent ok 885 - input is unmodified # # $x = Math::BigFloat -> new("3.141592"); $m = $x -> sparts(); # ok 886 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 887 - value of mantissa ok 888 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); ($m, $e) = $x -> sparts(); # ok 889 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 890 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 891 - value of mantissa ok 892 - value of exponent ok 893 - input is unmodified # # $x = Math::BigFloat -> new("31.41592"); $m = $x -> sparts(); # ok 894 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 895 - value of mantissa ok 896 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); ($m, $e) = $x -> sparts(); # ok 897 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 898 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 899 - value of mantissa ok 900 - value of exponent ok 901 - input is unmodified # # $x = Math::BigFloat -> new("314.1592"); $m = $x -> sparts(); # ok 902 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 903 - value of mantissa ok 904 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); ($m, $e) = $x -> sparts(); # ok 905 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 906 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 907 - value of mantissa ok 908 - value of exponent ok 909 - input is unmodified # # $x = Math::BigFloat -> new("3141.592"); $m = $x -> sparts(); # ok 910 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 911 - value of mantissa ok 912 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); ($m, $e) = $x -> sparts(); # ok 913 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 914 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 915 - value of mantissa ok 916 - value of exponent ok 917 - input is unmodified # # $x = Math::BigFloat -> new("31415.92"); $m = $x -> sparts(); # ok 918 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 919 - value of mantissa ok 920 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); ($m, $e) = $x -> sparts(); # ok 921 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 922 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 923 - value of mantissa ok 924 - value of exponent ok 925 - input is unmodified # # $x = Math::BigFloat -> new("314159.2"); $m = $x -> sparts(); # ok 926 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 927 - value of mantissa ok 928 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); ($m, $e) = $x -> sparts(); # ok 929 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 930 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 931 - value of mantissa ok 932 - value of exponent ok 933 - input is unmodified # # $x = Math::BigFloat -> new("3141592"); $m = $x -> sparts(); # ok 934 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 935 - value of mantissa ok 936 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); ($m, $e) = $x -> sparts(); # ok 937 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 938 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 939 - value of mantissa ok 940 - value of exponent ok 941 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001"); $m = $x -> sparts(); # ok 942 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 943 - value of mantissa ok 944 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); ($m, $e) = $x -> sparts(); # ok 945 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 946 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 947 - value of mantissa ok 948 - value of exponent ok 949 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001"); $m = $x -> sparts(); # ok 950 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 951 - value of mantissa ok 952 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); ($m, $e) = $x -> sparts(); # ok 953 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 954 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 955 - value of mantissa ok 956 - value of exponent ok 957 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001"); $m = $x -> sparts(); # ok 958 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 959 - value of mantissa ok 960 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); ($m, $e) = $x -> sparts(); # ok 961 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 962 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 963 - value of mantissa ok 964 - value of exponent ok 965 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001"); $m = $x -> sparts(); # ok 966 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 967 - value of mantissa ok 968 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); ($m, $e) = $x -> sparts(); # ok 969 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 970 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 971 - value of mantissa ok 972 - value of exponent ok 973 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001"); $m = $x -> sparts(); # ok 974 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 975 - value of mantissa ok 976 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); ($m, $e) = $x -> sparts(); # ok 977 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 978 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 979 - value of mantissa ok 980 - value of exponent ok 981 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001"); $m = $x -> sparts(); # ok 982 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 983 - value of mantissa ok 984 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); ($m, $e) = $x -> sparts(); # ok 985 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 986 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 987 - value of mantissa ok 988 - value of exponent ok 989 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001"); $m = $x -> sparts(); # ok 990 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 991 - value of mantissa ok 992 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); ($m, $e) = $x -> sparts(); # ok 993 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 994 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 995 - value of mantissa ok 996 - value of exponent ok 997 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001"); $m = $x -> sparts(); # ok 998 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 999 - value of mantissa ok 1000 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); ($m, $e) = $x -> sparts(); # ok 1001 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1002 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1003 - value of mantissa ok 1004 - value of exponent ok 1005 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001"); $m = $x -> sparts(); # ok 1006 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1007 - value of mantissa ok 1008 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); ($m, $e) = $x -> sparts(); # ok 1009 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1010 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1011 - value of mantissa ok 1012 - value of exponent ok 1013 - input is unmodified # # $x = Math::BigFloat -> new("-0.001"); $m = $x -> sparts(); # ok 1014 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1015 - value of mantissa ok 1016 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); ($m, $e) = $x -> sparts(); # ok 1017 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1018 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1019 - value of mantissa ok 1020 - value of exponent ok 1021 - input is unmodified # # $x = Math::BigFloat -> new("-0.01"); $m = $x -> sparts(); # ok 1022 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1023 - value of mantissa ok 1024 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); ($m, $e) = $x -> sparts(); # ok 1025 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1026 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1027 - value of mantissa ok 1028 - value of exponent ok 1029 - input is unmodified # # $x = Math::BigFloat -> new("-0.1"); $m = $x -> sparts(); # ok 1030 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1031 - value of mantissa ok 1032 - input is unmodified # # $x = Math::BigFloat -> new("-1"); ($m, $e) = $x -> sparts(); # ok 1033 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1034 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1035 - value of mantissa ok 1036 - value of exponent ok 1037 - input is unmodified # # $x = Math::BigFloat -> new("-1"); $m = $x -> sparts(); # ok 1038 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1039 - value of mantissa ok 1040 - input is unmodified # # $x = Math::BigFloat -> new("-10"); ($m, $e) = $x -> sparts(); # ok 1041 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1042 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1043 - value of mantissa ok 1044 - value of exponent ok 1045 - input is unmodified # # $x = Math::BigFloat -> new("-10"); $m = $x -> sparts(); # ok 1046 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1047 - value of mantissa ok 1048 - input is unmodified # # $x = Math::BigFloat -> new("-100"); ($m, $e) = $x -> sparts(); # ok 1049 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1050 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1051 - value of mantissa ok 1052 - value of exponent ok 1053 - input is unmodified # # $x = Math::BigFloat -> new("-100"); $m = $x -> sparts(); # ok 1054 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1055 - value of mantissa ok 1056 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); ($m, $e) = $x -> sparts(); # ok 1057 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1058 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1059 - value of mantissa ok 1060 - value of exponent ok 1061 - input is unmodified # # $x = Math::BigFloat -> new("-1000"); $m = $x -> sparts(); # ok 1062 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1063 - value of mantissa ok 1064 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); ($m, $e) = $x -> sparts(); # ok 1065 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1066 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1067 - value of mantissa ok 1068 - value of exponent ok 1069 - input is unmodified # # $x = Math::BigFloat -> new("-10000"); $m = $x -> sparts(); # ok 1070 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1071 - value of mantissa ok 1072 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); ($m, $e) = $x -> sparts(); # ok 1073 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1074 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1075 - value of mantissa ok 1076 - value of exponent ok 1077 - input is unmodified # # $x = Math::BigFloat -> new("-100000"); $m = $x -> sparts(); # ok 1078 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1079 - value of mantissa ok 1080 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); ($m, $e) = $x -> sparts(); # ok 1081 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1082 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1083 - value of mantissa ok 1084 - value of exponent ok 1085 - input is unmodified # # $x = Math::BigFloat -> new("-1000000"); $m = $x -> sparts(); # ok 1086 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1087 - value of mantissa ok 1088 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); ($m, $e) = $x -> sparts(); # ok 1089 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1090 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1091 - value of mantissa ok 1092 - value of exponent ok 1093 - input is unmodified # # $x = Math::BigFloat -> new("-10000000"); $m = $x -> sparts(); # ok 1094 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1095 - value of mantissa ok 1096 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); ($m, $e) = $x -> sparts(); # ok 1097 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1098 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1099 - value of mantissa ok 1100 - value of exponent ok 1101 - input is unmodified # # $x = Math::BigFloat -> new("-100000000"); $m = $x -> sparts(); # ok 1102 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1103 - value of mantissa ok 1104 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); ($m, $e) = $x -> sparts(); # ok 1105 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1106 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1107 - value of mantissa ok 1108 - value of exponent ok 1109 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000"); $m = $x -> sparts(); # ok 1110 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1111 - value of mantissa ok 1112 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); ($m, $e) = $x -> sparts(); # ok 1113 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1114 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1115 - value of mantissa ok 1116 - value of exponent ok 1117 - input is unmodified # # $x = Math::BigFloat -> new("-10000000000"); $m = $x -> sparts(); # ok 1118 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1119 - value of mantissa ok 1120 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); ($m, $e) = $x -> sparts(); # ok 1121 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1122 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1123 - value of mantissa ok 1124 - value of exponent ok 1125 - input is unmodified # # $x = Math::BigFloat -> new("-100000000000"); $m = $x -> sparts(); # ok 1126 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1127 - value of mantissa ok 1128 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); ($m, $e) = $x -> sparts(); # ok 1129 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1130 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1131 - value of mantissa ok 1132 - value of exponent ok 1133 - input is unmodified # # $x = Math::BigFloat -> new("-1000000000000"); $m = $x -> sparts(); # ok 1134 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1135 - value of mantissa ok 1136 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); ($m, $e) = $x -> sparts(); # ok 1137 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1138 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1139 - value of mantissa ok 1140 - value of exponent ok 1141 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000012"); $m = $x -> sparts(); # ok 1142 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1143 - value of mantissa ok 1144 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); ($m, $e) = $x -> sparts(); # ok 1145 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1146 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1147 - value of mantissa ok 1148 - value of exponent ok 1149 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000012"); $m = $x -> sparts(); # ok 1150 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1151 - value of mantissa ok 1152 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); ($m, $e) = $x -> sparts(); # ok 1153 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1154 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1155 - value of mantissa ok 1156 - value of exponent ok 1157 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000012"); $m = $x -> sparts(); # ok 1158 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1159 - value of mantissa ok 1160 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); ($m, $e) = $x -> sparts(); # ok 1161 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1162 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1163 - value of mantissa ok 1164 - value of exponent ok 1165 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000012"); $m = $x -> sparts(); # ok 1166 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1167 - value of mantissa ok 1168 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); ($m, $e) = $x -> sparts(); # ok 1169 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1170 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1171 - value of mantissa ok 1172 - value of exponent ok 1173 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000012"); $m = $x -> sparts(); # ok 1174 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1175 - value of mantissa ok 1176 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); ($m, $e) = $x -> sparts(); # ok 1177 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1178 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1179 - value of mantissa ok 1180 - value of exponent ok 1181 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000012"); $m = $x -> sparts(); # ok 1182 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1183 - value of mantissa ok 1184 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); ($m, $e) = $x -> sparts(); # ok 1185 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1186 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1187 - value of mantissa ok 1188 - value of exponent ok 1189 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000012"); $m = $x -> sparts(); # ok 1190 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1191 - value of mantissa ok 1192 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); ($m, $e) = $x -> sparts(); # ok 1193 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1194 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1195 - value of mantissa ok 1196 - value of exponent ok 1197 - input is unmodified # # $x = Math::BigFloat -> new("-0.000012"); $m = $x -> sparts(); # ok 1198 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1199 - value of mantissa ok 1200 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); ($m, $e) = $x -> sparts(); # ok 1201 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1202 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1203 - value of mantissa ok 1204 - value of exponent ok 1205 - input is unmodified # # $x = Math::BigFloat -> new("-0.00012"); $m = $x -> sparts(); # ok 1206 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1207 - value of mantissa ok 1208 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); ($m, $e) = $x -> sparts(); # ok 1209 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1210 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1211 - value of mantissa ok 1212 - value of exponent ok 1213 - input is unmodified # # $x = Math::BigFloat -> new("-0.0012"); $m = $x -> sparts(); # ok 1214 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1215 - value of mantissa ok 1216 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); ($m, $e) = $x -> sparts(); # ok 1217 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1218 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1219 - value of mantissa ok 1220 - value of exponent ok 1221 - input is unmodified # # $x = Math::BigFloat -> new("-0.012"); $m = $x -> sparts(); # ok 1222 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1223 - value of mantissa ok 1224 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); ($m, $e) = $x -> sparts(); # ok 1225 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1226 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1227 - value of mantissa ok 1228 - value of exponent ok 1229 - input is unmodified # # $x = Math::BigFloat -> new("-0.12"); $m = $x -> sparts(); # ok 1230 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1231 - value of mantissa ok 1232 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); ($m, $e) = $x -> sparts(); # ok 1233 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1234 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1235 - value of mantissa ok 1236 - value of exponent ok 1237 - input is unmodified # # $x = Math::BigFloat -> new("-1.2"); $m = $x -> sparts(); # ok 1238 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1239 - value of mantissa ok 1240 - input is unmodified # # $x = Math::BigFloat -> new("-12"); ($m, $e) = $x -> sparts(); # ok 1241 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1242 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1243 - value of mantissa ok 1244 - value of exponent ok 1245 - input is unmodified # # $x = Math::BigFloat -> new("-12"); $m = $x -> sparts(); # ok 1246 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1247 - value of mantissa ok 1248 - input is unmodified # # $x = Math::BigFloat -> new("-120"); ($m, $e) = $x -> sparts(); # ok 1249 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1250 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1251 - value of mantissa ok 1252 - value of exponent ok 1253 - input is unmodified # # $x = Math::BigFloat -> new("-120"); $m = $x -> sparts(); # ok 1254 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1255 - value of mantissa ok 1256 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); ($m, $e) = $x -> sparts(); # ok 1257 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1258 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1259 - value of mantissa ok 1260 - value of exponent ok 1261 - input is unmodified # # $x = Math::BigFloat -> new("-1200"); $m = $x -> sparts(); # ok 1262 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1263 - value of mantissa ok 1264 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); ($m, $e) = $x -> sparts(); # ok 1265 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1266 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1267 - value of mantissa ok 1268 - value of exponent ok 1269 - input is unmodified # # $x = Math::BigFloat -> new("-12000"); $m = $x -> sparts(); # ok 1270 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1271 - value of mantissa ok 1272 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); ($m, $e) = $x -> sparts(); # ok 1273 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1274 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1275 - value of mantissa ok 1276 - value of exponent ok 1277 - input is unmodified # # $x = Math::BigFloat -> new("-120000"); $m = $x -> sparts(); # ok 1278 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1279 - value of mantissa ok 1280 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); ($m, $e) = $x -> sparts(); # ok 1281 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1282 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1283 - value of mantissa ok 1284 - value of exponent ok 1285 - input is unmodified # # $x = Math::BigFloat -> new("-1200000"); $m = $x -> sparts(); # ok 1286 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1287 - value of mantissa ok 1288 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); ($m, $e) = $x -> sparts(); # ok 1289 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1290 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1291 - value of mantissa ok 1292 - value of exponent ok 1293 - input is unmodified # # $x = Math::BigFloat -> new("-12000000"); $m = $x -> sparts(); # ok 1294 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1295 - value of mantissa ok 1296 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); ($m, $e) = $x -> sparts(); # ok 1297 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1298 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1299 - value of mantissa ok 1300 - value of exponent ok 1301 - input is unmodified # # $x = Math::BigFloat -> new("-120000000"); $m = $x -> sparts(); # ok 1302 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1303 - value of mantissa ok 1304 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); ($m, $e) = $x -> sparts(); # ok 1305 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1306 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1307 - value of mantissa ok 1308 - value of exponent ok 1309 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000"); $m = $x -> sparts(); # ok 1310 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1311 - value of mantissa ok 1312 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); ($m, $e) = $x -> sparts(); # ok 1313 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1314 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1315 - value of mantissa ok 1316 - value of exponent ok 1317 - input is unmodified # # $x = Math::BigFloat -> new("-12000000000"); $m = $x -> sparts(); # ok 1318 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1319 - value of mantissa ok 1320 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); ($m, $e) = $x -> sparts(); # ok 1321 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1322 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1323 - value of mantissa ok 1324 - value of exponent ok 1325 - input is unmodified # # $x = Math::BigFloat -> new("-120000000000"); $m = $x -> sparts(); # ok 1326 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1327 - value of mantissa ok 1328 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); ($m, $e) = $x -> sparts(); # ok 1329 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1330 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1331 - value of mantissa ok 1332 - value of exponent ok 1333 - input is unmodified # # $x = Math::BigFloat -> new("-1200000000000"); $m = $x -> sparts(); # ok 1334 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1335 - value of mantissa ok 1336 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); ($m, $e) = $x -> sparts(); # ok 1337 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1338 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1339 - value of mantissa ok 1340 - value of exponent ok 1341 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000000123"); $m = $x -> sparts(); # ok 1342 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1343 - value of mantissa ok 1344 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); ($m, $e) = $x -> sparts(); # ok 1345 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1346 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1347 - value of mantissa ok 1348 - value of exponent ok 1349 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000000123"); $m = $x -> sparts(); # ok 1350 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1351 - value of mantissa ok 1352 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); ($m, $e) = $x -> sparts(); # ok 1353 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1354 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1355 - value of mantissa ok 1356 - value of exponent ok 1357 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000123"); $m = $x -> sparts(); # ok 1358 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1359 - value of mantissa ok 1360 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); ($m, $e) = $x -> sparts(); # ok 1361 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1362 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1363 - value of mantissa ok 1364 - value of exponent ok 1365 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000123"); $m = $x -> sparts(); # ok 1366 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1367 - value of mantissa ok 1368 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); ($m, $e) = $x -> sparts(); # ok 1369 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1370 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1371 - value of mantissa ok 1372 - value of exponent ok 1373 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000123"); $m = $x -> sparts(); # ok 1374 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1375 - value of mantissa ok 1376 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); ($m, $e) = $x -> sparts(); # ok 1377 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1378 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1379 - value of mantissa ok 1380 - value of exponent ok 1381 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000123"); $m = $x -> sparts(); # ok 1382 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1383 - value of mantissa ok 1384 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); ($m, $e) = $x -> sparts(); # ok 1385 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1386 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1387 - value of mantissa ok 1388 - value of exponent ok 1389 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000123"); $m = $x -> sparts(); # ok 1390 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1391 - value of mantissa ok 1392 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); ($m, $e) = $x -> sparts(); # ok 1393 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1394 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1395 - value of mantissa ok 1396 - value of exponent ok 1397 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000123"); $m = $x -> sparts(); # ok 1398 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1399 - value of mantissa ok 1400 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); ($m, $e) = $x -> sparts(); # ok 1401 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1402 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1403 - value of mantissa ok 1404 - value of exponent ok 1405 - input is unmodified # # $x = Math::BigFloat -> new("-0.000123"); $m = $x -> sparts(); # ok 1406 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1407 - value of mantissa ok 1408 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); ($m, $e) = $x -> sparts(); # ok 1409 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1410 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1411 - value of mantissa ok 1412 - value of exponent ok 1413 - input is unmodified # # $x = Math::BigFloat -> new("-0.00123"); $m = $x -> sparts(); # ok 1414 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1415 - value of mantissa ok 1416 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); ($m, $e) = $x -> sparts(); # ok 1417 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1418 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1419 - value of mantissa ok 1420 - value of exponent ok 1421 - input is unmodified # # $x = Math::BigFloat -> new("-0.0123"); $m = $x -> sparts(); # ok 1422 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1423 - value of mantissa ok 1424 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); ($m, $e) = $x -> sparts(); # ok 1425 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1426 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1427 - value of mantissa ok 1428 - value of exponent ok 1429 - input is unmodified # # $x = Math::BigFloat -> new("-0.123"); $m = $x -> sparts(); # ok 1430 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1431 - value of mantissa ok 1432 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); ($m, $e) = $x -> sparts(); # ok 1433 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1434 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1435 - value of mantissa ok 1436 - value of exponent ok 1437 - input is unmodified # # $x = Math::BigFloat -> new("-1.23"); $m = $x -> sparts(); # ok 1438 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1439 - value of mantissa ok 1440 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); ($m, $e) = $x -> sparts(); # ok 1441 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1442 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1443 - value of mantissa ok 1444 - value of exponent ok 1445 - input is unmodified # # $x = Math::BigFloat -> new("-12.3"); $m = $x -> sparts(); # ok 1446 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1447 - value of mantissa ok 1448 - input is unmodified # # $x = Math::BigFloat -> new("-123"); ($m, $e) = $x -> sparts(); # ok 1449 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1450 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1451 - value of mantissa ok 1452 - value of exponent ok 1453 - input is unmodified # # $x = Math::BigFloat -> new("-123"); $m = $x -> sparts(); # ok 1454 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1455 - value of mantissa ok 1456 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); ($m, $e) = $x -> sparts(); # ok 1457 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1458 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1459 - value of mantissa ok 1460 - value of exponent ok 1461 - input is unmodified # # $x = Math::BigFloat -> new("-1230"); $m = $x -> sparts(); # ok 1462 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1463 - value of mantissa ok 1464 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); ($m, $e) = $x -> sparts(); # ok 1465 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1466 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1467 - value of mantissa ok 1468 - value of exponent ok 1469 - input is unmodified # # $x = Math::BigFloat -> new("-12300"); $m = $x -> sparts(); # ok 1470 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1471 - value of mantissa ok 1472 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); ($m, $e) = $x -> sparts(); # ok 1473 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1474 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1475 - value of mantissa ok 1476 - value of exponent ok 1477 - input is unmodified # # $x = Math::BigFloat -> new("-123000"); $m = $x -> sparts(); # ok 1478 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1479 - value of mantissa ok 1480 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); ($m, $e) = $x -> sparts(); # ok 1481 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1482 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1483 - value of mantissa ok 1484 - value of exponent ok 1485 - input is unmodified # # $x = Math::BigFloat -> new("-1230000"); $m = $x -> sparts(); # ok 1486 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1487 - value of mantissa ok 1488 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); ($m, $e) = $x -> sparts(); # ok 1489 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1490 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1491 - value of mantissa ok 1492 - value of exponent ok 1493 - input is unmodified # # $x = Math::BigFloat -> new("-12300000"); $m = $x -> sparts(); # ok 1494 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1495 - value of mantissa ok 1496 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); ($m, $e) = $x -> sparts(); # ok 1497 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1498 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1499 - value of mantissa ok 1500 - value of exponent ok 1501 - input is unmodified # # $x = Math::BigFloat -> new("-123000000"); $m = $x -> sparts(); # ok 1502 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1503 - value of mantissa ok 1504 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); ($m, $e) = $x -> sparts(); # ok 1505 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1506 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1507 - value of mantissa ok 1508 - value of exponent ok 1509 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000"); $m = $x -> sparts(); # ok 1510 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1511 - value of mantissa ok 1512 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); ($m, $e) = $x -> sparts(); # ok 1513 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1514 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1515 - value of mantissa ok 1516 - value of exponent ok 1517 - input is unmodified # # $x = Math::BigFloat -> new("-12300000000"); $m = $x -> sparts(); # ok 1518 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1519 - value of mantissa ok 1520 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); ($m, $e) = $x -> sparts(); # ok 1521 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1522 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1523 - value of mantissa ok 1524 - value of exponent ok 1525 - input is unmodified # # $x = Math::BigFloat -> new("-123000000000"); $m = $x -> sparts(); # ok 1526 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1527 - value of mantissa ok 1528 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); ($m, $e) = $x -> sparts(); # ok 1529 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1530 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1531 - value of mantissa ok 1532 - value of exponent ok 1533 - input is unmodified # # $x = Math::BigFloat -> new("-1230000000000"); $m = $x -> sparts(); # ok 1534 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1535 - value of mantissa ok 1536 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); ($m, $e) = $x -> sparts(); # ok 1537 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1538 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1539 - value of mantissa ok 1540 - value of exponent ok 1541 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000000001234"); $m = $x -> sparts(); # ok 1542 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1543 - value of mantissa ok 1544 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); ($m, $e) = $x -> sparts(); # ok 1545 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1546 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1547 - value of mantissa ok 1548 - value of exponent ok 1549 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000000001234"); $m = $x -> sparts(); # ok 1550 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1551 - value of mantissa ok 1552 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); ($m, $e) = $x -> sparts(); # ok 1553 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1554 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1555 - value of mantissa ok 1556 - value of exponent ok 1557 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000000001234"); $m = $x -> sparts(); # ok 1558 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1559 - value of mantissa ok 1560 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); ($m, $e) = $x -> sparts(); # ok 1561 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1562 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1563 - value of mantissa ok 1564 - value of exponent ok 1565 - input is unmodified # # $x = Math::BigFloat -> new("-0.000000001234"); $m = $x -> sparts(); # ok 1566 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1567 - value of mantissa ok 1568 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); ($m, $e) = $x -> sparts(); # ok 1569 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1570 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1571 - value of mantissa ok 1572 - value of exponent ok 1573 - input is unmodified # # $x = Math::BigFloat -> new("-0.00000001234"); $m = $x -> sparts(); # ok 1574 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1575 - value of mantissa ok 1576 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); ($m, $e) = $x -> sparts(); # ok 1577 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1578 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1579 - value of mantissa ok 1580 - value of exponent ok 1581 - input is unmodified # # $x = Math::BigFloat -> new("-0.0000001234"); $m = $x -> sparts(); # ok 1582 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1583 - value of mantissa ok 1584 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); ($m, $e) = $x -> sparts(); # ok 1585 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1586 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1587 - value of mantissa ok 1588 - value of exponent ok 1589 - input is unmodified # # $x = Math::BigFloat -> new("-0.000001234"); $m = $x -> sparts(); # ok 1590 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1591 - value of mantissa ok 1592 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); ($m, $e) = $x -> sparts(); # ok 1593 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1594 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1595 - value of mantissa ok 1596 - value of exponent ok 1597 - input is unmodified # # $x = Math::BigFloat -> new("-0.00001234"); $m = $x -> sparts(); # ok 1598 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1599 - value of mantissa ok 1600 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); ($m, $e) = $x -> sparts(); # ok 1601 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1602 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1603 - value of mantissa ok 1604 - value of exponent ok 1605 - input is unmodified # # $x = Math::BigFloat -> new("-0.0001234"); $m = $x -> sparts(); # ok 1606 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1607 - value of mantissa ok 1608 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); ($m, $e) = $x -> sparts(); # ok 1609 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1610 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1611 - value of mantissa ok 1612 - value of exponent ok 1613 - input is unmodified # # $x = Math::BigFloat -> new("-0.001234"); $m = $x -> sparts(); # ok 1614 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1615 - value of mantissa ok 1616 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); ($m, $e) = $x -> sparts(); # ok 1617 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1618 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1619 - value of mantissa ok 1620 - value of exponent ok 1621 - input is unmodified # # $x = Math::BigFloat -> new("-0.01234"); $m = $x -> sparts(); # ok 1622 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1623 - value of mantissa ok 1624 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); ($m, $e) = $x -> sparts(); # ok 1625 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1626 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1627 - value of mantissa ok 1628 - value of exponent ok 1629 - input is unmodified # # $x = Math::BigFloat -> new("-0.1234"); $m = $x -> sparts(); # ok 1630 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1631 - value of mantissa ok 1632 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); ($m, $e) = $x -> sparts(); # ok 1633 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1634 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1635 - value of mantissa ok 1636 - value of exponent ok 1637 - input is unmodified # # $x = Math::BigFloat -> new("-1.234"); $m = $x -> sparts(); # ok 1638 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1639 - value of mantissa ok 1640 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); ($m, $e) = $x -> sparts(); # ok 1641 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1642 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1643 - value of mantissa ok 1644 - value of exponent ok 1645 - input is unmodified # # $x = Math::BigFloat -> new("-12.34"); $m = $x -> sparts(); # ok 1646 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1647 - value of mantissa ok 1648 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); ($m, $e) = $x -> sparts(); # ok 1649 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1650 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1651 - value of mantissa ok 1652 - value of exponent ok 1653 - input is unmodified # # $x = Math::BigFloat -> new("-123.4"); $m = $x -> sparts(); # ok 1654 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1655 - value of mantissa ok 1656 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); ($m, $e) = $x -> sparts(); # ok 1657 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1658 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1659 - value of mantissa ok 1660 - value of exponent ok 1661 - input is unmodified # # $x = Math::BigFloat -> new("-1234"); $m = $x -> sparts(); # ok 1662 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1663 - value of mantissa ok 1664 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); ($m, $e) = $x -> sparts(); # ok 1665 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1666 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1667 - value of mantissa ok 1668 - value of exponent ok 1669 - input is unmodified # # $x = Math::BigFloat -> new("-12340"); $m = $x -> sparts(); # ok 1670 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1671 - value of mantissa ok 1672 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); ($m, $e) = $x -> sparts(); # ok 1673 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1674 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1675 - value of mantissa ok 1676 - value of exponent ok 1677 - input is unmodified # # $x = Math::BigFloat -> new("-123400"); $m = $x -> sparts(); # ok 1678 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1679 - value of mantissa ok 1680 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); ($m, $e) = $x -> sparts(); # ok 1681 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1682 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1683 - value of mantissa ok 1684 - value of exponent ok 1685 - input is unmodified # # $x = Math::BigFloat -> new("-1234000"); $m = $x -> sparts(); # ok 1686 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1687 - value of mantissa ok 1688 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); ($m, $e) = $x -> sparts(); # ok 1689 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1690 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1691 - value of mantissa ok 1692 - value of exponent ok 1693 - input is unmodified # # $x = Math::BigFloat -> new("-12340000"); $m = $x -> sparts(); # ok 1694 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1695 - value of mantissa ok 1696 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); ($m, $e) = $x -> sparts(); # ok 1697 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1698 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1699 - value of mantissa ok 1700 - value of exponent ok 1701 - input is unmodified # # $x = Math::BigFloat -> new("-123400000"); $m = $x -> sparts(); # ok 1702 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1703 - value of mantissa ok 1704 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); ($m, $e) = $x -> sparts(); # ok 1705 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1706 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1707 - value of mantissa ok 1708 - value of exponent ok 1709 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000"); $m = $x -> sparts(); # ok 1710 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1711 - value of mantissa ok 1712 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); ($m, $e) = $x -> sparts(); # ok 1713 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1714 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1715 - value of mantissa ok 1716 - value of exponent ok 1717 - input is unmodified # # $x = Math::BigFloat -> new("-12340000000"); $m = $x -> sparts(); # ok 1718 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1719 - value of mantissa ok 1720 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); ($m, $e) = $x -> sparts(); # ok 1721 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1722 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1723 - value of mantissa ok 1724 - value of exponent ok 1725 - input is unmodified # # $x = Math::BigFloat -> new("-123400000000"); $m = $x -> sparts(); # ok 1726 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1727 - value of mantissa ok 1728 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); ($m, $e) = $x -> sparts(); # ok 1729 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1730 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1731 - value of mantissa ok 1732 - value of exponent ok 1733 - input is unmodified # # $x = Math::BigFloat -> new("-1234000000000"); $m = $x -> sparts(); # ok 1734 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1735 - value of mantissa ok 1736 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); ($m, $e) = $x -> sparts(); # ok 1737 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1738 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1739 - value of mantissa ok 1740 - value of exponent ok 1741 - input is unmodified # # $x = Math::BigFloat -> new("-0.000003141592"); $m = $x -> sparts(); # ok 1742 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1743 - value of mantissa ok 1744 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); ($m, $e) = $x -> sparts(); # ok 1745 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1746 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1747 - value of mantissa ok 1748 - value of exponent ok 1749 - input is unmodified # # $x = Math::BigFloat -> new("-0.00003141592"); $m = $x -> sparts(); # ok 1750 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1751 - value of mantissa ok 1752 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); ($m, $e) = $x -> sparts(); # ok 1753 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1754 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1755 - value of mantissa ok 1756 - value of exponent ok 1757 - input is unmodified # # $x = Math::BigFloat -> new("-0.0003141592"); $m = $x -> sparts(); # ok 1758 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1759 - value of mantissa ok 1760 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); ($m, $e) = $x -> sparts(); # ok 1761 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1762 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1763 - value of mantissa ok 1764 - value of exponent ok 1765 - input is unmodified # # $x = Math::BigFloat -> new("-0.003141592"); $m = $x -> sparts(); # ok 1766 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1767 - value of mantissa ok 1768 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); ($m, $e) = $x -> sparts(); # ok 1769 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1770 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1771 - value of mantissa ok 1772 - value of exponent ok 1773 - input is unmodified # # $x = Math::BigFloat -> new("-0.03141592"); $m = $x -> sparts(); # ok 1774 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1775 - value of mantissa ok 1776 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); ($m, $e) = $x -> sparts(); # ok 1777 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1778 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1779 - value of mantissa ok 1780 - value of exponent ok 1781 - input is unmodified # # $x = Math::BigFloat -> new("-0.3141592"); $m = $x -> sparts(); # ok 1782 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1783 - value of mantissa ok 1784 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); ($m, $e) = $x -> sparts(); # ok 1785 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1786 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1787 - value of mantissa ok 1788 - value of exponent ok 1789 - input is unmodified # # $x = Math::BigFloat -> new("-3.141592"); $m = $x -> sparts(); # ok 1790 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1791 - value of mantissa ok 1792 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); ($m, $e) = $x -> sparts(); # ok 1793 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1794 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1795 - value of mantissa ok 1796 - value of exponent ok 1797 - input is unmodified # # $x = Math::BigFloat -> new("-31.41592"); $m = $x -> sparts(); # ok 1798 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1799 - value of mantissa ok 1800 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); ($m, $e) = $x -> sparts(); # ok 1801 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1802 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1803 - value of mantissa ok 1804 - value of exponent ok 1805 - input is unmodified # # $x = Math::BigFloat -> new("-314.1592"); $m = $x -> sparts(); # ok 1806 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1807 - value of mantissa ok 1808 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); ($m, $e) = $x -> sparts(); # ok 1809 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1810 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1811 - value of mantissa ok 1812 - value of exponent ok 1813 - input is unmodified # # $x = Math::BigFloat -> new("-3141.592"); $m = $x -> sparts(); # ok 1814 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1815 - value of mantissa ok 1816 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); ($m, $e) = $x -> sparts(); # ok 1817 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1818 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1819 - value of mantissa ok 1820 - value of exponent ok 1821 - input is unmodified # # $x = Math::BigFloat -> new("-31415.92"); $m = $x -> sparts(); # ok 1822 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1823 - value of mantissa ok 1824 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); ($m, $e) = $x -> sparts(); # ok 1825 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1826 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1827 - value of mantissa ok 1828 - value of exponent ok 1829 - input is unmodified # # $x = Math::BigFloat -> new("-314159.2"); $m = $x -> sparts(); # ok 1830 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1831 - value of mantissa ok 1832 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); ($m, $e) = $x -> sparts(); # ok 1833 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1834 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1835 - value of mantissa ok 1836 - value of exponent ok 1837 - input is unmodified # # $x = Math::BigFloat -> new("-3141592"); $m = $x -> sparts(); # ok 1838 - An object of class 'Math::BigFloat' isa 'Math::BigFloat' ok 1839 - value of mantissa ok 1840 - input is unmodified ok t/sparts-mbi.t ................................ 1..784 # # $x = Math::BigInt -> new("NaN"); ($m, $e) = $x -> sparts(); # ok 1 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 2 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 3 - value of mantissa ok 4 - value of exponent ok 5 - input is unmodified # # $x = Math::BigInt -> new("NaN"); $m = $x -> sparts(); # ok 6 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 7 - value of mantissa ok 8 - input is unmodified # # $x = Math::BigInt -> new("inf"); ($m, $e) = $x -> sparts(); # ok 9 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 10 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 11 - value of mantissa ok 12 - value of exponent ok 13 - input is unmodified # # $x = Math::BigInt -> new("inf"); $m = $x -> sparts(); # ok 14 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 15 - value of mantissa ok 16 - input is unmodified # # $x = Math::BigInt -> new("-inf"); ($m, $e) = $x -> sparts(); # ok 17 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 18 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 19 - value of mantissa ok 20 - value of exponent ok 21 - input is unmodified # # $x = Math::BigInt -> new("-inf"); $m = $x -> sparts(); # ok 22 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 23 - value of mantissa ok 24 - input is unmodified # # $x = Math::BigInt -> new("0"); ($m, $e) = $x -> sparts(); # ok 25 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 26 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 27 - value of mantissa ok 28 - value of exponent ok 29 - input is unmodified # # $x = Math::BigInt -> new("0"); $m = $x -> sparts(); # ok 30 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 31 - value of mantissa ok 32 - input is unmodified # # $x = Math::BigInt -> new("1"); ($m, $e) = $x -> sparts(); # ok 33 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 34 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 35 - value of mantissa ok 36 - value of exponent ok 37 - input is unmodified # # $x = Math::BigInt -> new("1"); $m = $x -> sparts(); # ok 38 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 39 - value of mantissa ok 40 - input is unmodified # # $x = Math::BigInt -> new("10"); ($m, $e) = $x -> sparts(); # ok 41 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 42 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 43 - value of mantissa ok 44 - value of exponent ok 45 - input is unmodified # # $x = Math::BigInt -> new("10"); $m = $x -> sparts(); # ok 46 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 47 - value of mantissa ok 48 - input is unmodified # # $x = Math::BigInt -> new("100"); ($m, $e) = $x -> sparts(); # ok 49 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 50 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 51 - value of mantissa ok 52 - value of exponent ok 53 - input is unmodified # # $x = Math::BigInt -> new("100"); $m = $x -> sparts(); # ok 54 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 55 - value of mantissa ok 56 - input is unmodified # # $x = Math::BigInt -> new("1000"); ($m, $e) = $x -> sparts(); # ok 57 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 58 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 59 - value of mantissa ok 60 - value of exponent ok 61 - input is unmodified # # $x = Math::BigInt -> new("1000"); $m = $x -> sparts(); # ok 62 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 63 - value of mantissa ok 64 - input is unmodified # # $x = Math::BigInt -> new("10000"); ($m, $e) = $x -> sparts(); # ok 65 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 66 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 67 - value of mantissa ok 68 - value of exponent ok 69 - input is unmodified # # $x = Math::BigInt -> new("10000"); $m = $x -> sparts(); # ok 70 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 71 - value of mantissa ok 72 - input is unmodified # # $x = Math::BigInt -> new("100000"); ($m, $e) = $x -> sparts(); # ok 73 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 74 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 75 - value of mantissa ok 76 - value of exponent ok 77 - input is unmodified # # $x = Math::BigInt -> new("100000"); $m = $x -> sparts(); # ok 78 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 79 - value of mantissa ok 80 - input is unmodified # # $x = Math::BigInt -> new("1000000"); ($m, $e) = $x -> sparts(); # ok 81 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 82 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 83 - value of mantissa ok 84 - value of exponent ok 85 - input is unmodified # # $x = Math::BigInt -> new("1000000"); $m = $x -> sparts(); # ok 86 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 87 - value of mantissa ok 88 - input is unmodified # # $x = Math::BigInt -> new("10000000"); ($m, $e) = $x -> sparts(); # ok 89 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 90 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 91 - value of mantissa ok 92 - value of exponent ok 93 - input is unmodified # # $x = Math::BigInt -> new("10000000"); $m = $x -> sparts(); # ok 94 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 95 - value of mantissa ok 96 - input is unmodified # # $x = Math::BigInt -> new("100000000"); ($m, $e) = $x -> sparts(); # ok 97 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 98 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 99 - value of mantissa ok 100 - value of exponent ok 101 - input is unmodified # # $x = Math::BigInt -> new("100000000"); $m = $x -> sparts(); # ok 102 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 103 - value of mantissa ok 104 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); ($m, $e) = $x -> sparts(); # ok 105 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 106 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 107 - value of mantissa ok 108 - value of exponent ok 109 - input is unmodified # # $x = Math::BigInt -> new("1000000000"); $m = $x -> sparts(); # ok 110 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 111 - value of mantissa ok 112 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); ($m, $e) = $x -> sparts(); # ok 113 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 114 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 115 - value of mantissa ok 116 - value of exponent ok 117 - input is unmodified # # $x = Math::BigInt -> new("10000000000"); $m = $x -> sparts(); # ok 118 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 119 - value of mantissa ok 120 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); ($m, $e) = $x -> sparts(); # ok 121 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 122 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 123 - value of mantissa ok 124 - value of exponent ok 125 - input is unmodified # # $x = Math::BigInt -> new("100000000000"); $m = $x -> sparts(); # ok 126 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 127 - value of mantissa ok 128 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); ($m, $e) = $x -> sparts(); # ok 129 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 130 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 131 - value of mantissa ok 132 - value of exponent ok 133 - input is unmodified # # $x = Math::BigInt -> new("1000000000000"); $m = $x -> sparts(); # ok 134 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 135 - value of mantissa ok 136 - input is unmodified # # $x = Math::BigInt -> new("12"); ($m, $e) = $x -> sparts(); # ok 137 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 138 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 139 - value of mantissa ok 140 - value of exponent ok 141 - input is unmodified # # $x = Math::BigInt -> new("12"); $m = $x -> sparts(); # ok 142 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 143 - value of mantissa ok 144 - input is unmodified # # $x = Math::BigInt -> new("120"); ($m, $e) = $x -> sparts(); # ok 145 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 146 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 147 - value of mantissa ok 148 - value of exponent ok 149 - input is unmodified # # $x = Math::BigInt -> new("120"); $m = $x -> sparts(); # ok 150 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 151 - value of mantissa ok 152 - input is unmodified # # $x = Math::BigInt -> new("1200"); ($m, $e) = $x -> sparts(); # ok 153 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 154 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 155 - value of mantissa ok 156 - value of exponent ok 157 - input is unmodified # # $x = Math::BigInt -> new("1200"); $m = $x -> sparts(); # ok 158 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 159 - value of mantissa ok 160 - input is unmodified # # $x = Math::BigInt -> new("12000"); ($m, $e) = $x -> sparts(); # ok 161 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 162 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 163 - value of mantissa ok 164 - value of exponent ok 165 - input is unmodified # # $x = Math::BigInt -> new("12000"); $m = $x -> sparts(); # ok 166 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 167 - value of mantissa ok 168 - input is unmodified # # $x = Math::BigInt -> new("120000"); ($m, $e) = $x -> sparts(); # ok 169 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 170 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 171 - value of mantissa ok 172 - value of exponent ok 173 - input is unmodified # # $x = Math::BigInt -> new("120000"); $m = $x -> sparts(); # ok 174 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 175 - value of mantissa ok 176 - input is unmodified # # $x = Math::BigInt -> new("1200000"); ($m, $e) = $x -> sparts(); # ok 177 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 178 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 179 - value of mantissa ok 180 - value of exponent ok 181 - input is unmodified # # $x = Math::BigInt -> new("1200000"); $m = $x -> sparts(); # ok 182 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 183 - value of mantissa ok 184 - input is unmodified # # $x = Math::BigInt -> new("12000000"); ($m, $e) = $x -> sparts(); # ok 185 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 186 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 187 - value of mantissa ok 188 - value of exponent ok 189 - input is unmodified # # $x = Math::BigInt -> new("12000000"); $m = $x -> sparts(); # ok 190 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 191 - value of mantissa ok 192 - input is unmodified # # $x = Math::BigInt -> new("120000000"); ($m, $e) = $x -> sparts(); # ok 193 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 194 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 195 - value of mantissa ok 196 - value of exponent ok 197 - input is unmodified # # $x = Math::BigInt -> new("120000000"); $m = $x -> sparts(); # ok 198 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 199 - value of mantissa ok 200 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); ($m, $e) = $x -> sparts(); # ok 201 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 202 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 203 - value of mantissa ok 204 - value of exponent ok 205 - input is unmodified # # $x = Math::BigInt -> new("1200000000"); $m = $x -> sparts(); # ok 206 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 207 - value of mantissa ok 208 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); ($m, $e) = $x -> sparts(); # ok 209 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 210 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 211 - value of mantissa ok 212 - value of exponent ok 213 - input is unmodified # # $x = Math::BigInt -> new("12000000000"); $m = $x -> sparts(); # ok 214 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 215 - value of mantissa ok 216 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); ($m, $e) = $x -> sparts(); # ok 217 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 218 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 219 - value of mantissa ok 220 - value of exponent ok 221 - input is unmodified # # $x = Math::BigInt -> new("120000000000"); $m = $x -> sparts(); # ok 222 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 223 - value of mantissa ok 224 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); ($m, $e) = $x -> sparts(); # ok 225 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 226 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 227 - value of mantissa ok 228 - value of exponent ok 229 - input is unmodified # # $x = Math::BigInt -> new("1200000000000"); $m = $x -> sparts(); # ok 230 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 231 - value of mantissa ok 232 - input is unmodified # # $x = Math::BigInt -> new("123"); ($m, $e) = $x -> sparts(); # ok 233 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 234 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 235 - value of mantissa ok 236 - value of exponent ok 237 - input is unmodified # # $x = Math::BigInt -> new("123"); $m = $x -> sparts(); # ok 238 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 239 - value of mantissa ok 240 - input is unmodified # # $x = Math::BigInt -> new("1230"); ($m, $e) = $x -> sparts(); # ok 241 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 242 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 243 - value of mantissa ok 244 - value of exponent ok 245 - input is unmodified # # $x = Math::BigInt -> new("1230"); $m = $x -> sparts(); # ok 246 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 247 - value of mantissa ok 248 - input is unmodified # # $x = Math::BigInt -> new("12300"); ($m, $e) = $x -> sparts(); # ok 249 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 250 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 251 - value of mantissa ok 252 - value of exponent ok 253 - input is unmodified # # $x = Math::BigInt -> new("12300"); $m = $x -> sparts(); # ok 254 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 255 - value of mantissa ok 256 - input is unmodified # # $x = Math::BigInt -> new("123000"); ($m, $e) = $x -> sparts(); # ok 257 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 258 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 259 - value of mantissa ok 260 - value of exponent ok 261 - input is unmodified # # $x = Math::BigInt -> new("123000"); $m = $x -> sparts(); # ok 262 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 263 - value of mantissa ok 264 - input is unmodified # # $x = Math::BigInt -> new("1230000"); ($m, $e) = $x -> sparts(); # ok 265 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 266 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 267 - value of mantissa ok 268 - value of exponent ok 269 - input is unmodified # # $x = Math::BigInt -> new("1230000"); $m = $x -> sparts(); # ok 270 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 271 - value of mantissa ok 272 - input is unmodified # # $x = Math::BigInt -> new("12300000"); ($m, $e) = $x -> sparts(); # ok 273 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 274 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 275 - value of mantissa ok 276 - value of exponent ok 277 - input is unmodified # # $x = Math::BigInt -> new("12300000"); $m = $x -> sparts(); # ok 278 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 279 - value of mantissa ok 280 - input is unmodified # # $x = Math::BigInt -> new("123000000"); ($m, $e) = $x -> sparts(); # ok 281 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 282 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 283 - value of mantissa ok 284 - value of exponent ok 285 - input is unmodified # # $x = Math::BigInt -> new("123000000"); $m = $x -> sparts(); # ok 286 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 287 - value of mantissa ok 288 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); ($m, $e) = $x -> sparts(); # ok 289 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 290 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 291 - value of mantissa ok 292 - value of exponent ok 293 - input is unmodified # # $x = Math::BigInt -> new("1230000000"); $m = $x -> sparts(); # ok 294 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 295 - value of mantissa ok 296 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); ($m, $e) = $x -> sparts(); # ok 297 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 298 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 299 - value of mantissa ok 300 - value of exponent ok 301 - input is unmodified # # $x = Math::BigInt -> new("12300000000"); $m = $x -> sparts(); # ok 302 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 303 - value of mantissa ok 304 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); ($m, $e) = $x -> sparts(); # ok 305 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 306 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 307 - value of mantissa ok 308 - value of exponent ok 309 - input is unmodified # # $x = Math::BigInt -> new("123000000000"); $m = $x -> sparts(); # ok 310 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 311 - value of mantissa ok 312 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); ($m, $e) = $x -> sparts(); # ok 313 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 314 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 315 - value of mantissa ok 316 - value of exponent ok 317 - input is unmodified # # $x = Math::BigInt -> new("1230000000000"); $m = $x -> sparts(); # ok 318 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 319 - value of mantissa ok 320 - input is unmodified # # $x = Math::BigInt -> new("1234"); ($m, $e) = $x -> sparts(); # ok 321 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 322 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 323 - value of mantissa ok 324 - value of exponent ok 325 - input is unmodified # # $x = Math::BigInt -> new("1234"); $m = $x -> sparts(); # ok 326 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 327 - value of mantissa ok 328 - input is unmodified # # $x = Math::BigInt -> new("12340"); ($m, $e) = $x -> sparts(); # ok 329 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 330 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 331 - value of mantissa ok 332 - value of exponent ok 333 - input is unmodified # # $x = Math::BigInt -> new("12340"); $m = $x -> sparts(); # ok 334 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 335 - value of mantissa ok 336 - input is unmodified # # $x = Math::BigInt -> new("123400"); ($m, $e) = $x -> sparts(); # ok 337 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 338 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 339 - value of mantissa ok 340 - value of exponent ok 341 - input is unmodified # # $x = Math::BigInt -> new("123400"); $m = $x -> sparts(); # ok 342 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 343 - value of mantissa ok 344 - input is unmodified # # $x = Math::BigInt -> new("1234000"); ($m, $e) = $x -> sparts(); # ok 345 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 346 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 347 - value of mantissa ok 348 - value of exponent ok 349 - input is unmodified # # $x = Math::BigInt -> new("1234000"); $m = $x -> sparts(); # ok 350 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 351 - value of mantissa ok 352 - input is unmodified # # $x = Math::BigInt -> new("12340000"); ($m, $e) = $x -> sparts(); # ok 353 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 354 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 355 - value of mantissa ok 356 - value of exponent ok 357 - input is unmodified # # $x = Math::BigInt -> new("12340000"); $m = $x -> sparts(); # ok 358 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 359 - value of mantissa ok 360 - input is unmodified # # $x = Math::BigInt -> new("123400000"); ($m, $e) = $x -> sparts(); # ok 361 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 362 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 363 - value of mantissa ok 364 - value of exponent ok 365 - input is unmodified # # $x = Math::BigInt -> new("123400000"); $m = $x -> sparts(); # ok 366 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 367 - value of mantissa ok 368 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); ($m, $e) = $x -> sparts(); # ok 369 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 370 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 371 - value of mantissa ok 372 - value of exponent ok 373 - input is unmodified # # $x = Math::BigInt -> new("1234000000"); $m = $x -> sparts(); # ok 374 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 375 - value of mantissa ok 376 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); ($m, $e) = $x -> sparts(); # ok 377 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 378 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 379 - value of mantissa ok 380 - value of exponent ok 381 - input is unmodified # # $x = Math::BigInt -> new("12340000000"); $m = $x -> sparts(); # ok 382 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 383 - value of mantissa ok 384 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); ($m, $e) = $x -> sparts(); # ok 385 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 386 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 387 - value of mantissa ok 388 - value of exponent ok 389 - input is unmodified # # $x = Math::BigInt -> new("123400000000"); $m = $x -> sparts(); # ok 390 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 391 - value of mantissa ok 392 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); ($m, $e) = $x -> sparts(); # ok 393 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 394 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 395 - value of mantissa ok 396 - value of exponent ok 397 - input is unmodified # # $x = Math::BigInt -> new("1234000000000"); $m = $x -> sparts(); # ok 398 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 399 - value of mantissa ok 400 - input is unmodified # # $x = Math::BigInt -> new("3141592"); ($m, $e) = $x -> sparts(); # ok 401 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 402 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 403 - value of mantissa ok 404 - value of exponent ok 405 - input is unmodified # # $x = Math::BigInt -> new("3141592"); $m = $x -> sparts(); # ok 406 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 407 - value of mantissa ok 408 - input is unmodified # # $x = Math::BigInt -> new("-1"); ($m, $e) = $x -> sparts(); # ok 409 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 410 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 411 - value of mantissa ok 412 - value of exponent ok 413 - input is unmodified # # $x = Math::BigInt -> new("-1"); $m = $x -> sparts(); # ok 414 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 415 - value of mantissa ok 416 - input is unmodified # # $x = Math::BigInt -> new("-10"); ($m, $e) = $x -> sparts(); # ok 417 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 418 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 419 - value of mantissa ok 420 - value of exponent ok 421 - input is unmodified # # $x = Math::BigInt -> new("-10"); $m = $x -> sparts(); # ok 422 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 423 - value of mantissa ok 424 - input is unmodified # # $x = Math::BigInt -> new("-100"); ($m, $e) = $x -> sparts(); # ok 425 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 426 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 427 - value of mantissa ok 428 - value of exponent ok 429 - input is unmodified # # $x = Math::BigInt -> new("-100"); $m = $x -> sparts(); # ok 430 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 431 - value of mantissa ok 432 - input is unmodified # # $x = Math::BigInt -> new("-1000"); ($m, $e) = $x -> sparts(); # ok 433 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 434 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 435 - value of mantissa ok 436 - value of exponent ok 437 - input is unmodified # # $x = Math::BigInt -> new("-1000"); $m = $x -> sparts(); # ok 438 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 439 - value of mantissa ok 440 - input is unmodified # # $x = Math::BigInt -> new("-10000"); ($m, $e) = $x -> sparts(); # ok 441 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 442 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 443 - value of mantissa ok 444 - value of exponent ok 445 - input is unmodified # # $x = Math::BigInt -> new("-10000"); $m = $x -> sparts(); # ok 446 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 447 - value of mantissa ok 448 - input is unmodified # # $x = Math::BigInt -> new("-100000"); ($m, $e) = $x -> sparts(); # ok 449 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 450 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 451 - value of mantissa ok 452 - value of exponent ok 453 - input is unmodified # # $x = Math::BigInt -> new("-100000"); $m = $x -> sparts(); # ok 454 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 455 - value of mantissa ok 456 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); ($m, $e) = $x -> sparts(); # ok 457 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 458 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 459 - value of mantissa ok 460 - value of exponent ok 461 - input is unmodified # # $x = Math::BigInt -> new("-1000000"); $m = $x -> sparts(); # ok 462 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 463 - value of mantissa ok 464 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); ($m, $e) = $x -> sparts(); # ok 465 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 466 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 467 - value of mantissa ok 468 - value of exponent ok 469 - input is unmodified # # $x = Math::BigInt -> new("-10000000"); $m = $x -> sparts(); # ok 470 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 471 - value of mantissa ok 472 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); ($m, $e) = $x -> sparts(); # ok 473 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 474 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 475 - value of mantissa ok 476 - value of exponent ok 477 - input is unmodified # # $x = Math::BigInt -> new("-100000000"); $m = $x -> sparts(); # ok 478 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 479 - value of mantissa ok 480 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); ($m, $e) = $x -> sparts(); # ok 481 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 482 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 483 - value of mantissa ok 484 - value of exponent ok 485 - input is unmodified # # $x = Math::BigInt -> new("-1000000000"); $m = $x -> sparts(); # ok 486 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 487 - value of mantissa ok 488 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); ($m, $e) = $x -> sparts(); # ok 489 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 490 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 491 - value of mantissa ok 492 - value of exponent ok 493 - input is unmodified # # $x = Math::BigInt -> new("-10000000000"); $m = $x -> sparts(); # ok 494 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 495 - value of mantissa ok 496 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); ($m, $e) = $x -> sparts(); # ok 497 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 498 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 499 - value of mantissa ok 500 - value of exponent ok 501 - input is unmodified # # $x = Math::BigInt -> new("-100000000000"); $m = $x -> sparts(); # ok 502 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 503 - value of mantissa ok 504 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); ($m, $e) = $x -> sparts(); # ok 505 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 506 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 507 - value of mantissa ok 508 - value of exponent ok 509 - input is unmodified # # $x = Math::BigInt -> new("-1000000000000"); $m = $x -> sparts(); # ok 510 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 511 - value of mantissa ok 512 - input is unmodified # # $x = Math::BigInt -> new("-12"); ($m, $e) = $x -> sparts(); # ok 513 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 514 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 515 - value of mantissa ok 516 - value of exponent ok 517 - input is unmodified # # $x = Math::BigInt -> new("-12"); $m = $x -> sparts(); # ok 518 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 519 - value of mantissa ok 520 - input is unmodified # # $x = Math::BigInt -> new("-120"); ($m, $e) = $x -> sparts(); # ok 521 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 522 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 523 - value of mantissa ok 524 - value of exponent ok 525 - input is unmodified # # $x = Math::BigInt -> new("-120"); $m = $x -> sparts(); # ok 526 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 527 - value of mantissa ok 528 - input is unmodified # # $x = Math::BigInt -> new("-1200"); ($m, $e) = $x -> sparts(); # ok 529 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 530 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 531 - value of mantissa ok 532 - value of exponent ok 533 - input is unmodified # # $x = Math::BigInt -> new("-1200"); $m = $x -> sparts(); # ok 534 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 535 - value of mantissa ok 536 - input is unmodified # # $x = Math::BigInt -> new("-12000"); ($m, $e) = $x -> sparts(); # ok 537 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 538 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 539 - value of mantissa ok 540 - value of exponent ok 541 - input is unmodified # # $x = Math::BigInt -> new("-12000"); $m = $x -> sparts(); # ok 542 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 543 - value of mantissa ok 544 - input is unmodified # # $x = Math::BigInt -> new("-120000"); ($m, $e) = $x -> sparts(); # ok 545 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 546 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 547 - value of mantissa ok 548 - value of exponent ok 549 - input is unmodified # # $x = Math::BigInt -> new("-120000"); $m = $x -> sparts(); # ok 550 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 551 - value of mantissa ok 552 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); ($m, $e) = $x -> sparts(); # ok 553 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 554 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 555 - value of mantissa ok 556 - value of exponent ok 557 - input is unmodified # # $x = Math::BigInt -> new("-1200000"); $m = $x -> sparts(); # ok 558 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 559 - value of mantissa ok 560 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); ($m, $e) = $x -> sparts(); # ok 561 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 562 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 563 - value of mantissa ok 564 - value of exponent ok 565 - input is unmodified # # $x = Math::BigInt -> new("-12000000"); $m = $x -> sparts(); # ok 566 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 567 - value of mantissa ok 568 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); ($m, $e) = $x -> sparts(); # ok 569 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 570 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 571 - value of mantissa ok 572 - value of exponent ok 573 - input is unmodified # # $x = Math::BigInt -> new("-120000000"); $m = $x -> sparts(); # ok 574 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 575 - value of mantissa ok 576 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); ($m, $e) = $x -> sparts(); # ok 577 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 578 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 579 - value of mantissa ok 580 - value of exponent ok 581 - input is unmodified # # $x = Math::BigInt -> new("-1200000000"); $m = $x -> sparts(); # ok 582 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 583 - value of mantissa ok 584 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); ($m, $e) = $x -> sparts(); # ok 585 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 586 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 587 - value of mantissa ok 588 - value of exponent ok 589 - input is unmodified # # $x = Math::BigInt -> new("-12000000000"); $m = $x -> sparts(); # ok 590 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 591 - value of mantissa ok 592 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); ($m, $e) = $x -> sparts(); # ok 593 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 594 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 595 - value of mantissa ok 596 - value of exponent ok 597 - input is unmodified # # $x = Math::BigInt -> new("-120000000000"); $m = $x -> sparts(); # ok 598 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 599 - value of mantissa ok 600 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); ($m, $e) = $x -> sparts(); # ok 601 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 602 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 603 - value of mantissa ok 604 - value of exponent ok 605 - input is unmodified # # $x = Math::BigInt -> new("-1200000000000"); $m = $x -> sparts(); # ok 606 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 607 - value of mantissa ok 608 - input is unmodified # # $x = Math::BigInt -> new("-123"); ($m, $e) = $x -> sparts(); # ok 609 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 610 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 611 - value of mantissa ok 612 - value of exponent ok 613 - input is unmodified # # $x = Math::BigInt -> new("-123"); $m = $x -> sparts(); # ok 614 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 615 - value of mantissa ok 616 - input is unmodified # # $x = Math::BigInt -> new("-1230"); ($m, $e) = $x -> sparts(); # ok 617 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 618 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 619 - value of mantissa ok 620 - value of exponent ok 621 - input is unmodified # # $x = Math::BigInt -> new("-1230"); $m = $x -> sparts(); # ok 622 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 623 - value of mantissa ok 624 - input is unmodified # # $x = Math::BigInt -> new("-12300"); ($m, $e) = $x -> sparts(); # ok 625 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 626 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 627 - value of mantissa ok 628 - value of exponent ok 629 - input is unmodified # # $x = Math::BigInt -> new("-12300"); $m = $x -> sparts(); # ok 630 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 631 - value of mantissa ok 632 - input is unmodified # # $x = Math::BigInt -> new("-123000"); ($m, $e) = $x -> sparts(); # ok 633 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 634 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 635 - value of mantissa ok 636 - value of exponent ok 637 - input is unmodified # # $x = Math::BigInt -> new("-123000"); $m = $x -> sparts(); # ok 638 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 639 - value of mantissa ok 640 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); ($m, $e) = $x -> sparts(); # ok 641 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 642 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 643 - value of mantissa ok 644 - value of exponent ok 645 - input is unmodified # # $x = Math::BigInt -> new("-1230000"); $m = $x -> sparts(); # ok 646 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 647 - value of mantissa ok 648 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); ($m, $e) = $x -> sparts(); # ok 649 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 650 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 651 - value of mantissa ok 652 - value of exponent ok 653 - input is unmodified # # $x = Math::BigInt -> new("-12300000"); $m = $x -> sparts(); # ok 654 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 655 - value of mantissa ok 656 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); ($m, $e) = $x -> sparts(); # ok 657 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 658 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 659 - value of mantissa ok 660 - value of exponent ok 661 - input is unmodified # # $x = Math::BigInt -> new("-123000000"); $m = $x -> sparts(); # ok 662 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 663 - value of mantissa ok 664 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); ($m, $e) = $x -> sparts(); # ok 665 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 666 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 667 - value of mantissa ok 668 - value of exponent ok 669 - input is unmodified # # $x = Math::BigInt -> new("-1230000000"); $m = $x -> sparts(); # ok 670 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 671 - value of mantissa ok 672 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); ($m, $e) = $x -> sparts(); # ok 673 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 674 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 675 - value of mantissa ok 676 - value of exponent ok 677 - input is unmodified # # $x = Math::BigInt -> new("-12300000000"); $m = $x -> sparts(); # ok 678 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 679 - value of mantissa ok 680 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); ($m, $e) = $x -> sparts(); # ok 681 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 682 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 683 - value of mantissa ok 684 - value of exponent ok 685 - input is unmodified # # $x = Math::BigInt -> new("-123000000000"); $m = $x -> sparts(); # ok 686 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 687 - value of mantissa ok 688 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); ($m, $e) = $x -> sparts(); # ok 689 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 690 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 691 - value of mantissa ok 692 - value of exponent ok 693 - input is unmodified # # $x = Math::BigInt -> new("-1230000000000"); $m = $x -> sparts(); # ok 694 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 695 - value of mantissa ok 696 - input is unmodified # # $x = Math::BigInt -> new("-1234"); ($m, $e) = $x -> sparts(); # ok 697 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 698 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 699 - value of mantissa ok 700 - value of exponent ok 701 - input is unmodified # # $x = Math::BigInt -> new("-1234"); $m = $x -> sparts(); # ok 702 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 703 - value of mantissa ok 704 - input is unmodified # # $x = Math::BigInt -> new("-12340"); ($m, $e) = $x -> sparts(); # ok 705 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 706 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 707 - value of mantissa ok 708 - value of exponent ok 709 - input is unmodified # # $x = Math::BigInt -> new("-12340"); $m = $x -> sparts(); # ok 710 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 711 - value of mantissa ok 712 - input is unmodified # # $x = Math::BigInt -> new("-123400"); ($m, $e) = $x -> sparts(); # ok 713 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 714 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 715 - value of mantissa ok 716 - value of exponent ok 717 - input is unmodified # # $x = Math::BigInt -> new("-123400"); $m = $x -> sparts(); # ok 718 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 719 - value of mantissa ok 720 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); ($m, $e) = $x -> sparts(); # ok 721 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 722 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 723 - value of mantissa ok 724 - value of exponent ok 725 - input is unmodified # # $x = Math::BigInt -> new("-1234000"); $m = $x -> sparts(); # ok 726 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 727 - value of mantissa ok 728 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); ($m, $e) = $x -> sparts(); # ok 729 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 730 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 731 - value of mantissa ok 732 - value of exponent ok 733 - input is unmodified # # $x = Math::BigInt -> new("-12340000"); $m = $x -> sparts(); # ok 734 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 735 - value of mantissa ok 736 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); ($m, $e) = $x -> sparts(); # ok 737 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 738 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 739 - value of mantissa ok 740 - value of exponent ok 741 - input is unmodified # # $x = Math::BigInt -> new("-123400000"); $m = $x -> sparts(); # ok 742 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 743 - value of mantissa ok 744 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); ($m, $e) = $x -> sparts(); # ok 745 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 746 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 747 - value of mantissa ok 748 - value of exponent ok 749 - input is unmodified # # $x = Math::BigInt -> new("-1234000000"); $m = $x -> sparts(); # ok 750 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 751 - value of mantissa ok 752 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); ($m, $e) = $x -> sparts(); # ok 753 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 754 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 755 - value of mantissa ok 756 - value of exponent ok 757 - input is unmodified # # $x = Math::BigInt -> new("-12340000000"); $m = $x -> sparts(); # ok 758 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 759 - value of mantissa ok 760 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); ($m, $e) = $x -> sparts(); # ok 761 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 762 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 763 - value of mantissa ok 764 - value of exponent ok 765 - input is unmodified # # $x = Math::BigInt -> new("-123400000000"); $m = $x -> sparts(); # ok 766 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 767 - value of mantissa ok 768 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); ($m, $e) = $x -> sparts(); # ok 769 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 770 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 771 - value of mantissa ok 772 - value of exponent ok 773 - input is unmodified # # $x = Math::BigInt -> new("-1234000000000"); $m = $x -> sparts(); # ok 774 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 775 - value of mantissa ok 776 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); ($m, $e) = $x -> sparts(); # ok 777 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 778 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 779 - value of mantissa ok 780 - value of exponent ok 781 - input is unmodified # # $x = Math::BigInt -> new("-3141592"); $m = $x -> sparts(); # ok 782 - An object of class 'Math::BigInt' isa 'Math::BigInt' ok 783 - value of mantissa ok 784 - input is unmodified ok t/sub_ali.t ................................... 1..6 ok 1 - Math::BigInt::Subclass -> new(123) -> is_pos() ok 2 - Math::BigInt::Subclass -> new(123) -> is_neg() ok 3 - Math::BigInt::Subclass -> new(123) -> as_int() ok 4 - ref(Math::BigInt::Subclass -> new(123) -> as_int()) ok 5 - Math::BigInt::Subclass -> new(123) -> bneg() -> is_pos() ok 6 - Math::BigInt::Subclass -> new(123) -> bneg() -> is_neg() ok t/sub_mbf.t ................................... 1..2408 ok 1 - Math::BigFloat::Subclass->config('lib') ok 2 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("12"); Math::BigFloat::Subclass::bgcd($x, $y); ok 3 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("12"); Math::BigFloat::Subclass::bgcd($x, $y); ok 4 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("12"); Math::BigFloat::Subclass::bgcd($x, $y); ok 5 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("12"); Math::BigFloat::Subclass::bgcd($x, $y); ok 6 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 7 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 8 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 9 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 10 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 11 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 12 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 13 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 14 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 15 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); Math::BigFloat::Subclass::bgcd($x, $y); ok 16 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::bgcd($x, $y); ok 17 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::bgcd($x, $y); ok 18 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 19 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 20 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::bgcd($x, $y); ok 21 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::bgcd($x, $y); ok 22 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 23 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 24 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::bgcd($x, $y); ok 25 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::bgcd($x, $y); ok 26 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 27 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::bgcd($x, $y); ok 28 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::bgcd($x, $y); ok 29 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::bgcd($x, $y); ok 30 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); Math::BigFloat::Subclass::bgcd($x, $y); ok 31 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); Math::BigFloat::Subclass::bgcd($x, $y); ok 32 - $x = Math::BigFloat::Subclass->new("+3"); $y = Math::BigFloat::Subclass->new("+2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 33 - $x = Math::BigFloat::Subclass->new("+3"); $y = Math::BigFloat::Subclass->new("+2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 34 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("+2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 35 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("+2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 36 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 37 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-2"); Math::BigFloat::Subclass::bgcd($x, $y); ok 38 - $x = Math::BigFloat::Subclass->new("-144"); $y = Math::BigFloat::Subclass->new("-60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 39 - $x = Math::BigFloat::Subclass->new("-144"); $y = Math::BigFloat::Subclass->new("-60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 40 - $x = Math::BigFloat::Subclass->new("144"); $y = Math::BigFloat::Subclass->new("-60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 41 - $x = Math::BigFloat::Subclass->new("144"); $y = Math::BigFloat::Subclass->new("-60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 42 - $x = Math::BigFloat::Subclass->new("144"); $y = Math::BigFloat::Subclass->new("60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 43 - $x = Math::BigFloat::Subclass->new("144"); $y = Math::BigFloat::Subclass->new("60"); Math::BigFloat::Subclass::bgcd($x, $y); ok 44 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("625"); Math::BigFloat::Subclass::bgcd($x, $y); ok 45 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("625"); Math::BigFloat::Subclass::bgcd($x, $y); ok 46 - $x = Math::BigFloat::Subclass->new("4096"); $y = Math::BigFloat::Subclass->new("81"); Math::BigFloat::Subclass::bgcd($x, $y); ok 47 - $x = Math::BigFloat::Subclass->new("4096"); $y = Math::BigFloat::Subclass->new("81"); Math::BigFloat::Subclass::bgcd($x, $y); ok 48 - $x = Math::BigFloat::Subclass->new("1034"); $y = Math::BigFloat::Subclass->new("804"); Math::BigFloat::Subclass::bgcd($x, $y); ok 49 - $x = Math::BigFloat::Subclass->new("1034"); $y = Math::BigFloat::Subclass->new("804"); Math::BigFloat::Subclass::bgcd($x, $y); ok 50 - $x = Math::BigFloat::Subclass->new("27"); $y = Math::BigFloat::Subclass->new("90"); $z = Math::BigFloat::Subclass->new("56"); Math::BigFloat::Subclass::bgcd($x, $y, $z); ok 51 - $x = Math::BigFloat::Subclass->new("27"); $y = Math::BigFloat::Subclass->new("90"); $z = Math::BigFloat::Subclass->new("56"); Math::BigFloat::Subclass::bgcd($x, $y, $z); ok 52 - $x = Math::BigFloat::Subclass->new("27"); $y = Math::BigFloat::Subclass->new("90"); $z = Math::BigFloat::Subclass->new("54"); Math::BigFloat::Subclass::bgcd($x, $y, $z); ok 53 - $x = Math::BigFloat::Subclass->new("27"); $y = Math::BigFloat::Subclass->new("90"); $z = Math::BigFloat::Subclass->new("54"); Math::BigFloat::Subclass::bgcd($x, $y, $z); ok 54 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::blcm($x, $y); ok 55 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::blcm($x, $y); ok 56 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 57 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 58 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::blcm($x, $y); ok 59 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); Math::BigFloat::Subclass::blcm($x, $y); ok 60 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 61 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 62 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 63 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass::blcm($x, $y); ok 64 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::blcm($x, $y); ok 65 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); Math::BigFloat::Subclass::blcm($x, $y); ok 66 - $x = Math::BigFloat::Subclass->new("+27"); $y = Math::BigFloat::Subclass->new("+90"); Math::BigFloat::Subclass::blcm($x, $y); ok 67 - $x = Math::BigFloat::Subclass->new("+27"); $y = Math::BigFloat::Subclass->new("+90"); Math::BigFloat::Subclass::blcm($x, $y); ok 68 - $x = Math::BigFloat::Subclass->new("+1034"); $y = Math::BigFloat::Subclass->new("+804"); Math::BigFloat::Subclass::blcm($x, $y); ok 69 - $x = Math::BigFloat::Subclass->new("+1034"); $y = Math::BigFloat::Subclass->new("+804"); Math::BigFloat::Subclass::blcm($x, $y); ok 70 - $x = Math::BigFloat::Subclass->new("1.2"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 71 - $x = Math::BigFloat::Subclass->new("1.2"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 72 - $x = Math::BigFloat::Subclass->new("2.4"); $y = Math::BigFloat::Subclass->new("12"); $x->bcos($y); ok 73 - $x = Math::BigFloat::Subclass->new("2.4"); $y = Math::BigFloat::Subclass->new("12"); $x->bcos($y); ok 74 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 75 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 76 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("20"); $x->bcos($y); ok 77 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("20"); $x->bcos($y); ok 78 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 79 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $x->bcos($y); ok 80 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("12"); $x->bcos($y); ok 81 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("12"); $x->bcos($y); ok 82 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $x->bsin($y); ok 83 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $x->bsin($y); ok 84 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->bsin($y); ok 85 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->bsin($y); ok 86 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("20"); $x->bsin($y); ok 87 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("20"); $x->bsin($y); ok 88 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("12"); $x->bsin($y); ok 89 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("12"); $x->bsin($y); ok 90 - $x = Math::BigFloat::Subclass->new("1.2"); $y = Math::BigFloat::Subclass->new("13"); $x->bsin($y); ok 91 - $x = Math::BigFloat::Subclass->new("1.2"); $y = Math::BigFloat::Subclass->new("13"); $x->bsin($y); ok 92 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("13"); $x->bsin($y); ok 93 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("13"); $x->bsin($y); ok 94 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("12"); $x->bsin($y); ok 95 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("12"); $x->bsin($y); ok 96 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("10"); $x->batan($y); ok 97 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("10"); $x->batan($y); ok 98 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 99 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 100 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 101 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 102 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 103 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 104 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->batan($y); ok 105 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("10"); $x->batan($y); ok 106 - $x = Math::BigFloat::Subclass->new("0.1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 107 - $x = Math::BigFloat::Subclass->new("0.1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 108 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("13"); $x->batan($y); ok 109 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("13"); $x->batan($y); ok 110 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 111 - $x = Math::BigFloat::Subclass->new("0.2"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 112 - $x = Math::BigFloat::Subclass->new("0.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 113 - $x = Math::BigFloat::Subclass->new("0.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 114 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 115 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 116 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 117 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 118 - $x = Math::BigFloat::Subclass->new("1.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 119 - $x = Math::BigFloat::Subclass->new("1.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 120 - $x = Math::BigFloat::Subclass->new("2.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 121 - $x = Math::BigFloat::Subclass->new("2.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 122 - $x = Math::BigFloat::Subclass->new("2.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 123 - $x = Math::BigFloat::Subclass->new("2.5"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 124 - $x = Math::BigFloat::Subclass->new("3.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 125 - $x = Math::BigFloat::Subclass->new("3.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 126 - $x = Math::BigFloat::Subclass->new("6.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 127 - $x = Math::BigFloat::Subclass->new("6.0"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 128 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 129 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 130 - $x = Math::BigFloat::Subclass->new("24"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 131 - $x = Math::BigFloat::Subclass->new("24"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 132 - $x = Math::BigFloat::Subclass->new("48"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 133 - $x = Math::BigFloat::Subclass->new("48"); $y = Math::BigFloat::Subclass->new("14"); $x->batan($y); ok 134 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 135 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 136 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("NaN"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 137 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("NaN"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 138 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 139 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $z = Math::BigFloat::Subclass->new("10"); $x->batan2($y, $z); ok 140 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 141 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 142 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 143 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 144 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 145 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 146 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 147 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 148 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 149 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 150 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 151 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 152 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 153 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 154 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 155 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 156 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 157 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 158 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 159 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 160 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 161 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 162 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 163 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 164 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 165 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 166 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 167 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 168 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 169 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 170 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 171 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 172 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 173 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 174 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 175 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 176 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 177 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 178 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 179 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 180 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 181 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 182 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 183 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 184 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 185 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 186 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 187 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 188 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 189 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 190 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("13"); $x->batan2($y, $z); ok 191 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("13"); $x->batan2($y, $z); ok 192 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 193 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 194 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("2"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 195 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("2"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 196 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 197 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 198 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("11"); $x->batan2($y, $z); ok 199 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("11"); $x->batan2($y, $z); ok 200 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("77"); $x->batan2($y, $z); ok 201 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("77"); $x->batan2($y, $z); ok 202 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("77"); $x->batan2($y, $z); ok 203 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("77"); $x->batan2($y, $z); ok 204 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 205 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 206 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 207 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("5"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 208 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("8"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 209 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("8"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 210 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("8"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 211 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("8"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 212 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $z = Math::BigFloat::Subclass->new("24"); $x->batan2($y, $z); ok 213 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $z = Math::BigFloat::Subclass->new("24"); $x->batan2($y, $z); ok 214 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 215 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 216 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 217 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("1"); $z = Math::BigFloat::Subclass->new("14"); $x->batan2($y, $z); ok 218 - $x = Math::BigFloat::Subclass->new("150"); Math::BigFloat::Subclass->bpi($x); ok 219 - $x = Math::BigFloat::Subclass->new("150"); Math::BigFloat::Subclass->bpi($x); ok 220 - $x = Math::BigFloat::Subclass->new("77"); Math::BigFloat::Subclass->bpi($x); ok 221 - $x = Math::BigFloat::Subclass->new("77"); Math::BigFloat::Subclass->bpi($x); ok 222 - $x = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass->bpi($x); ok 223 - $x = Math::BigFloat::Subclass->new("+0"); Math::BigFloat::Subclass->bpi($x); ok 224 - $x = Math::BigFloat::Subclass->new("11"); Math::BigFloat::Subclass->bpi($x); ok 225 - $x = Math::BigFloat::Subclass->new("11"); Math::BigFloat::Subclass->bpi($x); ok 226 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("10"); $x->bnok($y); ok 227 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("10"); $x->bnok($y); ok 228 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bnok($y); ok 229 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bnok($y); ok 230 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 231 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 232 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bnok($y); ok 233 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bnok($y); ok 234 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 235 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 236 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bnok($y); ok 237 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bnok($y); ok 238 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("3"); $x->bnok($y); ok 239 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("3"); $x->bnok($y); ok 240 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-2"); $x->bnok($y); ok 241 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-2"); $x->bnok($y); ok 242 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("3"); $x->bnok($y); ok 243 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("3"); $x->bnok($y); ok 244 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("6"); $x->bnok($y); ok 245 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("6"); $x->bnok($y); ok 246 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("90"); $x->bnok($y); ok 247 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("90"); $x->bnok($y); ok 248 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("95"); $x->bnok($y); ok 249 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("95"); $x->bnok($y); ok 250 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0"); $x->bnok($y); ok 251 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0"); $x->bnok($y); ok 252 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("0"); $x->bnok($y); ok 253 - $x = Math::BigFloat::Subclass->new("7"); $y = Math::BigFloat::Subclass->new("0"); $x->bnok($y); ok 254 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 255 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->bnok($y); ok 256 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 257 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 258 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 259 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 260 - $x = Math::BigFloat::Subclass->new("-2"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 261 - $x = Math::BigFloat::Subclass->new("-2"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 262 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(-1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 263 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(-1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 264 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(0); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 265 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(0); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 266 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 267 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new(1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 268 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 269 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 270 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new(1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 271 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new(1); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 272 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new(2); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 273 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new(2); $Math::BigFloat::Subclass::div_scale = 40; $x->blog($y); ok 274 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 275 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 276 - $x = Math::BigFloat::Subclass->new("2.718281828"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 277 - $x = Math::BigFloat::Subclass->new("2.718281828"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 278 - $x = Math::BigFloat::Subclass->new("2.718281828"); $Math::BigFloat::Subclass::div_scale = 20; $x->blog(); ok 279 - $x = Math::BigFloat::Subclass->new("2.718281828"); $Math::BigFloat::Subclass::div_scale = 20; $x->blog(); ok 280 - $x = Math::BigFloat::Subclass->new("123"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 281 - $x = Math::BigFloat::Subclass->new("123"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 282 - $x = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 283 - $x = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 284 - $x = Math::BigFloat::Subclass->new("1000"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 285 - $x = Math::BigFloat::Subclass->new("1000"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 286 - $x = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 287 - $x = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 288 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 289 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 290 - $x = Math::BigFloat::Subclass->new("3.1415"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 291 - $x = Math::BigFloat::Subclass->new("3.1415"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 292 - $x = Math::BigFloat::Subclass->new("12345"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 293 - $x = Math::BigFloat::Subclass->new("12345"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 294 - $x = Math::BigFloat::Subclass->new("0.001"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 295 - $x = Math::BigFloat::Subclass->new("0.001"); $Math::BigFloat::Subclass::div_scale = 15; $x->blog(); ok 296 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new(10); $Math::BigFloat::Subclass::div_scale = 15; $x->blog($y); ok 297 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new(10); $Math::BigFloat::Subclass::div_scale = 15; $x->blog($y); ok 298 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new(100); $Math::BigFloat::Subclass::div_scale = 15; $x->blog($y); ok 299 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new(100); $Math::BigFloat::Subclass::div_scale = 15; $x->blog($y); ok 300 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 301 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->blog(); ok 302 - $x = Math::BigFloat::Subclass->new("NaNbrsft"); $y = Math::BigFloat::Subclass->new("2"); $x->brsft($y); ok 303 - $x = Math::BigFloat::Subclass->new("NaNbrsft"); $y = Math::BigFloat::Subclass->new("2"); $x->brsft($y); ok 304 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("2"); $x->brsft($y); ok 305 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("2"); $x->brsft($y); ok 306 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 307 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 308 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 309 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 310 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 311 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 312 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 313 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("1"); $x->brsft($y); ok 314 - $x = Math::BigFloat::Subclass->new("32"); $y = Math::BigFloat::Subclass->new("3"); $x->brsft($y); ok 315 - $x = Math::BigFloat::Subclass->new("32"); $y = Math::BigFloat::Subclass->new("3"); $x->brsft($y); ok 316 - $x = Math::BigFloat::Subclass->new("NaNblsft"); $y = Math::BigFloat::Subclass->new("0"); $x->blsft($y); ok 317 - $x = Math::BigFloat::Subclass->new("NaNblsft"); $y = Math::BigFloat::Subclass->new("0"); $x->blsft($y); ok 318 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->blsft($y); ok 319 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->blsft($y); ok 320 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("3"); $x->blsft($y); ok 321 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("3"); $x->blsft($y); ok 322 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("3"); $x->blsft($y); ok 323 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("3"); $x->blsft($y); ok 324 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->blsft($y); ok 325 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->blsft($y); ok 326 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("5"); $x->blsft($y); ok 327 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("5"); $x->blsft($y); ok 328 - $x = Math::BigFloat::Subclass->new("1"); $x; ok 329 - $x = Math::BigFloat::Subclass->new("1"); $x; ok 330 - $x = Math::BigFloat::Subclass->new("-0"); $x; ok 331 - $x = Math::BigFloat::Subclass->new("-0"); $x; ok 332 - $x = Math::BigFloat::Subclass->new("bnormNaN"); $x; ok 333 - $x = Math::BigFloat::Subclass->new("bnormNaN"); $x; ok 334 - $x = Math::BigFloat::Subclass->new("+inf"); $x; ok 335 - $x = Math::BigFloat::Subclass->new("+inf"); $x; ok 336 - $x = Math::BigFloat::Subclass->new("-inf"); $x; ok 337 - $x = Math::BigFloat::Subclass->new("-inf"); $x; ok 338 - $x = Math::BigFloat::Subclass->new("123"); $x; ok 339 - $x = Math::BigFloat::Subclass->new("123"); $x; ok 340 - $x = Math::BigFloat::Subclass->new("-123.4567"); $x; ok 341 - $x = Math::BigFloat::Subclass->new("-123.4567"); $x; ok 342 - $x = Math::BigFloat::Subclass->new("1__2"); $x; ok 343 - $x = Math::BigFloat::Subclass->new("1__2"); $x; ok 344 - $x = Math::BigFloat::Subclass->new("1E1__2"); $x; ok 345 - $x = Math::BigFloat::Subclass->new("1E1__2"); $x; ok 346 - $x = Math::BigFloat::Subclass->new("11__2E2"); $x; ok 347 - $x = Math::BigFloat::Subclass->new("11__2E2"); $x; ok 348 - $x = Math::BigFloat::Subclass->new(".2E-3."); $x; ok 349 - $x = Math::BigFloat::Subclass->new(".2E-3."); $x; ok 350 - $x = Math::BigFloat::Subclass->new("1e3e4"); $x; ok 351 - $x = Math::BigFloat::Subclass->new("1e3e4"); $x; ok 352 - $x = Math::BigFloat::Subclass->new(".2E2"); $x; ok 353 - $x = Math::BigFloat::Subclass->new(".2E2"); $x; ok 354 - $x = Math::BigFloat::Subclass->new("1.E3"); $x; ok 355 - $x = Math::BigFloat::Subclass->new("1.E3"); $x; ok 356 - $x = Math::BigFloat::Subclass->new("0e0"); $x; ok 357 - $x = Math::BigFloat::Subclass->new("0e0"); $x; ok 358 - $x = Math::BigFloat::Subclass->new("+0e0"); $x; ok 359 - $x = Math::BigFloat::Subclass->new("+0e0"); $x; ok 360 - $x = Math::BigFloat::Subclass->new("+0e+0"); $x; ok 361 - $x = Math::BigFloat::Subclass->new("+0e+0"); $x; ok 362 - $x = Math::BigFloat::Subclass->new("-0e+0"); $x; ok 363 - $x = Math::BigFloat::Subclass->new("-0e+0"); $x; ok 364 - $x = Math::BigFloat::Subclass->new("0e-0"); $x; ok 365 - $x = Math::BigFloat::Subclass->new("0e-0"); $x; ok 366 - $x = Math::BigFloat::Subclass->new("-0e-0"); $x; ok 367 - $x = Math::BigFloat::Subclass->new("-0e-0"); $x; ok 368 - $x = Math::BigFloat::Subclass->new("+0e-0"); $x; ok 369 - $x = Math::BigFloat::Subclass->new("+0e-0"); $x; ok 370 - $x = Math::BigFloat::Subclass->new("000"); $x; ok 371 - $x = Math::BigFloat::Subclass->new("000"); $x; ok 372 - $x = Math::BigFloat::Subclass->new("00e2"); $x; ok 373 - $x = Math::BigFloat::Subclass->new("00e2"); $x; ok 374 - $x = Math::BigFloat::Subclass->new("00e02"); $x; ok 375 - $x = Math::BigFloat::Subclass->new("00e02"); $x; ok 376 - $x = Math::BigFloat::Subclass->new("000e002"); $x; ok 377 - $x = Math::BigFloat::Subclass->new("000e002"); $x; ok 378 - $x = Math::BigFloat::Subclass->new("000e1230"); $x; ok 379 - $x = Math::BigFloat::Subclass->new("000e1230"); $x; ok 380 - $x = Math::BigFloat::Subclass->new("00e-3"); $x; ok 381 - $x = Math::BigFloat::Subclass->new("00e-3"); $x; ok 382 - $x = Math::BigFloat::Subclass->new("00e+3"); $x; ok 383 - $x = Math::BigFloat::Subclass->new("00e+3"); $x; ok 384 - $x = Math::BigFloat::Subclass->new("00e-03"); $x; ok 385 - $x = Math::BigFloat::Subclass->new("00e-03"); $x; ok 386 - $x = Math::BigFloat::Subclass->new("00e+03"); $x; ok 387 - $x = Math::BigFloat::Subclass->new("00e+03"); $x; ok 388 - $x = Math::BigFloat::Subclass->new("-000"); $x; ok 389 - $x = Math::BigFloat::Subclass->new("-000"); $x; ok 390 - $x = Math::BigFloat::Subclass->new("-00e2"); $x; ok 391 - $x = Math::BigFloat::Subclass->new("-00e2"); $x; ok 392 - $x = Math::BigFloat::Subclass->new("-00e02"); $x; ok 393 - $x = Math::BigFloat::Subclass->new("-00e02"); $x; ok 394 - $x = Math::BigFloat::Subclass->new("-000e002"); $x; ok 395 - $x = Math::BigFloat::Subclass->new("-000e002"); $x; ok 396 - $x = Math::BigFloat::Subclass->new("-000e1230"); $x; ok 397 - $x = Math::BigFloat::Subclass->new("-000e1230"); $x; ok 398 - $x = Math::BigFloat::Subclass->new("-00e-3"); $x; ok 399 - $x = Math::BigFloat::Subclass->new("-00e-3"); $x; ok 400 - $x = Math::BigFloat::Subclass->new("-00e+3"); $x; ok 401 - $x = Math::BigFloat::Subclass->new("-00e+3"); $x; ok 402 - $x = Math::BigFloat::Subclass->new("-00e-03"); $x; ok 403 - $x = Math::BigFloat::Subclass->new("-00e-03"); $x; ok 404 - $x = Math::BigFloat::Subclass->new("-00e+03"); $x; ok 405 - $x = Math::BigFloat::Subclass->new("-00e+03"); $x; ok 406 - $x = Math::BigFloat::Subclass->new("0"); $x->as_number(); ok 407 - $x = Math::BigFloat::Subclass->new("1"); $x->as_number(); ok 408 - $x = Math::BigFloat::Subclass->new("1.2"); $x->as_number(); ok 409 - $x = Math::BigFloat::Subclass->new("2.345"); $x->as_number(); ok 410 - $x = Math::BigFloat::Subclass->new("-2"); $x->as_number(); ok 411 - $x = Math::BigFloat::Subclass->new("-123.456"); $x->as_number(); ok 412 - $x = Math::BigFloat::Subclass->new("-200"); $x->as_number(); ok 413 - $x = Math::BigFloat::Subclass->new("-inf"); $x->as_number(); ok 414 - $x = Math::BigFloat::Subclass->new("inf"); $x->as_number(); ok 415 - $x = Math::BigFloat::Subclass->new("NaN"); $x->as_number(); ok 416 - $x = Math::BigFloat::Subclass->new("71243225429896467497217836789578596379"); $x->as_number(); ok 417 - $x = Math::BigFloat::Subclass->new("0.000641"); $x->as_number(); ok 418 - $x = Math::BigFloat::Subclass->new("0.0006412"); $x->as_number(); ok 419 - $x = Math::BigFloat::Subclass->new("0.00064123"); $x->as_number(); ok 420 - $x = Math::BigFloat::Subclass->new("0.000641234"); $x->as_number(); ok 421 - $x = Math::BigFloat::Subclass->new("0.0006412345"); $x->as_number(); ok 422 - $x = Math::BigFloat::Subclass->new("0.00064123456"); $x->as_number(); ok 423 - $x = Math::BigFloat::Subclass->new("0.000641234567"); $x->as_number(); ok 424 - $x = Math::BigFloat::Subclass->new("0.0006412345678"); $x->as_number(); ok 425 - $x = Math::BigFloat::Subclass->new("0.00064123456789"); $x->as_number(); ok 426 - $x = Math::BigFloat::Subclass->new("0.1"); $x->as_number(); ok 427 - $x = Math::BigFloat::Subclass->new("0.01"); $x->as_number(); ok 428 - $x = Math::BigFloat::Subclass->new("0.001"); $x->as_number(); ok 429 - $x = Math::BigFloat::Subclass->new("0.0001"); $x->as_number(); ok 430 - $x = Math::BigFloat::Subclass->new("0.00001"); $x->as_number(); ok 431 - $x = Math::BigFloat::Subclass->new("0.000001"); $x->as_number(); ok 432 - $x = Math::BigFloat::Subclass->new("0.0000001"); $x->as_number(); ok 433 - $x = Math::BigFloat::Subclass->new("0.00000001"); $x->as_number(); ok 434 - $x = Math::BigFloat::Subclass->new("0.000000001"); $x->as_number(); ok 435 - $x = Math::BigFloat::Subclass->new("0.0000000001"); $x->as_number(); ok 436 - $x = Math::BigFloat::Subclass->new("0.00000000001"); $x->as_number(); ok 437 - $x = Math::BigFloat::Subclass->new("0.12345"); $x->as_number(); ok 438 - $x = Math::BigFloat::Subclass->new("0.123456"); $x->as_number(); ok 439 - $x = Math::BigFloat::Subclass->new("0.1234567"); $x->as_number(); ok 440 - $x = Math::BigFloat::Subclass->new("0.12345678"); $x->as_number(); ok 441 - $x = Math::BigFloat::Subclass->new("0.123456789"); $x->as_number(); ok 442 - $x = Math::BigFloat::Subclass->new("1"); $x->binf("+"); ok 443 - $x = Math::BigFloat::Subclass->new("1"); $x->binf("+"); ok 444 - $x = Math::BigFloat::Subclass->new("2"); $x->binf("-"); ok 445 - $x = Math::BigFloat::Subclass->new("2"); $x->binf("-"); ok 446 - $x = Math::BigFloat::Subclass->new("3"); $x->binf("abc"); ok 447 - $x = Math::BigFloat::Subclass->new("3"); $x->binf("abc"); ok 448 - $x = Math::BigFloat::Subclass->new("+inf"); $x->as_hex(); ok 449 - $x = Math::BigFloat::Subclass->new("-inf"); $x->as_hex(); ok 450 - $x = Math::BigFloat::Subclass->new("hexNaN"); $x->as_hex(); ok 451 - $x = Math::BigFloat::Subclass->new("0"); $x->as_hex(); ok 452 - $x = Math::BigFloat::Subclass->new("5"); $x->as_hex(); ok 453 - $x = Math::BigFloat::Subclass->new("-5"); $x->as_hex(); ok 454 - $x = Math::BigFloat::Subclass->new("+inf"); $x->as_bin(); ok 455 - $x = Math::BigFloat::Subclass->new("-inf"); $x->as_bin(); ok 456 - $x = Math::BigFloat::Subclass->new("hexNaN"); $x->as_bin(); ok 457 - $x = Math::BigFloat::Subclass->new("0"); $x->as_bin(); ok 458 - $x = Math::BigFloat::Subclass->new("5"); $x->as_bin(); ok 459 - $x = Math::BigFloat::Subclass->new("-5"); $x->as_bin(); ok 460 - $x = Math::BigFloat::Subclass->new("0"); $x->numify(); ok 461 - $x = Math::BigFloat::Subclass->new("+1"); $x->numify(); ok 462 - $x = Math::BigFloat::Subclass->new("1234"); $x->numify(); ok 463 - $x = Math::BigFloat::Subclass->new("-5"); $x->numify(); ok 464 - $x = Math::BigFloat::Subclass->new("100"); $x->numify(); ok 465 - $x = Math::BigFloat::Subclass->new("-100"); $x->numify(); ok 466 - $x = Math::BigFloat::Subclass->new("abc"); $x->bnan(); ok 467 - $x = Math::BigFloat::Subclass->new("abc"); $x->bnan(); ok 468 - $x = Math::BigFloat::Subclass->new("2"); $x->bnan(); ok 469 - $x = Math::BigFloat::Subclass->new("2"); $x->bnan(); ok 470 - $x = Math::BigFloat::Subclass->new("-2"); $x->bnan(); ok 471 - $x = Math::BigFloat::Subclass->new("-2"); $x->bnan(); ok 472 - $x = Math::BigFloat::Subclass->new("0"); $x->bnan(); ok 473 - $x = Math::BigFloat::Subclass->new("0"); $x->bnan(); ok 474 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("+"); ok 475 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("+"); ok 476 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone("-"); ok 477 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone("-"); ok 478 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone("+"); ok 479 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone("+"); ok 480 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("-"); ok 481 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("-"); ok 482 - $x = Math::BigFloat::Subclass->new("0"); $x->bone(""); ok 483 - $x = Math::BigFloat::Subclass->new("0"); $x->bone(""); ok 484 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone(""); ok 485 - $x = Math::BigFloat::Subclass->new("-2"); $x->bone(""); ok 486 - $x = Math::BigFloat::Subclass->new("abc"); $x->bone(""); ok 487 - $x = Math::BigFloat::Subclass->new("abc"); $x->bone(""); ok 488 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("abc"); ok 489 - $x = Math::BigFloat::Subclass->new("2"); $x->bone("abc"); ok 490 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bsstr(); ok 491 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bsstr(); ok 492 - $x = Math::BigFloat::Subclass->new("abcfsstr"); $x->bsstr(); ok 493 - $x = Math::BigFloat::Subclass->new("-abcfsstr"); $x->bsstr(); ok 494 - $x = Math::BigFloat::Subclass->new("1234.567"); $x->bsstr(); ok 495 - $x = Math::BigFloat::Subclass->new("123"); $x->bsstr(); ok 496 - $x = Math::BigFloat::Subclass->new("-5"); $x->bsstr(); ok 497 - $x = Math::BigFloat::Subclass->new("-100"); $x->bsstr(); ok 498 - $x = Math::BigFloat::Subclass->new("+inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 499 - $x = Math::BigFloat::Subclass->new("-inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 500 - $x = Math::BigFloat::Subclass->new("abcfstr"); $x->accuracy(); $x->precision(); $x->bstr(); ok 501 - $x = Math::BigFloat::Subclass->new("1234.567"); $x->accuracy(9); $x->precision(); $x->bstr(); ok 502 - $x = Math::BigFloat::Subclass->new("1234.567"); $x->accuracy(); $x->precision(-6); $x->bstr(); ok 503 - $x = Math::BigFloat::Subclass->new("12345"); $x->accuracy(5); $x->precision(); $x->bstr(); ok 504 - $x = Math::BigFloat::Subclass->new("0.001234"); $x->accuracy(6); $x->precision(); $x->bstr(); ok 505 - $x = Math::BigFloat::Subclass->new("0.001234"); $x->accuracy(); $x->precision(-8); $x->bstr(); ok 506 - $x = Math::BigFloat::Subclass->new("0"); $x->accuracy(4); $x->precision(); $x->bstr(); ok 507 - $x = Math::BigFloat::Subclass->new("0"); $x->accuracy(); $x->precision(-4); $x->bstr(); ok 508 - $x = Math::BigFloat::Subclass->new("inf"); $x; ok 509 - $x = Math::BigFloat::Subclass->new("inf"); $x; ok 510 - $x = Math::BigFloat::Subclass->new("+inf"); $x; ok 511 - $x = Math::BigFloat::Subclass->new("+inf"); $x; ok 512 - $x = Math::BigFloat::Subclass->new("-inf"); $x; ok 513 - $x = Math::BigFloat::Subclass->new("-inf"); $x; ok 514 - $x = Math::BigFloat::Subclass->new("+infinity"); $x; ok 515 - $x = Math::BigFloat::Subclass->new("+infinity"); $x; ok 516 - $x = Math::BigFloat::Subclass->new("+-inf"); $x; ok 517 - $x = Math::BigFloat::Subclass->new("+-inf"); $x; ok 518 - $x = Math::BigFloat::Subclass->new("abc"); $x; ok 519 - $x = Math::BigFloat::Subclass->new("abc"); $x; ok 520 - $x = Math::BigFloat::Subclass->new(" 1 a"); $x; ok 521 - $x = Math::BigFloat::Subclass->new(" 1 a"); $x; ok 522 - $x = Math::BigFloat::Subclass->new("1bcd2"); $x; ok 523 - $x = Math::BigFloat::Subclass->new("1bcd2"); $x; ok 524 - $x = Math::BigFloat::Subclass->new("11111b"); $x; ok 525 - $x = Math::BigFloat::Subclass->new("11111b"); $x; ok 526 - $x = Math::BigFloat::Subclass->new("+1z"); $x; ok 527 - $x = Math::BigFloat::Subclass->new("+1z"); $x; ok 528 - $x = Math::BigFloat::Subclass->new("-1z"); $x; ok 529 - $x = Math::BigFloat::Subclass->new("-1z"); $x; ok 530 - $x = Math::BigFloat::Subclass->new("0e999"); $x; ok 531 - $x = Math::BigFloat::Subclass->new("0e999"); $x; ok 532 - $x = Math::BigFloat::Subclass->new("0e-999"); $x; ok 533 - $x = Math::BigFloat::Subclass->new("0e-999"); $x; ok 534 - $x = Math::BigFloat::Subclass->new("-0e999"); $x; ok 535 - $x = Math::BigFloat::Subclass->new("-0e999"); $x; ok 536 - $x = Math::BigFloat::Subclass->new("-0e-999"); $x; ok 537 - $x = Math::BigFloat::Subclass->new("-0e-999"); $x; ok 538 - $x = Math::BigFloat::Subclass->new("0"); $x; ok 539 - $x = Math::BigFloat::Subclass->new("0"); $x; ok 540 - $x = Math::BigFloat::Subclass->new("+0"); $x; ok 541 - $x = Math::BigFloat::Subclass->new("+0"); $x; ok 542 - $x = Math::BigFloat::Subclass->new("+00"); $x; ok 543 - $x = Math::BigFloat::Subclass->new("+00"); $x; ok 544 - $x = Math::BigFloat::Subclass->new("+0_0_0"); $x; ok 545 - $x = Math::BigFloat::Subclass->new("+0_0_0"); $x; ok 546 - $x = Math::BigFloat::Subclass->new("000000_0000000_00000"); $x; ok 547 - $x = Math::BigFloat::Subclass->new("000000_0000000_00000"); $x; ok 548 - $x = Math::BigFloat::Subclass->new("-0"); $x; ok 549 - $x = Math::BigFloat::Subclass->new("-0"); $x; ok 550 - $x = Math::BigFloat::Subclass->new("-0000"); $x; ok 551 - $x = Math::BigFloat::Subclass->new("-0000"); $x; ok 552 - $x = Math::BigFloat::Subclass->new("+1"); $x; ok 553 - $x = Math::BigFloat::Subclass->new("+1"); $x; ok 554 - $x = Math::BigFloat::Subclass->new("+01"); $x; ok 555 - $x = Math::BigFloat::Subclass->new("+01"); $x; ok 556 - $x = Math::BigFloat::Subclass->new("+001"); $x; ok 557 - $x = Math::BigFloat::Subclass->new("+001"); $x; ok 558 - $x = Math::BigFloat::Subclass->new("+00000100000"); $x; ok 559 - $x = Math::BigFloat::Subclass->new("+00000100000"); $x; ok 560 - $x = Math::BigFloat::Subclass->new("123456789"); $x; ok 561 - $x = Math::BigFloat::Subclass->new("123456789"); $x; ok 562 - $x = Math::BigFloat::Subclass->new("-1"); $x; ok 563 - $x = Math::BigFloat::Subclass->new("-1"); $x; ok 564 - $x = Math::BigFloat::Subclass->new("-01"); $x; ok 565 - $x = Math::BigFloat::Subclass->new("-01"); $x; ok 566 - $x = Math::BigFloat::Subclass->new("-001"); $x; ok 567 - $x = Math::BigFloat::Subclass->new("-001"); $x; ok 568 - $x = Math::BigFloat::Subclass->new("-123456789"); $x; ok 569 - $x = Math::BigFloat::Subclass->new("-123456789"); $x; ok 570 - $x = Math::BigFloat::Subclass->new("-00000100000"); $x; ok 571 - $x = Math::BigFloat::Subclass->new("-00000100000"); $x; ok 572 - $x = Math::BigFloat::Subclass->new("123.456a"); $x; ok 573 - $x = Math::BigFloat::Subclass->new("123.456a"); $x; ok 574 - $x = Math::BigFloat::Subclass->new("123.456"); $x; ok 575 - $x = Math::BigFloat::Subclass->new("123.456"); $x; ok 576 - $x = Math::BigFloat::Subclass->new("0.01"); $x; ok 577 - $x = Math::BigFloat::Subclass->new("0.01"); $x; ok 578 - $x = Math::BigFloat::Subclass->new(".002"); $x; ok 579 - $x = Math::BigFloat::Subclass->new(".002"); $x; ok 580 - $x = Math::BigFloat::Subclass->new("+.2"); $x; ok 581 - $x = Math::BigFloat::Subclass->new("+.2"); $x; ok 582 - $x = Math::BigFloat::Subclass->new("-0.0003"); $x; ok 583 - $x = Math::BigFloat::Subclass->new("-0.0003"); $x; ok 584 - $x = Math::BigFloat::Subclass->new("-.0000000004"); $x; ok 585 - $x = Math::BigFloat::Subclass->new("-.0000000004"); $x; ok 586 - $x = Math::BigFloat::Subclass->new("123456E2"); $x; ok 587 - $x = Math::BigFloat::Subclass->new("123456E2"); $x; ok 588 - $x = Math::BigFloat::Subclass->new("123456E-2"); $x; ok 589 - $x = Math::BigFloat::Subclass->new("123456E-2"); $x; ok 590 - $x = Math::BigFloat::Subclass->new("-123456E2"); $x; ok 591 - $x = Math::BigFloat::Subclass->new("-123456E2"); $x; ok 592 - $x = Math::BigFloat::Subclass->new("-123456E-2"); $x; ok 593 - $x = Math::BigFloat::Subclass->new("-123456E-2"); $x; ok 594 - $x = Math::BigFloat::Subclass->new("1e1"); $x; ok 595 - $x = Math::BigFloat::Subclass->new("1e1"); $x; ok 596 - $x = Math::BigFloat::Subclass->new("2e-11"); $x; ok 597 - $x = Math::BigFloat::Subclass->new("2e-11"); $x; ok 598 - $x = Math::BigFloat::Subclass->new(" .02e-1"); $x; ok 599 - $x = Math::BigFloat::Subclass->new(" .02e-1"); $x; ok 600 - $x = Math::BigFloat::Subclass->new(" 000001"); $x; ok 601 - $x = Math::BigFloat::Subclass->new(" 000001"); $x; ok 602 - $x = Math::BigFloat::Subclass->new(" -00001"); $x; ok 603 - $x = Math::BigFloat::Subclass->new(" -00001"); $x; ok 604 - $x = Math::BigFloat::Subclass->new(" -1"); $x; ok 605 - $x = Math::BigFloat::Subclass->new(" -1"); $x; ok 606 - $x = Math::BigFloat::Subclass->new(" 000.01"); $x; ok 607 - $x = Math::BigFloat::Subclass->new(" 000.01"); $x; ok 608 - $x = Math::BigFloat::Subclass->new(" -000.0023"); $x; ok 609 - $x = Math::BigFloat::Subclass->new(" -000.0023"); $x; ok 610 - $x = Math::BigFloat::Subclass->new(" 1.1e1"); $x; ok 611 - $x = Math::BigFloat::Subclass->new(" 1.1e1"); $x; ok 612 - $x = Math::BigFloat::Subclass->new("-3e111"); $x; ok 613 - $x = Math::BigFloat::Subclass->new("-3e111"); $x; ok 614 - $x = Math::BigFloat::Subclass->new("-4e-1111"); $x; ok 615 - $x = Math::BigFloat::Subclass->new("-4e-1111"); $x; ok 616 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $x->bpow($y); ok 617 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("1"); $x->bpow($y); ok 618 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 619 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 620 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("-1"); $x->bpow($y); ok 621 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("-1"); $x->bpow($y); ok 622 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 623 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 624 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("-21"); $x->bpow($y); ok 625 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("-21"); $x->bpow($y); ok 626 - $x = Math::BigFloat::Subclass->new("-21"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 627 - $x = Math::BigFloat::Subclass->new("-21"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 628 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("21"); $x->bpow($y); ok 629 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("21"); $x->bpow($y); ok 630 - $x = Math::BigFloat::Subclass->new("21"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 631 - $x = Math::BigFloat::Subclass->new("21"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bpow($y); ok 632 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $x->bpow($y); ok 633 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $x->bpow($y); ok 634 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("1"); $x->bpow($y); ok 635 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("1"); $x->bpow($y); ok 636 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("9"); $x->bpow($y); ok 637 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("9"); $x->bpow($y); ok 638 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 639 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 640 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 641 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 642 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 643 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 644 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 645 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 646 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 647 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 648 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 649 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 650 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 651 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 652 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 653 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 654 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bpow($y); ok 655 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bpow($y); ok 656 - $x = Math::BigFloat::Subclass->new("128"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 657 - $x = Math::BigFloat::Subclass->new("128"); $y = Math::BigFloat::Subclass->new("-2"); $x->bpow($y); ok 658 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("123.456"); $x->bpow($y); ok 659 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("123.456"); $x->bpow($y); ok 660 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("abc"); $x->bpow($y); ok 661 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("abc"); $x->bpow($y); ok 662 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("123.45"); $x->bpow($y); ok 663 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("123.45"); $x->bpow($y); ok 664 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("123.45"); $x->bpow($y); ok 665 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("123.45"); $x->bpow($y); ok 666 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-123.45"); $x->bpow($y); ok 667 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-123.45"); $x->bpow($y); ok 668 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-123.45"); $x->bpow($y); ok 669 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-123.45"); $x->bpow($y); ok 670 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 671 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 672 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 673 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 674 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("4"); $x->bpow($y); ok 675 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("4"); $x->bpow($y); ok 676 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("5"); $x->bpow($y); ok 677 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("5"); $x->bpow($y); ok 678 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 679 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("2"); $x->bpow($y); ok 680 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 681 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("3"); $x->bpow($y); ok 682 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $x->bpow($y); ok 683 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $x->bpow($y); ok 684 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("5"); $x->bpow($y); ok 685 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("5"); $x->bpow($y); ok 686 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0.5"); $x->bpow($y); ok 687 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("0.5"); $x->bpow($y); ok 688 - $x = Math::BigFloat::Subclass->new("bnegNaN"); $x->bneg(); ok 689 - $x = Math::BigFloat::Subclass->new("bnegNaN"); $x->bneg(); ok 690 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bneg(); ok 691 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bneg(); ok 692 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bneg(); ok 693 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bneg(); ok 694 - $x = Math::BigFloat::Subclass->new("+0"); $x->bneg(); ok 695 - $x = Math::BigFloat::Subclass->new("+0"); $x->bneg(); ok 696 - $x = Math::BigFloat::Subclass->new("+1"); $x->bneg(); ok 697 - $x = Math::BigFloat::Subclass->new("+1"); $x->bneg(); ok 698 - $x = Math::BigFloat::Subclass->new("-1"); $x->bneg(); ok 699 - $x = Math::BigFloat::Subclass->new("-1"); $x->bneg(); ok 700 - $x = Math::BigFloat::Subclass->new("+123456789"); $x->bneg(); ok 701 - $x = Math::BigFloat::Subclass->new("+123456789"); $x->bneg(); ok 702 - $x = Math::BigFloat::Subclass->new("-123456789"); $x->bneg(); ok 703 - $x = Math::BigFloat::Subclass->new("-123456789"); $x->bneg(); ok 704 - $x = Math::BigFloat::Subclass->new("+123.456789"); $x->bneg(); ok 705 - $x = Math::BigFloat::Subclass->new("+123.456789"); $x->bneg(); ok 706 - $x = Math::BigFloat::Subclass->new("-123456.789"); $x->bneg(); ok 707 - $x = Math::BigFloat::Subclass->new("-123456.789"); $x->bneg(); ok 708 - $x = Math::BigFloat::Subclass->new("babsNaN"); $x->babs(); ok 709 - $x = Math::BigFloat::Subclass->new("babsNaN"); $x->babs(); ok 710 - $x = Math::BigFloat::Subclass->new("+inf"); $x->babs(); ok 711 - $x = Math::BigFloat::Subclass->new("+inf"); $x->babs(); ok 712 - $x = Math::BigFloat::Subclass->new("-inf"); $x->babs(); ok 713 - $x = Math::BigFloat::Subclass->new("-inf"); $x->babs(); ok 714 - $x = Math::BigFloat::Subclass->new("+0"); $x->babs(); ok 715 - $x = Math::BigFloat::Subclass->new("+0"); $x->babs(); ok 716 - $x = Math::BigFloat::Subclass->new("+1"); $x->babs(); ok 717 - $x = Math::BigFloat::Subclass->new("+1"); $x->babs(); ok 718 - $x = Math::BigFloat::Subclass->new("-1"); $x->babs(); ok 719 - $x = Math::BigFloat::Subclass->new("-1"); $x->babs(); ok 720 - $x = Math::BigFloat::Subclass->new("+123456789"); $x->babs(); ok 721 - $x = Math::BigFloat::Subclass->new("+123456789"); $x->babs(); ok 722 - $x = Math::BigFloat::Subclass->new("-123456789"); $x->babs(); ok 723 - $x = Math::BigFloat::Subclass->new("-123456789"); $x->babs(); ok 724 - $x = Math::BigFloat::Subclass->new("+123.456789"); $x->babs(); ok 725 - $x = Math::BigFloat::Subclass->new("+123.456789"); $x->babs(); ok 726 - $x = Math::BigFloat::Subclass->new("-123456.789"); $x->babs(); ok 727 - $x = Math::BigFloat::Subclass->new("-123456.789"); $x->babs(); ok 728 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 729 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 730 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 731 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 732 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 733 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 734 - $x = Math::BigFloat::Subclass->new("NaNfround"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 735 - $x = Math::BigFloat::Subclass->new("NaNfround"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 736 - $x = Math::BigFloat::Subclass->new("+10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 737 - $x = Math::BigFloat::Subclass->new("+10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 738 - $x = Math::BigFloat::Subclass->new("-10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 739 - $x = Math::BigFloat::Subclass->new("-10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 740 - $x = Math::BigFloat::Subclass->new("+10123456789.123"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 741 - $x = Math::BigFloat::Subclass->new("+10123456789.123"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 742 - $x = Math::BigFloat::Subclass->new("-10123456789.123"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 743 - $x = Math::BigFloat::Subclass->new("-10123456789.123"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(5); ok 744 - $x = Math::BigFloat::Subclass->new("+10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(9); ok 745 - $x = Math::BigFloat::Subclass->new("+10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(9); ok 746 - $x = Math::BigFloat::Subclass->new("-10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(9); ok 747 - $x = Math::BigFloat::Subclass->new("-10123456789"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(9); ok 748 - $x = Math::BigFloat::Subclass->new("+101234500"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(6); ok 749 - $x = Math::BigFloat::Subclass->new("+101234500"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(6); ok 750 - $x = Math::BigFloat::Subclass->new("-101234500"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(6); ok 751 - $x = Math::BigFloat::Subclass->new("-101234500"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bround(6); ok 752 - $x = Math::BigFloat::Subclass->new("+20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 753 - $x = Math::BigFloat::Subclass->new("+20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 754 - $x = Math::BigFloat::Subclass->new("-20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 755 - $x = Math::BigFloat::Subclass->new("-20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 756 - $x = Math::BigFloat::Subclass->new("+20123456789.123"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 757 - $x = Math::BigFloat::Subclass->new("+20123456789.123"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 758 - $x = Math::BigFloat::Subclass->new("-20123456789.123"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 759 - $x = Math::BigFloat::Subclass->new("-20123456789.123"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(5); ok 760 - $x = Math::BigFloat::Subclass->new("+20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(9); ok 761 - $x = Math::BigFloat::Subclass->new("+20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(9); ok 762 - $x = Math::BigFloat::Subclass->new("-20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(9); ok 763 - $x = Math::BigFloat::Subclass->new("-20123456789"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(9); ok 764 - $x = Math::BigFloat::Subclass->new("+201234500"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(6); ok 765 - $x = Math::BigFloat::Subclass->new("+201234500"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(6); ok 766 - $x = Math::BigFloat::Subclass->new("-201234500"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(6); ok 767 - $x = Math::BigFloat::Subclass->new("-201234500"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bround(6); ok 768 - $x = Math::BigFloat::Subclass->new("+30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 769 - $x = Math::BigFloat::Subclass->new("+30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 770 - $x = Math::BigFloat::Subclass->new("-30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 771 - $x = Math::BigFloat::Subclass->new("-30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 772 - $x = Math::BigFloat::Subclass->new("+30123456789.123"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 773 - $x = Math::BigFloat::Subclass->new("+30123456789.123"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 774 - $x = Math::BigFloat::Subclass->new("-30123456789.123"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 775 - $x = Math::BigFloat::Subclass->new("-30123456789.123"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(5); ok 776 - $x = Math::BigFloat::Subclass->new("+30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(9); ok 777 - $x = Math::BigFloat::Subclass->new("+30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(9); ok 778 - $x = Math::BigFloat::Subclass->new("-30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(9); ok 779 - $x = Math::BigFloat::Subclass->new("-30123456789"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(9); ok 780 - $x = Math::BigFloat::Subclass->new("+301234500"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(6); ok 781 - $x = Math::BigFloat::Subclass->new("+301234500"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(6); ok 782 - $x = Math::BigFloat::Subclass->new("-301234500"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(6); ok 783 - $x = Math::BigFloat::Subclass->new("-301234500"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bround(6); ok 784 - $x = Math::BigFloat::Subclass->new("+40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 785 - $x = Math::BigFloat::Subclass->new("+40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 786 - $x = Math::BigFloat::Subclass->new("-40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 787 - $x = Math::BigFloat::Subclass->new("-40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 788 - $x = Math::BigFloat::Subclass->new("+40123456789.123"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 789 - $x = Math::BigFloat::Subclass->new("+40123456789.123"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 790 - $x = Math::BigFloat::Subclass->new("-40123456789.123"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 791 - $x = Math::BigFloat::Subclass->new("-40123456789.123"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(5); ok 792 - $x = Math::BigFloat::Subclass->new("+40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(9); ok 793 - $x = Math::BigFloat::Subclass->new("+40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(9); ok 794 - $x = Math::BigFloat::Subclass->new("-40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(9); ok 795 - $x = Math::BigFloat::Subclass->new("-40123456789"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(9); ok 796 - $x = Math::BigFloat::Subclass->new("+401234500"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(6); ok 797 - $x = Math::BigFloat::Subclass->new("+401234500"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(6); ok 798 - $x = Math::BigFloat::Subclass->new("-401234500"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(6); ok 799 - $x = Math::BigFloat::Subclass->new("-401234500"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bround(6); ok 800 - $x = Math::BigFloat::Subclass->new("+50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 801 - $x = Math::BigFloat::Subclass->new("+50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 802 - $x = Math::BigFloat::Subclass->new("-50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 803 - $x = Math::BigFloat::Subclass->new("-50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 804 - $x = Math::BigFloat::Subclass->new("+50123456789.123"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 805 - $x = Math::BigFloat::Subclass->new("+50123456789.123"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 806 - $x = Math::BigFloat::Subclass->new("-50123456789.123"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 807 - $x = Math::BigFloat::Subclass->new("-50123456789.123"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(5); ok 808 - $x = Math::BigFloat::Subclass->new("+50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(9); ok 809 - $x = Math::BigFloat::Subclass->new("+50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(9); ok 810 - $x = Math::BigFloat::Subclass->new("-50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(9); ok 811 - $x = Math::BigFloat::Subclass->new("-50123456789"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(9); ok 812 - $x = Math::BigFloat::Subclass->new("+501234500"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(6); ok 813 - $x = Math::BigFloat::Subclass->new("+501234500"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(6); ok 814 - $x = Math::BigFloat::Subclass->new("-501234500"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(6); ok 815 - $x = Math::BigFloat::Subclass->new("-501234500"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bround(6); ok 816 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 817 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 818 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 819 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 820 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(9); ok 821 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(9); ok 822 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(9); ok 823 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(9); ok 824 - $x = Math::BigFloat::Subclass->new("+601234500"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(6); ok 825 - $x = Math::BigFloat::Subclass->new("+601234500"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(6); ok 826 - $x = Math::BigFloat::Subclass->new("-601234500"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(6); ok 827 - $x = Math::BigFloat::Subclass->new("-601234500"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(6); ok 828 - $x = Math::BigFloat::Subclass->new("+60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 829 - $x = Math::BigFloat::Subclass->new("+60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 830 - $x = Math::BigFloat::Subclass->new("-60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 831 - $x = Math::BigFloat::Subclass->new("-60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bround(5); ok 832 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 833 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 834 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 835 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 836 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 837 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 838 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 839 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 840 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(9); ok 841 - $x = Math::BigFloat::Subclass->new("+60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(9); ok 842 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(9); ok 843 - $x = Math::BigFloat::Subclass->new("-60123456789"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(9); ok 844 - $x = Math::BigFloat::Subclass->new("+601234500"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 845 - $x = Math::BigFloat::Subclass->new("+601234500"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 846 - $x = Math::BigFloat::Subclass->new("-601234500"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 847 - $x = Math::BigFloat::Subclass->new("-601234500"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 848 - $x = Math::BigFloat::Subclass->new("+601234400"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 849 - $x = Math::BigFloat::Subclass->new("+601234400"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 850 - $x = Math::BigFloat::Subclass->new("-601234400"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 851 - $x = Math::BigFloat::Subclass->new("-601234400"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 852 - $x = Math::BigFloat::Subclass->new("+601234600"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 853 - $x = Math::BigFloat::Subclass->new("+601234600"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 854 - $x = Math::BigFloat::Subclass->new("-601234600"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 855 - $x = Math::BigFloat::Subclass->new("-601234600"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 856 - $x = Math::BigFloat::Subclass->new("+601234300"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 857 - $x = Math::BigFloat::Subclass->new("+601234300"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(6); ok 858 - $x = Math::BigFloat::Subclass->new("+60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 859 - $x = Math::BigFloat::Subclass->new("+60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 860 - $x = Math::BigFloat::Subclass->new("-60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 861 - $x = Math::BigFloat::Subclass->new("-60123456789.0123"); $Math::BigFloat::Subclass::round_mode = "common"; $x->bround(5); ok 862 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 863 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 864 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 865 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 866 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 867 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 868 - $x = Math::BigFloat::Subclass->new("NaNffround"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 869 - $x = Math::BigFloat::Subclass->new("NaNffround"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(5); ok 870 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 871 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 872 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 873 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 874 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 875 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 876 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 877 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 878 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 879 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 880 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 881 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 882 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 883 - $x = Math::BigFloat::Subclass->new("+1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 884 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 885 - $x = Math::BigFloat::Subclass->new("+1.234"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 886 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 887 - $x = Math::BigFloat::Subclass->new("+1.2345"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 888 - $x = Math::BigFloat::Subclass->new("-1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 889 - $x = Math::BigFloat::Subclass->new("-1.23"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 890 - $x = Math::BigFloat::Subclass->new("+1.27"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 891 - $x = Math::BigFloat::Subclass->new("+1.27"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 892 - $x = Math::BigFloat::Subclass->new("-1.27"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 893 - $x = Math::BigFloat::Subclass->new("-1.27"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 894 - $x = Math::BigFloat::Subclass->new("+1.25"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 895 - $x = Math::BigFloat::Subclass->new("+1.25"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 896 - $x = Math::BigFloat::Subclass->new("-1.25"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 897 - $x = Math::BigFloat::Subclass->new("-1.25"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 898 - $x = Math::BigFloat::Subclass->new("+1.35"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 899 - $x = Math::BigFloat::Subclass->new("+1.35"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 900 - $x = Math::BigFloat::Subclass->new("-1.35"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 901 - $x = Math::BigFloat::Subclass->new("-1.35"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 902 - $x = Math::BigFloat::Subclass->new("-0.0061234567890"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 903 - $x = Math::BigFloat::Subclass->new("-0.0061234567890"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 904 - $x = Math::BigFloat::Subclass->new("-0.0061"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 905 - $x = Math::BigFloat::Subclass->new("-0.0061"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 906 - $x = Math::BigFloat::Subclass->new("-0.00612"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 907 - $x = Math::BigFloat::Subclass->new("-0.00612"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 908 - $x = Math::BigFloat::Subclass->new("-0.00612"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 909 - $x = Math::BigFloat::Subclass->new("-0.00612"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 910 - $x = Math::BigFloat::Subclass->new("-0.006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 911 - $x = Math::BigFloat::Subclass->new("-0.006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-1); ok 912 - $x = Math::BigFloat::Subclass->new("-0.006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 913 - $x = Math::BigFloat::Subclass->new("-0.006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 914 - $x = Math::BigFloat::Subclass->new("-0.0006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 915 - $x = Math::BigFloat::Subclass->new("-0.0006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-2); ok 916 - $x = Math::BigFloat::Subclass->new("-0.0006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 917 - $x = Math::BigFloat::Subclass->new("-0.0006"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 918 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-3); ok 919 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-4); ok 920 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(-5); ok 921 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 922 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 923 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 924 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 925 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 926 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 927 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 928 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "trunc"; $x->bfround(0); ok 929 - $x = Math::BigFloat::Subclass->new("+2.23"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 930 - $x = Math::BigFloat::Subclass->new("-2.23"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 931 - $x = Math::BigFloat::Subclass->new("+2.27"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 932 - $x = Math::BigFloat::Subclass->new("-2.27"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 933 - $x = Math::BigFloat::Subclass->new("+2.25"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 934 - $x = Math::BigFloat::Subclass->new("-2.25"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 935 - $x = Math::BigFloat::Subclass->new("+2.35"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 936 - $x = Math::BigFloat::Subclass->new("-2.35"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 937 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 938 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-1); ok 939 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-2); ok 940 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-3); ok 941 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-4); ok 942 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(-5); ok 943 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 944 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 945 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 946 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 947 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 948 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 949 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 950 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "zero"; $x->bfround(0); ok 951 - $x = Math::BigFloat::Subclass->new("+3.23"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 952 - $x = Math::BigFloat::Subclass->new("-3.23"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 953 - $x = Math::BigFloat::Subclass->new("+3.27"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 954 - $x = Math::BigFloat::Subclass->new("-3.27"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 955 - $x = Math::BigFloat::Subclass->new("+3.25"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 956 - $x = Math::BigFloat::Subclass->new("-3.25"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 957 - $x = Math::BigFloat::Subclass->new("+3.35"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 958 - $x = Math::BigFloat::Subclass->new("-3.35"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 959 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 960 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-1); ok 961 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-2); ok 962 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-3); ok 963 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-4); ok 964 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(-5); ok 965 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 966 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 967 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 968 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 969 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 970 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 971 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 972 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "+inf"; $x->bfround(0); ok 973 - $x = Math::BigFloat::Subclass->new("+4.23"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 974 - $x = Math::BigFloat::Subclass->new("-4.23"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 975 - $x = Math::BigFloat::Subclass->new("+4.27"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 976 - $x = Math::BigFloat::Subclass->new("-4.27"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 977 - $x = Math::BigFloat::Subclass->new("+4.25"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 978 - $x = Math::BigFloat::Subclass->new("-4.25"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 979 - $x = Math::BigFloat::Subclass->new("+4.35"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 980 - $x = Math::BigFloat::Subclass->new("-4.35"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 981 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 982 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-1); ok 983 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-2); ok 984 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-3); ok 985 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-4); ok 986 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(-5); ok 987 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 988 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 989 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 990 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 991 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 992 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 993 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 994 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "-inf"; $x->bfround(0); ok 995 - $x = Math::BigFloat::Subclass->new("+5.23"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 996 - $x = Math::BigFloat::Subclass->new("-5.23"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 997 - $x = Math::BigFloat::Subclass->new("+5.27"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 998 - $x = Math::BigFloat::Subclass->new("-5.27"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 999 - $x = Math::BigFloat::Subclass->new("+5.25"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1000 - $x = Math::BigFloat::Subclass->new("-5.25"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1001 - $x = Math::BigFloat::Subclass->new("+5.35"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1002 - $x = Math::BigFloat::Subclass->new("-5.35"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1003 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1004 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-1); ok 1005 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-2); ok 1006 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-3); ok 1007 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-4); ok 1008 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(-5); ok 1009 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1010 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1011 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1012 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1013 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1014 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1015 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1016 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "odd"; $x->bfround(0); ok 1017 - $x = Math::BigFloat::Subclass->new("+6.23"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1018 - $x = Math::BigFloat::Subclass->new("-6.23"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1019 - $x = Math::BigFloat::Subclass->new("+6.27"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1020 - $x = Math::BigFloat::Subclass->new("-6.27"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1021 - $x = Math::BigFloat::Subclass->new("+6.25"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1022 - $x = Math::BigFloat::Subclass->new("-6.25"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1023 - $x = Math::BigFloat::Subclass->new("+6.35"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1024 - $x = Math::BigFloat::Subclass->new("-6.35"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1025 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1026 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-1); ok 1027 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-2); ok 1028 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-3); ok 1029 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-4); ok 1030 - $x = Math::BigFloat::Subclass->new("-0.0065"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-5); ok 1031 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1032 - $x = Math::BigFloat::Subclass->new("0.05"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1033 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1034 - $x = Math::BigFloat::Subclass->new("0.5"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1035 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1036 - $x = Math::BigFloat::Subclass->new("0.51"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1037 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1038 - $x = Math::BigFloat::Subclass->new("0.41"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(0); ok 1039 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-3); ok 1040 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-3); ok 1041 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-4); ok 1042 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-4); ok 1043 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-5); ok 1044 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-5); ok 1045 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-6); ok 1046 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-6); ok 1047 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-7); ok 1048 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-7); ok 1049 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-8); ok 1050 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-8); ok 1051 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-9); ok 1052 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-9); ok 1053 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-12); ok 1054 - $x = Math::BigFloat::Subclass->new("0.01234567"); $Math::BigFloat::Subclass::round_mode = "even"; $x->bfround(-12); ok 1055 - $x = Math::BigFloat::Subclass->new("bcmpNaN"); $y = Math::BigFloat::Subclass->new("bcmpNaN"); $x->bcmp($y); ok 1056 - $x = Math::BigFloat::Subclass->new("bcmpNaN"); $y = Math::BigFloat::Subclass->new("+0"); $x->bcmp($y); ok 1057 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("bcmpNaN"); $x->bcmp($y); ok 1058 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bcmp($y); ok 1059 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bcmp($y); ok 1060 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bcmp($y); ok 1061 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bcmp($y); ok 1062 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bcmp($y); ok 1063 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bcmp($y); ok 1064 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bcmp($y); ok 1065 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bcmp($y); ok 1066 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bcmp($y); ok 1067 - $x = Math::BigFloat::Subclass->new("-1.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1068 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1.1"); $x->bcmp($y); ok 1069 - $x = Math::BigFloat::Subclass->new("+1.1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bcmp($y); ok 1070 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1.1"); $x->bcmp($y); ok 1071 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+123"); $x->bcmp($y); ok 1072 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+12"); $x->bcmp($y); ok 1073 - $x = Math::BigFloat::Subclass->new("+12"); $y = Math::BigFloat::Subclass->new("+123"); $x->bcmp($y); ok 1074 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-123"); $x->bcmp($y); ok 1075 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-12"); $x->bcmp($y); ok 1076 - $x = Math::BigFloat::Subclass->new("-12"); $y = Math::BigFloat::Subclass->new("-123"); $x->bcmp($y); ok 1077 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+124"); $x->bcmp($y); ok 1078 - $x = Math::BigFloat::Subclass->new("+124"); $y = Math::BigFloat::Subclass->new("+123"); $x->bcmp($y); ok 1079 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-124"); $x->bcmp($y); ok 1080 - $x = Math::BigFloat::Subclass->new("-124"); $y = Math::BigFloat::Subclass->new("-123"); $x->bcmp($y); ok 1081 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.01"); $x->bcmp($y); ok 1082 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bcmp($y); ok 1083 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.0001"); $x->bcmp($y); ok 1084 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.1"); $x->bcmp($y); ok 1085 - $x = Math::BigFloat::Subclass->new("0.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1086 - $x = Math::BigFloat::Subclass->new("0.00001"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1087 - $x = Math::BigFloat::Subclass->new("-0.0001"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1088 - $x = Math::BigFloat::Subclass->new("-0.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1089 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.0001234"); $x->bcmp($y); ok 1090 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.0001234"); $x->bcmp($y); ok 1091 - $x = Math::BigFloat::Subclass->new("0.0001234"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1092 - $x = Math::BigFloat::Subclass->new("-0.0001234"); $y = Math::BigFloat::Subclass->new("0"); $x->bcmp($y); ok 1093 - $x = Math::BigFloat::Subclass->new("0.0001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bcmp($y); ok 1094 - $x = Math::BigFloat::Subclass->new("0.0005"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bcmp($y); ok 1095 - $x = Math::BigFloat::Subclass->new("0.005"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bcmp($y); ok 1096 - $x = Math::BigFloat::Subclass->new("0.001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bcmp($y); ok 1097 - $x = Math::BigFloat::Subclass->new("0.000001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bcmp($y); ok 1098 - $x = Math::BigFloat::Subclass->new("0.00000123"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bcmp($y); ok 1099 - $x = Math::BigFloat::Subclass->new("0.00512"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bcmp($y); ok 1100 - $x = Math::BigFloat::Subclass->new("0.005"); $y = Math::BigFloat::Subclass->new("0.000112"); $x->bcmp($y); ok 1101 - $x = Math::BigFloat::Subclass->new("0.00123"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bcmp($y); ok 1102 - $x = Math::BigFloat::Subclass->new("1.5"); $y = Math::BigFloat::Subclass->new("2"); $x->bcmp($y); ok 1103 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1.5"); $x->bcmp($y); ok 1104 - $x = Math::BigFloat::Subclass->new("1.54321"); $y = Math::BigFloat::Subclass->new("234"); $x->bcmp($y); ok 1105 - $x = Math::BigFloat::Subclass->new("234"); $y = Math::BigFloat::Subclass->new("1.54321"); $x->bcmp($y); ok 1106 - $x = Math::BigFloat::Subclass->new("1e1234567890987654321"); $y = Math::BigFloat::Subclass->new("1e1234567890987654320"); $x->bcmp($y); ok 1107 - $x = Math::BigFloat::Subclass->new("1e-1234567890987654321"); $y = Math::BigFloat::Subclass->new("1e-1234567890987654320"); $x->bcmp($y); ok 1108 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("5432112345"); $x->bcmp($y); ok 1109 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("5432112345"); $x->bcmp($y); ok 1110 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-5432112345"); $x->bcmp($y); ok 1111 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-5432112345"); $x->bcmp($y); ok 1112 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("54321.12345"); $x->bcmp($y); ok 1113 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("54321.12345"); $x->bcmp($y); ok 1114 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-54321.12345"); $x->bcmp($y); ok 1115 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-54321.12345"); $x->bcmp($y); ok 1116 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bcmp($y); ok 1117 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bcmp($y); ok 1118 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bcmp($y); ok 1119 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bcmp($y); ok 1120 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bcmp($y); ok 1121 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("inf"); $x->bcmp($y); ok 1122 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("NaN"); $x->bcmp($y); ok 1123 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bcmp($y); ok 1124 - $x = Math::BigFloat::Subclass->new("bcmpNaN"); $y = Math::BigFloat::Subclass->new("bcmpNaN"); $x->bacmp($y); ok 1125 - $x = Math::BigFloat::Subclass->new("bcmpNaN"); $y = Math::BigFloat::Subclass->new("+0"); $x->bacmp($y); ok 1126 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("bcmpNaN"); $x->bacmp($y); ok 1127 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bacmp($y); ok 1128 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bacmp($y); ok 1129 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bacmp($y); ok 1130 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bacmp($y); ok 1131 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bacmp($y); ok 1132 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bacmp($y); ok 1133 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bacmp($y); ok 1134 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bacmp($y); ok 1135 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bacmp($y); ok 1136 - $x = Math::BigFloat::Subclass->new("-1.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1137 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1.1"); $x->bacmp($y); ok 1138 - $x = Math::BigFloat::Subclass->new("+1.1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bacmp($y); ok 1139 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1.1"); $x->bacmp($y); ok 1140 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+123"); $x->bacmp($y); ok 1141 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+12"); $x->bacmp($y); ok 1142 - $x = Math::BigFloat::Subclass->new("+12"); $y = Math::BigFloat::Subclass->new("+123"); $x->bacmp($y); ok 1143 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-123"); $x->bacmp($y); ok 1144 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-12"); $x->bacmp($y); ok 1145 - $x = Math::BigFloat::Subclass->new("-12"); $y = Math::BigFloat::Subclass->new("-123"); $x->bacmp($y); ok 1146 - $x = Math::BigFloat::Subclass->new("+123"); $y = Math::BigFloat::Subclass->new("+124"); $x->bacmp($y); ok 1147 - $x = Math::BigFloat::Subclass->new("+124"); $y = Math::BigFloat::Subclass->new("+123"); $x->bacmp($y); ok 1148 - $x = Math::BigFloat::Subclass->new("-123"); $y = Math::BigFloat::Subclass->new("-124"); $x->bacmp($y); ok 1149 - $x = Math::BigFloat::Subclass->new("-124"); $y = Math::BigFloat::Subclass->new("-123"); $x->bacmp($y); ok 1150 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.01"); $x->bacmp($y); ok 1151 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bacmp($y); ok 1152 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.0001"); $x->bacmp($y); ok 1153 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.1"); $x->bacmp($y); ok 1154 - $x = Math::BigFloat::Subclass->new("0.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1155 - $x = Math::BigFloat::Subclass->new("0.00001"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1156 - $x = Math::BigFloat::Subclass->new("-0.0001"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1157 - $x = Math::BigFloat::Subclass->new("-0.1"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1158 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0.0001234"); $x->bacmp($y); ok 1159 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-0.0001234"); $x->bacmp($y); ok 1160 - $x = Math::BigFloat::Subclass->new("0.0001234"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1161 - $x = Math::BigFloat::Subclass->new("-0.0001234"); $y = Math::BigFloat::Subclass->new("0"); $x->bacmp($y); ok 1162 - $x = Math::BigFloat::Subclass->new("0.0001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bacmp($y); ok 1163 - $x = Math::BigFloat::Subclass->new("0.0005"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bacmp($y); ok 1164 - $x = Math::BigFloat::Subclass->new("0.005"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bacmp($y); ok 1165 - $x = Math::BigFloat::Subclass->new("0.001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bacmp($y); ok 1166 - $x = Math::BigFloat::Subclass->new("0.000001"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bacmp($y); ok 1167 - $x = Math::BigFloat::Subclass->new("0.00000123"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bacmp($y); ok 1168 - $x = Math::BigFloat::Subclass->new("0.00512"); $y = Math::BigFloat::Subclass->new("0.0001"); $x->bacmp($y); ok 1169 - $x = Math::BigFloat::Subclass->new("0.005"); $y = Math::BigFloat::Subclass->new("0.000112"); $x->bacmp($y); ok 1170 - $x = Math::BigFloat::Subclass->new("0.00123"); $y = Math::BigFloat::Subclass->new("0.0005"); $x->bacmp($y); ok 1171 - $x = Math::BigFloat::Subclass->new("1.5"); $y = Math::BigFloat::Subclass->new("2"); $x->bacmp($y); ok 1172 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1.5"); $x->bacmp($y); ok 1173 - $x = Math::BigFloat::Subclass->new("1.54321"); $y = Math::BigFloat::Subclass->new("234"); $x->bacmp($y); ok 1174 - $x = Math::BigFloat::Subclass->new("234"); $y = Math::BigFloat::Subclass->new("1.54321"); $x->bacmp($y); ok 1175 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("5432112345"); $x->bacmp($y); ok 1176 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("5432112345"); $x->bacmp($y); ok 1177 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-5432112345"); $x->bacmp($y); ok 1178 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-5432112345"); $x->bacmp($y); ok 1179 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("54321.12345"); $x->bacmp($y); ok 1180 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("54321.12345"); $x->bacmp($y); ok 1181 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-54321.12345"); $x->bacmp($y); ok 1182 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-54321.12345"); $x->bacmp($y); ok 1183 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bacmp($y); ok 1184 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bacmp($y); ok 1185 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bacmp($y); ok 1186 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bacmp($y); ok 1187 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("inf"); $x->bacmp($y); ok 1188 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("inf"); $x->bacmp($y); ok 1189 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bacmp($y); ok 1190 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bacmp($y); ok 1191 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("bacmpNaN"); $x->bacmp($y); ok 1192 - $x = Math::BigFloat::Subclass->new("bacmpNaN"); $y = Math::BigFloat::Subclass->new("inf"); $x->bacmp($y); ok 1193 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("bacmpNaN"); $x->bacmp($y); ok 1194 - $x = Math::BigFloat::Subclass->new("bacmpNaN"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bacmp($y); ok 1195 - $x = Math::BigFloat::Subclass->new("bdecNaN"); $x->bdec(); ok 1196 - $x = Math::BigFloat::Subclass->new("bdecNaN"); $x->bdec(); ok 1197 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bdec(); ok 1198 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bdec(); ok 1199 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bdec(); ok 1200 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bdec(); ok 1201 - $x = Math::BigFloat::Subclass->new("+0"); $x->bdec(); ok 1202 - $x = Math::BigFloat::Subclass->new("+0"); $x->bdec(); ok 1203 - $x = Math::BigFloat::Subclass->new("+1"); $x->bdec(); ok 1204 - $x = Math::BigFloat::Subclass->new("+1"); $x->bdec(); ok 1205 - $x = Math::BigFloat::Subclass->new("-1"); $x->bdec(); ok 1206 - $x = Math::BigFloat::Subclass->new("-1"); $x->bdec(); ok 1207 - $x = Math::BigFloat::Subclass->new("1.23"); $x->bdec(); ok 1208 - $x = Math::BigFloat::Subclass->new("1.23"); $x->bdec(); ok 1209 - $x = Math::BigFloat::Subclass->new("-1.23"); $x->bdec(); ok 1210 - $x = Math::BigFloat::Subclass->new("-1.23"); $x->bdec(); ok 1211 - $x = Math::BigFloat::Subclass->new("100"); $x->bdec(); ok 1212 - $x = Math::BigFloat::Subclass->new("100"); $x->bdec(); ok 1213 - $x = Math::BigFloat::Subclass->new("101"); $x->bdec(); ok 1214 - $x = Math::BigFloat::Subclass->new("101"); $x->bdec(); ok 1215 - $x = Math::BigFloat::Subclass->new("-100"); $x->bdec(); ok 1216 - $x = Math::BigFloat::Subclass->new("-100"); $x->bdec(); ok 1217 - $x = Math::BigFloat::Subclass->new("-99"); $x->bdec(); ok 1218 - $x = Math::BigFloat::Subclass->new("-99"); $x->bdec(); ok 1219 - $x = Math::BigFloat::Subclass->new("-98"); $x->bdec(); ok 1220 - $x = Math::BigFloat::Subclass->new("-98"); $x->bdec(); ok 1221 - $x = Math::BigFloat::Subclass->new("99"); $x->bdec(); ok 1222 - $x = Math::BigFloat::Subclass->new("99"); $x->bdec(); ok 1223 - $x = Math::BigFloat::Subclass->new("bincNaN"); $x->binc(); ok 1224 - $x = Math::BigFloat::Subclass->new("bincNaN"); $x->binc(); ok 1225 - $x = Math::BigFloat::Subclass->new("+inf"); $x->binc(); ok 1226 - $x = Math::BigFloat::Subclass->new("+inf"); $x->binc(); ok 1227 - $x = Math::BigFloat::Subclass->new("-inf"); $x->binc(); ok 1228 - $x = Math::BigFloat::Subclass->new("-inf"); $x->binc(); ok 1229 - $x = Math::BigFloat::Subclass->new("+0"); $x->binc(); ok 1230 - $x = Math::BigFloat::Subclass->new("+0"); $x->binc(); ok 1231 - $x = Math::BigFloat::Subclass->new("+1"); $x->binc(); ok 1232 - $x = Math::BigFloat::Subclass->new("+1"); $x->binc(); ok 1233 - $x = Math::BigFloat::Subclass->new("-1"); $x->binc(); ok 1234 - $x = Math::BigFloat::Subclass->new("-1"); $x->binc(); ok 1235 - $x = Math::BigFloat::Subclass->new("1.23"); $x->binc(); ok 1236 - $x = Math::BigFloat::Subclass->new("1.23"); $x->binc(); ok 1237 - $x = Math::BigFloat::Subclass->new("-1.23"); $x->binc(); ok 1238 - $x = Math::BigFloat::Subclass->new("-1.23"); $x->binc(); ok 1239 - $x = Math::BigFloat::Subclass->new("100"); $x->binc(); ok 1240 - $x = Math::BigFloat::Subclass->new("100"); $x->binc(); ok 1241 - $x = Math::BigFloat::Subclass->new("-100"); $x->binc(); ok 1242 - $x = Math::BigFloat::Subclass->new("-100"); $x->binc(); ok 1243 - $x = Math::BigFloat::Subclass->new("-99"); $x->binc(); ok 1244 - $x = Math::BigFloat::Subclass->new("-99"); $x->binc(); ok 1245 - $x = Math::BigFloat::Subclass->new("-101"); $x->binc(); ok 1246 - $x = Math::BigFloat::Subclass->new("-101"); $x->binc(); ok 1247 - $x = Math::BigFloat::Subclass->new("99"); $x->binc(); ok 1248 - $x = Math::BigFloat::Subclass->new("99"); $x->binc(); ok 1249 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->badd($y); ok 1250 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->badd($y); ok 1251 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1252 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1253 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->badd($y); ok 1254 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->badd($y); ok 1255 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->badd($y); ok 1256 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->badd($y); ok 1257 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1258 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1259 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1260 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1261 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->badd($y); ok 1262 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->badd($y); ok 1263 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1264 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1265 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1266 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->badd($y); ok 1267 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->badd($y); ok 1268 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->badd($y); ok 1269 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->badd($y); ok 1270 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->badd($y); ok 1271 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1272 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1273 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1274 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1275 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1276 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1277 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1278 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1279 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1280 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->badd($y); ok 1281 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1282 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1283 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1284 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1285 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1286 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1287 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1288 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1289 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1290 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1291 - $x = Math::BigFloat::Subclass->new("+99"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1292 - $x = Math::BigFloat::Subclass->new("+99"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1293 - $x = Math::BigFloat::Subclass->new("+999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1294 - $x = Math::BigFloat::Subclass->new("+999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1295 - $x = Math::BigFloat::Subclass->new("+9999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1296 - $x = Math::BigFloat::Subclass->new("+9999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1297 - $x = Math::BigFloat::Subclass->new("+99999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1298 - $x = Math::BigFloat::Subclass->new("+99999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1299 - $x = Math::BigFloat::Subclass->new("+999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1300 - $x = Math::BigFloat::Subclass->new("+999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1301 - $x = Math::BigFloat::Subclass->new("+9999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1302 - $x = Math::BigFloat::Subclass->new("+9999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1303 - $x = Math::BigFloat::Subclass->new("+99999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1304 - $x = Math::BigFloat::Subclass->new("+99999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1305 - $x = Math::BigFloat::Subclass->new("+999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1306 - $x = Math::BigFloat::Subclass->new("+999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1307 - $x = Math::BigFloat::Subclass->new("+9999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1308 - $x = Math::BigFloat::Subclass->new("+9999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1309 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1310 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->badd($y); ok 1311 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1312 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1313 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1314 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1315 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1316 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1317 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1318 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1319 - $x = Math::BigFloat::Subclass->new("+100000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1320 - $x = Math::BigFloat::Subclass->new("+100000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1321 - $x = Math::BigFloat::Subclass->new("+1000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1322 - $x = Math::BigFloat::Subclass->new("+1000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1323 - $x = Math::BigFloat::Subclass->new("+10000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1324 - $x = Math::BigFloat::Subclass->new("+10000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1325 - $x = Math::BigFloat::Subclass->new("+100000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1326 - $x = Math::BigFloat::Subclass->new("+100000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1327 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1328 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1329 - $x = Math::BigFloat::Subclass->new("+10000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1330 - $x = Math::BigFloat::Subclass->new("+10000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->badd($y); ok 1331 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->badd($y); ok 1332 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->badd($y); ok 1333 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->badd($y); ok 1334 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->badd($y); ok 1335 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->badd($y); ok 1336 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->badd($y); ok 1337 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->badd($y); ok 1338 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->badd($y); ok 1339 - $x = Math::BigFloat::Subclass->new("0.001234"); $y = Math::BigFloat::Subclass->new("0.0001234"); $x->badd($y); ok 1340 - $x = Math::BigFloat::Subclass->new("0.001234"); $y = Math::BigFloat::Subclass->new("0.0001234"); $x->badd($y); ok 1341 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bsub($y); ok 1342 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bsub($y); ok 1343 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1344 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1345 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->bsub($y); ok 1346 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->bsub($y); ok 1347 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bsub($y); ok 1348 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bsub($y); ok 1349 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1350 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1351 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1352 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1353 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bsub($y); ok 1354 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bsub($y); ok 1355 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1356 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1357 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1358 - $x = Math::BigFloat::Subclass->new("baddNaN"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bsub($y); ok 1359 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->bsub($y); ok 1360 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->bsub($y); ok 1361 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->bsub($y); ok 1362 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("baddNaN"); $x->bsub($y); ok 1363 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1364 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1365 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1366 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1367 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1368 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1369 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1370 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1371 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1372 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bsub($y); ok 1373 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1374 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1375 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1376 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1377 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1378 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1379 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1380 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1381 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1382 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1383 - $x = Math::BigFloat::Subclass->new("+99"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1384 - $x = Math::BigFloat::Subclass->new("+99"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1385 - $x = Math::BigFloat::Subclass->new("+999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1386 - $x = Math::BigFloat::Subclass->new("+999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1387 - $x = Math::BigFloat::Subclass->new("+9999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1388 - $x = Math::BigFloat::Subclass->new("+9999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1389 - $x = Math::BigFloat::Subclass->new("+99999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1390 - $x = Math::BigFloat::Subclass->new("+99999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1391 - $x = Math::BigFloat::Subclass->new("+999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1392 - $x = Math::BigFloat::Subclass->new("+999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1393 - $x = Math::BigFloat::Subclass->new("+9999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1394 - $x = Math::BigFloat::Subclass->new("+9999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1395 - $x = Math::BigFloat::Subclass->new("+99999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1396 - $x = Math::BigFloat::Subclass->new("+99999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1397 - $x = Math::BigFloat::Subclass->new("+999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1398 - $x = Math::BigFloat::Subclass->new("+999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1399 - $x = Math::BigFloat::Subclass->new("+9999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1400 - $x = Math::BigFloat::Subclass->new("+9999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1401 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1402 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+1"); $x->bsub($y); ok 1403 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1404 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1405 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1406 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1407 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1408 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1409 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1410 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1411 - $x = Math::BigFloat::Subclass->new("+100000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1412 - $x = Math::BigFloat::Subclass->new("+100000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1413 - $x = Math::BigFloat::Subclass->new("+1000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1414 - $x = Math::BigFloat::Subclass->new("+1000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1415 - $x = Math::BigFloat::Subclass->new("+10000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1416 - $x = Math::BigFloat::Subclass->new("+10000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1417 - $x = Math::BigFloat::Subclass->new("+100000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1418 - $x = Math::BigFloat::Subclass->new("+100000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1419 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1420 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1421 - $x = Math::BigFloat::Subclass->new("+10000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1422 - $x = Math::BigFloat::Subclass->new("+10000000000"); $y = Math::BigFloat::Subclass->new("-1"); $x->bsub($y); ok 1423 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->bsub($y); ok 1424 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->bsub($y); ok 1425 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->bsub($y); ok 1426 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("+987654321"); $x->bsub($y); ok 1427 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->bsub($y); ok 1428 - $x = Math::BigFloat::Subclass->new("-123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->bsub($y); ok 1429 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->bsub($y); ok 1430 - $x = Math::BigFloat::Subclass->new("+123456789"); $y = Math::BigFloat::Subclass->new("-987654321"); $x->bsub($y); ok 1431 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1432 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1433 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1434 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1435 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1436 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1437 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("abc"); $x->bmuladd($y, $z); ok 1438 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("abc"); $x->bmuladd($y, $z); ok 1439 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1440 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1441 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1442 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1443 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1444 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1445 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1446 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1447 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1448 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1449 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1450 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1451 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1452 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("+inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1453 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1454 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1455 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1456 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1457 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1458 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1459 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1460 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1461 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1462 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1463 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1464 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1465 - $x = Math::BigFloat::Subclass->new("123456789123456789"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1466 - $x = Math::BigFloat::Subclass->new("123456789123456789"); $y = Math::BigFloat::Subclass->new("0"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1467 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("123456789123456789"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1468 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("123456789123456789"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1469 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1470 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1471 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1472 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1473 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1474 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1475 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1476 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1477 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1478 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1479 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1480 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1481 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("+3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1482 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("+3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1483 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("-3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1484 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("-3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1485 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1486 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1487 - $x = Math::BigFloat::Subclass->new("111"); $y = Math::BigFloat::Subclass->new("111"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1488 - $x = Math::BigFloat::Subclass->new("111"); $y = Math::BigFloat::Subclass->new("111"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1489 - $x = Math::BigFloat::Subclass->new("10101"); $y = Math::BigFloat::Subclass->new("10101"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1490 - $x = Math::BigFloat::Subclass->new("10101"); $y = Math::BigFloat::Subclass->new("10101"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1491 - $x = Math::BigFloat::Subclass->new("1001001"); $y = Math::BigFloat::Subclass->new("1001001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1492 - $x = Math::BigFloat::Subclass->new("1001001"); $y = Math::BigFloat::Subclass->new("1001001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1493 - $x = Math::BigFloat::Subclass->new("100010001"); $y = Math::BigFloat::Subclass->new("100010001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1494 - $x = Math::BigFloat::Subclass->new("100010001"); $y = Math::BigFloat::Subclass->new("100010001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1495 - $x = Math::BigFloat::Subclass->new("10000100001"); $y = Math::BigFloat::Subclass->new("10000100001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1496 - $x = Math::BigFloat::Subclass->new("10000100001"); $y = Math::BigFloat::Subclass->new("10000100001"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1497 - $x = Math::BigFloat::Subclass->new("11111111111"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1498 - $x = Math::BigFloat::Subclass->new("11111111111"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1499 - $x = Math::BigFloat::Subclass->new("22222222222"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1500 - $x = Math::BigFloat::Subclass->new("22222222222"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1501 - $x = Math::BigFloat::Subclass->new("33333333333"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1502 - $x = Math::BigFloat::Subclass->new("33333333333"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1503 - $x = Math::BigFloat::Subclass->new("44444444444"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1504 - $x = Math::BigFloat::Subclass->new("44444444444"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1505 - $x = Math::BigFloat::Subclass->new("55555555555"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1506 - $x = Math::BigFloat::Subclass->new("55555555555"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1507 - $x = Math::BigFloat::Subclass->new("66666666666"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1508 - $x = Math::BigFloat::Subclass->new("66666666666"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1509 - $x = Math::BigFloat::Subclass->new("77777777777"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1510 - $x = Math::BigFloat::Subclass->new("77777777777"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1511 - $x = Math::BigFloat::Subclass->new("88888888888"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1512 - $x = Math::BigFloat::Subclass->new("88888888888"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1513 - $x = Math::BigFloat::Subclass->new("99999999999"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1514 - $x = Math::BigFloat::Subclass->new("99999999999"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("0"); $x->bmuladd($y, $z); ok 1515 - $x = Math::BigFloat::Subclass->new("11111111111"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1516 - $x = Math::BigFloat::Subclass->new("11111111111"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1517 - $x = Math::BigFloat::Subclass->new("22222222222"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1518 - $x = Math::BigFloat::Subclass->new("22222222222"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1519 - $x = Math::BigFloat::Subclass->new("33333333333"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1520 - $x = Math::BigFloat::Subclass->new("33333333333"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1521 - $x = Math::BigFloat::Subclass->new("44444444444"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1522 - $x = Math::BigFloat::Subclass->new("44444444444"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1523 - $x = Math::BigFloat::Subclass->new("55555555555"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1524 - $x = Math::BigFloat::Subclass->new("55555555555"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1525 - $x = Math::BigFloat::Subclass->new("66666666666"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1526 - $x = Math::BigFloat::Subclass->new("66666666666"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1527 - $x = Math::BigFloat::Subclass->new("77777777777"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1528 - $x = Math::BigFloat::Subclass->new("77777777777"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1529 - $x = Math::BigFloat::Subclass->new("88888888888"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1530 - $x = Math::BigFloat::Subclass->new("88888888888"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1531 - $x = Math::BigFloat::Subclass->new("99999999999"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1532 - $x = Math::BigFloat::Subclass->new("99999999999"); $y = Math::BigFloat::Subclass->new("9"); $z = Math::BigFloat::Subclass->new("1"); $x->bmuladd($y, $z); ok 1533 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1534 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1535 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1536 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1537 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1538 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1539 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1540 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1541 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("5"); $x->bmuladd($y, $z); ok 1542 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("5"); $x->bmuladd($y, $z); ok 1543 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("5"); $x->bmuladd($y, $z); ok 1544 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-4"); $z = Math::BigFloat::Subclass->new("5"); $x->bmuladd($y, $z); ok 1545 - $x = Math::BigFloat::Subclass->new("9999999999999999999"); $y = Math::BigFloat::Subclass->new("10000000000000000000"); $z = Math::BigFloat::Subclass->new("1234567890"); $x->bmuladd($y, $z); ok 1546 - $x = Math::BigFloat::Subclass->new("9999999999999999999"); $y = Math::BigFloat::Subclass->new("10000000000000000000"); $z = Math::BigFloat::Subclass->new("1234567890"); $x->bmuladd($y, $z); ok 1547 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("5.7"); $z = Math::BigFloat::Subclass->new("8.9"); $x->bmuladd($y, $z); ok 1548 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("5.7"); $z = Math::BigFloat::Subclass->new("8.9"); $x->bmuladd($y, $z); ok 1549 - $x = Math::BigFloat::Subclass->new("-3.2"); $y = Math::BigFloat::Subclass->new("5.197"); $z = Math::BigFloat::Subclass->new("6.05"); $x->bmuladd($y, $z); ok 1550 - $x = Math::BigFloat::Subclass->new("-3.2"); $y = Math::BigFloat::Subclass->new("5.197"); $z = Math::BigFloat::Subclass->new("6.05"); $x->bmuladd($y, $z); ok 1551 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("8"); $x->bmodpow($y, $z); ok 1552 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("8"); $x->bmodpow($y, $z); ok 1553 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("7"); $x->bmodpow($y, $z); ok 1554 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("7"); $x->bmodpow($y, $z); ok 1555 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("7"); $x->bmodpow($y, $z); ok 1556 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("4"); $z = Math::BigFloat::Subclass->new("7"); $x->bmodpow($y, $z); ok 1557 - $x = Math::BigFloat::Subclass->new("77777"); $y = Math::BigFloat::Subclass->new("777"); $z = Math::BigFloat::Subclass->new("123456789"); $x->bmodpow($y, $z); ok 1558 - $x = Math::BigFloat::Subclass->new("77777"); $y = Math::BigFloat::Subclass->new("777"); $z = Math::BigFloat::Subclass->new("123456789"); $x->bmodpow($y, $z); ok 1559 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("6.2"); $z = Math::BigFloat::Subclass->new("5.2"); $x->bmodpow($y, $z); ok 1560 - $x = Math::BigFloat::Subclass->new("3.2"); $y = Math::BigFloat::Subclass->new("6.2"); $z = Math::BigFloat::Subclass->new("5.2"); $x->bmodpow($y, $z); ok 1561 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmul($y); ok 1562 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmul($y); ok 1563 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1564 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1565 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmul($y); ok 1566 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmul($y); ok 1567 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $x->bmul($y); ok 1568 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $x->bmul($y); ok 1569 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $x->bmul($y); ok 1570 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaNmul"); $x->bmul($y); ok 1571 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1572 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1573 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1574 - $x = Math::BigFloat::Subclass->new("NaNmul"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1575 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1576 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1577 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1578 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1579 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1580 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1581 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1582 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1583 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("123.34"); $x->bmul($y); ok 1584 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("123.34"); $x->bmul($y); ok 1585 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-123.34"); $x->bmul($y); ok 1586 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("-123.34"); $x->bmul($y); ok 1587 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("123.34"); $x->bmul($y); ok 1588 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("123.34"); $x->bmul($y); ok 1589 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-123.34"); $x->bmul($y); ok 1590 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-123.34"); $x->bmul($y); ok 1591 - $x = Math::BigFloat::Subclass->new("123.34"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1592 - $x = Math::BigFloat::Subclass->new("123.34"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1593 - $x = Math::BigFloat::Subclass->new("-123.34"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1594 - $x = Math::BigFloat::Subclass->new("-123.34"); $y = Math::BigFloat::Subclass->new("+inf"); $x->bmul($y); ok 1595 - $x = Math::BigFloat::Subclass->new("123.34"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1596 - $x = Math::BigFloat::Subclass->new("123.34"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1597 - $x = Math::BigFloat::Subclass->new("-123.34"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1598 - $x = Math::BigFloat::Subclass->new("-123.34"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmul($y); ok 1599 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1600 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1601 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1602 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1603 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1604 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1605 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1606 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1607 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1608 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1609 - $x = Math::BigFloat::Subclass->new("+123456789123456789"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1610 - $x = Math::BigFloat::Subclass->new("+123456789123456789"); $y = Math::BigFloat::Subclass->new("+0"); $x->bmul($y); ok 1611 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+123456789123456789"); $x->bmul($y); ok 1612 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+123456789123456789"); $x->bmul($y); ok 1613 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1614 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1615 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1616 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1617 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1618 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmul($y); ok 1619 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1620 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $x->bmul($y); ok 1621 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); $x->bmul($y); ok 1622 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+3"); $x->bmul($y); ok 1623 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("+3"); $x->bmul($y); ok 1624 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("+3"); $x->bmul($y); ok 1625 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmul($y); ok 1626 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmul($y); ok 1627 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmul($y); ok 1628 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmul($y); ok 1629 - $x = Math::BigFloat::Subclass->new("+111"); $y = Math::BigFloat::Subclass->new("+111"); $x->bmul($y); ok 1630 - $x = Math::BigFloat::Subclass->new("+111"); $y = Math::BigFloat::Subclass->new("+111"); $x->bmul($y); ok 1631 - $x = Math::BigFloat::Subclass->new("+10101"); $y = Math::BigFloat::Subclass->new("+10101"); $x->bmul($y); ok 1632 - $x = Math::BigFloat::Subclass->new("+10101"); $y = Math::BigFloat::Subclass->new("+10101"); $x->bmul($y); ok 1633 - $x = Math::BigFloat::Subclass->new("+1001001"); $y = Math::BigFloat::Subclass->new("+1001001"); $x->bmul($y); ok 1634 - $x = Math::BigFloat::Subclass->new("+1001001"); $y = Math::BigFloat::Subclass->new("+1001001"); $x->bmul($y); ok 1635 - $x = Math::BigFloat::Subclass->new("+100010001"); $y = Math::BigFloat::Subclass->new("+100010001"); $x->bmul($y); ok 1636 - $x = Math::BigFloat::Subclass->new("+100010001"); $y = Math::BigFloat::Subclass->new("+100010001"); $x->bmul($y); ok 1637 - $x = Math::BigFloat::Subclass->new("+10000100001"); $y = Math::BigFloat::Subclass->new("+10000100001"); $x->bmul($y); ok 1638 - $x = Math::BigFloat::Subclass->new("+10000100001"); $y = Math::BigFloat::Subclass->new("+10000100001"); $x->bmul($y); ok 1639 - $x = Math::BigFloat::Subclass->new("+11111111111"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1640 - $x = Math::BigFloat::Subclass->new("+11111111111"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1641 - $x = Math::BigFloat::Subclass->new("+22222222222"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1642 - $x = Math::BigFloat::Subclass->new("+22222222222"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1643 - $x = Math::BigFloat::Subclass->new("+33333333333"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1644 - $x = Math::BigFloat::Subclass->new("+33333333333"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1645 - $x = Math::BigFloat::Subclass->new("+44444444444"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1646 - $x = Math::BigFloat::Subclass->new("+44444444444"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1647 - $x = Math::BigFloat::Subclass->new("+55555555555"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1648 - $x = Math::BigFloat::Subclass->new("+55555555555"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1649 - $x = Math::BigFloat::Subclass->new("+66666666666"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1650 - $x = Math::BigFloat::Subclass->new("+66666666666"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1651 - $x = Math::BigFloat::Subclass->new("+77777777777"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1652 - $x = Math::BigFloat::Subclass->new("+77777777777"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1653 - $x = Math::BigFloat::Subclass->new("+88888888888"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1654 - $x = Math::BigFloat::Subclass->new("+88888888888"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1655 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1656 - $x = Math::BigFloat::Subclass->new("+99999999999"); $y = Math::BigFloat::Subclass->new("+9"); $x->bmul($y); ok 1657 - $x = Math::BigFloat::Subclass->new("6"); $y = Math::BigFloat::Subclass->new("120"); $x->bmul($y); ok 1658 - $x = Math::BigFloat::Subclass->new("6"); $y = Math::BigFloat::Subclass->new("120"); $x->bmul($y); ok 1659 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new("10000"); $x->bmul($y); ok 1660 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new("10000"); $x->bmul($y); ok 1661 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1662 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1663 - $x = Math::BigFloat::Subclass->new("9"); $y = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1664 - $x = Math::BigFloat::Subclass->new("9"); $y = Math::BigFloat::Subclass->new("5"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1665 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1666 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1667 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1668 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::round_mode = "even"; join(",", $x->bdiv($y)); ok 1669 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1670 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1671 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1672 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1673 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1674 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1675 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1676 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1677 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1678 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("abc"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1679 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1680 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1681 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1682 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1683 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1684 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1685 - $x = Math::BigFloat::Subclass->new("+3214"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1686 - $x = Math::BigFloat::Subclass->new("+3214"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1687 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1688 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1689 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1690 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1691 - $x = Math::BigFloat::Subclass->new("-3214"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1692 - $x = Math::BigFloat::Subclass->new("-3214"); $y = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1693 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1694 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1695 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1696 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1697 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1698 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1699 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1700 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1701 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+2"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1702 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("+2"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1703 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1704 - $x = Math::BigFloat::Subclass->new("+2"); $y = Math::BigFloat::Subclass->new("+1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1705 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1706 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1707 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1708 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1709 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("+5"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1710 - $x = Math::BigFloat::Subclass->new("+10"); $y = Math::BigFloat::Subclass->new("+5"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1711 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("+4"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1712 - $x = Math::BigFloat::Subclass->new("+100"); $y = Math::BigFloat::Subclass->new("+4"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1713 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("+8"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1714 - $x = Math::BigFloat::Subclass->new("+1000"); $y = Math::BigFloat::Subclass->new("+8"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1715 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("+16"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1716 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("+16"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1717 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-16"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1718 - $x = Math::BigFloat::Subclass->new("+10000"); $y = Math::BigFloat::Subclass->new("-16"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1719 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1720 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1721 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+99"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1722 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+99"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1723 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1724 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1725 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+9999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1726 - $x = Math::BigFloat::Subclass->new("+999999999999"); $y = Math::BigFloat::Subclass->new("+9999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1727 - $x = Math::BigFloat::Subclass->new("+999999999999999"); $y = Math::BigFloat::Subclass->new("+99999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1728 - $x = Math::BigFloat::Subclass->new("+999999999999999"); $y = Math::BigFloat::Subclass->new("+99999"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1729 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1730 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1731 - $x = Math::BigFloat::Subclass->new("+2000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1732 - $x = Math::BigFloat::Subclass->new("+2000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1733 - $x = Math::BigFloat::Subclass->new("+3000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1734 - $x = Math::BigFloat::Subclass->new("+3000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1735 - $x = Math::BigFloat::Subclass->new("+4000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1736 - $x = Math::BigFloat::Subclass->new("+4000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1737 - $x = Math::BigFloat::Subclass->new("+5000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1738 - $x = Math::BigFloat::Subclass->new("+5000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1739 - $x = Math::BigFloat::Subclass->new("+6000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1740 - $x = Math::BigFloat::Subclass->new("+6000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1741 - $x = Math::BigFloat::Subclass->new("+7000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1742 - $x = Math::BigFloat::Subclass->new("+7000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1743 - $x = Math::BigFloat::Subclass->new("+8000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1744 - $x = Math::BigFloat::Subclass->new("+8000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1745 - $x = Math::BigFloat::Subclass->new("+9000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1746 - $x = Math::BigFloat::Subclass->new("+9000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1747 - $x = Math::BigFloat::Subclass->new("+35500000"); $y = Math::BigFloat::Subclass->new("+113"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1748 - $x = Math::BigFloat::Subclass->new("+35500000"); $y = Math::BigFloat::Subclass->new("+113"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1749 - $x = Math::BigFloat::Subclass->new("+71000000"); $y = Math::BigFloat::Subclass->new("+226"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1750 - $x = Math::BigFloat::Subclass->new("+71000000"); $y = Math::BigFloat::Subclass->new("+226"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1751 - $x = Math::BigFloat::Subclass->new("+106500000"); $y = Math::BigFloat::Subclass->new("+339"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1752 - $x = Math::BigFloat::Subclass->new("+106500000"); $y = Math::BigFloat::Subclass->new("+339"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1753 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1754 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1755 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1756 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1757 - $x = Math::BigFloat::Subclass->new("123456"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1758 - $x = Math::BigFloat::Subclass->new("123456"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $Math::BigFloat::Subclass::round_mode = "even"; scalar $x->bdiv($y); ok 1759 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1760 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1761 - $x = Math::BigFloat::Subclass->new("+2000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1762 - $x = Math::BigFloat::Subclass->new("+2000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1763 - $x = Math::BigFloat::Subclass->new("+3000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1764 - $x = Math::BigFloat::Subclass->new("+3000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1765 - $x = Math::BigFloat::Subclass->new("+4000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1766 - $x = Math::BigFloat::Subclass->new("+4000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1767 - $x = Math::BigFloat::Subclass->new("+5000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1768 - $x = Math::BigFloat::Subclass->new("+5000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1769 - $x = Math::BigFloat::Subclass->new("+6000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1770 - $x = Math::BigFloat::Subclass->new("+6000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1771 - $x = Math::BigFloat::Subclass->new("+7000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1772 - $x = Math::BigFloat::Subclass->new("+7000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1773 - $x = Math::BigFloat::Subclass->new("+8000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1774 - $x = Math::BigFloat::Subclass->new("+8000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1775 - $x = Math::BigFloat::Subclass->new("+9000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1776 - $x = Math::BigFloat::Subclass->new("+9000000000"); $y = Math::BigFloat::Subclass->new("+9"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1777 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1778 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1779 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1780 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1781 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1000"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1782 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1000"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1783 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10000"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1784 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("10000"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1785 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("504"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1786 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("504"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1787 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1.987654321"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1788 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1.987654321"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1789 - $x = Math::BigFloat::Subclass->new("123456789.123456789123456789123456789"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1790 - $x = Math::BigFloat::Subclass->new("123456789.123456789123456789123456789"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1791 - $x = Math::BigFloat::Subclass->new("+35500000"); $y = Math::BigFloat::Subclass->new("+113"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1792 - $x = Math::BigFloat::Subclass->new("+35500000"); $y = Math::BigFloat::Subclass->new("+113"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1793 - $x = Math::BigFloat::Subclass->new("+71000000"); $y = Math::BigFloat::Subclass->new("+226"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1794 - $x = Math::BigFloat::Subclass->new("+71000000"); $y = Math::BigFloat::Subclass->new("+226"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1795 - $x = Math::BigFloat::Subclass->new("+106500000"); $y = Math::BigFloat::Subclass->new("+339"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1796 - $x = Math::BigFloat::Subclass->new("+106500000"); $y = Math::BigFloat::Subclass->new("+339"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1797 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1798 - $x = Math::BigFloat::Subclass->new("+1000000000"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 20; scalar $x->bdiv($y); ok 1799 - $x = Math::BigFloat::Subclass->new("+124"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 1; scalar $x->bdiv($y); ok 1800 - $x = Math::BigFloat::Subclass->new("+124"); $y = Math::BigFloat::Subclass->new("+3"); $Math::BigFloat::Subclass::div_scale = 1; scalar $x->bdiv($y); ok 1801 - $x = Math::BigFloat::Subclass->new("123456789.1234"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 1; scalar $x->bdiv($y); ok 1802 - $x = Math::BigFloat::Subclass->new("123456789.1234"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 1; scalar $x->bdiv($y); ok 1803 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("4"); $x->bmod($y); ok 1804 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("4"); $x->bmod($y); ok 1805 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1806 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1807 - $x = Math::BigFloat::Subclass->new("+9000"); $y = Math::BigFloat::Subclass->new("56"); $x->bmod($y); ok 1808 - $x = Math::BigFloat::Subclass->new("+9000"); $y = Math::BigFloat::Subclass->new("56"); $x->bmod($y); ok 1809 - $x = Math::BigFloat::Subclass->new("+56"); $y = Math::BigFloat::Subclass->new("9000"); $x->bmod($y); ok 1810 - $x = Math::BigFloat::Subclass->new("+56"); $y = Math::BigFloat::Subclass->new("9000"); $x->bmod($y); ok 1811 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1812 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1813 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1814 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1815 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1816 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1817 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1818 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1819 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1820 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1821 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1822 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1823 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1824 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1825 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1826 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1827 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1828 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1829 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1830 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1831 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1832 - $x = Math::BigFloat::Subclass->new("5"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1833 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1834 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1835 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1836 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1837 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1838 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1839 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1840 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("inf"); $x->bmod($y); ok 1841 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1842 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("-inf"); $x->bmod($y); ok 1843 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1844 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1845 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1846 - $x = Math::BigFloat::Subclass->new("inf"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1847 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1848 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1849 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1850 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1851 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1852 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1853 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmod($y); ok 1854 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmod($y); ok 1855 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1856 - $x = Math::BigFloat::Subclass->new("abc"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1857 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmod($y); ok 1858 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("abc"); $x->bmod($y); ok 1859 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1860 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1861 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1862 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1863 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1864 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1865 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1866 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $x->bmod($y); ok 1867 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1868 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1869 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1870 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1871 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1872 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1873 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1874 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1875 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bmod($y); ok 1876 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("2"); $x->bmod($y); ok 1877 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1878 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1879 - $x = Math::BigFloat::Subclass->new("1000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1880 - $x = Math::BigFloat::Subclass->new("1000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1881 - $x = Math::BigFloat::Subclass->new("2000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1882 - $x = Math::BigFloat::Subclass->new("2000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1883 - $x = Math::BigFloat::Subclass->new("3000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1884 - $x = Math::BigFloat::Subclass->new("3000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1885 - $x = Math::BigFloat::Subclass->new("4000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1886 - $x = Math::BigFloat::Subclass->new("4000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1887 - $x = Math::BigFloat::Subclass->new("5000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1888 - $x = Math::BigFloat::Subclass->new("5000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1889 - $x = Math::BigFloat::Subclass->new("6000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1890 - $x = Math::BigFloat::Subclass->new("6000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1891 - $x = Math::BigFloat::Subclass->new("7000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1892 - $x = Math::BigFloat::Subclass->new("7000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1893 - $x = Math::BigFloat::Subclass->new("8000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1894 - $x = Math::BigFloat::Subclass->new("8000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1895 - $x = Math::BigFloat::Subclass->new("9000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1896 - $x = Math::BigFloat::Subclass->new("9000000000"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1897 - $x = Math::BigFloat::Subclass->new("35500000"); $y = Math::BigFloat::Subclass->new("113"); $x->bmod($y); ok 1898 - $x = Math::BigFloat::Subclass->new("35500000"); $y = Math::BigFloat::Subclass->new("113"); $x->bmod($y); ok 1899 - $x = Math::BigFloat::Subclass->new("71000000"); $y = Math::BigFloat::Subclass->new("226"); $x->bmod($y); ok 1900 - $x = Math::BigFloat::Subclass->new("71000000"); $y = Math::BigFloat::Subclass->new("226"); $x->bmod($y); ok 1901 - $x = Math::BigFloat::Subclass->new("106500000"); $y = Math::BigFloat::Subclass->new("339"); $x->bmod($y); ok 1902 - $x = Math::BigFloat::Subclass->new("106500000"); $y = Math::BigFloat::Subclass->new("339"); $x->bmod($y); ok 1903 - $x = Math::BigFloat::Subclass->new("1000000000"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1904 - $x = Math::BigFloat::Subclass->new("1000000000"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1905 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1906 - $x = Math::BigFloat::Subclass->new("10"); $y = Math::BigFloat::Subclass->new("5"); $x->bmod($y); ok 1907 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("4"); $x->bmod($y); ok 1908 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("4"); $x->bmod($y); ok 1909 - $x = Math::BigFloat::Subclass->new("1000"); $y = Math::BigFloat::Subclass->new("8"); $x->bmod($y); ok 1910 - $x = Math::BigFloat::Subclass->new("1000"); $y = Math::BigFloat::Subclass->new("8"); $x->bmod($y); ok 1911 - $x = Math::BigFloat::Subclass->new("10000"); $y = Math::BigFloat::Subclass->new("16"); $x->bmod($y); ok 1912 - $x = Math::BigFloat::Subclass->new("10000"); $y = Math::BigFloat::Subclass->new("16"); $x->bmod($y); ok 1913 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1914 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("9"); $x->bmod($y); ok 1915 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("99"); $x->bmod($y); ok 1916 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("99"); $x->bmod($y); ok 1917 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("999"); $x->bmod($y); ok 1918 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("999"); $x->bmod($y); ok 1919 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("9999"); $x->bmod($y); ok 1920 - $x = Math::BigFloat::Subclass->new("999999999999"); $y = Math::BigFloat::Subclass->new("9999"); $x->bmod($y); ok 1921 - $x = Math::BigFloat::Subclass->new("999999999999999"); $y = Math::BigFloat::Subclass->new("99999"); $x->bmod($y); ok 1922 - $x = Math::BigFloat::Subclass->new("999999999999999"); $y = Math::BigFloat::Subclass->new("99999"); $x->bmod($y); ok 1923 - $x = Math::BigFloat::Subclass->new("-9"); $y = Math::BigFloat::Subclass->new("+5"); $x->bmod($y); ok 1924 - $x = Math::BigFloat::Subclass->new("-9"); $y = Math::BigFloat::Subclass->new("+5"); $x->bmod($y); ok 1925 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1926 - $x = Math::BigFloat::Subclass->new("+9"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1927 - $x = Math::BigFloat::Subclass->new("-9"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1928 - $x = Math::BigFloat::Subclass->new("-9"); $y = Math::BigFloat::Subclass->new("-5"); $x->bmod($y); ok 1929 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1930 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1931 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1932 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1933 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1934 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1935 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1936 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1937 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1938 - $x = Math::BigFloat::Subclass->new("-5"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1939 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1940 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1941 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1942 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1943 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1944 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("-3"); $x->bmod($y); ok 1945 - $x = Math::BigFloat::Subclass->new("4095"); $y = Math::BigFloat::Subclass->new("4095"); $x->bmod($y); ok 1946 - $x = Math::BigFloat::Subclass->new("4095"); $y = Math::BigFloat::Subclass->new("4095"); $x->bmod($y); ok 1947 - $x = Math::BigFloat::Subclass->new("100041000510123"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1948 - $x = Math::BigFloat::Subclass->new("100041000510123"); $y = Math::BigFloat::Subclass->new("3"); $x->bmod($y); ok 1949 - $x = Math::BigFloat::Subclass->new("152403346"); $y = Math::BigFloat::Subclass->new("12345"); $x->bmod($y); ok 1950 - $x = Math::BigFloat::Subclass->new("152403346"); $y = Math::BigFloat::Subclass->new("12345"); $x->bmod($y); ok 1951 - $x = Math::BigFloat::Subclass->new("87654321"); $y = Math::BigFloat::Subclass->new("87654321"); $x->bmod($y); ok 1952 - $x = Math::BigFloat::Subclass->new("87654321"); $y = Math::BigFloat::Subclass->new("87654321"); $x->bmod($y); ok 1953 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1954 - $x = Math::BigFloat::Subclass->new("123"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1955 - $x = Math::BigFloat::Subclass->new("1230"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1956 - $x = Math::BigFloat::Subclass->new("1230"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1957 - $x = Math::BigFloat::Subclass->new("123.4"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1958 - $x = Math::BigFloat::Subclass->new("123.4"); $y = Math::BigFloat::Subclass->new("2.5"); $x->bmod($y); ok 1959 - $x = Math::BigFloat::Subclass->new("123e1"); $y = Math::BigFloat::Subclass->new("25"); $x->bmod($y); ok 1960 - $x = Math::BigFloat::Subclass->new("123e1"); $y = Math::BigFloat::Subclass->new("25"); $x->bmod($y); ok 1961 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1962 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1963 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1964 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1965 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1966 - $x = Math::BigFloat::Subclass->new("-2.1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1967 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1968 - $x = Math::BigFloat::Subclass->new("2.1"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1969 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1970 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1971 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1972 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("1"); $x->bmod($y); ok 1973 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1974 - $x = Math::BigFloat::Subclass->new("-3"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1975 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1976 - $x = Math::BigFloat::Subclass->new("3"); $y = Math::BigFloat::Subclass->new("-1"); $x->bmod($y); ok 1977 - $x = Math::BigFloat::Subclass->new("Nanfac"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1978 - $x = Math::BigFloat::Subclass->new("Nanfac"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1979 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1980 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1981 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1982 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1983 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1984 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1985 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1986 - $x = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1987 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1988 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1989 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1990 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1991 - $x = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1992 - $x = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1993 - $x = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1994 - $x = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1995 - $x = Math::BigFloat::Subclass->new("5"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1996 - $x = Math::BigFloat::Subclass->new("5"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1997 - $x = Math::BigFloat::Subclass->new("6"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1998 - $x = Math::BigFloat::Subclass->new("6"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 1999 - $x = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2000 - $x = Math::BigFloat::Subclass->new("10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2001 - $x = Math::BigFloat::Subclass->new("11"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2002 - $x = Math::BigFloat::Subclass->new("11"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2003 - $x = Math::BigFloat::Subclass->new("12"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2004 - $x = Math::BigFloat::Subclass->new("12"); $Math::BigFloat::Subclass::div_scale = 40; $x->bfac(); ok 2005 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2006 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2007 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2008 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2009 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2010 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2011 - $x = Math::BigFloat::Subclass->new("-123.456"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2012 - $x = Math::BigFloat::Subclass->new("-123.456"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2013 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2014 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2015 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2016 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2017 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2018 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2019 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2020 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2021 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2022 - $x = Math::BigFloat::Subclass->new("4"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2023 - $x = Math::BigFloat::Subclass->new("9"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2024 - $x = Math::BigFloat::Subclass->new("9"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2025 - $x = Math::BigFloat::Subclass->new("16"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2026 - $x = Math::BigFloat::Subclass->new("16"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2027 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2028 - $x = Math::BigFloat::Subclass->new("100"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2029 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2030 - $x = Math::BigFloat::Subclass->new("123.456"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2031 - $x = Math::BigFloat::Subclass->new("15241.38393"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2032 - $x = Math::BigFloat::Subclass->new("15241.38393"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2033 - $x = Math::BigFloat::Subclass->new("1.44"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2034 - $x = Math::BigFloat::Subclass->new("1.44"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2035 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2036 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2037 - $x = Math::BigFloat::Subclass->new("0.49"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2038 - $x = Math::BigFloat::Subclass->new("0.49"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2039 - $x = Math::BigFloat::Subclass->new("0.0049"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2040 - $x = Math::BigFloat::Subclass->new("0.0049"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2041 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2042 - $x = Math::BigFloat::Subclass->new("1"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2043 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2044 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2045 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2046 - $x = Math::BigFloat::Subclass->new("0"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2047 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2048 - $x = Math::BigFloat::Subclass->new("-inf"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2049 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2050 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("NaN"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2051 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2052 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2053 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2054 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2055 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2056 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2057 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2058 - $x = Math::BigFloat::Subclass->new("NaN"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2059 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2060 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2061 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2062 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2063 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2064 - $x = Math::BigFloat::Subclass->new("+0"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2065 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2066 - $x = Math::BigFloat::Subclass->new("+1"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2067 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2068 - $x = Math::BigFloat::Subclass->new("-1"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2069 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2070 - $x = Math::BigFloat::Subclass->new("-2"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2071 - $x = Math::BigFloat::Subclass->new("-123.45"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2072 - $x = Math::BigFloat::Subclass->new("-123.45"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2073 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2074 - $x = Math::BigFloat::Subclass->new("+inf"); $y = Math::BigFloat::Subclass->new("0"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2075 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2076 - $x = Math::BigFloat::Subclass->new("12"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2077 - $x = Math::BigFloat::Subclass->new("-12"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2078 - $x = Math::BigFloat::Subclass->new("-12"); $y = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2079 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2080 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2081 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2082 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2083 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2084 - $x = Math::BigFloat::Subclass->new("8"); $y = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2085 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2086 - $x = Math::BigFloat::Subclass->new("-8"); $y = Math::BigFloat::Subclass->new("3"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2087 - $x = Math::BigFloat::Subclass->new("16"); $y = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2088 - $x = Math::BigFloat::Subclass->new("16"); $y = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2089 - $x = Math::BigFloat::Subclass->new("81"); $y = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2090 - $x = Math::BigFloat::Subclass->new("81"); $y = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->broot($y); ok 2091 - $x = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2092 - $x = Math::BigFloat::Subclass->new("+0"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2093 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2094 - $x = Math::BigFloat::Subclass->new("-1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2095 - $x = Math::BigFloat::Subclass->new("-2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2096 - $x = Math::BigFloat::Subclass->new("-2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2097 - $x = Math::BigFloat::Subclass->new("-16"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2098 - $x = Math::BigFloat::Subclass->new("-16"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2099 - $x = Math::BigFloat::Subclass->new("-123.45"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2100 - $x = Math::BigFloat::Subclass->new("-123.45"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2101 - $x = Math::BigFloat::Subclass->new("nanbsqrt"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2102 - $x = Math::BigFloat::Subclass->new("nanbsqrt"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2103 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2104 - $x = Math::BigFloat::Subclass->new("+inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2105 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2106 - $x = Math::BigFloat::Subclass->new("-inf"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2107 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2108 - $x = Math::BigFloat::Subclass->new("1"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2109 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2110 - $x = Math::BigFloat::Subclass->new("2"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2111 - $x = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2112 - $x = Math::BigFloat::Subclass->new("4"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2113 - $x = Math::BigFloat::Subclass->new("9"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2114 - $x = Math::BigFloat::Subclass->new("9"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2115 - $x = Math::BigFloat::Subclass->new("16"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2116 - $x = Math::BigFloat::Subclass->new("16"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2117 - $x = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2118 - $x = Math::BigFloat::Subclass->new("100"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2119 - $x = Math::BigFloat::Subclass->new("123.456"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2120 - $x = Math::BigFloat::Subclass->new("123.456"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2121 - $x = Math::BigFloat::Subclass->new("15241.38393"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2122 - $x = Math::BigFloat::Subclass->new("15241.38393"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2123 - $x = Math::BigFloat::Subclass->new("1.44"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2124 - $x = Math::BigFloat::Subclass->new("1.44"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2125 - $x = Math::BigFloat::Subclass->new("1.44E10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2126 - $x = Math::BigFloat::Subclass->new("1.44E10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2127 - $x = Math::BigFloat::Subclass->new("2e10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2128 - $x = Math::BigFloat::Subclass->new("2e10"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2129 - $x = Math::BigFloat::Subclass->new("144e20"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2130 - $x = Math::BigFloat::Subclass->new("144e20"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2131 - $x = Math::BigFloat::Subclass->new("12"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2132 - $x = Math::BigFloat::Subclass->new("12"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2133 - $x = Math::BigFloat::Subclass->new("0.49"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2134 - $x = Math::BigFloat::Subclass->new("0.49"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2135 - $x = Math::BigFloat::Subclass->new("0.0049"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2136 - $x = Math::BigFloat::Subclass->new("0.0049"); $Math::BigFloat::Subclass::div_scale = 40; $x->bsqrt(); ok 2137 - $x = Math::BigFloat::Subclass->new("123"); $x->is_nan(); ok 2138 - $x = Math::BigFloat::Subclass->new("abc"); $x->is_nan(); ok 2139 - $x = Math::BigFloat::Subclass->new("NaN"); $x->is_nan(); ok 2140 - $x = Math::BigFloat::Subclass->new("-123"); $x->is_nan(); ok 2141 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_inf(""); ok 2142 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_inf(""); ok 2143 - $x = Math::BigFloat::Subclass->new("abc"); $x->is_inf(""); ok 2144 - $x = Math::BigFloat::Subclass->new("1"); $x->is_inf(""); ok 2145 - $x = Math::BigFloat::Subclass->new("NaN"); $x->is_inf(""); ok 2146 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_inf(""); ok 2147 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_inf("-"); ok 2148 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_inf("+"); ok 2149 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_inf("-"); ok 2150 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_inf("+"); ok 2151 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_inf("-inf"); ok 2152 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_inf("+inf"); ok 2153 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_inf("-inf"); ok 2154 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_inf("+inf"); ok 2155 - $x = Math::BigFloat::Subclass->new("+iNfInItY"); $x->is_inf(""); ok 2156 - $x = Math::BigFloat::Subclass->new("-InFiNiTy"); $x->is_inf(""); ok 2157 - $x = Math::BigFloat::Subclass->new("abc"); $x->is_odd(); ok 2158 - $x = Math::BigFloat::Subclass->new("0"); $x->is_odd(); ok 2159 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_odd(); ok 2160 - $x = Math::BigFloat::Subclass->new("-3"); $x->is_odd(); ok 2161 - $x = Math::BigFloat::Subclass->new("1"); $x->is_odd(); ok 2162 - $x = Math::BigFloat::Subclass->new("3"); $x->is_odd(); ok 2163 - $x = Math::BigFloat::Subclass->new("1000001"); $x->is_odd(); ok 2164 - $x = Math::BigFloat::Subclass->new("1000002"); $x->is_odd(); ok 2165 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_odd(); ok 2166 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_odd(); ok 2167 - $x = Math::BigFloat::Subclass->new("123.45"); $x->is_odd(); ok 2168 - $x = Math::BigFloat::Subclass->new("-123.45"); $x->is_odd(); ok 2169 - $x = Math::BigFloat::Subclass->new("2"); $x->is_odd(); ok 2170 - $x = Math::BigFloat::Subclass->new("NaNis_int"); $x->is_int(); ok 2171 - $x = Math::BigFloat::Subclass->new("0"); $x->is_int(); ok 2172 - $x = Math::BigFloat::Subclass->new("1"); $x->is_int(); ok 2173 - $x = Math::BigFloat::Subclass->new("2"); $x->is_int(); ok 2174 - $x = Math::BigFloat::Subclass->new("-2"); $x->is_int(); ok 2175 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_int(); ok 2176 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_int(); ok 2177 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_int(); ok 2178 - $x = Math::BigFloat::Subclass->new("123.4567"); $x->is_int(); ok 2179 - $x = Math::BigFloat::Subclass->new("-0.1"); $x->is_int(); ok 2180 - $x = Math::BigFloat::Subclass->new("-0.002"); $x->is_int(); ok 2181 - $x = Math::BigFloat::Subclass->new("abc"); $x->is_even(); ok 2182 - $x = Math::BigFloat::Subclass->new("0"); $x->is_even(); ok 2183 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_even(); ok 2184 - $x = Math::BigFloat::Subclass->new("-3"); $x->is_even(); ok 2185 - $x = Math::BigFloat::Subclass->new("1"); $x->is_even(); ok 2186 - $x = Math::BigFloat::Subclass->new("3"); $x->is_even(); ok 2187 - $x = Math::BigFloat::Subclass->new("1000001"); $x->is_even(); ok 2188 - $x = Math::BigFloat::Subclass->new("1000002"); $x->is_even(); ok 2189 - $x = Math::BigFloat::Subclass->new("2"); $x->is_even(); ok 2190 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_even(); ok 2191 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_even(); ok 2192 - $x = Math::BigFloat::Subclass->new("123.456"); $x->is_even(); ok 2193 - $x = Math::BigFloat::Subclass->new("-123.456"); $x->is_even(); ok 2194 - $x = Math::BigFloat::Subclass->new("0.01"); $x->is_even(); ok 2195 - $x = Math::BigFloat::Subclass->new("-0.01"); $x->is_even(); ok 2196 - $x = Math::BigFloat::Subclass->new("120"); $x->is_even(); ok 2197 - $x = Math::BigFloat::Subclass->new("1200"); $x->is_even(); ok 2198 - $x = Math::BigFloat::Subclass->new("-1200"); $x->is_even(); ok 2199 - $x = Math::BigFloat::Subclass->new("0"); $x->is_positive(); ok 2200 - $x = Math::BigFloat::Subclass->new("1"); $x->is_positive(); ok 2201 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_positive(); ok 2202 - $x = Math::BigFloat::Subclass->new("-123"); $x->is_positive(); ok 2203 - $x = Math::BigFloat::Subclass->new("NaN"); $x->is_positive(); ok 2204 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_positive(); ok 2205 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_positive(); ok 2206 - $x = Math::BigFloat::Subclass->new("0"); $x->is_negative(); ok 2207 - $x = Math::BigFloat::Subclass->new("1"); $x->is_negative(); ok 2208 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_negative(); ok 2209 - $x = Math::BigFloat::Subclass->new("-123"); $x->is_negative(); ok 2210 - $x = Math::BigFloat::Subclass->new("NaN"); $x->is_negative(); ok 2211 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_negative(); ok 2212 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_negative(); ok 2213 - $x = Math::BigFloat::Subclass->new("0"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2214 - $x = Math::BigFloat::Subclass->new("1"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2215 - $x = Math::BigFloat::Subclass->new("123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2216 - $x = Math::BigFloat::Subclass->new("-123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2217 - $x = Math::BigFloat::Subclass->new("-1200"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2218 - $x = Math::BigFloat::Subclass->new("NaNparts"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2219 - $x = Math::BigFloat::Subclass->new("+inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2220 - $x = Math::BigFloat::Subclass->new("-inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2221 - $x = Math::BigFloat::Subclass->new("0"); $x->exponent()->bstr(); ok 2222 - $x = Math::BigFloat::Subclass->new("1"); $x->exponent()->bstr(); ok 2223 - $x = Math::BigFloat::Subclass->new("123"); $x->exponent()->bstr(); ok 2224 - $x = Math::BigFloat::Subclass->new("-123"); $x->exponent()->bstr(); ok 2225 - $x = Math::BigFloat::Subclass->new("-1200"); $x->exponent()->bstr(); ok 2226 - $x = Math::BigFloat::Subclass->new("+inf"); $x->exponent()->bstr(); ok 2227 - $x = Math::BigFloat::Subclass->new("-inf"); $x->exponent()->bstr(); ok 2228 - $x = Math::BigFloat::Subclass->new("NaNexponent"); $x->exponent()->bstr(); ok 2229 - $x = Math::BigFloat::Subclass->new("0"); $x->mantissa()->bstr(); ok 2230 - $x = Math::BigFloat::Subclass->new("1"); $x->mantissa()->bstr(); ok 2231 - $x = Math::BigFloat::Subclass->new("123"); $x->mantissa()->bstr(); ok 2232 - $x = Math::BigFloat::Subclass->new("-123"); $x->mantissa()->bstr(); ok 2233 - $x = Math::BigFloat::Subclass->new("-1200"); $x->mantissa()->bstr(); ok 2234 - $x = Math::BigFloat::Subclass->new("+inf"); $x->mantissa()->bstr(); ok 2235 - $x = Math::BigFloat::Subclass->new("-inf"); $x->mantissa()->bstr(); ok 2236 - $x = Math::BigFloat::Subclass->new("NaNmantissa"); $x->mantissa()->bstr(); ok 2237 - $x = Math::BigFloat::Subclass->new("123"); $x->length(); ok 2238 - $x = Math::BigFloat::Subclass->new("-123"); $x->length(); ok 2239 - $x = Math::BigFloat::Subclass->new("0"); $x->length(); ok 2240 - $x = Math::BigFloat::Subclass->new("1"); $x->length(); ok 2241 - $x = Math::BigFloat::Subclass->new("12345678901234567890"); $x->length(); ok 2242 - $x = Math::BigFloat::Subclass->new("NaNzero"); $x->is_zero(); ok 2243 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_zero(); ok 2244 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_zero(); ok 2245 - $x = Math::BigFloat::Subclass->new("0"); $x->is_zero(); ok 2246 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_zero(); ok 2247 - $x = Math::BigFloat::Subclass->new("1"); $x->is_zero(); ok 2248 - $x = Math::BigFloat::Subclass->new("NaNone"); $x->is_one(); ok 2249 - $x = Math::BigFloat::Subclass->new("+inf"); $x->is_one(); ok 2250 - $x = Math::BigFloat::Subclass->new("-inf"); $x->is_one(); ok 2251 - $x = Math::BigFloat::Subclass->new("0"); $x->is_one(); ok 2252 - $x = Math::BigFloat::Subclass->new("2"); $x->is_one(); ok 2253 - $x = Math::BigFloat::Subclass->new("1"); $x->is_one(); ok 2254 - $x = Math::BigFloat::Subclass->new("-1"); $x->is_one(); ok 2255 - $x = Math::BigFloat::Subclass->new("-2"); $x->is_one(); ok 2256 - $x = Math::BigFloat::Subclass->new("0"); $x->bfloor(); ok 2257 - $x = Math::BigFloat::Subclass->new("0"); $x->bfloor(); ok 2258 - $x = Math::BigFloat::Subclass->new("abc"); $x->bfloor(); ok 2259 - $x = Math::BigFloat::Subclass->new("abc"); $x->bfloor(); ok 2260 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bfloor(); ok 2261 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bfloor(); ok 2262 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bfloor(); ok 2263 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bfloor(); ok 2264 - $x = Math::BigFloat::Subclass->new("1"); $x->bfloor(); ok 2265 - $x = Math::BigFloat::Subclass->new("1"); $x->bfloor(); ok 2266 - $x = Math::BigFloat::Subclass->new("-51"); $x->bfloor(); ok 2267 - $x = Math::BigFloat::Subclass->new("-51"); $x->bfloor(); ok 2268 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bfloor(); ok 2269 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bfloor(); ok 2270 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bfloor(); ok 2271 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bfloor(); ok 2272 - $x = Math::BigFloat::Subclass->new("0.12345"); $x->bfloor(); ok 2273 - $x = Math::BigFloat::Subclass->new("0.12345"); $x->bfloor(); ok 2274 - $x = Math::BigFloat::Subclass->new("0.123456"); $x->bfloor(); ok 2275 - $x = Math::BigFloat::Subclass->new("0.123456"); $x->bfloor(); ok 2276 - $x = Math::BigFloat::Subclass->new("0.1234567"); $x->bfloor(); ok 2277 - $x = Math::BigFloat::Subclass->new("0.1234567"); $x->bfloor(); ok 2278 - $x = Math::BigFloat::Subclass->new("0.12345678"); $x->bfloor(); ok 2279 - $x = Math::BigFloat::Subclass->new("0.12345678"); $x->bfloor(); ok 2280 - $x = Math::BigFloat::Subclass->new("0.123456789"); $x->bfloor(); ok 2281 - $x = Math::BigFloat::Subclass->new("0.123456789"); $x->bfloor(); ok 2282 - $x = Math::BigFloat::Subclass->new("0"); $x->bceil(); ok 2283 - $x = Math::BigFloat::Subclass->new("0"); $x->bceil(); ok 2284 - $x = Math::BigFloat::Subclass->new("abc"); $x->bceil(); ok 2285 - $x = Math::BigFloat::Subclass->new("abc"); $x->bceil(); ok 2286 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bceil(); ok 2287 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bceil(); ok 2288 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bceil(); ok 2289 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bceil(); ok 2290 - $x = Math::BigFloat::Subclass->new("1"); $x->bceil(); ok 2291 - $x = Math::BigFloat::Subclass->new("1"); $x->bceil(); ok 2292 - $x = Math::BigFloat::Subclass->new("-51"); $x->bceil(); ok 2293 - $x = Math::BigFloat::Subclass->new("-51"); $x->bceil(); ok 2294 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bceil(); ok 2295 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bceil(); ok 2296 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bceil(); ok 2297 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bceil(); ok 2298 - $x = Math::BigFloat::Subclass->new("-0.4"); $x->bceil(); ok 2299 - $x = Math::BigFloat::Subclass->new("-0.4"); $x->bceil(); ok 2300 - $x = Math::BigFloat::Subclass->new("0"); $x->bint(); ok 2301 - $x = Math::BigFloat::Subclass->new("0"); $x->bint(); ok 2302 - $x = Math::BigFloat::Subclass->new("NaN"); $x->bint(); ok 2303 - $x = Math::BigFloat::Subclass->new("NaN"); $x->bint(); ok 2304 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bint(); ok 2305 - $x = Math::BigFloat::Subclass->new("+inf"); $x->bint(); ok 2306 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bint(); ok 2307 - $x = Math::BigFloat::Subclass->new("-inf"); $x->bint(); ok 2308 - $x = Math::BigFloat::Subclass->new("1"); $x->bint(); ok 2309 - $x = Math::BigFloat::Subclass->new("1"); $x->bint(); ok 2310 - $x = Math::BigFloat::Subclass->new("-51"); $x->bint(); ok 2311 - $x = Math::BigFloat::Subclass->new("-51"); $x->bint(); ok 2312 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bint(); ok 2313 - $x = Math::BigFloat::Subclass->new("-51.2"); $x->bint(); ok 2314 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bint(); ok 2315 - $x = Math::BigFloat::Subclass->new("12.2"); $x->bint(); ok 2316 - $x = Math::BigFloat::Subclass->new("-0.4"); $x->bint(); ok 2317 - $x = Math::BigFloat::Subclass->new("-0.4"); $x->bint(); ok 2318 - $x = Math::BigFloat::Subclass->new("-1"); $x = log($x); ok 2319 - $x = Math::BigFloat::Subclass->new("-1"); $x = log($x); ok 2320 - $x = Math::BigFloat::Subclass->new("0"); $x = log($x); ok 2321 - $x = Math::BigFloat::Subclass->new("0"); $x = log($x); ok 2322 - $x = Math::BigFloat::Subclass->new("1"); $x = log($x); ok 2323 - $x = Math::BigFloat::Subclass->new("1"); $x = log($x); ok 2324 - $x = Math::BigFloat::Subclass->new("2"); $x = log($x); ok 2325 - $x = Math::BigFloat::Subclass->new("2"); $x = log($x); ok 2326 - $x = Math::BigFloat::Subclass->new("3"); $x = log($x); ok 2327 - $x = Math::BigFloat::Subclass->new("3"); $x = log($x); ok 2328 - $x = Math::BigFloat::Subclass->new("123456789"); $x = log($x); ok 2329 - $x = Math::BigFloat::Subclass->new("123456789"); $x = log($x); ok 2330 - $x = Math::BigFloat::Subclass->new("1234567890987654321"); $x = log($x); ok 2331 - $x = Math::BigFloat::Subclass->new("1234567890987654321"); $x = log($x); ok 2332 - $x = Math::BigFloat::Subclass->new("-inf"); $x = log($x); ok 2333 - $x = Math::BigFloat::Subclass->new("-inf"); $x = log($x); ok 2334 - $x = Math::BigFloat::Subclass->new("inf"); $x = log($x); ok 2335 - $x = Math::BigFloat::Subclass->new("inf"); $x = log($x); ok 2336 - $x = Math::BigFloat::Subclass->new("NaN"); $x = log($x); ok 2337 - $x = Math::BigFloat::Subclass->new("NaN"); $x = log($x); ok 2338 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $y ok 2339 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $x ok 2340 - Math::BigFloat::Subclass->new("1e1234567890123456789012345678901234567890")->bsstr() ok 2341 - Math::BigFloat::Subclass->new("1e1234567890123456789012345678901234567890")->exponent() ok 2342 - Math::BigFloat::Subclass->new("1e1234567890123456789012345678901234567890") > 0 ok 2343 - Math::BigFloat::Subclass->new("1e1234567890123456789012345678901234567890")->bsub("1e1234567890123456789012345678901234567890") ok 2344 - Math::BigFloat::Subclass->new("1e1234567890123456789012345678901234567890")->bmul(2)->bsstr() ok 2345 - Math::BigFloat::Subclass->new("1234567890123456789012345678901234567890e2")->mantissa() ok 2346 - $x = Math::BigFloat::Subclass->new(2); $x->bzero(); $x->{_a} ok 2347 - $x = Math::BigFloat::Subclass->new(2); $x->bzero(); $x->{_p} ok 2348 - $x = Math::BigFloat::Subclass->new(2); $x->binf(); $x->{_a} ok 2349 - $x = Math::BigFloat::Subclass->new(2); $x->binf(); $x->{_p} ok 2350 - $x = Math::BigFloat::Subclass->new(2); $x->bone(); $x->{_a} ok 2351 - $x = Math::BigFloat::Subclass->new(2); $x->bone(); $x->{_p} ok 2352 - $x = Math::BigFloat::Subclass->new(2); $x->bnan(); $x->{_a} ok 2353 - $x = Math::BigFloat::Subclass->new(2); $x->bnan(); $x->{_p} ok 2354 - Math::BigFloat::Subclass->bzero() ok 2355 - Math::BigFloat::Subclass->bone() ok 2356 - Math::BigFloat::Subclass->bone("+") ok 2357 - Math::BigFloat::Subclass->bone("-") ok 2358 - Math::BigFloat::Subclass->bnan() ok 2359 - Math::BigFloat::Subclass->binf() ok 2360 - Math::BigFloat::Subclass->binf("+") ok 2361 - Math::BigFloat::Subclass->binf("-") ok 2362 - Math::BigFloat::Subclass->binf("-inf") ok 2363 - $x = Math::BigFloat::Subclass->new(12); Math::BigFloat::Subclass->precision(-2); $x->bsqrt(); ok 2364 - Math::BigFloat::Subclass->precision(undef); $x = Math::BigFloat::Subclass->new(12); Math::BigFloat::Subclass->precision(0); $x->bsqrt(); ok 2365 - Math::BigFloat::Subclass->precision(-3); $x = Math::BigFloat::Subclass->new(12); $x->bsqrt(); ok 2366 - A and P set => NaN ok 2367 - supplied arg overrides set global ok 2368 - @args = Math::BigFloat::Subclass::objectify(2, Math::BigFloat::Subclass, 4, 5); join(" ", @args); ok 2369 - Math::BigFloat::Subclass->new(-1)->is_one() ok 2370 - Math::BigFloat::Subclass->new(-1)->is_one("-") ok 2371 - Math::BigFloat::Subclass->new(1)->bdiv("0.5")->bsstr() ok 2372 - $x = Math::BigFloat::Subclass->new(3); $x -= $x; ok 2373 - $x = Math::BigFloat::Subclass->new(-3); $x -= $x; ok 2374 - $x = Math::BigFloat::Subclass->new(3); $x += $x; ok 2375 - $x = Math::BigFloat::Subclass->new(-3); $x += $x; ok 2376 - $x = Math::BigFloat::Subclass->new("NaN"); $x -= $x; ok 2377 - $x = Math::BigFloat::Subclass->new("inf"); $x -= $x; ok 2378 - $x = Math::BigFloat::Subclass->new("-inf"); $x -= $x; ok 2379 - $x = Math::BigFloat::Subclass->new("NaN"); $x += $x; ok 2380 - $x = Math::BigFloat::Subclass->new("inf"); $x += $x; ok 2381 - $x = Math::BigFloat::Subclass->new("-inf"); $x += $x; ok 2382 - $x = Math::BigFloat::Subclass->new("3.14"); $x -= $x; ok 2383 - $x = Math::BigFloat::Subclass->new("-3.14"); $x -= $x; ok 2384 - 6.28 = Math::BigFloat::Subclass->new("3.14"); 6.28 += 6.28; ok 2385 - -6.28 = Math::BigFloat::Subclass->new("-3.14"); -6.28 += -6.28; ok 2386 - 9.8596 = Math::BigFloat::Subclass->new("3.14"); 9.8596 *= 9.8596; ok 2387 - 9.8596 = Math::BigFloat::Subclass->new("-3.14"); 9.8596 *= 9.8596; ok 2388 - 1 = Math::BigFloat::Subclass->new("3.14"); 1 /= 1; ok 2389 - 1 = Math::BigFloat::Subclass->new("-3.14"); 1 /= 1; ok 2390 - 0 = Math::BigFloat::Subclass->new("3.14"); 0 %= 0; ok 2391 - 0 = Math::BigFloat::Subclass->new("-3.14"); 0 %= 0; ok 2392 - $x = Math::BigFloat::Subclass->new(0); $y = Math::BigFloat::Subclass->new("0.1"); $x ** $y ok 2393 - 1 = Math::BigFloat::Subclass->new(".222222222222222222222222222222222222222222"); 1->bceil(); ok 2394 - value of ((2**148)+1)/17 ok 2395 - number of digits in ((2**148)+1)/17 ok 2396 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18"); $x <<= $y ok 2397 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18"); $x <<= $y; $x ok 2398 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18"); $x <<= $y; $x >>= $y ok 2399 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18"); $x <<= $y; $x >>= $y; $x ok 2400 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); ok 2401 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y ok 2402 - $x = Math::BigFloat::Subclass->new("2"); $y = Math::BigFloat::Subclass->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y; $x ok 2403 - $ms has custom attribute \$ms->{_custom} ok 2404 - An object of class 'Math::BigFloat::Subclass' isa 'Math::BigFloat' ok 2405 - An object of class 'Math::BigFloat::Subclass' isn't a 'Math::BigFloat' ok 2406 - $ms is 46 ok 2407 - $ms has custom attribute $ms->{_custom} ok 2408 - $ms is not an object of class 'Math::BigFloat::Subclass' ok t/sub_mbi.t ................................... 1..3918 ok 1 - Math::BigInt::Subclass->config('lib') ok 2 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("-345"); $x .= $y; ok 3 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x += $y; ok 4 - is a valid object ok 5 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $x += $y; ok 6 - is a valid object ok 7 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x -= $y; ok 8 - is a valid object ok 9 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $x -= $y; ok 10 - is a valid object ok 11 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $x *= $y; ok 12 - is a valid object ok 13 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); $x *= $y; ok 14 - is a valid object ok 15 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("3"); $x %= $y; ok 16 - is a valid object ok 17 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("9"); $x %= $y; ok 18 - is a valid object ok 19 - $x = Math::BigInt::Subclass->new("-629"); $y = Math::BigInt::Subclass->new("5033"); $x %= $y; ok 20 - is a valid object ok 21 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("3"); $x /= $y; ok 22 - is a valid object ok 23 - $x = Math::BigInt::Subclass->new("-8"); $y = Math::BigInt::Subclass->new("2"); $x /= $y; ok 24 - is a valid object ok 25 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x |= $y; ok 26 - is a valid object ok 27 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("7"); $x &= $y; ok 28 - is a valid object ok 29 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("7"); $x ^= $y; ok 30 - is a valid object ok 31 - $x = Math::BigInt::Subclass->new("NaNlog"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 32 - is a valid object ok 33 - $x = Math::BigInt::Subclass->new("122"); $y = Math::BigInt::Subclass->new("NaNlog"); $x->blog($y); ok 34 - is a valid object ok 35 - $x = Math::BigInt::Subclass->new("NaNlog1"); $y = Math::BigInt::Subclass->new("NaNlog"); $x->blog($y); ok 36 - is a valid object ok 37 - $x = Math::BigInt::Subclass->new("122"); $y = Math::BigInt::Subclass->new("inf"); $x->blog($y); ok 38 - is a valid object ok 39 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("122"); $x->blog($y); ok 40 - is a valid object ok 41 - $x = Math::BigInt::Subclass->new("122"); $y = Math::BigInt::Subclass->new("-inf"); $x->blog($y); ok 42 - is a valid object ok 43 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("122"); $x->blog($y); ok 44 - is a valid object ok 45 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->blog($y); ok 46 - is a valid object ok 47 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("4"); $x->blog($y); ok 48 - is a valid object ok 49 - $x = Math::BigInt::Subclass->new("-21"); $y = Math::BigInt::Subclass->new("4"); $x->blog($y); ok 50 - is a valid object ok 51 - $x = Math::BigInt::Subclass->new("21"); $y = Math::BigInt::Subclass->new("-21"); $x->blog($y); ok 52 - is a valid object ok 53 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x->blog($y); ok 54 - is a valid object ok 55 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x->blog($y); ok 56 - is a valid object ok 57 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->blog($y); ok 58 - is a valid object ok 59 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->blog($y); ok 60 - is a valid object ok 61 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x->blog($y); ok 62 - is a valid object ok 63 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-inf"); $x->blog($y); ok 64 - is a valid object ok 65 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x->blog($y); ok 66 - is a valid object ok 67 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $x->blog($y); ok 68 - is a valid object ok 69 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->blog($y); ok 70 - is a valid object ok 71 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("4"); $x->blog($y); ok 72 - is a valid object ok 73 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("inf"); $x->blog($y); ok 74 - is a valid object ok 75 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->blog($y); ok 76 - is a valid object ok 77 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-1"); $x->blog($y); ok 78 - is a valid object ok 79 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); $x->blog($y); ok 80 - is a valid object ok 81 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("1"); $x->blog($y); ok 82 - is a valid object ok 83 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("4"); $x->blog($y); ok 84 - is a valid object ok 85 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); $x->blog($y); ok 86 - is a valid object ok 87 - $x = Math::BigInt::Subclass->new("1024"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 88 - is a valid object ok 89 - $x = Math::BigInt::Subclass->new("81"); $y = Math::BigInt::Subclass->new("3"); $x->blog($y); ok 90 - is a valid object ok 91 - $x = Math::BigInt::Subclass->new("82"); $y = Math::BigInt::Subclass->new("3"); $x->blog($y); ok 92 - is a valid object ok 93 - $x = Math::BigInt::Subclass->new("80"); $y = Math::BigInt::Subclass->new("3"); $x->blog($y); ok 94 - is a valid object ok 95 - $x = Math::BigInt::Subclass->new("4096"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 96 - is a valid object ok 97 - $x = Math::BigInt::Subclass->new("15625"); $y = Math::BigInt::Subclass->new("5"); $x->blog($y); ok 98 - is a valid object ok 99 - $x = Math::BigInt::Subclass->new("15626"); $y = Math::BigInt::Subclass->new("5"); $x->blog($y); ok 100 - is a valid object ok 101 - $x = Math::BigInt::Subclass->new("15624"); $y = Math::BigInt::Subclass->new("5"); $x->blog($y); ok 102 - is a valid object ok 103 - $x = Math::BigInt::Subclass->new("1000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 104 - is a valid object ok 105 - $x = Math::BigInt::Subclass->new("10000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 106 - is a valid object ok 107 - $x = Math::BigInt::Subclass->new("100000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 108 - is a valid object ok 109 - $x = Math::BigInt::Subclass->new("1000000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 110 - is a valid object ok 111 - $x = Math::BigInt::Subclass->new("10000000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 112 - is a valid object ok 113 - $x = Math::BigInt::Subclass->new("100000000"); $y = Math::BigInt::Subclass->new("10"); $x->blog($y); ok 114 - is a valid object ok 115 - $x = Math::BigInt::Subclass->new("8916100448256"); $y = Math::BigInt::Subclass->new("12"); $x->blog($y); ok 116 - is a valid object ok 117 - $x = Math::BigInt::Subclass->new("8916100448257"); $y = Math::BigInt::Subclass->new("12"); $x->blog($y); ok 118 - is a valid object ok 119 - $x = Math::BigInt::Subclass->new("8916100448255"); $y = Math::BigInt::Subclass->new("12"); $x->blog($y); ok 120 - is a valid object ok 121 - $x = Math::BigInt::Subclass->new("2251799813685248"); $y = Math::BigInt::Subclass->new("8"); $x->blog($y); ok 122 - is a valid object ok 123 - $x = Math::BigInt::Subclass->new("72057594037927936"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 124 - is a valid object ok 125 - $x = Math::BigInt::Subclass->new("144115188075855872"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 126 - is a valid object ok 127 - $x = Math::BigInt::Subclass->new("288230376151711744"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 128 - is a valid object ok 129 - $x = Math::BigInt::Subclass->new("576460752303423488"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 130 - is a valid object ok 131 - $x = Math::BigInt::Subclass->new("1329227995784915872903807060280344576"); $y = Math::BigInt::Subclass->new("2"); $x->blog($y); ok 132 - is a valid object ok 133 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $x->blog($y); ok 134 - is a valid object ok 135 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $x->blog($y); ok 136 - is a valid object ok 137 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->blog($y); ok 138 - is a valid object ok 139 - $x = Math::BigInt::Subclass->new("0"); $x->is_negative() || 0; ok 140 - $x = Math::BigInt::Subclass->new("-1"); $x->is_negative() || 0; ok 141 - $x = Math::BigInt::Subclass->new("1"); $x->is_negative() || 0; ok 142 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_negative() || 0; ok 143 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_negative() || 0; ok 144 - $x = Math::BigInt::Subclass->new("NaNneg"); $x->is_negative() || 0; ok 145 - $x = Math::BigInt::Subclass->new("0"); $x->is_positive() || 0; ok 146 - $x = Math::BigInt::Subclass->new("-1"); $x->is_positive() || 0; ok 147 - $x = Math::BigInt::Subclass->new("1"); $x->is_positive() || 0; ok 148 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_positive() || 0; ok 149 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_positive() || 0; ok 150 - $x = Math::BigInt::Subclass->new("NaNneg"); $x->is_positive() || 0; ok 151 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_int() || 0; ok 152 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_int() || 0; ok 153 - $x = Math::BigInt::Subclass->new("NaNis_int"); $x->is_int() || 0; ok 154 - $x = Math::BigInt::Subclass->new("1"); $x->is_int() || 0; ok 155 - $x = Math::BigInt::Subclass->new("0"); $x->is_int() || 0; ok 156 - $x = Math::BigInt::Subclass->new("123e12"); $x->is_int() || 0; ok 157 - $x = Math::BigInt::Subclass->new("abc"); $x->is_odd() || 0; ok 158 - $x = Math::BigInt::Subclass->new("0"); $x->is_odd() || 0; ok 159 - $x = Math::BigInt::Subclass->new("1"); $x->is_odd() || 0; ok 160 - $x = Math::BigInt::Subclass->new("3"); $x->is_odd() || 0; ok 161 - $x = Math::BigInt::Subclass->new("-1"); $x->is_odd() || 0; ok 162 - $x = Math::BigInt::Subclass->new("-3"); $x->is_odd() || 0; ok 163 - $x = Math::BigInt::Subclass->new("10000001"); $x->is_odd() || 0; ok 164 - $x = Math::BigInt::Subclass->new("10000002"); $x->is_odd() || 0; ok 165 - $x = Math::BigInt::Subclass->new("2"); $x->is_odd() || 0; ok 166 - $x = Math::BigInt::Subclass->new("120"); $x->is_odd() || 0; ok 167 - $x = Math::BigInt::Subclass->new("121"); $x->is_odd() || 0; ok 168 - $x = Math::BigInt::Subclass->new("abc"); $x->is_even() || 0; ok 169 - $x = Math::BigInt::Subclass->new("0"); $x->is_even() || 0; ok 170 - $x = Math::BigInt::Subclass->new("1"); $x->is_even() || 0; ok 171 - $x = Math::BigInt::Subclass->new("3"); $x->is_even() || 0; ok 172 - $x = Math::BigInt::Subclass->new("-1"); $x->is_even() || 0; ok 173 - $x = Math::BigInt::Subclass->new("-3"); $x->is_even() || 0; ok 174 - $x = Math::BigInt::Subclass->new("10000001"); $x->is_even() || 0; ok 175 - $x = Math::BigInt::Subclass->new("10000002"); $x->is_even() || 0; ok 176 - $x = Math::BigInt::Subclass->new("2"); $x->is_even() || 0; ok 177 - $x = Math::BigInt::Subclass->new("120"); $x->is_even() || 0; ok 178 - $x = Math::BigInt::Subclass->new("121"); $x->is_even() || 0; ok 179 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("-0"); $x->bacmp($y); ok 180 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); $x->bacmp($y); ok 181 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+1"); $x->bacmp($y); ok 182 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("-1"); $x->bacmp($y); ok 183 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+2"); $x->bacmp($y); ok 184 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("-1"); $x->bacmp($y); ok 185 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("+987654321"); $x->bacmp($y); ok 186 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->bacmp($y); ok 187 - $x = Math::BigInt::Subclass->new("+987654321"); $y = Math::BigInt::Subclass->new("+123456789"); $x->bacmp($y); ok 188 - $x = Math::BigInt::Subclass->new("-987654321"); $y = Math::BigInt::Subclass->new("+123456789"); $x->bacmp($y); ok 189 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("+4567889"); $x->bacmp($y); ok 190 - $x = Math::BigInt::Subclass->new("acmpNaN"); $y = Math::BigInt::Subclass->new("123"); $x->bacmp($y); ok 191 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("acmpNaN"); $x->bacmp($y); ok 192 - $x = Math::BigInt::Subclass->new("acmpNaN"); $y = Math::BigInt::Subclass->new("acmpNaN"); $x->bacmp($y); ok 193 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bacmp($y); ok 194 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bacmp($y); ok 195 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bacmp($y); ok 196 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bacmp($y); ok 197 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("123"); $x->bacmp($y); ok 198 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("123"); $x->bacmp($y); ok 199 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-123"); $x->bacmp($y); ok 200 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-123"); $x->bacmp($y); ok 201 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("-inf"); $x->bacmp($y); ok 202 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("inf"); $x->bacmp($y); ok 203 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("-inf"); $x->bacmp($y); ok 204 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("inf"); $x->bacmp($y); ok 205 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->bacmp($y); ok 206 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("inf"); $x->bacmp($y); ok 207 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->bacmp($y); ok 208 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("-inf"); $x->bacmp($y); ok 209 - $x = Math::BigInt::Subclass->bnorm("0e999"); ok 210 - is a valid object ok 211 - $x = Math::BigInt::Subclass->bnorm("0e-999"); ok 212 - is a valid object ok 213 - $x = Math::BigInt::Subclass->bnorm("-0e999"); ok 214 - is a valid object ok 215 - $x = Math::BigInt::Subclass->bnorm("-0e-999"); ok 216 - is a valid object ok 217 - $x = Math::BigInt::Subclass->bnorm("123"); ok 218 - is a valid object ok 219 - $x = Math::BigInt::Subclass->bnorm("123.000"); ok 220 - is a valid object ok 221 - $x = Math::BigInt::Subclass->bnorm("123e0"); ok 222 - is a valid object ok 223 - $x = Math::BigInt::Subclass->bnorm("123e+0"); ok 224 - is a valid object ok 225 - $x = Math::BigInt::Subclass->bnorm("123e-0"); ok 226 - is a valid object ok 227 - $x = Math::BigInt::Subclass->bnorm("123.000e0"); ok 228 - is a valid object ok 229 - $x = Math::BigInt::Subclass->bnorm("123.000e+0"); ok 230 - is a valid object ok 231 - $x = Math::BigInt::Subclass->bnorm("123.000e-0"); ok 232 - is a valid object ok 233 - $x = Math::BigInt::Subclass->bnorm("0babc"); ok 234 - is a valid object ok 235 - $x = Math::BigInt::Subclass->bnorm("0b123"); ok 236 - is a valid object ok 237 - $x = Math::BigInt::Subclass->bnorm("0b0"); ok 238 - is a valid object ok 239 - $x = Math::BigInt::Subclass->bnorm("-0b0"); ok 240 - is a valid object ok 241 - $x = Math::BigInt::Subclass->bnorm("-0b1"); ok 242 - is a valid object ok 243 - $x = Math::BigInt::Subclass->bnorm("0b0001"); ok 244 - is a valid object ok 245 - $x = Math::BigInt::Subclass->bnorm("0b001"); ok 246 - is a valid object ok 247 - $x = Math::BigInt::Subclass->bnorm("0b011"); ok 248 - is a valid object ok 249 - $x = Math::BigInt::Subclass->bnorm("0b101"); ok 250 - is a valid object ok 251 - $x = Math::BigInt::Subclass->bnorm("0b1001"); ok 252 - is a valid object ok 253 - $x = Math::BigInt::Subclass->bnorm("0b10001"); ok 254 - is a valid object ok 255 - $x = Math::BigInt::Subclass->bnorm("0b100001"); ok 256 - is a valid object ok 257 - $x = Math::BigInt::Subclass->bnorm("0b1000001"); ok 258 - is a valid object ok 259 - $x = Math::BigInt::Subclass->bnorm("0b10000001"); ok 260 - is a valid object ok 261 - $x = Math::BigInt::Subclass->bnorm("0b100000001"); ok 262 - is a valid object ok 263 - $x = Math::BigInt::Subclass->bnorm("0b1000000001"); ok 264 - is a valid object ok 265 - $x = Math::BigInt::Subclass->bnorm("0b10000000001"); ok 266 - is a valid object ok 267 - $x = Math::BigInt::Subclass->bnorm("0b100000000001"); ok 268 - is a valid object ok 269 - $x = Math::BigInt::Subclass->bnorm("0b1000000000001"); ok 270 - is a valid object ok 271 - $x = Math::BigInt::Subclass->bnorm("0b10000000000001"); ok 272 - is a valid object ok 273 - $x = Math::BigInt::Subclass->bnorm("0b100000000000001"); ok 274 - is a valid object ok 275 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000001"); ok 276 - is a valid object ok 277 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000001"); ok 278 - is a valid object ok 279 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000001"); ok 280 - is a valid object ok 281 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000001"); ok 282 - is a valid object ok 283 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000001"); ok 284 - is a valid object ok 285 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000000001"); ok 286 - is a valid object ok 287 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000000001"); ok 288 - is a valid object ok 289 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000000001"); ok 290 - is a valid object ok 291 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000000000001"); ok 292 - is a valid object ok 293 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000000000001"); ok 294 - is a valid object ok 295 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000000000001"); ok 296 - is a valid object ok 297 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000000000000001"); ok 298 - is a valid object ok 299 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000000000000001"); ok 300 - is a valid object ok 301 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000000000000001"); ok 302 - is a valid object ok 303 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000000000000000001"); ok 304 - is a valid object ok 305 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000000000000000001"); ok 306 - is a valid object ok 307 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000000000000000001"); ok 308 - is a valid object ok 309 - $x = Math::BigInt::Subclass->bnorm("0b100000000000000000000000000000001"); ok 310 - is a valid object ok 311 - $x = Math::BigInt::Subclass->bnorm("0b1000000000000000000000000000000001"); ok 312 - is a valid object ok 313 - $x = Math::BigInt::Subclass->bnorm("0b10000000000000000000000000000000001"); ok 314 - is a valid object ok 315 - $x = Math::BigInt::Subclass->bnorm("0b__101"); ok 316 - is a valid object ok 317 - $x = Math::BigInt::Subclass->bnorm("0b1_0_1"); ok 318 - is a valid object ok 319 - $x = Math::BigInt::Subclass->bnorm("0b0_0_0_1"); ok 320 - is a valid object ok 321 - $x = Math::BigInt::Subclass->bnorm("-0x0"); ok 322 - is a valid object ok 323 - $x = Math::BigInt::Subclass->bnorm("0xabcdefgh"); ok 324 - is a valid object ok 325 - $x = Math::BigInt::Subclass->bnorm("0x1234"); ok 326 - is a valid object ok 327 - $x = Math::BigInt::Subclass->bnorm("0xabcdef"); ok 328 - is a valid object ok 329 - $x = Math::BigInt::Subclass->bnorm("-0xABCDEF"); ok 330 - is a valid object ok 331 - $x = Math::BigInt::Subclass->bnorm("-0x1234"); ok 332 - is a valid object ok 333 - $x = Math::BigInt::Subclass->bnorm("0x12345678"); ok 334 - is a valid object ok 335 - $x = Math::BigInt::Subclass->bnorm("0x1_2_3_4_56_78"); ok 336 - is a valid object ok 337 - $x = Math::BigInt::Subclass->bnorm("0xa_b_c_d_e_f"); ok 338 - is a valid object ok 339 - $x = Math::BigInt::Subclass->bnorm("0x__123"); ok 340 - is a valid object ok 341 - $x = Math::BigInt::Subclass->bnorm("0x9"); ok 342 - is a valid object ok 343 - $x = Math::BigInt::Subclass->bnorm("0x11"); ok 344 - is a valid object ok 345 - $x = Math::BigInt::Subclass->bnorm("0x21"); ok 346 - is a valid object ok 347 - $x = Math::BigInt::Subclass->bnorm("0x41"); ok 348 - is a valid object ok 349 - $x = Math::BigInt::Subclass->bnorm("0x81"); ok 350 - is a valid object ok 351 - $x = Math::BigInt::Subclass->bnorm("0x101"); ok 352 - is a valid object ok 353 - $x = Math::BigInt::Subclass->bnorm("0x201"); ok 354 - is a valid object ok 355 - $x = Math::BigInt::Subclass->bnorm("0x401"); ok 356 - is a valid object ok 357 - $x = Math::BigInt::Subclass->bnorm("0x801"); ok 358 - is a valid object ok 359 - $x = Math::BigInt::Subclass->bnorm("0x1001"); ok 360 - is a valid object ok 361 - $x = Math::BigInt::Subclass->bnorm("0x2001"); ok 362 - is a valid object ok 363 - $x = Math::BigInt::Subclass->bnorm("0x4001"); ok 364 - is a valid object ok 365 - $x = Math::BigInt::Subclass->bnorm("0x8001"); ok 366 - is a valid object ok 367 - $x = Math::BigInt::Subclass->bnorm("0x10001"); ok 368 - is a valid object ok 369 - $x = Math::BigInt::Subclass->bnorm("0x20001"); ok 370 - is a valid object ok 371 - $x = Math::BigInt::Subclass->bnorm("0x40001"); ok 372 - is a valid object ok 373 - $x = Math::BigInt::Subclass->bnorm("0x80001"); ok 374 - is a valid object ok 375 - $x = Math::BigInt::Subclass->bnorm("0x100001"); ok 376 - is a valid object ok 377 - $x = Math::BigInt::Subclass->bnorm("0x200001"); ok 378 - is a valid object ok 379 - $x = Math::BigInt::Subclass->bnorm("0x400001"); ok 380 - is a valid object ok 381 - $x = Math::BigInt::Subclass->bnorm("0x800001"); ok 382 - is a valid object ok 383 - $x = Math::BigInt::Subclass->bnorm("0x1000001"); ok 384 - is a valid object ok 385 - $x = Math::BigInt::Subclass->bnorm("0x2000001"); ok 386 - is a valid object ok 387 - $x = Math::BigInt::Subclass->bnorm("0x4000001"); ok 388 - is a valid object ok 389 - $x = Math::BigInt::Subclass->bnorm("0x8000001"); ok 390 - is a valid object ok 391 - $x = Math::BigInt::Subclass->bnorm("0x10000001"); ok 392 - is a valid object ok 393 - $x = Math::BigInt::Subclass->bnorm("0x20000001"); ok 394 - is a valid object ok 395 - $x = Math::BigInt::Subclass->bnorm("0x40000001"); ok 396 - is a valid object ok 397 - $x = Math::BigInt::Subclass->bnorm("0x80000001"); ok 398 - is a valid object ok 399 - $x = Math::BigInt::Subclass->bnorm("0x100000001"); ok 400 - is a valid object ok 401 - $x = Math::BigInt::Subclass->bnorm("0x200000001"); ok 402 - is a valid object ok 403 - $x = Math::BigInt::Subclass->bnorm("0x400000001"); ok 404 - is a valid object ok 405 - $x = Math::BigInt::Subclass->bnorm("0x800000001"); ok 406 - is a valid object ok 407 - $x = Math::BigInt::Subclass->bnorm("0x2dd59e18a125dbed30a6ab1d93e9c855569f44f75806f0645dc9a2e98b808c3"); ok 408 - is a valid object ok 409 - $x = Math::BigInt::Subclass->bnorm("inf"); ok 410 - is a valid object ok 411 - $x = Math::BigInt::Subclass->bnorm("+inf"); ok 412 - is a valid object ok 413 - $x = Math::BigInt::Subclass->bnorm("-inf"); ok 414 - is a valid object ok 415 - $x = Math::BigInt::Subclass->bnorm("0inf"); ok 416 - is a valid object ok 417 - $x = Math::BigInt::Subclass->bnorm(""); ok 418 - is a valid object ok 419 - $x = Math::BigInt::Subclass->bnorm("abc"); ok 420 - is a valid object ok 421 - $x = Math::BigInt::Subclass->bnorm(" 1 a"); ok 422 - is a valid object ok 423 - $x = Math::BigInt::Subclass->bnorm("1bcd2"); ok 424 - is a valid object ok 425 - $x = Math::BigInt::Subclass->bnorm("11111b"); ok 426 - is a valid object ok 427 - $x = Math::BigInt::Subclass->bnorm("+1z"); ok 428 - is a valid object ok 429 - $x = Math::BigInt::Subclass->bnorm("-1z"); ok 430 - is a valid object ok 431 - $x = Math::BigInt::Subclass->bnorm("_123"); ok 432 - is a valid object ok 433 - $x = Math::BigInt::Subclass->bnorm("_123_"); ok 434 - is a valid object ok 435 - $x = Math::BigInt::Subclass->bnorm("123_"); ok 436 - is a valid object ok 437 - $x = Math::BigInt::Subclass->bnorm("1__23"); ok 438 - is a valid object ok 439 - $x = Math::BigInt::Subclass->bnorm("1E1__2"); ok 440 - is a valid object ok 441 - $x = Math::BigInt::Subclass->bnorm("1_E12"); ok 442 - is a valid object ok 443 - $x = Math::BigInt::Subclass->bnorm("1E_12"); ok 444 - is a valid object ok 445 - $x = Math::BigInt::Subclass->bnorm("1_E_12"); ok 446 - is a valid object ok 447 - $x = Math::BigInt::Subclass->bnorm("+_1E12"); ok 448 - is a valid object ok 449 - $x = Math::BigInt::Subclass->bnorm("+0_1E2"); ok 450 - is a valid object ok 451 - $x = Math::BigInt::Subclass->bnorm("+0_0_1E2"); ok 452 - is a valid object ok 453 - $x = Math::BigInt::Subclass->bnorm("-0_0_1E2"); ok 454 - is a valid object ok 455 - $x = Math::BigInt::Subclass->bnorm("-0_0_1E+0_0_2"); ok 456 - is a valid object ok 457 - $x = Math::BigInt::Subclass->bnorm("E1"); ok 458 - is a valid object ok 459 - $x = Math::BigInt::Subclass->bnorm("E23"); ok 460 - is a valid object ok 461 - $x = Math::BigInt::Subclass->bnorm("1.23E1"); ok 462 - is a valid object ok 463 - $x = Math::BigInt::Subclass->bnorm("1.23E-1"); ok 464 - is a valid object ok 465 - $x = Math::BigInt::Subclass->bnorm("1e2e3"); ok 466 - is a valid object ok 467 - $x = Math::BigInt::Subclass->bnorm("1e2r"); ok 468 - is a valid object ok 469 - $x = Math::BigInt::Subclass->bnorm("1e2.0"); ok 470 - is a valid object ok 471 - $x = Math::BigInt::Subclass->bnorm("1.2.2"); ok 472 - is a valid object ok 473 - $x = Math::BigInt::Subclass->bnorm("1.2.3e1"); ok 474 - is a valid object ok 475 - $x = Math::BigInt::Subclass->bnorm("-1.2.3"); ok 476 - is a valid object ok 477 - $x = Math::BigInt::Subclass->bnorm("-1.2.3e-4"); ok 478 - is a valid object ok 479 - $x = Math::BigInt::Subclass->bnorm("1.2e3.4"); ok 480 - is a valid object ok 481 - $x = Math::BigInt::Subclass->bnorm("1.2e-3.4"); ok 482 - is a valid object ok 483 - $x = Math::BigInt::Subclass->bnorm("1.2.3.4"); ok 484 - is a valid object ok 485 - $x = Math::BigInt::Subclass->bnorm("1.2.t"); ok 486 - is a valid object ok 487 - $x = Math::BigInt::Subclass->bnorm("1..2"); ok 488 - is a valid object ok 489 - $x = Math::BigInt::Subclass->bnorm("1..2e1"); ok 490 - is a valid object ok 491 - $x = Math::BigInt::Subclass->bnorm("1..2e1..1"); ok 492 - is a valid object ok 493 - $x = Math::BigInt::Subclass->bnorm("12e1..1"); ok 494 - is a valid object ok 495 - $x = Math::BigInt::Subclass->bnorm("..2"); ok 496 - is a valid object ok 497 - $x = Math::BigInt::Subclass->bnorm(".-2"); ok 498 - is a valid object ok 499 - $x = Math::BigInt::Subclass->bnorm("012"); ok 500 - is a valid object ok 501 - $x = Math::BigInt::Subclass->bnorm("0123"); ok 502 - is a valid object ok 503 - $x = Math::BigInt::Subclass->bnorm("01234"); ok 504 - is a valid object ok 505 - $x = Math::BigInt::Subclass->bnorm("012345"); ok 506 - is a valid object ok 507 - $x = Math::BigInt::Subclass->bnorm("0123456"); ok 508 - is a valid object ok 509 - $x = Math::BigInt::Subclass->bnorm("01234567"); ok 510 - is a valid object ok 511 - $x = Math::BigInt::Subclass->bnorm("012345678"); ok 512 - is a valid object ok 513 - $x = Math::BigInt::Subclass->bnorm("0123456789"); ok 514 - is a valid object ok 515 - $x = Math::BigInt::Subclass->bnorm("01234567891"); ok 516 - is a valid object ok 517 - $x = Math::BigInt::Subclass->bnorm("012345678912"); ok 518 - is a valid object ok 519 - $x = Math::BigInt::Subclass->bnorm("0123456789123"); ok 520 - is a valid object ok 521 - $x = Math::BigInt::Subclass->bnorm("01234567891234"); ok 522 - is a valid object ok 523 - $x = Math::BigInt::Subclass->bnorm("0e0"); ok 524 - is a valid object ok 525 - $x = Math::BigInt::Subclass->bnorm("+0e0"); ok 526 - is a valid object ok 527 - $x = Math::BigInt::Subclass->bnorm("+0e+0"); ok 528 - is a valid object ok 529 - $x = Math::BigInt::Subclass->bnorm("-0e+0"); ok 530 - is a valid object ok 531 - $x = Math::BigInt::Subclass->bnorm("0e-0"); ok 532 - is a valid object ok 533 - $x = Math::BigInt::Subclass->bnorm("-0e-0"); ok 534 - is a valid object ok 535 - $x = Math::BigInt::Subclass->bnorm("+0e-0"); ok 536 - is a valid object ok 537 - $x = Math::BigInt::Subclass->bnorm("000"); ok 538 - is a valid object ok 539 - $x = Math::BigInt::Subclass->bnorm("00e2"); ok 540 - is a valid object ok 541 - $x = Math::BigInt::Subclass->bnorm("00e02"); ok 542 - is a valid object ok 543 - $x = Math::BigInt::Subclass->bnorm("000e002"); ok 544 - is a valid object ok 545 - $x = Math::BigInt::Subclass->bnorm("000e1230"); ok 546 - is a valid object ok 547 - $x = Math::BigInt::Subclass->bnorm("00e-3"); ok 548 - is a valid object ok 549 - $x = Math::BigInt::Subclass->bnorm("00e+3"); ok 550 - is a valid object ok 551 - $x = Math::BigInt::Subclass->bnorm("00e-03"); ok 552 - is a valid object ok 553 - $x = Math::BigInt::Subclass->bnorm("00e+03"); ok 554 - is a valid object ok 555 - $x = Math::BigInt::Subclass->bnorm("-000"); ok 556 - is a valid object ok 557 - $x = Math::BigInt::Subclass->bnorm("-00e2"); ok 558 - is a valid object ok 559 - $x = Math::BigInt::Subclass->bnorm("-00e02"); ok 560 - is a valid object ok 561 - $x = Math::BigInt::Subclass->bnorm("-000e002"); ok 562 - is a valid object ok 563 - $x = Math::BigInt::Subclass->bnorm("-000e1230"); ok 564 - is a valid object ok 565 - $x = Math::BigInt::Subclass->bnorm("-00e-3"); ok 566 - is a valid object ok 567 - $x = Math::BigInt::Subclass->bnorm("-00e+3"); ok 568 - is a valid object ok 569 - $x = Math::BigInt::Subclass->bnorm("-00e-03"); ok 570 - is a valid object ok 571 - $x = Math::BigInt::Subclass->bnorm("-00e+03"); ok 572 - is a valid object ok 573 - $x = Math::BigInt::Subclass->bnorm("0"); ok 574 - is a valid object ok 575 - $x = Math::BigInt::Subclass->bnorm("+0"); ok 576 - is a valid object ok 577 - $x = Math::BigInt::Subclass->bnorm("+00"); ok 578 - is a valid object ok 579 - $x = Math::BigInt::Subclass->bnorm("+000"); ok 580 - is a valid object ok 581 - $x = Math::BigInt::Subclass->bnorm("000000000000000000"); ok 582 - is a valid object ok 583 - $x = Math::BigInt::Subclass->bnorm("-0"); ok 584 - is a valid object ok 585 - $x = Math::BigInt::Subclass->bnorm("-0000"); ok 586 - is a valid object ok 587 - $x = Math::BigInt::Subclass->bnorm("+1"); ok 588 - is a valid object ok 589 - $x = Math::BigInt::Subclass->bnorm("+01"); ok 590 - is a valid object ok 591 - $x = Math::BigInt::Subclass->bnorm("+001"); ok 592 - is a valid object ok 593 - $x = Math::BigInt::Subclass->bnorm("+00000100000"); ok 594 - is a valid object ok 595 - $x = Math::BigInt::Subclass->bnorm("123456789"); ok 596 - is a valid object ok 597 - $x = Math::BigInt::Subclass->bnorm("-1"); ok 598 - is a valid object ok 599 - $x = Math::BigInt::Subclass->bnorm("-01"); ok 600 - is a valid object ok 601 - $x = Math::BigInt::Subclass->bnorm("-001"); ok 602 - is a valid object ok 603 - $x = Math::BigInt::Subclass->bnorm("-123456789"); ok 604 - is a valid object ok 605 - $x = Math::BigInt::Subclass->bnorm("-00000100000"); ok 606 - is a valid object ok 607 - $x = Math::BigInt::Subclass->bnorm("1_2_3"); ok 608 - is a valid object ok 609 - $x = Math::BigInt::Subclass->bnorm("10000000000E-1_0"); ok 610 - is a valid object ok 611 - $x = Math::BigInt::Subclass->bnorm("1E2"); ok 612 - is a valid object ok 613 - $x = Math::BigInt::Subclass->bnorm("1E1"); ok 614 - is a valid object ok 615 - $x = Math::BigInt::Subclass->bnorm("1E0"); ok 616 - is a valid object ok 617 - $x = Math::BigInt::Subclass->bnorm("1.23E2"); ok 618 - is a valid object ok 619 - $x = Math::BigInt::Subclass->bnorm("100E-1"); ok 620 - is a valid object ok 621 - $x = Math::BigInt::Subclass->bnorm("1.E3"); ok 622 - is a valid object ok 623 - $x = Math::BigInt::Subclass->bnorm("1.01E2"); ok 624 - is a valid object ok 625 - $x = Math::BigInt::Subclass->bnorm("1010E-1"); ok 626 - is a valid object ok 627 - $x = Math::BigInt::Subclass->bnorm("-1010E0"); ok 628 - is a valid object ok 629 - $x = Math::BigInt::Subclass->bnorm("-1010E1"); ok 630 - is a valid object ok 631 - $x = Math::BigInt::Subclass->bnorm("1234.00"); ok 632 - is a valid object ok 633 - $x = Math::BigInt::Subclass->bnorm("-1010E-2"); ok 634 - is a valid object ok 635 - $x = Math::BigInt::Subclass->bnorm("-1.01E+1"); ok 636 - is a valid object ok 637 - $x = Math::BigInt::Subclass->bnorm("-1.01E-1"); ok 638 - is a valid object ok 639 - $x = Math::BigInt::Subclass->bnorm("1E-999999"); ok 640 - is a valid object ok 641 - $x = Math::BigInt::Subclass->bnorm("0.5"); ok 642 - is a valid object ok 643 - $x = Math::BigInt::Subclass->new("1"); $x->bnan(); ok 644 - is a valid object ok 645 - $x = Math::BigInt::Subclass->new("2"); $x->bnan(); ok 646 - is a valid object ok 647 - $x = Math::BigInt::Subclass->new("abc"); $x->bnan(); ok 648 - is a valid object ok 649 - $x = Math::BigInt::Subclass->new("2"); $x->bone("+"); ok 650 - is a valid object ok 651 - $x = Math::BigInt::Subclass->new("2"); $x->bone("-"); ok 652 - is a valid object ok 653 - $x = Math::BigInt::Subclass->new("boneNaN"); $x->bone("-"); ok 654 - is a valid object ok 655 - $x = Math::BigInt::Subclass->new("boneNaN"); $x->bone("+"); ok 656 - is a valid object ok 657 - $x = Math::BigInt::Subclass->new("2"); $x->bone("abc"); ok 658 - is a valid object ok 659 - $x = Math::BigInt::Subclass->new("3"); $x->bone(""); ok 660 - is a valid object ok 661 - $x = Math::BigInt::Subclass->new("1"); $x->binf("+"); ok 662 - is a valid object ok 663 - $x = Math::BigInt::Subclass->new("2"); $x->binf("-"); ok 664 - is a valid object ok 665 - $x = Math::BigInt::Subclass->new("3"); $x->binf("abc"); ok 666 - is a valid object ok 667 - $x = Math::BigInt::Subclass->new("123"); $x->is_nan() || 0; ok 668 - $x = Math::BigInt::Subclass->new("abc"); $x->is_nan() || 0; ok 669 - $x = Math::BigInt::Subclass->new("NaN"); $x->is_nan() || 0; ok 670 - $x = Math::BigInt::Subclass->new("-123"); $x->is_nan() || 0; ok 671 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_inf(""); ok 672 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_inf(""); ok 673 - $x = Math::BigInt::Subclass->new("abc"); $x->is_inf(""); ok 674 - $x = Math::BigInt::Subclass->new("1"); $x->is_inf(""); ok 675 - $x = Math::BigInt::Subclass->new("NaN"); $x->is_inf(""); ok 676 - $x = Math::BigInt::Subclass->new("-1"); $x->is_inf(""); ok 677 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_inf("-"); ok 678 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_inf("+"); ok 679 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_inf("-"); ok 680 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_inf("+"); ok 681 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_inf("-inf"); ok 682 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_inf("+inf"); ok 683 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_inf("-inf"); ok 684 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_inf("+inf"); ok 685 - $x = Math::BigInt::Subclass->new("+iNfInItY"); $x->is_inf(""); ok 686 - $x = Math::BigInt::Subclass->new("-InFiNiTy"); $x->is_inf(""); ok 687 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x << $y; ok 688 - is a valid object ok 689 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("+2"); $x << $y; ok 690 - is a valid object ok 691 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+32"); $x << $y; ok 692 - is a valid object ok 693 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+48"); $x << $y; ok 694 - is a valid object ok 695 - $x = Math::BigInt::Subclass->new("+8"); $y = Math::BigInt::Subclass->new("-2"); $x << $y; ok 696 - is a valid object ok 697 - $x = Math::BigInt::Subclass->new("+12345"); $y = Math::BigInt::Subclass->new("4"); $x->blsft($y, 10); ok 698 - is a valid object ok 699 - $x = Math::BigInt::Subclass->new("-1234"); $y = Math::BigInt::Subclass->new("0"); $x->blsft($y, 10); ok 700 - is a valid object ok 701 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("0"); $x->blsft($y, 10); ok 702 - is a valid object ok 703 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("2"); $x->blsft($y, 10); ok 704 - is a valid object ok 705 - $x = Math::BigInt::Subclass->new("+12"); $y = Math::BigInt::Subclass->new("2"); $x->blsft($y, 10); ok 706 - is a valid object ok 707 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("-3"); $x->blsft($y, 10); ok 708 - is a valid object ok 709 - $x = Math::BigInt::Subclass->new("1234567890123"); $y = Math::BigInt::Subclass->new("12"); $x->blsft($y, 10); ok 710 - is a valid object ok 711 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("1"); $x->blsft($y, 2); ok 712 - is a valid object ok 713 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("1"); $x->blsft($y, 2); ok 714 - is a valid object ok 715 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $x->blsft($y, 2); ok 716 - is a valid object ok 717 - $x = Math::BigInt::Subclass->new("-102533203"); $y = Math::BigInt::Subclass->new("1"); $x->blsft($y, 2); ok 718 - is a valid object ok 719 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x >> $y; ok 720 - is a valid object ok 721 - $x = Math::BigInt::Subclass->new("+8"); $y = Math::BigInt::Subclass->new("+2"); $x >> $y; ok 722 - is a valid object ok 723 - $x = Math::BigInt::Subclass->new("+4294967296"); $y = Math::BigInt::Subclass->new("+32"); $x >> $y; ok 724 - is a valid object ok 725 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("+48"); $x >> $y; ok 726 - is a valid object ok 727 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("-2"); $x >> $y; ok 728 - is a valid object ok 729 - $x = Math::BigInt::Subclass->new("-1234"); $y = Math::BigInt::Subclass->new("0"); $x->brsft($y, 10); ok 730 - is a valid object ok 731 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("0"); $x->brsft($y, 10); ok 732 - is a valid object ok 733 - $x = Math::BigInt::Subclass->new("+200"); $y = Math::BigInt::Subclass->new("2"); $x->brsft($y, 10); ok 734 - is a valid object ok 735 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("3"); $x->brsft($y, 10); ok 736 - is a valid object ok 737 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("2"); $x->brsft($y, 10); ok 738 - is a valid object ok 739 - $x = Math::BigInt::Subclass->new("+1234"); $y = Math::BigInt::Subclass->new("-3"); $x->brsft($y, 10); ok 740 - is a valid object ok 741 - $x = Math::BigInt::Subclass->new("310000"); $y = Math::BigInt::Subclass->new("4"); $x->brsft($y, 10); ok 742 - is a valid object ok 743 - $x = Math::BigInt::Subclass->new("12300000"); $y = Math::BigInt::Subclass->new("5"); $x->brsft($y, 10); ok 744 - is a valid object ok 745 - $x = Math::BigInt::Subclass->new("1230000000000"); $y = Math::BigInt::Subclass->new("10"); $x->brsft($y, 10); ok 746 - is a valid object ok 747 - $x = Math::BigInt::Subclass->new("09876123456789067890"); $y = Math::BigInt::Subclass->new("12"); $x->brsft($y, 10); ok 748 - is a valid object ok 749 - $x = Math::BigInt::Subclass->new("1234561234567890123"); $y = Math::BigInt::Subclass->new("13"); $x->brsft($y, 10); ok 750 - is a valid object ok 751 - $x = Math::BigInt::Subclass->new("820265627"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 752 - is a valid object ok 753 - $x = Math::BigInt::Subclass->new("-15"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 754 - is a valid object ok 755 - $x = Math::BigInt::Subclass->new("-14"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 756 - is a valid object ok 757 - $x = Math::BigInt::Subclass->new("-13"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 758 - is a valid object ok 759 - $x = Math::BigInt::Subclass->new("-12"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 760 - is a valid object ok 761 - $x = Math::BigInt::Subclass->new("-11"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 762 - is a valid object ok 763 - $x = Math::BigInt::Subclass->new("-10"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 764 - is a valid object ok 765 - $x = Math::BigInt::Subclass->new("-9"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 766 - is a valid object ok 767 - $x = Math::BigInt::Subclass->new("-8"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 768 - is a valid object ok 769 - $x = Math::BigInt::Subclass->new("-7"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 770 - is a valid object ok 771 - $x = Math::BigInt::Subclass->new("-6"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 772 - is a valid object ok 773 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 774 - is a valid object ok 775 - $x = Math::BigInt::Subclass->new("-4"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 776 - is a valid object ok 777 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 778 - is a valid object ok 779 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 780 - is a valid object ok 781 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 782 - is a valid object ok 783 - $x = Math::BigInt::Subclass->new("-1640531254"); $y = Math::BigInt::Subclass->new("2"); $x->brsft($y, 2); ok 784 - is a valid object ok 785 - $x = Math::BigInt::Subclass->new("-1640531254"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 786 - is a valid object ok 787 - $x = Math::BigInt::Subclass->new("-820265627"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 788 - is a valid object ok 789 - $x = Math::BigInt::Subclass->new("-205066405"); $y = Math::BigInt::Subclass->new("1"); $x->brsft($y, 2); ok 790 - is a valid object ok 791 - $x = Math::BigInt::Subclass->new("+inf"); $x->bsstr(); ok 792 - $x = Math::BigInt::Subclass->new("-inf"); $x->bsstr(); ok 793 - $x = Math::BigInt::Subclass->new("1e+34"); $x->bsstr(); ok 794 - $x = Math::BigInt::Subclass->new("123.456E3"); $x->bsstr(); ok 795 - $x = Math::BigInt::Subclass->new("100"); $x->bsstr(); ok 796 - $x = Math::BigInt::Subclass->new("bsstrabc"); $x->bsstr(); ok 797 - $x = Math::BigInt::Subclass->new("-5"); $x->bsstr(); ok 798 - $x = Math::BigInt::Subclass->new("-100"); $x->bsstr(); ok 799 - $x = Math::BigInt::Subclass->new("5"); $x->numify(); ok 800 - $x = Math::BigInt::Subclass->new("-5"); $x->numify(); ok 801 - $x = Math::BigInt::Subclass->new("100"); $x->numify(); ok 802 - $x = Math::BigInt::Subclass->new("-100"); $x->numify(); ok 803 - $x = Math::BigInt::Subclass->new("bnegNaN"); $x->bneg(); ok 804 - is a valid object ok 805 - $x = Math::BigInt::Subclass->new("+inf"); $x->bneg(); ok 806 - is a valid object ok 807 - $x = Math::BigInt::Subclass->new("-inf"); $x->bneg(); ok 808 - is a valid object ok 809 - $x = Math::BigInt::Subclass->new("abd"); $x->bneg(); ok 810 - is a valid object ok 811 - $x = Math::BigInt::Subclass->new("0"); $x->bneg(); ok 812 - is a valid object ok 813 - $x = Math::BigInt::Subclass->new("1"); $x->bneg(); ok 814 - is a valid object ok 815 - $x = Math::BigInt::Subclass->new("-1"); $x->bneg(); ok 816 - is a valid object ok 817 - $x = Math::BigInt::Subclass->new("+123456789"); $x->bneg(); ok 818 - is a valid object ok 819 - $x = Math::BigInt::Subclass->new("-123456789"); $x->bneg(); ok 820 - is a valid object ok 821 - $x = Math::BigInt::Subclass->new("babsNaN"); $x->babs(); ok 822 - is a valid object ok 823 - $x = Math::BigInt::Subclass->new("+inf"); $x->babs(); ok 824 - is a valid object ok 825 - $x = Math::BigInt::Subclass->new("-inf"); $x->babs(); ok 826 - is a valid object ok 827 - $x = Math::BigInt::Subclass->new("0"); $x->babs(); ok 828 - is a valid object ok 829 - $x = Math::BigInt::Subclass->new("1"); $x->babs(); ok 830 - is a valid object ok 831 - $x = Math::BigInt::Subclass->new("-1"); $x->babs(); ok 832 - is a valid object ok 833 - $x = Math::BigInt::Subclass->new("+123456789"); $x->babs(); ok 834 - is a valid object ok 835 - $x = Math::BigInt::Subclass->new("-123456789"); $x->babs(); ok 836 - is a valid object ok 837 - $x = Math::BigInt::Subclass->new("NaN"); $x->bsgn(); ok 838 - is a valid object ok 839 - $x = Math::BigInt::Subclass->new("+inf"); $x->bsgn(); ok 840 - is a valid object ok 841 - $x = Math::BigInt::Subclass->new("-inf"); $x->bsgn(); ok 842 - is a valid object ok 843 - $x = Math::BigInt::Subclass->new("0"); $x->bsgn(); ok 844 - is a valid object ok 845 - $x = Math::BigInt::Subclass->new("+123456789"); $x->bsgn(); ok 846 - is a valid object ok 847 - $x = Math::BigInt::Subclass->new("-123456789"); $x->bsgn(); ok 848 - is a valid object ok 849 - $x = Math::BigInt::Subclass->new("bcmpNaN"); $y = Math::BigInt::Subclass->new("bcmpNaN"); $x->bcmp($y); ok 850 - $x = Math::BigInt::Subclass->new("bcmpNaN"); $y = Math::BigInt::Subclass->new("0"); $x->bcmp($y); ok 851 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("bcmpNaN"); $x->bcmp($y); ok 852 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->bcmp($y); ok 853 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $x->bcmp($y); ok 854 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x->bcmp($y); ok 855 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $x->bcmp($y); ok 856 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->bcmp($y); ok 857 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->bcmp($y); ok 858 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x->bcmp($y); ok 859 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->bcmp($y); ok 860 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->bcmp($y); ok 861 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("123"); $x->bcmp($y); ok 862 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("12"); $x->bcmp($y); ok 863 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("123"); $x->bcmp($y); ok 864 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("-123"); $x->bcmp($y); ok 865 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("-12"); $x->bcmp($y); ok 866 - $x = Math::BigInt::Subclass->new("-12"); $y = Math::BigInt::Subclass->new("-123"); $x->bcmp($y); ok 867 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("124"); $x->bcmp($y); ok 868 - $x = Math::BigInt::Subclass->new("124"); $y = Math::BigInt::Subclass->new("123"); $x->bcmp($y); ok 869 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("-124"); $x->bcmp($y); ok 870 - $x = Math::BigInt::Subclass->new("-124"); $y = Math::BigInt::Subclass->new("-123"); $x->bcmp($y); ok 871 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("5"); $x->bcmp($y); ok 872 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("987654321"); $x->bcmp($y); ok 873 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->bcmp($y); ok 874 - $x = Math::BigInt::Subclass->new("-987654321"); $y = Math::BigInt::Subclass->new("123456789"); $x->bcmp($y); ok 875 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5432112345"); $x->bcmp($y); ok 876 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("5432112345"); $x->bcmp($y); ok 877 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5432112345"); $x->bcmp($y); ok 878 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-5432112345"); $x->bcmp($y); ok 879 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bcmp($y); ok 880 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bcmp($y); ok 881 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bcmp($y); ok 882 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bcmp($y); ok 883 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x->bcmp($y); ok 884 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x->bcmp($y); ok 885 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); $x->bcmp($y); ok 886 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); $x->bcmp($y); ok 887 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->bcmp($y); ok 888 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("inf"); $x->bcmp($y); ok 889 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->bcmp($y); ok 890 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("-inf"); $x->bcmp($y); ok 891 - $x = Math::BigInt::Subclass->new("abc"); $x->binc(); ok 892 - is a valid object ok 893 - $x = Math::BigInt::Subclass->new("+inf"); $x->binc(); ok 894 - is a valid object ok 895 - $x = Math::BigInt::Subclass->new("-inf"); $x->binc(); ok 896 - is a valid object ok 897 - $x = Math::BigInt::Subclass->new("+0"); $x->binc(); ok 898 - is a valid object ok 899 - $x = Math::BigInt::Subclass->new("+1"); $x->binc(); ok 900 - is a valid object ok 901 - $x = Math::BigInt::Subclass->new("-1"); $x->binc(); ok 902 - is a valid object ok 903 - $x = Math::BigInt::Subclass->new("abc"); $x->bdec(); ok 904 - is a valid object ok 905 - $x = Math::BigInt::Subclass->new("+inf"); $x->bdec(); ok 906 - is a valid object ok 907 - $x = Math::BigInt::Subclass->new("-inf"); $x->bdec(); ok 908 - is a valid object ok 909 - $x = Math::BigInt::Subclass->new("+0"); $x->bdec(); ok 910 - is a valid object ok 911 - $x = Math::BigInt::Subclass->new("+1"); $x->bdec(); ok 912 - is a valid object ok 913 - $x = Math::BigInt::Subclass->new("-1"); $x->bdec(); ok 914 - is a valid object ok 915 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x->badd($y); ok 916 - is a valid object ok 917 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("0"); $x->badd($y); ok 918 - is a valid object ok 919 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); $x->badd($y); ok 920 - is a valid object ok 921 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->badd($y); ok 922 - is a valid object ok 923 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->badd($y); ok 924 - is a valid object ok 925 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->badd($y); ok 926 - is a valid object ok 927 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->badd($y); ok 928 - is a valid object ok 929 - $x = Math::BigInt::Subclass->new("baddNaN"); $y = Math::BigInt::Subclass->new("+inf"); $x->badd($y); ok 930 - is a valid object ok 931 - $x = Math::BigInt::Subclass->new("baddNaN"); $y = Math::BigInt::Subclass->new("+inf"); $x->badd($y); ok 932 - is a valid object ok 933 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("baddNaN"); $x->badd($y); ok 934 - is a valid object ok 935 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("baddNaN"); $x->badd($y); ok 936 - is a valid object ok 937 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->badd($y); ok 938 - is a valid object ok 939 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $x->badd($y); ok 940 - is a valid object ok 941 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->badd($y); ok 942 - is a valid object ok 943 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->badd($y); ok 944 - is a valid object ok 945 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $x->badd($y); ok 946 - is a valid object ok 947 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 948 - is a valid object ok 949 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 950 - is a valid object ok 951 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 952 - is a valid object ok 953 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 954 - is a valid object ok 955 - $x = Math::BigInt::Subclass->new("+9"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 956 - is a valid object ok 957 - $x = Math::BigInt::Subclass->new("+99"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 958 - is a valid object ok 959 - $x = Math::BigInt::Subclass->new("+999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 960 - is a valid object ok 961 - $x = Math::BigInt::Subclass->new("+9999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 962 - is a valid object ok 963 - $x = Math::BigInt::Subclass->new("+99999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 964 - is a valid object ok 965 - $x = Math::BigInt::Subclass->new("+999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 966 - is a valid object ok 967 - $x = Math::BigInt::Subclass->new("+9999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 968 - is a valid object ok 969 - $x = Math::BigInt::Subclass->new("+99999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 970 - is a valid object ok 971 - $x = Math::BigInt::Subclass->new("+999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 972 - is a valid object ok 973 - $x = Math::BigInt::Subclass->new("+9999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 974 - is a valid object ok 975 - $x = Math::BigInt::Subclass->new("+99999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->badd($y); ok 976 - is a valid object ok 977 - $x = Math::BigInt::Subclass->new("+10"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 978 - is a valid object ok 979 - $x = Math::BigInt::Subclass->new("+100"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 980 - is a valid object ok 981 - $x = Math::BigInt::Subclass->new("+1000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 982 - is a valid object ok 983 - $x = Math::BigInt::Subclass->new("+10000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 984 - is a valid object ok 985 - $x = Math::BigInt::Subclass->new("+100000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 986 - is a valid object ok 987 - $x = Math::BigInt::Subclass->new("+1000000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 988 - is a valid object ok 989 - $x = Math::BigInt::Subclass->new("+10000000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 990 - is a valid object ok 991 - $x = Math::BigInt::Subclass->new("+100000000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 992 - is a valid object ok 993 - $x = Math::BigInt::Subclass->new("+1000000000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 994 - is a valid object ok 995 - $x = Math::BigInt::Subclass->new("+10000000000"); $y = Math::BigInt::Subclass->new("-1"); $x->badd($y); ok 996 - is a valid object ok 997 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("987654321"); $x->badd($y); ok 998 - is a valid object ok 999 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("987654321"); $x->badd($y); ok 1000 - is a valid object ok 1001 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->badd($y); ok 1002 - is a valid object ok 1003 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->badd($y); ok 1004 - is a valid object ok 1005 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("10001"); $x->badd($y); ok 1006 - is a valid object ok 1007 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("100001"); $x->badd($y); ok 1008 - is a valid object ok 1009 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1000001"); $x->badd($y); ok 1010 - is a valid object ok 1011 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("10000001"); $x->badd($y); ok 1012 - is a valid object ok 1013 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("100000001"); $x->badd($y); ok 1014 - is a valid object ok 1015 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1000000001"); $x->badd($y); ok 1016 - is a valid object ok 1017 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("10000000001"); $x->badd($y); ok 1018 - is a valid object ok 1019 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("100000000001"); $x->badd($y); ok 1020 - is a valid object ok 1021 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1000000000001"); $x->badd($y); ok 1022 - is a valid object ok 1023 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("10000000000001"); $x->badd($y); ok 1024 - is a valid object ok 1025 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-10001"); $x->badd($y); ok 1026 - is a valid object ok 1027 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-100001"); $x->badd($y); ok 1028 - is a valid object ok 1029 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1000001"); $x->badd($y); ok 1030 - is a valid object ok 1031 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-10000001"); $x->badd($y); ok 1032 - is a valid object ok 1033 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-100000001"); $x->badd($y); ok 1034 - is a valid object ok 1035 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1000000001"); $x->badd($y); ok 1036 - is a valid object ok 1037 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-10000000001"); $x->badd($y); ok 1038 - is a valid object ok 1039 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-100000000001"); $x->badd($y); ok 1040 - is a valid object ok 1041 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1000000000001"); $x->badd($y); ok 1042 - is a valid object ok 1043 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-10000000000001"); $x->badd($y); ok 1044 - is a valid object ok 1045 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x->bsub($y); ok 1046 - is a valid object ok 1047 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("+0"); $x->bsub($y); ok 1048 - is a valid object ok 1049 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); $x->bsub($y); ok 1050 - is a valid object ok 1051 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bsub($y); ok 1052 - is a valid object ok 1053 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bsub($y); ok 1054 - is a valid object ok 1055 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bsub($y); ok 1056 - is a valid object ok 1057 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bsub($y); ok 1058 - is a valid object ok 1059 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+0"); $x->bsub($y); ok 1060 - is a valid object ok 1061 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+0"); $x->bsub($y); ok 1062 - is a valid object ok 1063 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1064 - is a valid object ok 1065 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1066 - is a valid object ok 1067 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+0"); $x->bsub($y); ok 1068 - is a valid object ok 1069 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1070 - is a valid object ok 1071 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1072 - is a valid object ok 1073 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1074 - is a valid object ok 1075 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1076 - is a valid object ok 1077 - $x = Math::BigInt::Subclass->new("+9"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1078 - is a valid object ok 1079 - $x = Math::BigInt::Subclass->new("+99"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1080 - is a valid object ok 1081 - $x = Math::BigInt::Subclass->new("+999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1082 - is a valid object ok 1083 - $x = Math::BigInt::Subclass->new("+9999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1084 - is a valid object ok 1085 - $x = Math::BigInt::Subclass->new("+99999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1086 - is a valid object ok 1087 - $x = Math::BigInt::Subclass->new("+999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1088 - is a valid object ok 1089 - $x = Math::BigInt::Subclass->new("+9999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1090 - is a valid object ok 1091 - $x = Math::BigInt::Subclass->new("+99999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1092 - is a valid object ok 1093 - $x = Math::BigInt::Subclass->new("+999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1094 - is a valid object ok 1095 - $x = Math::BigInt::Subclass->new("+9999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1096 - is a valid object ok 1097 - $x = Math::BigInt::Subclass->new("+99999999999"); $y = Math::BigInt::Subclass->new("+1"); $x->bsub($y); ok 1098 - is a valid object ok 1099 - $x = Math::BigInt::Subclass->new("+10"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1100 - is a valid object ok 1101 - $x = Math::BigInt::Subclass->new("+100"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1102 - is a valid object ok 1103 - $x = Math::BigInt::Subclass->new("+1000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1104 - is a valid object ok 1105 - $x = Math::BigInt::Subclass->new("+10000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1106 - is a valid object ok 1107 - $x = Math::BigInt::Subclass->new("+100000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1108 - is a valid object ok 1109 - $x = Math::BigInt::Subclass->new("+1000000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1110 - is a valid object ok 1111 - $x = Math::BigInt::Subclass->new("+10000000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1112 - is a valid object ok 1113 - $x = Math::BigInt::Subclass->new("+100000000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1114 - is a valid object ok 1115 - $x = Math::BigInt::Subclass->new("+1000000000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1116 - is a valid object ok 1117 - $x = Math::BigInt::Subclass->new("+10000000000"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1118 - is a valid object ok 1119 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("+987654321"); $x->bsub($y); ok 1120 - is a valid object ok 1121 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("+987654321"); $x->bsub($y); ok 1122 - is a valid object ok 1123 - $x = Math::BigInt::Subclass->new("-123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->bsub($y); ok 1124 - is a valid object ok 1125 - $x = Math::BigInt::Subclass->new("+123456789"); $y = Math::BigInt::Subclass->new("-987654321"); $x->bsub($y); ok 1126 - is a valid object ok 1127 - $x = Math::BigInt::Subclass->new("10001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1128 - is a valid object ok 1129 - $x = Math::BigInt::Subclass->new("100001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1130 - is a valid object ok 1131 - $x = Math::BigInt::Subclass->new("1000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1132 - is a valid object ok 1133 - $x = Math::BigInt::Subclass->new("10000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1134 - is a valid object ok 1135 - $x = Math::BigInt::Subclass->new("100000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1136 - is a valid object ok 1137 - $x = Math::BigInt::Subclass->new("1000000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1138 - is a valid object ok 1139 - $x = Math::BigInt::Subclass->new("10000000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1140 - is a valid object ok 1141 - $x = Math::BigInt::Subclass->new("100000000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1142 - is a valid object ok 1143 - $x = Math::BigInt::Subclass->new("1000000000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1144 - is a valid object ok 1145 - $x = Math::BigInt::Subclass->new("10000000000001"); $y = Math::BigInt::Subclass->new("1"); $x->bsub($y); ok 1146 - is a valid object ok 1147 - $x = Math::BigInt::Subclass->new("10001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1148 - is a valid object ok 1149 - $x = Math::BigInt::Subclass->new("100001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1150 - is a valid object ok 1151 - $x = Math::BigInt::Subclass->new("1000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1152 - is a valid object ok 1153 - $x = Math::BigInt::Subclass->new("10000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1154 - is a valid object ok 1155 - $x = Math::BigInt::Subclass->new("100000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1156 - is a valid object ok 1157 - $x = Math::BigInt::Subclass->new("1000000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1158 - is a valid object ok 1159 - $x = Math::BigInt::Subclass->new("10000000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1160 - is a valid object ok 1161 - $x = Math::BigInt::Subclass->new("100000000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1162 - is a valid object ok 1163 - $x = Math::BigInt::Subclass->new("1000000000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1164 - is a valid object ok 1165 - $x = Math::BigInt::Subclass->new("10000000000001"); $y = Math::BigInt::Subclass->new("-1"); $x->bsub($y); ok 1166 - is a valid object ok 1167 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1168 - is a valid object ok 1169 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("+0"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1170 - is a valid object ok 1171 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1172 - is a valid object ok 1173 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("abc"); $x->bmuladd($y, $z); ok 1174 - is a valid object ok 1175 - $x = Math::BigInt::Subclass->new("NaNmul"); $y = Math::BigInt::Subclass->new("+inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1176 - is a valid object ok 1177 - $x = Math::BigInt::Subclass->new("NaNmul"); $y = Math::BigInt::Subclass->new("-inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1178 - is a valid object ok 1179 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaNmul"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1180 - is a valid object ok 1181 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("NaNmul"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1182 - is a valid object ok 1183 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1184 - is a valid object ok 1185 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1186 - is a valid object ok 1187 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1188 - is a valid object ok 1189 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1190 - is a valid object ok 1191 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+0"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1192 - is a valid object ok 1193 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1194 - is a valid object ok 1195 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+0"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1196 - is a valid object ok 1197 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1198 - is a valid object ok 1199 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+0"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1200 - is a valid object ok 1201 - $x = Math::BigInt::Subclass->new("123456789123456789"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1202 - is a valid object ok 1203 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("123456789123456789"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1204 - is a valid object ok 1205 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1206 - is a valid object ok 1207 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1208 - is a valid object ok 1209 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1210 - is a valid object ok 1211 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1212 - is a valid object ok 1213 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+1"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1214 - is a valid object ok 1215 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("+3"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1216 - is a valid object ok 1217 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("+3"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1218 - is a valid object ok 1219 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("-3"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1220 - is a valid object ok 1221 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1222 - is a valid object ok 1223 - $x = Math::BigInt::Subclass->new("111"); $y = Math::BigInt::Subclass->new("111"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1224 - is a valid object ok 1225 - $x = Math::BigInt::Subclass->new("10101"); $y = Math::BigInt::Subclass->new("10101"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1226 - is a valid object ok 1227 - $x = Math::BigInt::Subclass->new("1001001"); $y = Math::BigInt::Subclass->new("1001001"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1228 - is a valid object ok 1229 - $x = Math::BigInt::Subclass->new("100010001"); $y = Math::BigInt::Subclass->new("100010001"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1230 - is a valid object ok 1231 - $x = Math::BigInt::Subclass->new("10000100001"); $y = Math::BigInt::Subclass->new("10000100001"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1232 - is a valid object ok 1233 - $x = Math::BigInt::Subclass->new("11111111111"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1234 - is a valid object ok 1235 - $x = Math::BigInt::Subclass->new("22222222222"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1236 - is a valid object ok 1237 - $x = Math::BigInt::Subclass->new("33333333333"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1238 - is a valid object ok 1239 - $x = Math::BigInt::Subclass->new("44444444444"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1240 - is a valid object ok 1241 - $x = Math::BigInt::Subclass->new("55555555555"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1242 - is a valid object ok 1243 - $x = Math::BigInt::Subclass->new("66666666666"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1244 - is a valid object ok 1245 - $x = Math::BigInt::Subclass->new("77777777777"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1246 - is a valid object ok 1247 - $x = Math::BigInt::Subclass->new("88888888888"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1248 - is a valid object ok 1249 - $x = Math::BigInt::Subclass->new("99999999999"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("0"); $x->bmuladd($y, $z); ok 1250 - is a valid object ok 1251 - $x = Math::BigInt::Subclass->new("11111111111"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1252 - is a valid object ok 1253 - $x = Math::BigInt::Subclass->new("22222222222"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1254 - is a valid object ok 1255 - $x = Math::BigInt::Subclass->new("33333333333"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1256 - is a valid object ok 1257 - $x = Math::BigInt::Subclass->new("44444444444"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1258 - is a valid object ok 1259 - $x = Math::BigInt::Subclass->new("55555555555"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1260 - is a valid object ok 1261 - $x = Math::BigInt::Subclass->new("66666666666"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1262 - is a valid object ok 1263 - $x = Math::BigInt::Subclass->new("77777777777"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1264 - is a valid object ok 1265 - $x = Math::BigInt::Subclass->new("88888888888"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1266 - is a valid object ok 1267 - $x = Math::BigInt::Subclass->new("99999999999"); $y = Math::BigInt::Subclass->new("9"); $z = Math::BigInt::Subclass->new("1"); $x->bmuladd($y, $z); ok 1268 - is a valid object ok 1269 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("-4"); $z = Math::BigInt::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1270 - is a valid object ok 1271 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-4"); $z = Math::BigInt::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1272 - is a valid object ok 1273 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1274 - is a valid object ok 1275 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("-5"); $x->bmuladd($y, $z); ok 1276 - is a valid object ok 1277 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("5"); $x->bmuladd($y, $z); ok 1278 - is a valid object ok 1279 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-4"); $z = Math::BigInt::Subclass->new("5"); $x->bmuladd($y, $z); ok 1280 - is a valid object ok 1281 - $x = Math::BigInt::Subclass->new("9999999999999999999"); $y = Math::BigInt::Subclass->new("10000000000000000000"); $z = Math::BigInt::Subclass->new("1234567890"); $x->bmuladd($y, $z); ok 1282 - is a valid object ok 1283 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("12345678901234567890"); $x->bmuladd($y, $z); ok 1284 - is a valid object ok 1285 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x->bmul($y); ok 1286 - is a valid object ok 1287 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("+0"); $x->bmul($y); ok 1288 - is a valid object ok 1289 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); $x->bmul($y); ok 1290 - is a valid object ok 1291 - $x = Math::BigInt::Subclass->new("NaNmul"); $y = Math::BigInt::Subclass->new("+inf"); $x->bmul($y); ok 1292 - is a valid object ok 1293 - $x = Math::BigInt::Subclass->new("NaNmul"); $y = Math::BigInt::Subclass->new("-inf"); $x->bmul($y); ok 1294 - is a valid object ok 1295 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaNmul"); $x->bmul($y); ok 1296 - is a valid object ok 1297 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("NaNmul"); $x->bmul($y); ok 1298 - is a valid object ok 1299 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bmul($y); ok 1300 - is a valid object ok 1301 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bmul($y); ok 1302 - is a valid object ok 1303 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->bmul($y); ok 1304 - is a valid object ok 1305 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bmul($y); ok 1306 - is a valid object ok 1307 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+0"); $x->bmul($y); ok 1308 - is a valid object ok 1309 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); $x->bmul($y); ok 1310 - is a valid object ok 1311 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+0"); $x->bmul($y); ok 1312 - is a valid object ok 1313 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("-1"); $x->bmul($y); ok 1314 - is a valid object ok 1315 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+0"); $x->bmul($y); ok 1316 - is a valid object ok 1317 - $x = Math::BigInt::Subclass->new("123456789123456789"); $y = Math::BigInt::Subclass->new("0"); $x->bmul($y); ok 1318 - is a valid object ok 1319 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("123456789123456789"); $x->bmul($y); ok 1320 - is a valid object ok 1321 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->bmul($y); ok 1322 - is a valid object ok 1323 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("+1"); $x->bmul($y); ok 1324 - is a valid object ok 1325 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("-1"); $x->bmul($y); ok 1326 - is a valid object ok 1327 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+1"); $x->bmul($y); ok 1328 - is a valid object ok 1329 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("+3"); $x->bmul($y); ok 1330 - is a valid object ok 1331 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("+3"); $x->bmul($y); ok 1332 - is a valid object ok 1333 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("-3"); $x->bmul($y); ok 1334 - is a valid object ok 1335 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x->bmul($y); ok 1336 - is a valid object ok 1337 - $x = Math::BigInt::Subclass->new("111"); $y = Math::BigInt::Subclass->new("111"); $x->bmul($y); ok 1338 - is a valid object ok 1339 - $x = Math::BigInt::Subclass->new("10101"); $y = Math::BigInt::Subclass->new("10101"); $x->bmul($y); ok 1340 - is a valid object ok 1341 - $x = Math::BigInt::Subclass->new("1001001"); $y = Math::BigInt::Subclass->new("1001001"); $x->bmul($y); ok 1342 - is a valid object ok 1343 - $x = Math::BigInt::Subclass->new("100010001"); $y = Math::BigInt::Subclass->new("100010001"); $x->bmul($y); ok 1344 - is a valid object ok 1345 - $x = Math::BigInt::Subclass->new("10000100001"); $y = Math::BigInt::Subclass->new("10000100001"); $x->bmul($y); ok 1346 - is a valid object ok 1347 - $x = Math::BigInt::Subclass->new("11111111111"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1348 - is a valid object ok 1349 - $x = Math::BigInt::Subclass->new("22222222222"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1350 - is a valid object ok 1351 - $x = Math::BigInt::Subclass->new("33333333333"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1352 - is a valid object ok 1353 - $x = Math::BigInt::Subclass->new("44444444444"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1354 - is a valid object ok 1355 - $x = Math::BigInt::Subclass->new("55555555555"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1356 - is a valid object ok 1357 - $x = Math::BigInt::Subclass->new("66666666666"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1358 - is a valid object ok 1359 - $x = Math::BigInt::Subclass->new("77777777777"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1360 - is a valid object ok 1361 - $x = Math::BigInt::Subclass->new("88888888888"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1362 - is a valid object ok 1363 - $x = Math::BigInt::Subclass->new("99999999999"); $y = Math::BigInt::Subclass->new("9"); $x->bmul($y); ok 1364 - is a valid object ok 1365 - $x = Math::BigInt::Subclass->new("+25"); $y = Math::BigInt::Subclass->new("+25"); $x->bmul($y); ok 1366 - is a valid object ok 1367 - $x = Math::BigInt::Subclass->new("+12345"); $y = Math::BigInt::Subclass->new("+12345"); $x->bmul($y); ok 1368 - is a valid object ok 1369 - $x = Math::BigInt::Subclass->new("+99999"); $y = Math::BigInt::Subclass->new("+11111"); $x->bmul($y); ok 1370 - is a valid object ok 1371 - $x = Math::BigInt::Subclass->new("9999"); $y = Math::BigInt::Subclass->new("10000"); $x->bmul($y); ok 1372 - is a valid object ok 1373 - $x = Math::BigInt::Subclass->new("99999"); $y = Math::BigInt::Subclass->new("100000"); $x->bmul($y); ok 1374 - is a valid object ok 1375 - $x = Math::BigInt::Subclass->new("999999"); $y = Math::BigInt::Subclass->new("1000000"); $x->bmul($y); ok 1376 - is a valid object ok 1377 - $x = Math::BigInt::Subclass->new("9999999"); $y = Math::BigInt::Subclass->new("10000000"); $x->bmul($y); ok 1378 - is a valid object ok 1379 - $x = Math::BigInt::Subclass->new("99999999"); $y = Math::BigInt::Subclass->new("100000000"); $x->bmul($y); ok 1380 - is a valid object ok 1381 - $x = Math::BigInt::Subclass->new("999999999"); $y = Math::BigInt::Subclass->new("1000000000"); $x->bmul($y); ok 1382 - is a valid object ok 1383 - $x = Math::BigInt::Subclass->new("9999999999"); $y = Math::BigInt::Subclass->new("10000000000"); $x->bmul($y); ok 1384 - is a valid object ok 1385 - $x = Math::BigInt::Subclass->new("99999999999"); $y = Math::BigInt::Subclass->new("100000000000"); $x->bmul($y); ok 1386 - is a valid object ok 1387 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("1000000000000"); $x->bmul($y); ok 1388 - is a valid object ok 1389 - $x = Math::BigInt::Subclass->new("9999999999999"); $y = Math::BigInt::Subclass->new("10000000000000"); $x->bmul($y); ok 1390 - is a valid object ok 1391 - $x = Math::BigInt::Subclass->new("99999999999999"); $y = Math::BigInt::Subclass->new("100000000000000"); $x->bmul($y); ok 1392 - is a valid object ok 1393 - $x = Math::BigInt::Subclass->new("999999999999999"); $y = Math::BigInt::Subclass->new("1000000000000000"); $x->bmul($y); ok 1394 - is a valid object ok 1395 - $x = Math::BigInt::Subclass->new("9999999999999999"); $y = Math::BigInt::Subclass->new("10000000000000000"); $x->bmul($y); ok 1396 - is a valid object ok 1397 - $x = Math::BigInt::Subclass->new("99999999999999999"); $y = Math::BigInt::Subclass->new("100000000000000000"); $x->bmul($y); ok 1398 - is a valid object ok 1399 - $x = Math::BigInt::Subclass->new("999999999999999999"); $y = Math::BigInt::Subclass->new("1000000000000000000"); $x->bmul($y); ok 1400 - is a valid object ok 1401 - $x = Math::BigInt::Subclass->new("9999999999999999999"); $y = Math::BigInt::Subclass->new("10000000000000000000"); $x->bmul($y); ok 1402 - is a valid object ok 1403 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); join(",", $x->bdiv($y)); ok 1404 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); join(",", $x->bdiv($y)); ok 1405 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); join(",", $x->bdiv($y)); ok 1406 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("0"); join(",", $x->bdiv($y)); ok 1407 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); join(",", $x->bdiv($y)); ok 1408 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); join(",", $x->bdiv($y)); ok 1409 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1410 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1411 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); join(",", $x->bdiv($y)); ok 1412 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); join(",", $x->bdiv($y)); ok 1413 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1414 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1415 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); join(",", $x->bdiv($y)); ok 1416 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("inf"); join(",", $x->bdiv($y)); ok 1417 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); join(",", $x->bdiv($y)); ok 1418 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); join(",", $x->bdiv($y)); ok 1419 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); join(",", $x->bdiv($y)); ok 1420 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); join(",", $x->bdiv($y)); ok 1421 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); join(",", $x->bdiv($y)); ok 1422 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1423 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1424 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1425 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1426 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1427 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1428 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1429 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1430 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1431 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1432 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1433 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1434 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1435 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1436 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1437 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1438 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1439 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1440 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1441 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1442 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1443 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1444 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1445 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1446 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1447 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1448 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1449 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1450 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1451 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1452 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1453 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1454 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1455 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1456 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1457 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1458 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-5"); join(",", $x->bdiv($y)); ok 1459 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-2"); join(",", $x->bdiv($y)); ok 1460 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-1"); join(",", $x->bdiv($y)); ok 1461 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("1"); join(",", $x->bdiv($y)); ok 1462 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("2"); join(",", $x->bdiv($y)); ok 1463 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); join(",", $x->bdiv($y)); ok 1464 - $x = Math::BigInt::Subclass->new("1234567812345678"); $y = Math::BigInt::Subclass->new("123456712345678"); join(",", $x->bdiv($y)); ok 1465 - $x = Math::BigInt::Subclass->new("12345671234567"); $y = Math::BigInt::Subclass->new("1234561234567"); join(",", $x->bdiv($y)); ok 1466 - $x = Math::BigInt::Subclass->new("123456123456"); $y = Math::BigInt::Subclass->new("12345123456"); join(",", $x->bdiv($y)); ok 1467 - $x = Math::BigInt::Subclass->new("1234512345"); $y = Math::BigInt::Subclass->new("123412345"); join(",", $x->bdiv($y)); ok 1468 - $x = Math::BigInt::Subclass->new("1234567890999999999"); $y = Math::BigInt::Subclass->new("1234567890"); join(",", $x->bdiv($y)); ok 1469 - $x = Math::BigInt::Subclass->new("1234567890000000000"); $y = Math::BigInt::Subclass->new("1234567890"); join(",", $x->bdiv($y)); ok 1470 - $x = Math::BigInt::Subclass->new("1234567890999999999"); $y = Math::BigInt::Subclass->new("9876543210"); join(",", $x->bdiv($y)); ok 1471 - $x = Math::BigInt::Subclass->new("1234567890000000000"); $y = Math::BigInt::Subclass->new("9876543210"); join(",", $x->bdiv($y)); ok 1472 - $x = Math::BigInt::Subclass->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt::Subclass->new("484848484848484848484848486666666666666689898989898989898989"); join(",", $x->bdiv($y)); ok 1473 - $x = Math::BigInt::Subclass->new("1267650600228229401496703205375"); $y = Math::BigInt::Subclass->new("1267650600228229401496703205376"); join(",", $x->bdiv($y)); ok 1474 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("999999999999999999999999999999999"); join(",", $x->bdiv($y)); ok 1475 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("888888888888888888888888888888888"); join(",", $x->bdiv($y)); ok 1476 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("777777777777777777777777777777777"); join(",", $x->bdiv($y)); ok 1477 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("666666666666666666666666666666666"); join(",", $x->bdiv($y)); ok 1478 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("555555555555555555555555555555555"); join(",", $x->bdiv($y)); ok 1479 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("444444444444444444444444444444444"); join(",", $x->bdiv($y)); ok 1480 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("333333333333333333333333333333333"); join(",", $x->bdiv($y)); ok 1481 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("222222222222222222222222222222222"); join(",", $x->bdiv($y)); ok 1482 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("111111111111111111111111111111111"); join(",", $x->bdiv($y)); ok 1483 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3333333_3333333_3333333_3333333"); join(",", $x->bdiv($y)); ok 1484 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3333333_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1485 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1486 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("2000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1487 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1000000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1488 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("100000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1489 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("10000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1490 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1000_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1491 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("100_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1492 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("10_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1493 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1_0000000_0000000_0000000"); join(",", $x->bdiv($y)); ok 1494 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); $x->bdiv($y); ok 1495 - is a valid object ok 1496 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); $x->bdiv($y); ok 1497 - is a valid object ok 1498 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->bdiv($y); ok 1499 - is a valid object ok 1500 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("0"); $x->bdiv($y); ok 1501 - is a valid object ok 1502 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); $x->bdiv($y); ok 1503 - is a valid object ok 1504 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bdiv($y); ok 1505 - is a valid object ok 1506 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-5"); $x->bdiv($y); ok 1507 - is a valid object ok 1508 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); $x->bdiv($y); ok 1509 - is a valid object ok 1510 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); $x->bdiv($y); ok 1511 - is a valid object ok 1512 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->bdiv($y); ok 1513 - is a valid object ok 1514 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5"); $x->bdiv($y); ok 1515 - is a valid object ok 1516 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); $x->bdiv($y); ok 1517 - is a valid object ok 1518 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); $x->bdiv($y); ok 1519 - is a valid object ok 1520 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("inf"); $x->bdiv($y); ok 1521 - is a valid object ok 1522 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x->bdiv($y); ok 1523 - is a valid object ok 1524 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x->bdiv($y); ok 1525 - is a valid object ok 1526 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); $x->bdiv($y); ok 1527 - is a valid object ok 1528 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x->bdiv($y); ok 1529 - is a valid object ok 1530 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); $x->bdiv($y); ok 1531 - is a valid object ok 1532 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); $x->bdiv($y); ok 1533 - is a valid object ok 1534 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-5"); $x->bdiv($y); ok 1535 - is a valid object ok 1536 - $x = Math::BigInt::Subclass->new("11"); $y = Math::BigInt::Subclass->new("2"); $x->bdiv($y); ok 1537 - is a valid object ok 1538 - $x = Math::BigInt::Subclass->new("-11"); $y = Math::BigInt::Subclass->new("-2"); $x->bdiv($y); ok 1539 - is a valid object ok 1540 - $x = Math::BigInt::Subclass->new("-11"); $y = Math::BigInt::Subclass->new("2"); $x->bdiv($y); ok 1541 - is a valid object ok 1542 - $x = Math::BigInt::Subclass->new("11"); $y = Math::BigInt::Subclass->new("-2"); $x->bdiv($y); ok 1543 - is a valid object ok 1544 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->bdiv($y); ok 1545 - is a valid object ok 1546 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x->bdiv($y); ok 1547 - is a valid object ok 1548 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->bdiv($y); ok 1549 - is a valid object ok 1550 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->bdiv($y); ok 1551 - is a valid object ok 1552 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x->bdiv($y); ok 1553 - is a valid object ok 1554 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->bdiv($y); ok 1555 - is a valid object ok 1556 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x->bdiv($y); ok 1557 - is a valid object ok 1558 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x->bdiv($y); ok 1559 - is a valid object ok 1560 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("26"); $x->bdiv($y); ok 1561 - is a valid object ok 1562 - $x = Math::BigInt::Subclass->new("1000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1563 - is a valid object ok 1564 - $x = Math::BigInt::Subclass->new("2000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1565 - is a valid object ok 1566 - $x = Math::BigInt::Subclass->new("3000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1567 - is a valid object ok 1568 - $x = Math::BigInt::Subclass->new("4000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1569 - is a valid object ok 1570 - $x = Math::BigInt::Subclass->new("5000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1571 - is a valid object ok 1572 - $x = Math::BigInt::Subclass->new("6000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1573 - is a valid object ok 1574 - $x = Math::BigInt::Subclass->new("7000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1575 - is a valid object ok 1576 - $x = Math::BigInt::Subclass->new("8000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1577 - is a valid object ok 1578 - $x = Math::BigInt::Subclass->new("9000000000"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1579 - is a valid object ok 1580 - $x = Math::BigInt::Subclass->new("35500000"); $y = Math::BigInt::Subclass->new("113"); $x->bdiv($y); ok 1581 - is a valid object ok 1582 - $x = Math::BigInt::Subclass->new("71000000"); $y = Math::BigInt::Subclass->new("226"); $x->bdiv($y); ok 1583 - is a valid object ok 1584 - $x = Math::BigInt::Subclass->new("106500000"); $y = Math::BigInt::Subclass->new("339"); $x->bdiv($y); ok 1585 - is a valid object ok 1586 - $x = Math::BigInt::Subclass->new("1000000000"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1587 - is a valid object ok 1588 - $x = Math::BigInt::Subclass->new("+10"); $y = Math::BigInt::Subclass->new("+5"); $x->bdiv($y); ok 1589 - is a valid object ok 1590 - $x = Math::BigInt::Subclass->new("+100"); $y = Math::BigInt::Subclass->new("+4"); $x->bdiv($y); ok 1591 - is a valid object ok 1592 - $x = Math::BigInt::Subclass->new("+1000"); $y = Math::BigInt::Subclass->new("+8"); $x->bdiv($y); ok 1593 - is a valid object ok 1594 - $x = Math::BigInt::Subclass->new("+10000"); $y = Math::BigInt::Subclass->new("+16"); $x->bdiv($y); ok 1595 - is a valid object ok 1596 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("9"); $x->bdiv($y); ok 1597 - is a valid object ok 1598 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("99"); $x->bdiv($y); ok 1599 - is a valid object ok 1600 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("999"); $x->bdiv($y); ok 1601 - is a valid object ok 1602 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("9999"); $x->bdiv($y); ok 1603 - is a valid object ok 1604 - $x = Math::BigInt::Subclass->new("999999999999999"); $y = Math::BigInt::Subclass->new("99999"); $x->bdiv($y); ok 1605 - is a valid object ok 1606 - $x = Math::BigInt::Subclass->new("+1111088889"); $y = Math::BigInt::Subclass->new("99999"); $x->bdiv($y); ok 1607 - is a valid object ok 1608 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1609 - is a valid object ok 1610 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1611 - is a valid object ok 1612 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1613 - is a valid object ok 1614 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1615 - is a valid object ok 1616 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1617 - is a valid object ok 1618 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1619 - is a valid object ok 1620 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1621 - is a valid object ok 1622 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1623 - is a valid object ok 1624 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1625 - is a valid object ok 1626 - $x = Math::BigInt::Subclass->new("-8"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1627 - is a valid object ok 1628 - $x = Math::BigInt::Subclass->new("14"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1629 - is a valid object ok 1630 - $x = Math::BigInt::Subclass->new("-14"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1631 - is a valid object ok 1632 - $x = Math::BigInt::Subclass->new("-14"); $y = Math::BigInt::Subclass->new("-3"); $x->bdiv($y); ok 1633 - is a valid object ok 1634 - $x = Math::BigInt::Subclass->new("14"); $y = Math::BigInt::Subclass->new("3"); $x->bdiv($y); ok 1635 - is a valid object ok 1636 - $x = Math::BigInt::Subclass->new("10000000000000000000000000000000000000000000000000000000000000000000000000000000000"); $y = Math::BigInt::Subclass->new("10000000375084540248994272022843165711074"); $x->bdiv($y); ok 1637 - is a valid object ok 1638 - $x = Math::BigInt::Subclass->new("1234567812345678"); $y = Math::BigInt::Subclass->new("123456712345678"); $x->bdiv($y); ok 1639 - is a valid object ok 1640 - $x = Math::BigInt::Subclass->new("12345671234567"); $y = Math::BigInt::Subclass->new("1234561234567"); $x->bdiv($y); ok 1641 - is a valid object ok 1642 - $x = Math::BigInt::Subclass->new("123456123456"); $y = Math::BigInt::Subclass->new("12345123456"); $x->bdiv($y); ok 1643 - is a valid object ok 1644 - $x = Math::BigInt::Subclass->new("1234512345"); $y = Math::BigInt::Subclass->new("123412345"); $x->bdiv($y); ok 1645 - is a valid object ok 1646 - $x = Math::BigInt::Subclass->new("1234567890999999999"); $y = Math::BigInt::Subclass->new("1234567890"); $x->bdiv($y); ok 1647 - is a valid object ok 1648 - $x = Math::BigInt::Subclass->new("1234567890000000000"); $y = Math::BigInt::Subclass->new("1234567890"); $x->bdiv($y); ok 1649 - is a valid object ok 1650 - $x = Math::BigInt::Subclass->new("1234567890999999999"); $y = Math::BigInt::Subclass->new("9876543210"); $x->bdiv($y); ok 1651 - is a valid object ok 1652 - $x = Math::BigInt::Subclass->new("1234567890000000000"); $y = Math::BigInt::Subclass->new("9876543210"); $x->bdiv($y); ok 1653 - is a valid object ok 1654 - $x = Math::BigInt::Subclass->new("96969696969696969696969696969678787878626262626262626262626262"); $y = Math::BigInt::Subclass->new("484848484848484848484848486666666666666689898989898989898989"); $x->bdiv($y); ok 1655 - is a valid object ok 1656 - $x = Math::BigInt::Subclass->new("84696969696969696956565656566184292929292929292847474747436308080808080808086765396464646464646465"); $y = Math::BigInt::Subclass->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1657 - is a valid object ok 1658 - $x = Math::BigInt::Subclass->new("84696969696969696943434343434871161616161616161452525252486813131313131313143230042929292929292930"); $y = Math::BigInt::Subclass->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1659 - is a valid object ok 1660 - $x = Math::BigInt::Subclass->new("84696969696969696969696969697497424242424242424242424242385803030303030303030300750000000000000000"); $y = Math::BigInt::Subclass->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1661 - is a valid object ok 1662 - $x = Math::BigInt::Subclass->new("84696969696969696930303030303558030303030303030057575757537318181818181818199694689393939393939395"); $y = Math::BigInt::Subclass->new("13131313131313131313131313131394949494949494949494949494943535353535353535353535"); $x->bdiv($y); ok 1663 - is a valid object ok 1664 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $x->bdiv($y); ok 1665 - is a valid object ok 1666 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("888888888888888888888888888888888"); $x->bdiv($y); ok 1667 - is a valid object ok 1668 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("777777777777777777777777777777777"); $x->bdiv($y); ok 1669 - is a valid object ok 1670 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("666666666666666666666666666666666"); $x->bdiv($y); ok 1671 - is a valid object ok 1672 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("555555555555555555555555555555555"); $x->bdiv($y); ok 1673 - is a valid object ok 1674 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("444444444444444444444444444444444"); $x->bdiv($y); ok 1675 - is a valid object ok 1676 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("333333333333333333333333333333333"); $x->bdiv($y); ok 1677 - is a valid object ok 1678 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("222222222222222222222222222222222"); $x->bdiv($y); ok 1679 - is a valid object ok 1680 - $x = Math::BigInt::Subclass->new("999999999999999999999999999999999"); $y = Math::BigInt::Subclass->new("111111111111111111111111111111111"); $x->bdiv($y); ok 1681 - is a valid object ok 1682 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3333333_3333333_3333333_3333333"); $x->bdiv($y); ok 1683 - is a valid object ok 1684 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3333333_0000000_0000000_0000000"); $x->bdiv($y); ok 1685 - is a valid object ok 1686 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("3000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1687 - is a valid object ok 1688 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("2000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1689 - is a valid object ok 1690 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1000000_0000000_0000000_0000000"); $x->bdiv($y); ok 1691 - is a valid object ok 1692 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("100000_0000000_0000000_0000000"); $x->bdiv($y); ok 1693 - is a valid object ok 1694 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("10000_0000000_0000000_0000000"); $x->bdiv($y); ok 1695 - is a valid object ok 1696 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1000_0000000_0000000_0000000"); $x->bdiv($y); ok 1697 - is a valid object ok 1698 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("100_0000000_0000000_0000000"); $x->bdiv($y); ok 1699 - is a valid object ok 1700 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("10_0000000_0000000_0000000"); $x->bdiv($y); ok 1701 - is a valid object ok 1702 - $x = Math::BigInt::Subclass->new("9999999_9999999_9999999_9999999"); $y = Math::BigInt::Subclass->new("1_0000000_0000000_0000000"); $x->bdiv($y); ok 1703 - is a valid object ok 1704 - $x = Math::BigInt::Subclass->new("949418181818187070707070707070707070"); $y = Math::BigInt::Subclass->new("181818181853535353535353535353535353"); $x->bdiv($y); ok 1705 - is a valid object ok 1706 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); join (",", $x->btdiv($y)); ok 1707 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); join (",", $x->btdiv($y)); ok 1708 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); join (",", $x->btdiv($y)); ok 1709 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("0"); join (",", $x->btdiv($y)); ok 1710 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); join (",", $x->btdiv($y)); ok 1711 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); join (",", $x->btdiv($y)); ok 1712 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1713 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1714 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); join (",", $x->btdiv($y)); ok 1715 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); join (",", $x->btdiv($y)); ok 1716 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1717 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1718 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); join (",", $x->btdiv($y)); ok 1719 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("inf"); join (",", $x->btdiv($y)); ok 1720 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); join (",", $x->btdiv($y)); ok 1721 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); join (",", $x->btdiv($y)); ok 1722 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); join (",", $x->btdiv($y)); ok 1723 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); join (",", $x->btdiv($y)); ok 1724 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); join (",", $x->btdiv($y)); ok 1725 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1726 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1727 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1728 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1729 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1730 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1731 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1732 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1733 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1734 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1735 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1736 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1737 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1738 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1739 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1740 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1741 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1742 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1743 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1744 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1745 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1746 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1747 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1748 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1749 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1750 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1751 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1752 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1753 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1754 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1755 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1756 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1757 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1758 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1759 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1760 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1761 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-5"); join (",", $x->btdiv($y)); ok 1762 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-2"); join (",", $x->btdiv($y)); ok 1763 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-1"); join (",", $x->btdiv($y)); ok 1764 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("1"); join (",", $x->btdiv($y)); ok 1765 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("2"); join (",", $x->btdiv($y)); ok 1766 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); join (",", $x->btdiv($y)); ok 1767 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); $x->btdiv($y); ok 1768 - is a valid object ok 1769 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); $x->btdiv($y); ok 1770 - is a valid object ok 1771 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->btdiv($y); ok 1772 - is a valid object ok 1773 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("0"); $x->btdiv($y); ok 1774 - is a valid object ok 1775 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); $x->btdiv($y); ok 1776 - is a valid object ok 1777 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->btdiv($y); ok 1778 - is a valid object ok 1779 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1780 - is a valid object ok 1781 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1782 - is a valid object ok 1783 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); $x->btdiv($y); ok 1784 - is a valid object ok 1785 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->btdiv($y); ok 1786 - is a valid object ok 1787 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1788 - is a valid object ok 1789 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1790 - is a valid object ok 1791 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); $x->btdiv($y); ok 1792 - is a valid object ok 1793 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("inf"); $x->btdiv($y); ok 1794 - is a valid object ok 1795 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x->btdiv($y); ok 1796 - is a valid object ok 1797 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x->btdiv($y); ok 1798 - is a valid object ok 1799 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); $x->btdiv($y); ok 1800 - is a valid object ok 1801 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x->btdiv($y); ok 1802 - is a valid object ok 1803 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); $x->btdiv($y); ok 1804 - is a valid object ok 1805 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1806 - is a valid object ok 1807 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1808 - is a valid object ok 1809 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1810 - is a valid object ok 1811 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1812 - is a valid object ok 1813 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1814 - is a valid object ok 1815 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1816 - is a valid object ok 1817 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1818 - is a valid object ok 1819 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1820 - is a valid object ok 1821 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1822 - is a valid object ok 1823 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1824 - is a valid object ok 1825 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1826 - is a valid object ok 1827 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1828 - is a valid object ok 1829 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1830 - is a valid object ok 1831 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1832 - is a valid object ok 1833 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1834 - is a valid object ok 1835 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1836 - is a valid object ok 1837 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1838 - is a valid object ok 1839 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1840 - is a valid object ok 1841 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1842 - is a valid object ok 1843 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1844 - is a valid object ok 1845 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1846 - is a valid object ok 1847 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1848 - is a valid object ok 1849 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1850 - is a valid object ok 1851 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1852 - is a valid object ok 1853 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1854 - is a valid object ok 1855 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1856 - is a valid object ok 1857 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1858 - is a valid object ok 1859 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1860 - is a valid object ok 1861 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1862 - is a valid object ok 1863 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1864 - is a valid object ok 1865 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1866 - is a valid object ok 1867 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1868 - is a valid object ok 1869 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1870 - is a valid object ok 1871 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1872 - is a valid object ok 1873 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1874 - is a valid object ok 1875 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1876 - is a valid object ok 1877 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-5"); $x->btdiv($y); ok 1878 - is a valid object ok 1879 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-2"); $x->btdiv($y); ok 1880 - is a valid object ok 1881 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-1"); $x->btdiv($y); ok 1882 - is a valid object ok 1883 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("1"); $x->btdiv($y); ok 1884 - is a valid object ok 1885 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("2"); $x->btdiv($y); ok 1886 - is a valid object ok 1887 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); $x->btdiv($y); ok 1888 - is a valid object ok 1889 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x->bmodinv($y); ok 1890 - is a valid object ok 1891 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1892 - is a valid object ok 1893 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("abc"); $x->bmodinv($y); ok 1894 - is a valid object ok 1895 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1896 - is a valid object ok 1897 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1898 - is a valid object ok 1899 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-5"); $x->bmodinv($y); ok 1900 - is a valid object ok 1901 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1902 - is a valid object ok 1903 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("5033"); $x->bmodinv($y); ok 1904 - is a valid object ok 1905 - $x = Math::BigInt::Subclass->new("1234567891"); $y = Math::BigInt::Subclass->new("13"); $x->bmodinv($y); ok 1906 - is a valid object ok 1907 - $x = Math::BigInt::Subclass->new("-1234567891"); $y = Math::BigInt::Subclass->new("13"); $x->bmodinv($y); ok 1908 - is a valid object ok 1909 - $x = Math::BigInt::Subclass->new("324958749843759385732954874325984357439658735983745"); $y = Math::BigInt::Subclass->new("2348249874968739"); $x->bmodinv($y); ok 1910 - is a valid object ok 1911 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1912 - is a valid object ok 1913 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1914 - is a valid object ok 1915 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1916 - is a valid object ok 1917 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1918 - is a valid object ok 1919 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1920 - is a valid object ok 1921 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1922 - is a valid object ok 1923 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("1"); $x->bmodinv($y); ok 1924 - is a valid object ok 1925 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1926 - is a valid object ok 1927 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1928 - is a valid object ok 1929 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1930 - is a valid object ok 1931 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1932 - is a valid object ok 1933 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1934 - is a valid object ok 1935 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1936 - is a valid object ok 1937 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $x->bmodinv($y); ok 1938 - is a valid object ok 1939 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1940 - is a valid object ok 1941 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1942 - is a valid object ok 1943 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1944 - is a valid object ok 1945 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1946 - is a valid object ok 1947 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1948 - is a valid object ok 1949 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1950 - is a valid object ok 1951 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("4"); $x->bmodinv($y); ok 1952 - is a valid object ok 1953 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1954 - is a valid object ok 1955 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x->bmodinv($y); ok 1956 - is a valid object ok 1957 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); $x->bmodinv($y); ok 1958 - is a valid object ok 1959 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); $x->bmodinv($y); ok 1960 - is a valid object ok 1961 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("abc"); $x->bmodpow($y, $z); ok 1962 - is a valid object ok 1963 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("abc"); $x->bmodpow($y, $z); ok 1964 - is a valid object ok 1965 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("5"); $z = Math::BigInt::Subclass->new("abc"); $x->bmodpow($y, $z); ok 1966 - is a valid object ok 1967 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("5"); $x->bmodpow($y, $z); ok 1968 - is a valid object ok 1969 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); $z = Math::BigInt::Subclass->new("abc"); $x->bmodpow($y, $z); ok 1970 - is a valid object ok 1971 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("abc"); $z = Math::BigInt::Subclass->new("5"); $x->bmodpow($y, $z); ok 1972 - is a valid object ok 1973 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("5"); $z = Math::BigInt::Subclass->new("5"); $x->bmodpow($y, $z); ok 1974 - is a valid object ok 1975 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("5"); $z = Math::BigInt::Subclass->new("0"); $x->bmodpow($y, $z); ok 1976 - is a valid object ok 1977 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("2"); $x->bmodpow($y, $z); ok 1978 - is a valid object ok 1979 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("2"); $x->bmodpow($y, $z); ok 1980 - is a valid object ok 1981 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("5"); $x->bmodpow($y, $z); ok 1982 - is a valid object ok 1983 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1984 - is a valid object ok 1985 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1986 - is a valid object ok 1987 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1988 - is a valid object ok 1989 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1990 - is a valid object ok 1991 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1992 - is a valid object ok 1993 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1994 - is a valid object ok 1995 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1996 - is a valid object ok 1997 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 1998 - is a valid object ok 1999 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2000 - is a valid object ok 2001 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2002 - is a valid object ok 2003 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2004 - is a valid object ok 2005 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2006 - is a valid object ok 2007 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2008 - is a valid object ok 2009 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2010 - is a valid object ok 2011 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2012 - is a valid object ok 2013 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2014 - is a valid object ok 2015 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2016 - is a valid object ok 2017 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2018 - is a valid object ok 2019 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2020 - is a valid object ok 2021 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2022 - is a valid object ok 2023 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2024 - is a valid object ok 2025 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2026 - is a valid object ok 2027 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2028 - is a valid object ok 2029 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2030 - is a valid object ok 2031 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2032 - is a valid object ok 2033 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2034 - is a valid object ok 2035 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2036 - is a valid object ok 2037 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2038 - is a valid object ok 2039 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2040 - is a valid object ok 2041 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2042 - is a valid object ok 2043 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2044 - is a valid object ok 2045 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2046 - is a valid object ok 2047 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2048 - is a valid object ok 2049 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2050 - is a valid object ok 2051 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2052 - is a valid object ok 2053 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2054 - is a valid object ok 2055 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2056 - is a valid object ok 2057 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2058 - is a valid object ok 2059 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2060 - is a valid object ok 2061 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2062 - is a valid object ok 2063 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2064 - is a valid object ok 2065 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2066 - is a valid object ok 2067 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2068 - is a valid object ok 2069 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2070 - is a valid object ok 2071 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2072 - is a valid object ok 2073 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2074 - is a valid object ok 2075 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2076 - is a valid object ok 2077 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2078 - is a valid object ok 2079 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2080 - is a valid object ok 2081 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2082 - is a valid object ok 2083 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2084 - is a valid object ok 2085 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2086 - is a valid object ok 2087 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2088 - is a valid object ok 2089 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2090 - is a valid object ok 2091 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2092 - is a valid object ok 2093 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2094 - is a valid object ok 2095 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2096 - is a valid object ok 2097 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2098 - is a valid object ok 2099 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2100 - is a valid object ok 2101 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2102 - is a valid object ok 2103 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2104 - is a valid object ok 2105 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2106 - is a valid object ok 2107 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2108 - is a valid object ok 2109 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2110 - is a valid object ok 2111 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2112 - is a valid object ok 2113 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2114 - is a valid object ok 2115 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2116 - is a valid object ok 2117 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2118 - is a valid object ok 2119 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2120 - is a valid object ok 2121 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2122 - is a valid object ok 2123 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2124 - is a valid object ok 2125 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2126 - is a valid object ok 2127 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2128 - is a valid object ok 2129 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2130 - is a valid object ok 2131 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2132 - is a valid object ok 2133 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2134 - is a valid object ok 2135 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2136 - is a valid object ok 2137 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2138 - is a valid object ok 2139 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2140 - is a valid object ok 2141 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2142 - is a valid object ok 2143 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2144 - is a valid object ok 2145 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2146 - is a valid object ok 2147 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2148 - is a valid object ok 2149 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2150 - is a valid object ok 2151 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2152 - is a valid object ok 2153 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2154 - is a valid object ok 2155 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2156 - is a valid object ok 2157 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2158 - is a valid object ok 2159 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2160 - is a valid object ok 2161 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2162 - is a valid object ok 2163 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2164 - is a valid object ok 2165 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2166 - is a valid object ok 2167 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2168 - is a valid object ok 2169 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2170 - is a valid object ok 2171 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2172 - is a valid object ok 2173 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2174 - is a valid object ok 2175 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2176 - is a valid object ok 2177 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("3"); $x->bmodpow($y, $z); ok 2178 - is a valid object ok 2179 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2180 - is a valid object ok 2181 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2182 - is a valid object ok 2183 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2184 - is a valid object ok 2185 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2186 - is a valid object ok 2187 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2188 - is a valid object ok 2189 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2190 - is a valid object ok 2191 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2192 - is a valid object ok 2193 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2194 - is a valid object ok 2195 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2196 - is a valid object ok 2197 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2198 - is a valid object ok 2199 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2200 - is a valid object ok 2201 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2202 - is a valid object ok 2203 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2204 - is a valid object ok 2205 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2206 - is a valid object ok 2207 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2208 - is a valid object ok 2209 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2210 - is a valid object ok 2211 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2212 - is a valid object ok 2213 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2214 - is a valid object ok 2215 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2216 - is a valid object ok 2217 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2218 - is a valid object ok 2219 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("0"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2220 - is a valid object ok 2221 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2222 - is a valid object ok 2223 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2224 - is a valid object ok 2225 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2226 - is a valid object ok 2227 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2228 - is a valid object ok 2229 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2230 - is a valid object ok 2231 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2232 - is a valid object ok 2233 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2234 - is a valid object ok 2235 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2236 - is a valid object ok 2237 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2238 - is a valid object ok 2239 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2240 - is a valid object ok 2241 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2242 - is a valid object ok 2243 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2244 - is a valid object ok 2245 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2246 - is a valid object ok 2247 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("2"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2248 - is a valid object ok 2249 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2250 - is a valid object ok 2251 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2252 - is a valid object ok 2253 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2254 - is a valid object ok 2255 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2256 - is a valid object ok 2257 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2258 - is a valid object ok 2259 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2260 - is a valid object ok 2261 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2262 - is a valid object ok 2263 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2264 - is a valid object ok 2265 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2266 - is a valid object ok 2267 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2268 - is a valid object ok 2269 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2270 - is a valid object ok 2271 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2272 - is a valid object ok 2273 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2274 - is a valid object ok 2275 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("4"); $z = Math::BigInt::Subclass->new("4"); $x->bmodpow($y, $z); ok 2276 - is a valid object ok 2277 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("16"); $x->bmodpow($y, $z); ok 2278 - is a valid object ok 2279 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("-1"); $z = Math::BigInt::Subclass->new("5033"); $x->bmodpow($y, $z); ok 2280 - is a valid object ok 2281 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("7"); $z = Math::BigInt::Subclass->new("5032"); $x->bmodpow($y, $z); ok 2282 - is a valid object ok 2283 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("8"); $z = Math::BigInt::Subclass->new("-5"); $x->bmodpow($y, $z); ok 2284 - is a valid object ok 2285 - $x = Math::BigInt::Subclass->new("1e50"); $y = Math::BigInt::Subclass->new("1"); $z = Math::BigInt::Subclass->new("1"); $x->bmodpow($y, $z); ok 2286 - is a valid object ok 2287 - $x = Math::BigInt::Subclass->new("98436739867439843769485798542749827593285729587325"); $y = Math::BigInt::Subclass->new("43698764986460981048259837659386739857456983759328457"); $z = Math::BigInt::Subclass->new("6943857329857295827698367"); $x->bmodpow($y, $z); ok 2288 - is a valid object ok 2289 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); $z = Math::BigInt::Subclass->new("13"); $x->bmodpow($y, $z); ok 2290 - is a valid object ok 2291 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $z = Math::BigInt::Subclass->new("13"); $x->bmodpow($y, $z); ok 2292 - is a valid object ok 2293 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("0"); $x % $y; ok 2294 - is a valid object ok 2295 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); $x % $y; ok 2296 - is a valid object ok 2297 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x % $y; ok 2298 - is a valid object ok 2299 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("0"); $x % $y; ok 2300 - is a valid object ok 2301 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); $x % $y; ok 2302 - is a valid object ok 2303 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x % $y; ok 2304 - is a valid object ok 2305 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-5"); $x % $y; ok 2306 - is a valid object ok 2307 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("5"); $x % $y; ok 2308 - is a valid object ok 2309 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); $x % $y; ok 2310 - is a valid object ok 2311 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x % $y; ok 2312 - is a valid object ok 2313 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-5"); $x % $y; ok 2314 - is a valid object ok 2315 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("5"); $x % $y; ok 2316 - is a valid object ok 2317 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); $x % $y; ok 2318 - is a valid object ok 2319 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("inf"); $x % $y; ok 2320 - is a valid object ok 2321 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x % $y; ok 2322 - is a valid object ok 2323 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("inf"); $x % $y; ok 2324 - is a valid object ok 2325 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-inf"); $x % $y; ok 2326 - is a valid object ok 2327 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x % $y; ok 2328 - is a valid object ok 2329 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("-inf"); $x % $y; ok 2330 - is a valid object ok 2331 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("5"); $x % $y; ok 2332 - is a valid object ok 2333 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-5"); $x % $y; ok 2334 - is a valid object ok 2335 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x % $y; ok 2336 - is a valid object ok 2337 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x % $y; ok 2338 - is a valid object ok 2339 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x % $y; ok 2340 - is a valid object ok 2341 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x % $y; ok 2342 - is a valid object ok 2343 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x % $y; ok 2344 - is a valid object ok 2345 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x % $y; ok 2346 - is a valid object ok 2347 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x % $y; ok 2348 - is a valid object ok 2349 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x % $y; ok 2350 - is a valid object ok 2351 - $x = Math::BigInt::Subclass->new("1000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2352 - is a valid object ok 2353 - $x = Math::BigInt::Subclass->new("2000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2354 - is a valid object ok 2355 - $x = Math::BigInt::Subclass->new("3000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2356 - is a valid object ok 2357 - $x = Math::BigInt::Subclass->new("4000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2358 - is a valid object ok 2359 - $x = Math::BigInt::Subclass->new("5000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2360 - is a valid object ok 2361 - $x = Math::BigInt::Subclass->new("6000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2362 - is a valid object ok 2363 - $x = Math::BigInt::Subclass->new("7000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2364 - is a valid object ok 2365 - $x = Math::BigInt::Subclass->new("8000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2366 - is a valid object ok 2367 - $x = Math::BigInt::Subclass->new("9000000000"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2368 - is a valid object ok 2369 - $x = Math::BigInt::Subclass->new("35500000"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2370 - is a valid object ok 2371 - $x = Math::BigInt::Subclass->new("71000000"); $y = Math::BigInt::Subclass->new("226"); $x % $y; ok 2372 - is a valid object ok 2373 - $x = Math::BigInt::Subclass->new("106500000"); $y = Math::BigInt::Subclass->new("339"); $x % $y; ok 2374 - is a valid object ok 2375 - $x = Math::BigInt::Subclass->new("1000000000"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2376 - is a valid object ok 2377 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("5"); $x % $y; ok 2378 - is a valid object ok 2379 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("4"); $x % $y; ok 2380 - is a valid object ok 2381 - $x = Math::BigInt::Subclass->new("1000"); $y = Math::BigInt::Subclass->new("8"); $x % $y; ok 2382 - is a valid object ok 2383 - $x = Math::BigInt::Subclass->new("10000"); $y = Math::BigInt::Subclass->new("16"); $x % $y; ok 2384 - is a valid object ok 2385 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2386 - is a valid object ok 2387 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("99"); $x % $y; ok 2388 - is a valid object ok 2389 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("999"); $x % $y; ok 2390 - is a valid object ok 2391 - $x = Math::BigInt::Subclass->new("999999999999"); $y = Math::BigInt::Subclass->new("9999"); $x % $y; ok 2392 - is a valid object ok 2393 - $x = Math::BigInt::Subclass->new("999999999999999"); $y = Math::BigInt::Subclass->new("99999"); $x % $y; ok 2394 - is a valid object ok 2395 - $x = Math::BigInt::Subclass->new("-9"); $y = Math::BigInt::Subclass->new("+5"); $x % $y; ok 2396 - is a valid object ok 2397 - $x = Math::BigInt::Subclass->new("+9"); $y = Math::BigInt::Subclass->new("-5"); $x % $y; ok 2398 - is a valid object ok 2399 - $x = Math::BigInt::Subclass->new("-9"); $y = Math::BigInt::Subclass->new("-5"); $x % $y; ok 2400 - is a valid object ok 2401 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2402 - is a valid object ok 2403 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2404 - is a valid object ok 2405 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2406 - is a valid object ok 2407 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2408 - is a valid object ok 2409 - $x = Math::BigInt::Subclass->new("-5"); $y = Math::BigInt::Subclass->new("-3"); $x % $y; ok 2410 - is a valid object ok 2411 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x % $y; ok 2412 - is a valid object ok 2413 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-3"); $x % $y; ok 2414 - is a valid object ok 2415 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-3"); $x % $y; ok 2416 - is a valid object ok 2417 - $x = Math::BigInt::Subclass->new("4095"); $y = Math::BigInt::Subclass->new("4095"); $x % $y; ok 2418 - is a valid object ok 2419 - $x = Math::BigInt::Subclass->new("100041000510123"); $y = Math::BigInt::Subclass->new("3"); $x % $y; ok 2420 - is a valid object ok 2421 - $x = Math::BigInt::Subclass->new("152403346"); $y = Math::BigInt::Subclass->new("12345"); $x % $y; ok 2422 - is a valid object ok 2423 - $x = Math::BigInt::Subclass->new("9"); $y = Math::BigInt::Subclass->new("5"); $x % $y; ok 2424 - is a valid object ok 2425 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2426 - is a valid object ok 2427 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2428 - is a valid object ok 2429 - $x = Math::BigInt::Subclass->new("12345678"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2430 - is a valid object ok 2431 - $x = Math::BigInt::Subclass->new("1234567891"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2432 - is a valid object ok 2433 - $x = Math::BigInt::Subclass->new("123456789123"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2434 - is a valid object ok 2435 - $x = Math::BigInt::Subclass->new("12345678912345"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2436 - is a valid object ok 2437 - $x = Math::BigInt::Subclass->new("1234567891234567"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2438 - is a valid object ok 2439 - $x = Math::BigInt::Subclass->new("123456789123456789"); $y = Math::BigInt::Subclass->new("9"); $x % $y; ok 2440 - is a valid object ok 2441 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2442 - is a valid object ok 2443 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2444 - is a valid object ok 2445 - $x = Math::BigInt::Subclass->new("12345678"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2446 - is a valid object ok 2447 - $x = Math::BigInt::Subclass->new("1234567891"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2448 - is a valid object ok 2449 - $x = Math::BigInt::Subclass->new("123456789123"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2450 - is a valid object ok 2451 - $x = Math::BigInt::Subclass->new("12345678912345"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2452 - is a valid object ok 2453 - $x = Math::BigInt::Subclass->new("1234567891234567"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2454 - is a valid object ok 2455 - $x = Math::BigInt::Subclass->new("123456789123456789"); $y = Math::BigInt::Subclass->new("10"); $x % $y; ok 2456 - is a valid object ok 2457 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2458 - is a valid object ok 2459 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2460 - is a valid object ok 2461 - $x = Math::BigInt::Subclass->new("12345678"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2462 - is a valid object ok 2463 - $x = Math::BigInt::Subclass->new("1234567891"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2464 - is a valid object ok 2465 - $x = Math::BigInt::Subclass->new("123456789123"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2466 - is a valid object ok 2467 - $x = Math::BigInt::Subclass->new("12345678912345"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2468 - is a valid object ok 2469 - $x = Math::BigInt::Subclass->new("1234567891234567"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2470 - is a valid object ok 2471 - $x = Math::BigInt::Subclass->new("123456789123456789"); $y = Math::BigInt::Subclass->new("113"); $x % $y; ok 2472 - is a valid object ok 2473 - $x = Math::BigInt::Subclass->new("-629"); $y = Math::BigInt::Subclass->new("5033"); $x % $y; ok 2474 - is a valid object ok 2475 - $x = Math::BigInt::Subclass->new("111111111111111111111111111111"); $y = Math::BigInt::Subclass->new("111111111111111111111111111111"); $x % $y; ok 2476 - is a valid object ok 2477 - $x = Math::BigInt::Subclass->new("12345678901234567890"); $y = Math::BigInt::Subclass->new("12345678901234567890"); $x % $y; ok 2478 - is a valid object ok 2479 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass::bgcd($x, $y); ok 2480 - is a valid object ok 2481 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass::bgcd($x, $y); ok 2482 - is a valid object ok 2483 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("inf"); Math::BigInt::Subclass::bgcd($x, $y); ok 2484 - is a valid object ok 2485 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("-inf"); Math::BigInt::Subclass::bgcd($x, $y); ok 2486 - is a valid object ok 2487 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("inf"); Math::BigInt::Subclass::bgcd($x, $y); ok 2488 - is a valid object ok 2489 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); Math::BigInt::Subclass::bgcd($x, $y); ok 2490 - is a valid object ok 2491 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); Math::BigInt::Subclass::bgcd($x, $y); ok 2492 - is a valid object ok 2493 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); Math::BigInt::Subclass::bgcd($x, $y); ok 2494 - is a valid object ok 2495 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::bgcd($x, $y); ok 2496 - is a valid object ok 2497 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); Math::BigInt::Subclass::bgcd($x, $y); ok 2498 - is a valid object ok 2499 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::bgcd($x, $y); ok 2500 - is a valid object ok 2501 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); Math::BigInt::Subclass::bgcd($x, $y); ok 2502 - is a valid object ok 2503 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::bgcd($x, $y); ok 2504 - is a valid object ok 2505 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+1"); Math::BigInt::Subclass::bgcd($x, $y); ok 2506 - is a valid object ok 2507 - $x = Math::BigInt::Subclass->new("+2"); $y = Math::BigInt::Subclass->new("+3"); Math::BigInt::Subclass::bgcd($x, $y); ok 2508 - is a valid object ok 2509 - $x = Math::BigInt::Subclass->new("+3"); $y = Math::BigInt::Subclass->new("+2"); Math::BigInt::Subclass::bgcd($x, $y); ok 2510 - is a valid object ok 2511 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("+2"); Math::BigInt::Subclass::bgcd($x, $y); ok 2512 - is a valid object ok 2513 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("-2"); Math::BigInt::Subclass::bgcd($x, $y); ok 2514 - is a valid object ok 2515 - $x = Math::BigInt::Subclass->new("-144"); $y = Math::BigInt::Subclass->new("-60"); Math::BigInt::Subclass::bgcd($x, $y); ok 2516 - is a valid object ok 2517 - $x = Math::BigInt::Subclass->new("144"); $y = Math::BigInt::Subclass->new("-60"); Math::BigInt::Subclass::bgcd($x, $y); ok 2518 - is a valid object ok 2519 - $x = Math::BigInt::Subclass->new("144"); $y = Math::BigInt::Subclass->new("60"); Math::BigInt::Subclass::bgcd($x, $y); ok 2520 - is a valid object ok 2521 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("625"); Math::BigInt::Subclass::bgcd($x, $y); ok 2522 - is a valid object ok 2523 - $x = Math::BigInt::Subclass->new("4096"); $y = Math::BigInt::Subclass->new("81"); Math::BigInt::Subclass::bgcd($x, $y); ok 2524 - is a valid object ok 2525 - $x = Math::BigInt::Subclass->new("1034"); $y = Math::BigInt::Subclass->new("804"); Math::BigInt::Subclass::bgcd($x, $y); ok 2526 - is a valid object ok 2527 - $x = Math::BigInt::Subclass->new("27"); $y = Math::BigInt::Subclass->new("90"); $z = Math::BigInt::Subclass->new("56"); Math::BigInt::Subclass::bgcd($x, $y, $z); ok 2528 - is a valid object ok 2529 - $x = Math::BigInt::Subclass->new("27"); $y = Math::BigInt::Subclass->new("90"); $z = Math::BigInt::Subclass->new("54"); Math::BigInt::Subclass::bgcd($x, $y, $z); ok 2530 - is a valid object ok 2531 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); Math::BigInt::Subclass::blcm($x, $y); ok 2532 - is a valid object ok 2533 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::blcm($x, $y); ok 2534 - is a valid object ok 2535 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("abc"); Math::BigInt::Subclass::blcm($x, $y); ok 2536 - is a valid object ok 2537 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::blcm($x, $y); ok 2538 - is a valid object ok 2539 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass::blcm($x, $y); ok 2540 - is a valid object ok 2541 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("+1"); Math::BigInt::Subclass::blcm($x, $y); ok 2542 - is a valid object ok 2543 - $x = Math::BigInt::Subclass->new("+27"); $y = Math::BigInt::Subclass->new("+90"); Math::BigInt::Subclass::blcm($x, $y); ok 2544 - is a valid object ok 2545 - $x = Math::BigInt::Subclass->new("+1034"); $y = Math::BigInt::Subclass->new("+804"); Math::BigInt::Subclass::blcm($x, $y); ok 2546 - is a valid object ok 2547 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x & $y; ok 2548 - is a valid object ok 2549 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("0"); $x & $y; ok 2550 - is a valid object ok 2551 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("abc"); $x & $y; ok 2552 - is a valid object ok 2553 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x & $y; ok 2554 - is a valid object ok 2555 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("2"); $x & $y; ok 2556 - is a valid object ok 2557 - $x = Math::BigInt::Subclass->new("+8"); $y = Math::BigInt::Subclass->new("+2"); $x & $y; ok 2558 - is a valid object ok 2559 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("0"); $x & $y; ok 2560 - is a valid object ok 2561 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("1"); $x & $y; ok 2562 - is a valid object ok 2563 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("+281474976710656"); $x & $y; ok 2564 - is a valid object ok 2565 - $x = Math::BigInt::Subclass->new("281474976710656"); $y = Math::BigInt::Subclass->new("-1"); $x & $y; ok 2566 - is a valid object ok 2567 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x & $y; ok 2568 - is a valid object ok 2569 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x & $y; ok 2570 - is a valid object ok 2571 - $x = Math::BigInt::Subclass->new("-6"); $y = Math::BigInt::Subclass->new("-6"); $x & $y; ok 2572 - is a valid object ok 2573 - $x = Math::BigInt::Subclass->new("-7"); $y = Math::BigInt::Subclass->new("-4"); $x & $y; ok 2574 - is a valid object ok 2575 - $x = Math::BigInt::Subclass->new("-7"); $y = Math::BigInt::Subclass->new("4"); $x & $y; ok 2576 - is a valid object ok 2577 - $x = Math::BigInt::Subclass->new("-4"); $y = Math::BigInt::Subclass->new("7"); $x & $y; ok 2578 - is a valid object ok 2579 - $x = Math::BigInt::Subclass->new("30"); $y = Math::BigInt::Subclass->new("-3"); $x & $y; ok 2580 - is a valid object ok 2581 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("-1"); $x & $y; ok 2582 - is a valid object ok 2583 - $x = Math::BigInt::Subclass->new("0xFFFF"); $y = Math::BigInt::Subclass->new("0xFFFF"); $x & $y; ok 2584 - is a valid object ok 2585 - $x = Math::BigInt::Subclass->new("0xFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFF"); $x & $y; ok 2586 - is a valid object ok 2587 - $x = Math::BigInt::Subclass->new("0xFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFF"); $x & $y; ok 2588 - is a valid object ok 2589 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $x & $y; ok 2590 - is a valid object ok 2591 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $x & $y; ok 2592 - is a valid object ok 2593 - $x = Math::BigInt::Subclass->new("0xF0F0"); $y = Math::BigInt::Subclass->new("0xF0F0"); $x & $y; ok 2594 - is a valid object ok 2595 - $x = Math::BigInt::Subclass->new("0x0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F"); $x & $y; ok 2596 - is a valid object ok 2597 - $x = Math::BigInt::Subclass->new("0xF0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0"); $x & $y; ok 2598 - is a valid object ok 2599 - $x = Math::BigInt::Subclass->new("0x0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F"); $x & $y; ok 2600 - is a valid object ok 2601 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0"); $x & $y; ok 2602 - is a valid object ok 2603 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F"); $x & $y; ok 2604 - is a valid object ok 2605 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $x & $y; ok 2606 - is a valid object ok 2607 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $x & $y; ok 2608 - is a valid object ok 2609 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x & $y; ok 2610 - is a valid object ok 2611 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $x & $y; ok 2612 - is a valid object ok 2613 - $x = Math::BigInt::Subclass->new("0x1F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x3F0F0F0F0F0F"); $x & $y; ok 2614 - is a valid object ok 2615 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x | $y; ok 2616 - is a valid object ok 2617 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2618 - is a valid object ok 2619 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("abc"); $x | $y; ok 2620 - is a valid object ok 2621 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x | $y; ok 2622 - is a valid object ok 2623 - $x = Math::BigInt::Subclass->new("+8"); $y = Math::BigInt::Subclass->new("+2"); $x | $y; ok 2624 - is a valid object ok 2625 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2626 - is a valid object ok 2627 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("1"); $x | $y; ok 2628 - is a valid object ok 2629 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("281474976710656"); $x | $y; ok 2630 - is a valid object ok 2631 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x | $y; ok 2632 - is a valid object ok 2633 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x | $y; ok 2634 - is a valid object ok 2635 - $x = Math::BigInt::Subclass->new("-6"); $y = Math::BigInt::Subclass->new("-6"); $x | $y; ok 2636 - is a valid object ok 2637 - $x = Math::BigInt::Subclass->new("-7"); $y = Math::BigInt::Subclass->new("4"); $x | $y; ok 2638 - is a valid object ok 2639 - $x = Math::BigInt::Subclass->new("-4"); $y = Math::BigInt::Subclass->new("7"); $x | $y; ok 2640 - is a valid object ok 2641 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("-1"); $x | $y; ok 2642 - is a valid object ok 2643 - $x = Math::BigInt::Subclass->new("30"); $y = Math::BigInt::Subclass->new("-3"); $x | $y; ok 2644 - is a valid object ok 2645 - $x = Math::BigInt::Subclass->new("30"); $y = Math::BigInt::Subclass->new("-4"); $x | $y; ok 2646 - is a valid object ok 2647 - $x = Math::BigInt::Subclass->new("300"); $y = Math::BigInt::Subclass->new("-76"); $x | $y; ok 2648 - is a valid object ok 2649 - $x = Math::BigInt::Subclass->new("-76"); $y = Math::BigInt::Subclass->new("300"); $x | $y; ok 2650 - is a valid object ok 2651 - $x = Math::BigInt::Subclass->new("0xFFFF"); $y = Math::BigInt::Subclass->new("0xFFFF"); $x | $y; ok 2652 - is a valid object ok 2653 - $x = Math::BigInt::Subclass->new("0xFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFF"); $x | $y; ok 2654 - is a valid object ok 2655 - $x = Math::BigInt::Subclass->new("0xFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFF"); $x | $y; ok 2656 - is a valid object ok 2657 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $x | $y; ok 2658 - is a valid object ok 2659 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $x | $y; ok 2660 - is a valid object ok 2661 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFF"); $x | $y; ok 2662 - is a valid object ok 2663 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFF"); $x | $y; ok 2664 - is a valid object ok 2665 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFF"); $x | $y; ok 2666 - is a valid object ok 2667 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $x | $y; ok 2668 - is a valid object ok 2669 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $x | $y; ok 2670 - is a valid object ok 2671 - $x = Math::BigInt::Subclass->new("0xFFFF"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2672 - is a valid object ok 2673 - $x = Math::BigInt::Subclass->new("0xFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2674 - is a valid object ok 2675 - $x = Math::BigInt::Subclass->new("0xFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2676 - is a valid object ok 2677 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2678 - is a valid object ok 2679 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x | $y; ok 2680 - is a valid object ok 2681 - $x = Math::BigInt::Subclass->new("0xF0F0"); $y = Math::BigInt::Subclass->new("0xF0F0"); $x | $y; ok 2682 - is a valid object ok 2683 - $x = Math::BigInt::Subclass->new("0x0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F"); $x | $y; ok 2684 - is a valid object ok 2685 - $x = Math::BigInt::Subclass->new("0xF0F0"); $y = Math::BigInt::Subclass->new("0x0F0F"); $x | $y; ok 2686 - is a valid object ok 2687 - $x = Math::BigInt::Subclass->new("0xF0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0"); $x | $y; ok 2688 - is a valid object ok 2689 - $x = Math::BigInt::Subclass->new("0x0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F"); $x | $y; ok 2690 - is a valid object ok 2691 - $x = Math::BigInt::Subclass->new("0x0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0"); $x | $y; ok 2692 - is a valid object ok 2693 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0"); $x | $y; ok 2694 - is a valid object ok 2695 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F"); $x | $y; ok 2696 - is a valid object ok 2697 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0"); $x | $y; ok 2698 - is a valid object ok 2699 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $x | $y; ok 2700 - is a valid object ok 2701 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $x | $y; ok 2702 - is a valid object ok 2703 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $x | $y; ok 2704 - is a valid object ok 2705 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x | $y; ok 2706 - is a valid object ok 2707 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $x | $y; ok 2708 - is a valid object ok 2709 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x | $y; ok 2710 - is a valid object ok 2711 - $x = Math::BigInt::Subclass->new("0x1F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x | $y; ok 2712 - is a valid object ok 2713 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("abc"); $x ^ $y; ok 2714 - is a valid object ok 2715 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2716 - is a valid object ok 2717 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("abc"); $x ^ $y; ok 2718 - is a valid object ok 2719 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x ^ $y; ok 2720 - is a valid object ok 2721 - $x = Math::BigInt::Subclass->new("+8"); $y = Math::BigInt::Subclass->new("+2"); $x ^ $y; ok 2722 - is a valid object ok 2723 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2724 - is a valid object ok 2725 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("1"); $x ^ $y; ok 2726 - is a valid object ok 2727 - $x = Math::BigInt::Subclass->new("+281474976710656"); $y = Math::BigInt::Subclass->new("281474976710656"); $x ^ $y; ok 2728 - is a valid object ok 2729 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-3"); $x ^ $y; ok 2730 - is a valid object ok 2731 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x ^ $y; ok 2732 - is a valid object ok 2733 - $x = Math::BigInt::Subclass->new("-6"); $y = Math::BigInt::Subclass->new("-6"); $x ^ $y; ok 2734 - is a valid object ok 2735 - $x = Math::BigInt::Subclass->new("-7"); $y = Math::BigInt::Subclass->new("4"); $x ^ $y; ok 2736 - is a valid object ok 2737 - $x = Math::BigInt::Subclass->new("-4"); $y = Math::BigInt::Subclass->new("7"); $x ^ $y; ok 2738 - is a valid object ok 2739 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("-7"); $x ^ $y; ok 2740 - is a valid object ok 2741 - $x = Math::BigInt::Subclass->new("-4"); $y = Math::BigInt::Subclass->new("-7"); $x ^ $y; ok 2742 - is a valid object ok 2743 - $x = Math::BigInt::Subclass->new("30"); $y = Math::BigInt::Subclass->new("-3"); $x ^ $y; ok 2744 - is a valid object ok 2745 - $x = Math::BigInt::Subclass->new("30"); $y = Math::BigInt::Subclass->new("-4"); $x ^ $y; ok 2746 - is a valid object ok 2747 - $x = Math::BigInt::Subclass->new("300"); $y = Math::BigInt::Subclass->new("-76"); $x ^ $y; ok 2748 - is a valid object ok 2749 - $x = Math::BigInt::Subclass->new("-76"); $y = Math::BigInt::Subclass->new("300"); $x ^ $y; ok 2750 - is a valid object ok 2751 - $x = Math::BigInt::Subclass->new("0xFFFF"); $y = Math::BigInt::Subclass->new("0xFFFF"); $x ^ $y; ok 2752 - is a valid object ok 2753 - $x = Math::BigInt::Subclass->new("0xFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFF"); $x ^ $y; ok 2754 - is a valid object ok 2755 - $x = Math::BigInt::Subclass->new("0xFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFF"); $x ^ $y; ok 2756 - is a valid object ok 2757 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $x ^ $y; ok 2758 - is a valid object ok 2759 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2760 - is a valid object ok 2761 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFF"); $x ^ $y; ok 2762 - is a valid object ok 2763 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFF"); $x ^ $y; ok 2764 - is a valid object ok 2765 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFF"); $x ^ $y; ok 2766 - is a valid object ok 2767 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $x ^ $y; ok 2768 - is a valid object ok 2769 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 2770 - is a valid object ok 2771 - $x = Math::BigInt::Subclass->new("0xFFFF"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2772 - is a valid object ok 2773 - $x = Math::BigInt::Subclass->new("0xFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2774 - is a valid object ok 2775 - $x = Math::BigInt::Subclass->new("0xFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2776 - is a valid object ok 2777 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2778 - is a valid object ok 2779 - $x = Math::BigInt::Subclass->new("0xFFFFFFFFFFFF"); $y = Math::BigInt::Subclass->new("0"); $x ^ $y; ok 2780 - is a valid object ok 2781 - $x = Math::BigInt::Subclass->new("0xF0F0"); $y = Math::BigInt::Subclass->new("0xF0F0"); $x ^ $y; ok 2782 - is a valid object ok 2783 - $x = Math::BigInt::Subclass->new("0x0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F"); $x ^ $y; ok 2784 - is a valid object ok 2785 - $x = Math::BigInt::Subclass->new("0xF0F0"); $y = Math::BigInt::Subclass->new("0x0F0F"); $x ^ $y; ok 2786 - is a valid object ok 2787 - $x = Math::BigInt::Subclass->new("0xF0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0"); $x ^ $y; ok 2788 - is a valid object ok 2789 - $x = Math::BigInt::Subclass->new("0x0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F"); $x ^ $y; ok 2790 - is a valid object ok 2791 - $x = Math::BigInt::Subclass->new("0x0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0"); $x ^ $y; ok 2792 - is a valid object ok 2793 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0"); $x ^ $y; ok 2794 - is a valid object ok 2795 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F"); $x ^ $y; ok 2796 - is a valid object ok 2797 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0"); $x ^ $y; ok 2798 - is a valid object ok 2799 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $x ^ $y; ok 2800 - is a valid object ok 2801 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $x ^ $y; ok 2802 - is a valid object ok 2803 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0"); $x ^ $y; ok 2804 - is a valid object ok 2805 - $x = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2806 - is a valid object ok 2807 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $x ^ $y; ok 2808 - is a valid object ok 2809 - $x = Math::BigInt::Subclass->new("0x0F0F0F0F0F0F"); $y = Math::BigInt::Subclass->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 2810 - is a valid object ok 2811 - $x = Math::BigInt::Subclass->new("abc"); $x->bnot(); ok 2812 - is a valid object ok 2813 - $x = Math::BigInt::Subclass->new("+0"); $x->bnot(); ok 2814 - is a valid object ok 2815 - $x = Math::BigInt::Subclass->new("+8"); $x->bnot(); ok 2816 - is a valid object ok 2817 - $x = Math::BigInt::Subclass->new("+281474976710656"); $x->bnot(); ok 2818 - is a valid object ok 2819 - $x = Math::BigInt::Subclass->new("-1"); $x->bnot(); ok 2820 - is a valid object ok 2821 - $x = Math::BigInt::Subclass->new("-2"); $x->bnot(); ok 2822 - is a valid object ok 2823 - $x = Math::BigInt::Subclass->new("-12"); $x->bnot(); ok 2824 - is a valid object ok 2825 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->digit($y); ok 2826 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("0"); $x->digit($y); ok 2827 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("1"); $x->digit($y); ok 2828 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("0"); $x->digit($y); ok 2829 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $x->digit($y); ok 2830 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("2"); $x->digit($y); ok 2831 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("-1"); $x->digit($y); ok 2832 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("-2"); $x->digit($y); ok 2833 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("-3"); $x->digit($y); ok 2834 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("0"); $x->digit($y); ok 2835 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("1"); $x->digit($y); ok 2836 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("2"); $x->digit($y); ok 2837 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("3"); $x->digit($y); ok 2838 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("4"); $x->digit($y); ok 2839 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("5"); $x->digit($y); ok 2840 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("-1"); $x->digit($y); ok 2841 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("-2"); $x->digit($y); ok 2842 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("-3"); $x->digit($y); ok 2843 - $x = Math::BigInt::Subclass->new("100000"); $y = Math::BigInt::Subclass->new("-3"); $x->digit($y); ok 2844 - $x = Math::BigInt::Subclass->new("100000"); $y = Math::BigInt::Subclass->new("0"); $x->digit($y); ok 2845 - $x = Math::BigInt::Subclass->new("100000"); $y = Math::BigInt::Subclass->new("1"); $x->digit($y); ok 2846 - $x = Math::BigInt::Subclass->new("abc"); $x = $x->mantissa()->bstr(); ok 2847 - $x = Math::BigInt::Subclass->new("1e4"); $x = $x->mantissa()->bstr(); ok 2848 - $x = Math::BigInt::Subclass->new("2e0"); $x = $x->mantissa()->bstr(); ok 2849 - $x = Math::BigInt::Subclass->new("123"); $x = $x->mantissa()->bstr(); ok 2850 - $x = Math::BigInt::Subclass->new("-1"); $x = $x->mantissa()->bstr(); ok 2851 - $x = Math::BigInt::Subclass->new("-2"); $x = $x->mantissa()->bstr(); ok 2852 - $x = Math::BigInt::Subclass->new("+inf"); $x = $x->mantissa()->bstr(); ok 2853 - $x = Math::BigInt::Subclass->new("-inf"); $x = $x->mantissa()->bstr(); ok 2854 - $x = Math::BigInt::Subclass->new("abc"); $x = $x->exponent()->bstr(); ok 2855 - $x = Math::BigInt::Subclass->new("1e4"); $x = $x->exponent()->bstr(); ok 2856 - $x = Math::BigInt::Subclass->new("2e0"); $x = $x->exponent()->bstr(); ok 2857 - $x = Math::BigInt::Subclass->new("123"); $x = $x->exponent()->bstr(); ok 2858 - $x = Math::BigInt::Subclass->new("-1"); $x = $x->exponent()->bstr(); ok 2859 - $x = Math::BigInt::Subclass->new("-2"); $x = $x->exponent()->bstr(); ok 2860 - $x = Math::BigInt::Subclass->new("0"); $x = $x->exponent()->bstr(); ok 2861 - $x = Math::BigInt::Subclass->new("+inf"); $x = $x->exponent()->bstr(); ok 2862 - $x = Math::BigInt::Subclass->new("-inf"); $x = $x->exponent()->bstr(); ok 2863 - $x = Math::BigInt::Subclass->new("abc"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2864 - $x = Math::BigInt::Subclass->new("1e4"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2865 - $x = Math::BigInt::Subclass->new("2e0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2866 - $x = Math::BigInt::Subclass->new("123"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2867 - $x = Math::BigInt::Subclass->new("-1"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2868 - $x = Math::BigInt::Subclass->new("-2"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2869 - $x = Math::BigInt::Subclass->new("0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2870 - $x = Math::BigInt::Subclass->new("+inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2871 - $x = Math::BigInt::Subclass->new("-inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 2872 - $x = Math::BigInt::Subclass->new("-1"); $x->bfac(); ok 2873 - is a valid object ok 2874 - $x = Math::BigInt::Subclass->new("NaNfac"); $x->bfac(); ok 2875 - is a valid object ok 2876 - $x = Math::BigInt::Subclass->new("+inf"); $x->bfac(); ok 2877 - is a valid object ok 2878 - $x = Math::BigInt::Subclass->new("-inf"); $x->bfac(); ok 2879 - is a valid object ok 2880 - $x = Math::BigInt::Subclass->new("0"); $x->bfac(); ok 2881 - is a valid object ok 2882 - $x = Math::BigInt::Subclass->new("1"); $x->bfac(); ok 2883 - is a valid object ok 2884 - $x = Math::BigInt::Subclass->new("2"); $x->bfac(); ok 2885 - is a valid object ok 2886 - $x = Math::BigInt::Subclass->new("3"); $x->bfac(); ok 2887 - is a valid object ok 2888 - $x = Math::BigInt::Subclass->new("4"); $x->bfac(); ok 2889 - is a valid object ok 2890 - $x = Math::BigInt::Subclass->new("5"); $x->bfac(); ok 2891 - is a valid object ok 2892 - $x = Math::BigInt::Subclass->new("6"); $x->bfac(); ok 2893 - is a valid object ok 2894 - $x = Math::BigInt::Subclass->new("7"); $x->bfac(); ok 2895 - is a valid object ok 2896 - $x = Math::BigInt::Subclass->new("8"); $x->bfac(); ok 2897 - is a valid object ok 2898 - $x = Math::BigInt::Subclass->new("9"); $x->bfac(); ok 2899 - is a valid object ok 2900 - $x = Math::BigInt::Subclass->new("10"); $x->bfac(); ok 2901 - is a valid object ok 2902 - $x = Math::BigInt::Subclass->new("11"); $x->bfac(); ok 2903 - is a valid object ok 2904 - $x = Math::BigInt::Subclass->new("12"); $x->bfac(); ok 2905 - is a valid object ok 2906 - $x = Math::BigInt::Subclass->new("20"); $x->bfac(); ok 2907 - is a valid object ok 2908 - $x = Math::BigInt::Subclass->new("22"); $x->bfac(); ok 2909 - is a valid object ok 2910 - $x = Math::BigInt::Subclass->new("69"); $x->bfac(); ok 2911 - is a valid object ok 2912 - $x = Math::BigInt::Subclass->new("abc"); $y = Math::BigInt::Subclass->new("12"); $x ** $y; ok 2913 - is a valid object ok 2914 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("abc"); $x ** $y; ok 2915 - is a valid object ok 2916 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 2917 - is a valid object ok 2918 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x ** $y; ok 2919 - is a valid object ok 2920 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 2921 - is a valid object ok 2922 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 2923 - is a valid object ok 2924 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-2"); $x ** $y; ok 2925 - is a valid object ok 2926 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 2927 - is a valid object ok 2928 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x ** $y; ok 2929 - is a valid object ok 2930 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 2931 - is a valid object ok 2932 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 2933 - is a valid object ok 2934 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 2935 - is a valid object ok 2936 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $x ** $y; ok 2937 - is a valid object ok 2938 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-3"); $x ** $y; ok 2939 - is a valid object ok 2940 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 2941 - is a valid object ok 2942 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x ** $y; ok 2943 - is a valid object ok 2944 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 2945 - is a valid object ok 2946 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 2947 - is a valid object ok 2948 - $x = Math::BigInt::Subclass->new("3"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 2949 - is a valid object ok 2950 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 2951 - is a valid object ok 2952 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 2953 - is a valid object ok 2954 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $x ** $y; ok 2955 - is a valid object ok 2956 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); $x ** $y; ok 2957 - is a valid object ok 2958 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 2959 - is a valid object ok 2960 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 2961 - is a valid object ok 2962 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-2"); $x ** $y; ok 2963 - is a valid object ok 2964 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-2"); $x ** $y; ok 2965 - is a valid object ok 2966 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("1234500012"); $x ** $y; ok 2967 - is a valid object ok 2968 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("1234500012"); $x ** $y; ok 2969 - is a valid object ok 2970 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("1234500013"); $x ** $y; ok 2971 - is a valid object ok 2972 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("-12345000123"); $x ** $y; ok 2973 - is a valid object ok 2974 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-12345000123"); $x ** $y; ok 2975 - is a valid object ok 2976 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 2977 - is a valid object ok 2978 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 2979 - is a valid object ok 2980 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 2981 - is a valid object ok 2982 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 2983 - is a valid object ok 2984 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 2985 - is a valid object ok 2986 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 2987 - is a valid object ok 2988 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 2989 - is a valid object ok 2990 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 2991 - is a valid object ok 2992 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 2993 - is a valid object ok 2994 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 2995 - is a valid object ok 2996 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 2997 - is a valid object ok 2998 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 2999 - is a valid object ok 3000 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 3001 - is a valid object ok 3002 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 3003 - is a valid object ok 3004 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaN"); $x ** $y; ok 3005 - is a valid object ok 3006 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("NaN"); $x ** $y; ok 3007 - is a valid object ok 3008 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 3009 - is a valid object ok 3010 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("inf"); $x ** $y; ok 3011 - is a valid object ok 3012 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-inf"); $x ** $y; ok 3013 - is a valid object ok 3014 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 3015 - is a valid object ok 3016 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $x ** $y; ok 3017 - is a valid object ok 3018 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x ** $y; ok 3019 - is a valid object ok 3020 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 3021 - is a valid object ok 3022 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 3023 - is a valid object ok 3024 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("4"); $x ** $y; ok 3025 - is a valid object ok 3026 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); $x ** $y; ok 3027 - is a valid object ok 3028 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-1"); $x ** $y; ok 3029 - is a valid object ok 3030 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-2"); $x ** $y; ok 3031 - is a valid object ok 3032 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-3"); $x ** $y; ok 3033 - is a valid object ok 3034 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-4"); $x ** $y; ok 3035 - is a valid object ok 3036 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 3037 - is a valid object ok 3038 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 3039 - is a valid object ok 3040 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("4"); $x ** $y; ok 3041 - is a valid object ok 3042 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("5"); $x ** $y; ok 3043 - is a valid object ok 3044 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("6"); $x ** $y; ok 3045 - is a valid object ok 3046 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("7"); $x ** $y; ok 3047 - is a valid object ok 3048 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("8"); $x ** $y; ok 3049 - is a valid object ok 3050 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("9"); $x ** $y; ok 3051 - is a valid object ok 3052 - $x = Math::BigInt::Subclass->new("10"); $y = Math::BigInt::Subclass->new("20"); $x ** $y; ok 3053 - is a valid object ok 3054 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 3055 - is a valid object ok 3056 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 3057 - is a valid object ok 3058 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 3059 - is a valid object ok 3060 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("4"); $x ** $y; ok 3061 - is a valid object ok 3062 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("5"); $x ** $y; ok 3063 - is a valid object ok 3064 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("2"); $x ** $y; ok 3065 - is a valid object ok 3066 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("3"); $x ** $y; ok 3067 - is a valid object ok 3068 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("4"); $x ** $y; ok 3069 - is a valid object ok 3070 - $x = Math::BigInt::Subclass->new("-3"); $y = Math::BigInt::Subclass->new("5"); $x ** $y; ok 3071 - is a valid object ok 3072 - $x = Math::BigInt::Subclass->new("100"); $x->length(); ok 3073 - $x = Math::BigInt::Subclass->new("10"); $x->length(); ok 3074 - $x = Math::BigInt::Subclass->new("1"); $x->length(); ok 3075 - $x = Math::BigInt::Subclass->new("0"); $x->length(); ok 3076 - $x = Math::BigInt::Subclass->new("12345"); $x->length(); ok 3077 - $x = Math::BigInt::Subclass->new("10000000000000000"); $x->length(); ok 3078 - $x = Math::BigInt::Subclass->new("-123"); $x->length(); ok 3079 - $x = Math::BigInt::Subclass->new("215960156869840440586892398248"); $x->length(); ok 3080 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3081 - is a valid object ok 3082 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3083 - is a valid object ok 3084 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3085 - is a valid object ok 3086 - $x = Math::BigInt::Subclass->new("-123"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3087 - is a valid object ok 3088 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3089 - is a valid object ok 3090 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3091 - is a valid object ok 3092 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3093 - is a valid object ok 3094 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3095 - is a valid object ok 3096 - $x = Math::BigInt::Subclass->new("4"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3097 - is a valid object ok 3098 - $x = Math::BigInt::Subclass->new("9"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3099 - is a valid object ok 3100 - $x = Math::BigInt::Subclass->new("16"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3101 - is a valid object ok 3102 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3103 - is a valid object ok 3104 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3105 - is a valid object ok 3106 - $x = Math::BigInt::Subclass->new("15241"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3107 - is a valid object ok 3108 - $x = Math::BigInt::Subclass->new("144"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3109 - is a valid object ok 3110 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3111 - is a valid object ok 3112 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("NaN"); $x->broot($y); ok 3113 - is a valid object ok 3114 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("NaN"); $x->broot($y); ok 3115 - is a valid object ok 3116 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("NaN"); $x->broot($y); ok 3117 - is a valid object ok 3118 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->broot($y); ok 3119 - is a valid object ok 3120 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("NaN"); $x->broot($y); ok 3121 - is a valid object ok 3122 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3123 - is a valid object ok 3124 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("2"); $x->broot($y); ok 3125 - is a valid object ok 3126 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("inf"); $x->broot($y); ok 3127 - is a valid object ok 3128 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("inf"); $x->broot($y); ok 3129 - is a valid object ok 3130 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("-inf"); $x->broot($y); ok 3131 - is a valid object ok 3132 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("inf"); $x->broot($y); ok 3133 - is a valid object ok 3134 - $x = Math::BigInt::Subclass->new("+0"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3135 - is a valid object ok 3136 - $x = Math::BigInt::Subclass->new("+1"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3137 - is a valid object ok 3138 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3139 - is a valid object ok 3140 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3141 - is a valid object ok 3142 - $x = Math::BigInt::Subclass->new("-123.45"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3143 - is a valid object ok 3144 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("0"); $x->broot($y); ok 3145 - is a valid object ok 3146 - $x = Math::BigInt::Subclass->new("12"); $y = Math::BigInt::Subclass->new("1"); $x->broot($y); ok 3147 - is a valid object ok 3148 - $x = Math::BigInt::Subclass->new("-12"); $y = Math::BigInt::Subclass->new("1"); $x->broot($y); ok 3149 - is a valid object ok 3150 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("-1"); $x->broot($y); ok 3151 - is a valid object ok 3152 - $x = Math::BigInt::Subclass->new("-8"); $y = Math::BigInt::Subclass->new("-1"); $x->broot($y); ok 3153 - is a valid object ok 3154 - $x = Math::BigInt::Subclass->new("8"); $y = Math::BigInt::Subclass->new("3"); $x->broot($y); ok 3155 - is a valid object ok 3156 - $x = Math::BigInt::Subclass->new("-8"); $y = Math::BigInt::Subclass->new("3"); $x->broot($y); ok 3157 - is a valid object ok 3158 - $x = Math::BigInt::Subclass->new("16"); $y = Math::BigInt::Subclass->new("4"); $x->broot($y); ok 3159 - is a valid object ok 3160 - $x = Math::BigInt::Subclass->new("81"); $y = Math::BigInt::Subclass->new("4"); $x->broot($y); ok 3161 - is a valid object ok 3162 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("4"); $x->broot($y); ok 3163 - is a valid object ok 3164 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("8"); $x->broot($y); ok 3165 - is a valid object ok 3166 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("16"); $x->broot($y); ok 3167 - is a valid object ok 3168 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("32"); $x->broot($y); ok 3169 - is a valid object ok 3170 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("64"); $x->broot($y); ok 3171 - is a valid object ok 3172 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $y = Math::BigInt::Subclass->new("128"); $x->broot($y); ok 3173 - is a valid object ok 3174 - $x = Math::BigInt::Subclass->new("84274086103068221283760416414557757"); $y = Math::BigInt::Subclass->new("15"); $x->broot($y); ok 3175 - is a valid object ok 3176 - $x = Math::BigInt::Subclass->new("145"); $x->bsqrt(); ok 3177 - is a valid object ok 3178 - $x = Math::BigInt::Subclass->new("144"); $x->bsqrt(); ok 3179 - is a valid object ok 3180 - $x = Math::BigInt::Subclass->new("143"); $x->bsqrt(); ok 3181 - is a valid object ok 3182 - $x = Math::BigInt::Subclass->new("16"); $x->bsqrt(); ok 3183 - is a valid object ok 3184 - $x = Math::BigInt::Subclass->new("170"); $x->bsqrt(); ok 3185 - is a valid object ok 3186 - $x = Math::BigInt::Subclass->new("169"); $x->bsqrt(); ok 3187 - is a valid object ok 3188 - $x = Math::BigInt::Subclass->new("168"); $x->bsqrt(); ok 3189 - is a valid object ok 3190 - $x = Math::BigInt::Subclass->new("4"); $x->bsqrt(); ok 3191 - is a valid object ok 3192 - $x = Math::BigInt::Subclass->new("3"); $x->bsqrt(); ok 3193 - is a valid object ok 3194 - $x = Math::BigInt::Subclass->new("2"); $x->bsqrt(); ok 3195 - is a valid object ok 3196 - $x = Math::BigInt::Subclass->new("9"); $x->bsqrt(); ok 3197 - is a valid object ok 3198 - $x = Math::BigInt::Subclass->new("12"); $x->bsqrt(); ok 3199 - is a valid object ok 3200 - $x = Math::BigInt::Subclass->new("256"); $x->bsqrt(); ok 3201 - is a valid object ok 3202 - $x = Math::BigInt::Subclass->new("100000000"); $x->bsqrt(); ok 3203 - is a valid object ok 3204 - $x = Math::BigInt::Subclass->new("4000000000000"); $x->bsqrt(); ok 3205 - is a valid object ok 3206 - $x = Math::BigInt::Subclass->new("152399026"); $x->bsqrt(); ok 3207 - is a valid object ok 3208 - $x = Math::BigInt::Subclass->new("152399025"); $x->bsqrt(); ok 3209 - is a valid object ok 3210 - $x = Math::BigInt::Subclass->new("152399024"); $x->bsqrt(); ok 3211 - is a valid object ok 3212 - $x = Math::BigInt::Subclass->new("18446744073709551616"); $x->bsqrt(); ok 3213 - is a valid object ok 3214 - $x = Math::BigInt::Subclass->new("84274086103068221283760416414557757"); $x->bsqrt(); ok 3215 - is a valid object ok 3216 - $x = Math::BigInt::Subclass->new("1"); $x->bsqrt(); ok 3217 - is a valid object ok 3218 - $x = Math::BigInt::Subclass->new("0"); $x->bsqrt(); ok 3219 - is a valid object ok 3220 - $x = Math::BigInt::Subclass->new("-2"); $x->bsqrt(); ok 3221 - is a valid object ok 3222 - $x = Math::BigInt::Subclass->new("-123"); $x->bsqrt(); ok 3223 - is a valid object ok 3224 - $x = Math::BigInt::Subclass->new("Nan"); $x->bsqrt(); ok 3225 - is a valid object ok 3226 - $x = Math::BigInt::Subclass->new("+inf"); $x->bsqrt(); ok 3227 - is a valid object ok 3228 - $x = Math::BigInt::Subclass->new("-inf"); $x->bsqrt(); ok 3229 - is a valid object ok 3230 - $x = Math::BigInt::Subclass->new("NaN"); $x->bexp(); ok 3231 - is a valid object ok 3232 - $x = Math::BigInt::Subclass->new("inf"); $x->bexp(); ok 3233 - is a valid object ok 3234 - $x = Math::BigInt::Subclass->new("1"); $x->bexp(); ok 3235 - is a valid object ok 3236 - $x = Math::BigInt::Subclass->new("2"); $x->bexp(); ok 3237 - is a valid object ok 3238 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("1"); $x->batan2($y); ok 3239 - is a valid object ok 3240 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("NaN"); $x->batan2($y); ok 3241 - is a valid object ok 3242 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("NaN"); $x->batan2($y); ok 3243 - is a valid object ok 3244 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("1"); $x->batan2($y); ok 3245 - is a valid object ok 3246 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("1"); $x->batan2($y); ok 3247 - is a valid object ok 3248 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("-inf"); $x->batan2($y); ok 3249 - is a valid object ok 3250 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("-inf"); $x->batan2($y); ok 3251 - is a valid object ok 3252 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-inf"); $x->batan2($y); ok 3253 - is a valid object ok 3254 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("inf"); $x->batan2($y); ok 3255 - is a valid object ok 3256 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->batan2($y); ok 3257 - is a valid object ok 3258 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("-inf"); $x->batan2($y); ok 3259 - is a valid object ok 3260 - $x = Math::BigInt::Subclass->new("inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->batan2($y); ok 3261 - is a valid object ok 3262 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("+inf"); $x->batan2($y); ok 3263 - is a valid object ok 3264 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->batan2($y); ok 3265 - is a valid object ok 3266 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->batan2($y); ok 3267 - is a valid object ok 3268 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3269 - is a valid object ok 3270 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("1"); $x->batan2($y); ok 3271 - is a valid object ok 3272 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("2"); $x->batan2($y); ok 3273 - is a valid object ok 3274 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3275 - is a valid object ok 3276 - $x = Math::BigInt::Subclass->new("5"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3277 - is a valid object ok 3278 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3279 - is a valid object ok 3280 - $x = Math::BigInt::Subclass->new("-2"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3281 - is a valid object ok 3282 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $x->batan2($y); ok 3283 - is a valid object ok 3284 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("5"); $x->batan2($y); ok 3285 - is a valid object ok 3286 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("5"); $x->batan2($y); ok 3287 - is a valid object ok 3288 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("8"); $x->batan2($y); ok 3289 - is a valid object ok 3290 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("8"); $x->batan2($y); ok 3291 - is a valid object ok 3292 - $x = Math::BigInt::Subclass->new("-1"); $y = Math::BigInt::Subclass->new("1"); $x->batan2($y); ok 3293 - is a valid object ok 3294 - $x = Math::BigInt::Subclass->new("77"); Math::BigInt::Subclass->bpi($x); ok 3295 - is a valid object ok 3296 - $x = Math::BigInt::Subclass->new("+0"); Math::BigInt::Subclass->bpi($x); ok 3297 - is a valid object ok 3298 - $x = Math::BigInt::Subclass->new("11"); Math::BigInt::Subclass->bpi($x); ok 3299 - is a valid object ok 3300 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("10"); $x->bnok($y); ok 3301 - is a valid object ok 3302 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("NaN"); $x->bnok($y); ok 3303 - is a valid object ok 3304 - $x = Math::BigInt::Subclass->new("NaN"); $y = Math::BigInt::Subclass->new("1"); $x->bnok($y); ok 3305 - is a valid object ok 3306 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("NaN"); $x->bnok($y); ok 3307 - is a valid object ok 3308 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("1"); $x->bnok($y); ok 3309 - is a valid object ok 3310 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("2"); $x->bnok($y); ok 3311 - is a valid object ok 3312 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $x->bnok($y); ok 3313 - is a valid object ok 3314 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("-2"); $x->bnok($y); ok 3315 - is a valid object ok 3316 - $x = Math::BigInt::Subclass->new("7"); $y = Math::BigInt::Subclass->new("3"); $x->bnok($y); ok 3317 - is a valid object ok 3318 - $x = Math::BigInt::Subclass->new("7"); $y = Math::BigInt::Subclass->new("6"); $x->bnok($y); ok 3319 - is a valid object ok 3320 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("90"); $x->bnok($y); ok 3321 - is a valid object ok 3322 - $x = Math::BigInt::Subclass->new("100"); $y = Math::BigInt::Subclass->new("95"); $x->bnok($y); ok 3323 - is a valid object ok 3324 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $x->bnok($y); ok 3325 - is a valid object ok 3326 - $x = Math::BigInt::Subclass->new("7"); $y = Math::BigInt::Subclass->new("0"); $x->bnok($y); ok 3327 - is a valid object ok 3328 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("1"); $x->bnok($y); ok 3329 - is a valid object ok 3330 - $x = Math::BigInt::Subclass->new("0"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3331 - is a valid object ok 3332 - $x = Math::BigInt::Subclass->new("NaNbround"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3333 - is a valid object ok 3334 - $x = Math::BigInt::Subclass->new("+inf"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3335 - is a valid object ok 3336 - $x = Math::BigInt::Subclass->new("-inf"); $y = Math::BigInt::Subclass->new("12"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3337 - is a valid object ok 3338 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3339 - is a valid object ok 3340 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("2"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3341 - is a valid object ok 3342 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3343 - is a valid object ok 3344 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3345 - is a valid object ok 3346 - $x = Math::BigInt::Subclass->new("123456"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3347 - is a valid object ok 3348 - $x = Math::BigInt::Subclass->new("+10123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3349 - is a valid object ok 3350 - $x = Math::BigInt::Subclass->new("-10123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3351 - is a valid object ok 3352 - $x = Math::BigInt::Subclass->new("+10123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3353 - is a valid object ok 3354 - $x = Math::BigInt::Subclass->new("-10123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3355 - is a valid object ok 3356 - $x = Math::BigInt::Subclass->new("+101234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3357 - is a valid object ok 3358 - $x = Math::BigInt::Subclass->new("-101234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("trunc"); $x->bround($y); ok 3359 - is a valid object ok 3360 - $x = Math::BigInt::Subclass->new("+20123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3361 - is a valid object ok 3362 - $x = Math::BigInt::Subclass->new("-20123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3363 - is a valid object ok 3364 - $x = Math::BigInt::Subclass->new("+20123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3365 - is a valid object ok 3366 - $x = Math::BigInt::Subclass->new("-20123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3367 - is a valid object ok 3368 - $x = Math::BigInt::Subclass->new("+201234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3369 - is a valid object ok 3370 - $x = Math::BigInt::Subclass->new("-201234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3371 - is a valid object ok 3372 - $x = Math::BigInt::Subclass->new("+12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3373 - is a valid object ok 3374 - $x = Math::BigInt::Subclass->new("-12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("zero"); $x->bround($y); ok 3375 - is a valid object ok 3376 - $x = Math::BigInt::Subclass->new("+30123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3377 - is a valid object ok 3378 - $x = Math::BigInt::Subclass->new("-30123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3379 - is a valid object ok 3380 - $x = Math::BigInt::Subclass->new("+30123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3381 - is a valid object ok 3382 - $x = Math::BigInt::Subclass->new("-30123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3383 - is a valid object ok 3384 - $x = Math::BigInt::Subclass->new("+301234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3385 - is a valid object ok 3386 - $x = Math::BigInt::Subclass->new("-301234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3387 - is a valid object ok 3388 - $x = Math::BigInt::Subclass->new("+12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3389 - is a valid object ok 3390 - $x = Math::BigInt::Subclass->new("-12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("+inf"); $x->bround($y); ok 3391 - is a valid object ok 3392 - $x = Math::BigInt::Subclass->new("+40123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3393 - is a valid object ok 3394 - $x = Math::BigInt::Subclass->new("-40123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3395 - is a valid object ok 3396 - $x = Math::BigInt::Subclass->new("+40123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3397 - is a valid object ok 3398 - $x = Math::BigInt::Subclass->new("-40123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3399 - is a valid object ok 3400 - $x = Math::BigInt::Subclass->new("+401234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3401 - is a valid object ok 3402 - $x = Math::BigInt::Subclass->new("+401234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3403 - is a valid object ok 3404 - $x = Math::BigInt::Subclass->new("+12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3405 - is a valid object ok 3406 - $x = Math::BigInt::Subclass->new("-12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("-inf"); $x->bround($y); ok 3407 - is a valid object ok 3408 - $x = Math::BigInt::Subclass->new("+50123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3409 - is a valid object ok 3410 - $x = Math::BigInt::Subclass->new("-50123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3411 - is a valid object ok 3412 - $x = Math::BigInt::Subclass->new("+50123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3413 - is a valid object ok 3414 - $x = Math::BigInt::Subclass->new("-50123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3415 - is a valid object ok 3416 - $x = Math::BigInt::Subclass->new("+501234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3417 - is a valid object ok 3418 - $x = Math::BigInt::Subclass->new("-501234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3419 - is a valid object ok 3420 - $x = Math::BigInt::Subclass->new("+12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3421 - is a valid object ok 3422 - $x = Math::BigInt::Subclass->new("-12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("odd"); $x->bround($y); ok 3423 - is a valid object ok 3424 - $x = Math::BigInt::Subclass->new("+60123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3425 - is a valid object ok 3426 - $x = Math::BigInt::Subclass->new("-60123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3427 - is a valid object ok 3428 - $x = Math::BigInt::Subclass->new("+60123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3429 - is a valid object ok 3430 - $x = Math::BigInt::Subclass->new("-60123456789"); $y = Math::BigInt::Subclass->new("9"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3431 - is a valid object ok 3432 - $x = Math::BigInt::Subclass->new("+601234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3433 - is a valid object ok 3434 - $x = Math::BigInt::Subclass->new("-601234500"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3435 - is a valid object ok 3436 - $x = Math::BigInt::Subclass->new("+1234567"); $y = Math::BigInt::Subclass->new("7"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3437 - is a valid object ok 3438 - $x = Math::BigInt::Subclass->new("+1234567"); $y = Math::BigInt::Subclass->new("6"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3439 - is a valid object ok 3440 - $x = Math::BigInt::Subclass->new("+12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3441 - is a valid object ok 3442 - $x = Math::BigInt::Subclass->new("-12345000"); $y = Math::BigInt::Subclass->new("4"); Math::BigInt::Subclass->round_mode("even"); $x->bround($y); ok 3443 - is a valid object ok 3444 - $x = Math::BigInt::Subclass->new("+60123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3445 - is a valid object ok 3446 - $x = Math::BigInt::Subclass->new("+60123199999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3447 - is a valid object ok 3448 - $x = Math::BigInt::Subclass->new("+60123299999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3449 - is a valid object ok 3450 - $x = Math::BigInt::Subclass->new("+60123399999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3451 - is a valid object ok 3452 - $x = Math::BigInt::Subclass->new("+60123499999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3453 - is a valid object ok 3454 - $x = Math::BigInt::Subclass->new("+60123500000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3455 - is a valid object ok 3456 - $x = Math::BigInt::Subclass->new("+60123600000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3457 - is a valid object ok 3458 - $x = Math::BigInt::Subclass->new("+60123700000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3459 - is a valid object ok 3460 - $x = Math::BigInt::Subclass->new("+60123800000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3461 - is a valid object ok 3462 - $x = Math::BigInt::Subclass->new("+60123900000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3463 - is a valid object ok 3464 - $x = Math::BigInt::Subclass->new("-60123456789"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3465 - is a valid object ok 3466 - $x = Math::BigInt::Subclass->new("-60123199999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3467 - is a valid object ok 3468 - $x = Math::BigInt::Subclass->new("-60123299999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3469 - is a valid object ok 3470 - $x = Math::BigInt::Subclass->new("-60123399999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3471 - is a valid object ok 3472 - $x = Math::BigInt::Subclass->new("-60123499999"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3473 - is a valid object ok 3474 - $x = Math::BigInt::Subclass->new("-60123500000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3475 - is a valid object ok 3476 - $x = Math::BigInt::Subclass->new("-60123600000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3477 - is a valid object ok 3478 - $x = Math::BigInt::Subclass->new("-60123700000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3479 - is a valid object ok 3480 - $x = Math::BigInt::Subclass->new("-60123800000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3481 - is a valid object ok 3482 - $x = Math::BigInt::Subclass->new("-60123900000"); $y = Math::BigInt::Subclass->new("5"); Math::BigInt::Subclass->round_mode("common"); $x->bround($y); ok 3483 - is a valid object ok 3484 - $x = Math::BigInt::Subclass->new("0"); $x->is_zero() || 0; ok 3485 - $x = Math::BigInt::Subclass->new("NaNzero"); $x->is_zero() || 0; ok 3486 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_zero() || 0; ok 3487 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_zero() || 0; ok 3488 - $x = Math::BigInt::Subclass->new("123"); $x->is_zero() || 0; ok 3489 - $x = Math::BigInt::Subclass->new("-1"); $x->is_zero() || 0; ok 3490 - $x = Math::BigInt::Subclass->new("1"); $x->is_zero() || 0; ok 3491 - $x = Math::BigInt::Subclass->new("0"); $x->is_one() || 0; ok 3492 - $x = Math::BigInt::Subclass->new("NaNone"); $x->is_one() || 0; ok 3493 - $x = Math::BigInt::Subclass->new("+inf"); $x->is_one() || 0; ok 3494 - $x = Math::BigInt::Subclass->new("-inf"); $x->is_one() || 0; ok 3495 - $x = Math::BigInt::Subclass->new("1"); $x->is_one() || 0; ok 3496 - $x = Math::BigInt::Subclass->new("2"); $x->is_one() || 0; ok 3497 - $x = Math::BigInt::Subclass->new("-1"); $x->is_one() || 0; ok 3498 - $x = Math::BigInt::Subclass->new("-2"); $x->is_one() || 0; ok 3499 - $x = Math::BigInt::Subclass->new("0"); $x->bfloor(); ok 3500 - is a valid object ok 3501 - $x = Math::BigInt::Subclass->new("NaNfloor"); $x->bfloor(); ok 3502 - is a valid object ok 3503 - $x = Math::BigInt::Subclass->new("+inf"); $x->bfloor(); ok 3504 - is a valid object ok 3505 - $x = Math::BigInt::Subclass->new("-inf"); $x->bfloor(); ok 3506 - is a valid object ok 3507 - $x = Math::BigInt::Subclass->new("-1"); $x->bfloor(); ok 3508 - is a valid object ok 3509 - $x = Math::BigInt::Subclass->new("-2"); $x->bfloor(); ok 3510 - is a valid object ok 3511 - $x = Math::BigInt::Subclass->new("2"); $x->bfloor(); ok 3512 - is a valid object ok 3513 - $x = Math::BigInt::Subclass->new("3"); $x->bfloor(); ok 3514 - is a valid object ok 3515 - $x = Math::BigInt::Subclass->new("abc"); $x->bfloor(); ok 3516 - is a valid object ok 3517 - $x = Math::BigInt::Subclass->new("NaNceil"); $x->bceil(); ok 3518 - is a valid object ok 3519 - $x = Math::BigInt::Subclass->new("+inf"); $x->bceil(); ok 3520 - is a valid object ok 3521 - $x = Math::BigInt::Subclass->new("-inf"); $x->bceil(); ok 3522 - is a valid object ok 3523 - $x = Math::BigInt::Subclass->new("0"); $x->bceil(); ok 3524 - is a valid object ok 3525 - $x = Math::BigInt::Subclass->new("-1"); $x->bceil(); ok 3526 - is a valid object ok 3527 - $x = Math::BigInt::Subclass->new("-2"); $x->bceil(); ok 3528 - is a valid object ok 3529 - $x = Math::BigInt::Subclass->new("2"); $x->bceil(); ok 3530 - is a valid object ok 3531 - $x = Math::BigInt::Subclass->new("3"); $x->bceil(); ok 3532 - is a valid object ok 3533 - $x = Math::BigInt::Subclass->new("abc"); $x->bceil(); ok 3534 - is a valid object ok 3535 - $x = Math::BigInt::Subclass->new("NaN"); $x->bint(); ok 3536 - is a valid object ok 3537 - $x = Math::BigInt::Subclass->new("+inf"); $x->bint(); ok 3538 - is a valid object ok 3539 - $x = Math::BigInt::Subclass->new("-inf"); $x->bint(); ok 3540 - is a valid object ok 3541 - $x = Math::BigInt::Subclass->new("0"); $x->bint(); ok 3542 - is a valid object ok 3543 - $x = Math::BigInt::Subclass->new("-1"); $x->bint(); ok 3544 - is a valid object ok 3545 - $x = Math::BigInt::Subclass->new("-2"); $x->bint(); ok 3546 - is a valid object ok 3547 - $x = Math::BigInt::Subclass->new("2"); $x->bint(); ok 3548 - is a valid object ok 3549 - $x = Math::BigInt::Subclass->new("3"); $x->bint(); ok 3550 - is a valid object ok 3551 - $x = Math::BigInt::Subclass->new("128"); $x->as_hex(); ok 3552 - $x = Math::BigInt::Subclass->new("-128"); $x->as_hex(); ok 3553 - $x = Math::BigInt::Subclass->new("0"); $x->as_hex(); ok 3554 - $x = Math::BigInt::Subclass->new("-0"); $x->as_hex(); ok 3555 - $x = Math::BigInt::Subclass->new("1"); $x->as_hex(); ok 3556 - $x = Math::BigInt::Subclass->new("0x123456789123456789"); $x->as_hex(); ok 3557 - $x = Math::BigInt::Subclass->new("+inf"); $x->as_hex(); ok 3558 - $x = Math::BigInt::Subclass->new("-inf"); $x->as_hex(); ok 3559 - $x = Math::BigInt::Subclass->new("NaNas_hex"); $x->as_hex(); ok 3560 - $x = Math::BigInt::Subclass->new("128"); $x->as_bin(); ok 3561 - $x = Math::BigInt::Subclass->new("-128"); $x->as_bin(); ok 3562 - $x = Math::BigInt::Subclass->new("0"); $x->as_bin(); ok 3563 - $x = Math::BigInt::Subclass->new("-0"); $x->as_bin(); ok 3564 - $x = Math::BigInt::Subclass->new("1"); $x->as_bin(); ok 3565 - $x = Math::BigInt::Subclass->new("0b1010111101010101010110110110110110101"); $x->as_bin(); ok 3566 - $x = Math::BigInt::Subclass->new("0x123456789123456789"); $x->as_bin(); ok 3567 - $x = Math::BigInt::Subclass->new("+inf"); $x->as_bin(); ok 3568 - $x = Math::BigInt::Subclass->new("-inf"); $x->as_bin(); ok 3569 - $x = Math::BigInt::Subclass->new("NaNas_bin"); $x->as_bin(); ok 3570 - $x = Math::BigInt::Subclass->new("128"); $x->as_oct(); ok 3571 - $x = Math::BigInt::Subclass->new("-128"); $x->as_oct(); ok 3572 - $x = Math::BigInt::Subclass->new("0"); $x->as_oct(); ok 3573 - $x = Math::BigInt::Subclass->new("-0"); $x->as_oct(); ok 3574 - $x = Math::BigInt::Subclass->new("1"); $x->as_oct(); ok 3575 - $x = Math::BigInt::Subclass->new("0b1010111101010101010110110110110110101"); $x->as_oct(); ok 3576 - $x = Math::BigInt::Subclass->new("0x123456789123456789"); $x->as_oct(); ok 3577 - $x = Math::BigInt::Subclass->new("+inf"); $x->as_oct(); ok 3578 - $x = Math::BigInt::Subclass->new("-inf"); $x->as_oct(); ok 3579 - $x = Math::BigInt::Subclass->new("NaNas_oct"); $x->as_oct(); ok 3580 - $x = Math::BigInt::Subclass->new("-1"); $x = log($x); ok 3581 - is a valid object ok 3582 - $x = Math::BigInt::Subclass->new("0"); $x = log($x); ok 3583 - is a valid object ok 3584 - $x = Math::BigInt::Subclass->new("1"); $x = log($x); ok 3585 - is a valid object ok 3586 - $x = Math::BigInt::Subclass->new("2"); $x = log($x); ok 3587 - is a valid object ok 3588 - $x = Math::BigInt::Subclass->new("3"); $x = log($x); ok 3589 - is a valid object ok 3590 - $x = Math::BigInt::Subclass->new("123456789"); $x = log($x); ok 3591 - is a valid object ok 3592 - $x = Math::BigInt::Subclass->new("1234567890987654321"); $x = log($x); ok 3593 - is a valid object ok 3594 - $x = Math::BigInt::Subclass->new("-inf"); $x = log($x); ok 3595 - is a valid object ok 3596 - $x = Math::BigInt::Subclass->new("inf"); $x = log($x); ok 3597 - is a valid object ok 3598 - $x = Math::BigInt::Subclass->new("NaN"); $x = log($x); ok 3599 - is a valid object ok 3600 - $x = Math::BigInt::Subclass->new("4294967296"); $a = $x->bmul($x); ok 3601 - $x = Math::BigInt::Subclass->new(10); $a = $x->bpow($x); ok 3602 - $z = $x & $y; $x ok 3603 - $z = $x & $y; $y ok 3604 - $z = $x & $y; $z ok 3605 - $z = $x | $y; $x ok 3606 - $z = $x | $y; $y ok 3607 - $z = $x | $y; $z ok 3608 - $z = $x | $y; $x ok 3609 - $z = $x | $y; $y ok 3610 - $z = $x | $y; $z ok 3611 - $z = $x ^ $y; $x ok 3612 - $z = $x ^ $y; $y ok 3613 - $z = $x ^ $y; $z ok 3614 - $y = -$x; $x ok 3615 - $y = abs($x); $x ok 3616 - $x->copy()->bmodpow($y, $z); $u ok 3617 - $x->copy()->bmodpow($y, $z); $y ok 3618 - $x->copy()->bmodpow($y, $z); $z ok 3619 - $y = -$x; $x ok 3620 - $y = -$x; $y ok 3621 - $y = $x->copy()->bneg(); $x ok 3622 - $y = $x->copy()->bneg(); $y ok 3623 - $x->bmul($y); $x ok 3624 - $x->bmul($y); $y ok 3625 - $x->badd($y); $x ok 3626 - $x->badd($y); $y ok 3627 - $x->bsub($y); $x ok 3628 - $x->bsub($y); $y ok 3629 - $x->bdiv($y); $x ok 3630 - $x->bdiv($y); $y ok 3631 - $x->bmod($y); $x ok 3632 - $x->bmod($y); $y ok 3633 - $x->bmul($y); $x ok 3634 - $x->bmul($y); $y ok 3635 - $x->badd($y); $x ok 3636 - $x->badd($y); $y ok 3637 - $x->bsub($y); $x ok 3638 - $x->bsub($y); $y ok 3639 - $x->bdiv($y); $x ok 3640 - $x->bdiv($y); $y ok 3641 - $x->bmod($y); $x ok 3642 - $x->bmod($y); $y ok 3643 - $x->bmul($y); $x ok 3644 - $x->bmul($y); $y ok 3645 - $x->badd($y); $x ok 3646 - $x->badd($y); $y ok 3647 - $x->bsub($y); $x ok 3648 - $x->bsub($y); $y ok 3649 - $x->bdiv($y); $x ok 3650 - $x->bdiv($y); $y ok 3651 - $x->bmod($y); $x ok 3652 - $x->bmod($y); $y ok 3653 - overloading cmp works ok 3654 - $x = Math::BigInt::Subclass->new(10); $x = 2 ** $x; $x == 1024; ok 3655 - $x = Math::BigInt::Subclass->new(10); $x = 2 * $x; $x == 20; ok 3656 - $x = Math::BigInt::Subclass->new(10); $x = 2 + $x; $x == 12; ok 3657 - $x = Math::BigInt::Subclass->new(10); $x = 2 - $x; $x == -8; ok 3658 - $x = Math::BigInt::Subclass->new(10); $x = 20 / $x; $x == 2; ok 3659 - $x = Math::BigInt::Subclass->new(3); $x = 20 % $x; $x == 2; ok 3660 - $x = Math::BigInt::Subclass->new(7); $x = 20 & $x; $x == 4; ok 3661 - $x = Math::BigInt::Subclass->new(7); $x = 0x20 | $x; $x == 0x27; ok 3662 - $x = Math::BigInt::Subclass->new(7); $x = 0x20 ^ $x; $x == 0x27; ok 3663 - $x = Math::BigInt::Subclass->badd(4, 5); $x == 9; ok 3664 - $x = Math::BigInt::Subclass->new(1); $x is true ok 3665 - $x = Math::BigInt::Subclass->new(0); !$x is false ok 3666 - objectify(2, 4, 5) gives Math::BigInt::Subclass, 4, 5 ok 3667 - first arg matches /^Math::BigInt/ ok 3668 - second arg is 4 ok 3669 - third arg is 5 ok 3670 - objectify(0, 4, 5) gives Math::BigInt::Subclass, 4, 5 ok 3671 - first arg matches /^Math::BigInt/ ok 3672 - second arg is 4 ok 3673 - third arg is 5 ok 3674 - objectify(2, 4, 5) gives Math::BigInt::Subclass, 4, 5 ok 3675 - first arg matches /^Math::BigInt/ ok 3676 - second arg is 4 ok 3677 - third arg is 5 ok 3678 - objectify(2, 4, 5, 6, 7) gives Math::BigInt::Subclass, 4, 5, 6, 7 ok 3679 - first arg matches /^Math::BigInt/ ok 3680 - second arg is 4 ok 3681 - second arg is a Math::BigInt object ok 3682 - third arg is 5 ok 3683 - third arg is a Math::BigInt object ok 3684 - fourth arg is 6 ok 3685 - fourth arg is a scalar ok 3686 - fifth arg is 7 ok 3687 - fifth arg is a scalar ok 3688 - objectify(2, Math::BigInt::Subclass, 4, 5, 6, 7) gives Math::BigInt::Subclass, 4, 5, 6, 7 ok 3689 - first arg is Math::BigInt::Subclass ok 3690 - second arg is 4 ok 3691 - second arg is a Math::BigInt::Subclass object ok 3692 - third arg is 5 ok 3693 - third arg is a Math::BigInt::Subclass object ok 3694 - fourth arg is 6 ok 3695 - fourth arg is a scalar ok 3696 - fifth arg is 7 ok 3697 - fifth arg is a scalar ok 3698 - Math::BigInt::Subclass->new(123)->badd(123) = 246 ok 3699 - Math::BigInt::Subclass->badd(123, 321) = 444 ok 3700 - Math::BigInt::Subclass->badd(123, Math::BigInt::Subclass->new(321)) = 444 ok 3701 - Math::BigInt::Subclass->new(123)->bsub(122) = 1 ok 3702 - Math::BigInt::Subclass->bsub(321, 123) = 198 ok 3703 - Math::BigInt::Subclass->bsub(321, Math::BigInt::Subclass->new(123)) = 198 ok 3704 - Math::BigInt::Subclass->new(123)->bmul(123) = 15129 ok 3705 - Math::BigInt::Subclass->bmul(123, 123) = 15129 ok 3706 - Math::BigInt::Subclass->bmul(123, Math::BigInt::Subclass->new(123)) = 15129 ok 3707 - Math::BigInt::Subclass->new(15129)->bdiv(123) = 123 ok 3708 - Math::BigInt::Subclass->bdiv(15129, 123) = 123 ok 3709 - Math::BigInt::Subclass->bdiv(15129, Math::BigInt::Subclass->new(123)) = 123 ok 3710 - Math::BigInt::Subclass->new(15131)->bmod(123) = 2 ok 3711 - Math::BigInt::Subclass->bmod(15131, 123) = 2 ok 3712 - Math::BigInt::Subclass->bmod(15131, Math::BigInt::Subclass->new(123)) = 2 ok 3713 - Math::BigInt::Subclass->new(2)->bpow(16) = 65536 ok 3714 - Math::BigInt::Subclass->bpow(2, 16) = 65536 ok 3715 - Math::BigInt::Subclass->bpow(2, Math::BigInt::Subclass->new(16)) = 65536 ok 3716 - Math::BigInt::Subclass->new(2**15)->brsft(1) = 2**14 ok 3717 - Math::BigInt::Subclass->brsft(2**15, 1) = 2**14 ok 3718 - Math::BigInt::Subclass->brsft(2**15, Math::BigInt::Subclass->new(1)) = 2**14 ok 3719 - Math::BigInt::Subclass->new(2**13)->blsft(1) = 2**14 ok 3720 - Math::BigInt::Subclass->blsft(2**13, 1) = 2**14 ok 3721 - Math::BigInt::Subclass->blsft(2**13, Math::BigInt::Subclass->new(1)) = 2**14 ok 3722 - $x = Math::BigInt::Subclass->new(1050000000000000); $x->bsstr() = "105e+13" ok 3723 - $x = Math::BigInt::Subclass->new(1e+129); $x->bsstr() = "1e+129" ok 3724 - Math::BigInt::Subclass->new("1") = 1 ok 3725 - Math::BigInt::Subclass->new(" 1") = 1 ok 3726 - Math::BigInt::Subclass->new("1 ") = 1 ok 3727 - Math::BigInt::Subclass->new(" 1 ") = 1 ok 3728 - Math::BigInt::Subclass->new("\n1") = 1 ok 3729 - Math::BigInt::Subclass->new("1\n") = 1 ok 3730 - Math::BigInt::Subclass->new("\n1\n") = 1 ok 3731 - Math::BigInt::Subclass->new(" \n1\n") = 1 ok 3732 - Math::BigInt::Subclass->new(" \n1 \n") = 1 ok 3733 - Math::BigInt::Subclass->new(" \n1\n ") = 1 ok 3734 - Math::BigInt::Subclass->new(" \n1\n1") = 'NaN' ok 3735 - Math::BigInt::Subclass->new("1 \n1\n1") = 'NaN' ok 3736 - Math::BigInt::Subclass->new("12") = 12 ok 3737 - Math::BigInt::Subclass->new(" 12") = 12 ok 3738 - Math::BigInt::Subclass->new("12 ") = 12 ok 3739 - Math::BigInt::Subclass->new(" 12 ") = 12 ok 3740 - Math::BigInt::Subclass->new("\n12") = 12 ok 3741 - Math::BigInt::Subclass->new("12\n") = 12 ok 3742 - Math::BigInt::Subclass->new("\n12\n") = 12 ok 3743 - Math::BigInt::Subclass->new(" \n12\n") = 12 ok 3744 - Math::BigInt::Subclass->new(" \n12 \n") = 12 ok 3745 - Math::BigInt::Subclass->new(" \n12\n ") = 12 ok 3746 - Math::BigInt::Subclass->new(" \n12\n1") = 'NaN' ok 3747 - Math::BigInt::Subclass->new("1 \n12\n1") = 'NaN' ok 3748 - Math::BigInt::Subclass->new("123") = 123 ok 3749 - Math::BigInt::Subclass->new(" 123") = 123 ok 3750 - Math::BigInt::Subclass->new("123 ") = 123 ok 3751 - Math::BigInt::Subclass->new(" 123 ") = 123 ok 3752 - Math::BigInt::Subclass->new("\n123") = 123 ok 3753 - Math::BigInt::Subclass->new("123\n") = 123 ok 3754 - Math::BigInt::Subclass->new("\n123\n") = 123 ok 3755 - Math::BigInt::Subclass->new(" \n123\n") = 123 ok 3756 - Math::BigInt::Subclass->new(" \n123 \n") = 123 ok 3757 - Math::BigInt::Subclass->new(" \n123\n ") = 123 ok 3758 - Math::BigInt::Subclass->new(" \n123\n1") = 'NaN' ok 3759 - Math::BigInt::Subclass->new("1 \n123\n1") = 'NaN' ok 3760 - Math::BigInt::Subclass->new("1234") = 1234 ok 3761 - Math::BigInt::Subclass->new(" 1234") = 1234 ok 3762 - Math::BigInt::Subclass->new("1234 ") = 1234 ok 3763 - Math::BigInt::Subclass->new(" 1234 ") = 1234 ok 3764 - Math::BigInt::Subclass->new("\n1234") = 1234 ok 3765 - Math::BigInt::Subclass->new("1234\n") = 1234 ok 3766 - Math::BigInt::Subclass->new("\n1234\n") = 1234 ok 3767 - Math::BigInt::Subclass->new(" \n1234\n") = 1234 ok 3768 - Math::BigInt::Subclass->new(" \n1234 \n") = 1234 ok 3769 - Math::BigInt::Subclass->new(" \n1234\n ") = 1234 ok 3770 - Math::BigInt::Subclass->new(" \n1234\n1") = 'NaN' ok 3771 - Math::BigInt::Subclass->new("1 \n1234\n1") = 'NaN' ok 3772 - Math::BigInt::Subclass->new("12345") = 12345 ok 3773 - Math::BigInt::Subclass->new(" 12345") = 12345 ok 3774 - Math::BigInt::Subclass->new("12345 ") = 12345 ok 3775 - Math::BigInt::Subclass->new(" 12345 ") = 12345 ok 3776 - Math::BigInt::Subclass->new("\n12345") = 12345 ok 3777 - Math::BigInt::Subclass->new("12345\n") = 12345 ok 3778 - Math::BigInt::Subclass->new("\n12345\n") = 12345 ok 3779 - Math::BigInt::Subclass->new(" \n12345\n") = 12345 ok 3780 - Math::BigInt::Subclass->new(" \n12345 \n") = 12345 ok 3781 - Math::BigInt::Subclass->new(" \n12345\n ") = 12345 ok 3782 - Math::BigInt::Subclass->new(" \n12345\n1") = 'NaN' ok 3783 - Math::BigInt::Subclass->new("1 \n12345\n1") = 'NaN' ok 3784 - Math::BigInt::Subclass->new("123456") = 123456 ok 3785 - Math::BigInt::Subclass->new(" 123456") = 123456 ok 3786 - Math::BigInt::Subclass->new("123456 ") = 123456 ok 3787 - Math::BigInt::Subclass->new(" 123456 ") = 123456 ok 3788 - Math::BigInt::Subclass->new("\n123456") = 123456 ok 3789 - Math::BigInt::Subclass->new("123456\n") = 123456 ok 3790 - Math::BigInt::Subclass->new("\n123456\n") = 123456 ok 3791 - Math::BigInt::Subclass->new(" \n123456\n") = 123456 ok 3792 - Math::BigInt::Subclass->new(" \n123456 \n") = 123456 ok 3793 - Math::BigInt::Subclass->new(" \n123456\n ") = 123456 ok 3794 - Math::BigInt::Subclass->new(" \n123456\n1") = 'NaN' ok 3795 - Math::BigInt::Subclass->new("1 \n123456\n1") = 'NaN' ok 3796 - Math::BigInt::Subclass->new("1234567") = 1234567 ok 3797 - Math::BigInt::Subclass->new(" 1234567") = 1234567 ok 3798 - Math::BigInt::Subclass->new("1234567 ") = 1234567 ok 3799 - Math::BigInt::Subclass->new(" 1234567 ") = 1234567 ok 3800 - Math::BigInt::Subclass->new("\n1234567") = 1234567 ok 3801 - Math::BigInt::Subclass->new("1234567\n") = 1234567 ok 3802 - Math::BigInt::Subclass->new("\n1234567\n") = 1234567 ok 3803 - Math::BigInt::Subclass->new(" \n1234567\n") = 1234567 ok 3804 - Math::BigInt::Subclass->new(" \n1234567 \n") = 1234567 ok 3805 - Math::BigInt::Subclass->new(" \n1234567\n ") = 1234567 ok 3806 - Math::BigInt::Subclass->new(" \n1234567\n1") = 'NaN' ok 3807 - Math::BigInt::Subclass->new("1 \n1234567\n1") = 'NaN' ok 3808 - Math::BigInt::Subclass->new("12345678") = 12345678 ok 3809 - Math::BigInt::Subclass->new(" 12345678") = 12345678 ok 3810 - Math::BigInt::Subclass->new("12345678 ") = 12345678 ok 3811 - Math::BigInt::Subclass->new(" 12345678 ") = 12345678 ok 3812 - Math::BigInt::Subclass->new("\n12345678") = 12345678 ok 3813 - Math::BigInt::Subclass->new("12345678\n") = 12345678 ok 3814 - Math::BigInt::Subclass->new("\n12345678\n") = 12345678 ok 3815 - Math::BigInt::Subclass->new(" \n12345678\n") = 12345678 ok 3816 - Math::BigInt::Subclass->new(" \n12345678 \n") = 12345678 ok 3817 - Math::BigInt::Subclass->new(" \n12345678\n ") = 12345678 ok 3818 - Math::BigInt::Subclass->new(" \n12345678\n1") = 'NaN' ok 3819 - Math::BigInt::Subclass->new("1 \n12345678\n1") = 'NaN' ok 3820 - Math::BigInt::Subclass->new("123456789") = 123456789 ok 3821 - Math::BigInt::Subclass->new(" 123456789") = 123456789 ok 3822 - Math::BigInt::Subclass->new("123456789 ") = 123456789 ok 3823 - Math::BigInt::Subclass->new(" 123456789 ") = 123456789 ok 3824 - Math::BigInt::Subclass->new("\n123456789") = 123456789 ok 3825 - Math::BigInt::Subclass->new("123456789\n") = 123456789 ok 3826 - Math::BigInt::Subclass->new("\n123456789\n") = 123456789 ok 3827 - Math::BigInt::Subclass->new(" \n123456789\n") = 123456789 ok 3828 - Math::BigInt::Subclass->new(" \n123456789 \n") = 123456789 ok 3829 - Math::BigInt::Subclass->new(" \n123456789\n ") = 123456789 ok 3830 - Math::BigInt::Subclass->new(" \n123456789\n1") = 'NaN' ok 3831 - Math::BigInt::Subclass->new("1 \n123456789\n1") = 'NaN' ok 3832 - Math::BigInt::Subclass->new("1234567890") = 1234567890 ok 3833 - Math::BigInt::Subclass->new(" 1234567890") = 1234567890 ok 3834 - Math::BigInt::Subclass->new("1234567890 ") = 1234567890 ok 3835 - Math::BigInt::Subclass->new(" 1234567890 ") = 1234567890 ok 3836 - Math::BigInt::Subclass->new("\n1234567890") = 1234567890 ok 3837 - Math::BigInt::Subclass->new("1234567890\n") = 1234567890 ok 3838 - Math::BigInt::Subclass->new("\n1234567890\n") = 1234567890 ok 3839 - Math::BigInt::Subclass->new(" \n1234567890\n") = 1234567890 ok 3840 - Math::BigInt::Subclass->new(" \n1234567890 \n") = 1234567890 ok 3841 - Math::BigInt::Subclass->new(" \n1234567890\n ") = 1234567890 ok 3842 - Math::BigInt::Subclass->new(" \n1234567890\n1") = 'NaN' ok 3843 - Math::BigInt::Subclass->new("1 \n1234567890\n1") = 'NaN' ok 3844 - value of ((2^148)+1)/17 ok 3845 - number of digits in ((2^148)+1)/17 ok 3846 - value of 2^127-1 ok 3847 - number of digits in 2^127-1 ok 3848 - number of digits in fraction part of 2^127-1 ok 3849 - number of digits in 1_000_000_000_000 ok 3850 - number of digits in fraction part of 1_000_000_000_000 ok 3851 - 2 <<= 18 with Math::BigInt::Subclass objects ok 3852 - 2 <<= 18 with Math::BigInt::Subclass objects ok 3853 - 2 >>= 18 with Math::BigInt::Subclass objects ok 3854 - 2 >>= 18 with Math::BigInt::Subclass objects ok 3855 - $x = Math::Foo->new(5); $x = $x - 8; $x = 3 ok 3856 - $x is an object of class "Math::Foo" ok 3857 - $x = Math::Foo->new(5); $x = 8 - $x; $x = -3 ok 3858 - $x is an object of class "Math::Foo" ok 3859 - Math::BigInt::Subclass->new("+inf") = "inf" ok 3860 # skip no 64 bit integer support ok 3861 # skip no 64 bit integer support ok 3862 # skip no 64 bit integer support ok 3863 # skip no 64 bit integer support ok 3864 - is a valid object ok 3865 - $x == 1000000000 ok 3866 - is a valid object ok 3867 - $x == 999999999 ok 3868 - is a valid object ok 3869 - $x->numify() = $BASE-1 ok 3870 - $x->numify() = -($BASE-1) ok 3871 - $x->numify()+0 = $BASE+0 ok 3872 - $x->numify() = -$BASE ok 3873 - $x->numify() = -($BASE*$BASE*1+$BASE*1+1)) ok 3874 - $x > $BASE ok 3875 - $x > $BASE ok 3876 - $x->length() = length($MAX) ok 3877 - Math::BigInt::Subclass->digit(123, 2) = 1 ok 3878 - testing bug in sub ok 3879 - testing bug in sub ok 3880 - testing number with a zero-hole of BASE_LEN_SMALL ok 3881 - see if mul shortcut for small numbers works ok 3882 - -322056000 / -12882240 has remainder 0 ok 3883 - is a valid object ok 3884 - $x->bmod(5033) = 4404 ok 3885 - Math::BigInt::Subclass->bzero() = 0 ok 3886 - Math::BigInt::Subclass->bone() = 1 ok 3887 - Math::BigInt::Subclass->bone("+") = 1 ok 3888 - Math::BigInt::Subclass->bone("-") = -1 ok 3889 - Math::BigInt::Subclass->bnan() = "NaN" ok 3890 - Math::BigInt::Subclass->binf() = "inf" ok 3891 - Math::BigInt::Subclass->binf("+") = "inf" ok 3892 - Math::BigInt::Subclass->binf("-") = "-inf" ok 3893 - Math::BigInt::Subclass->binf("-inf") = "-inf" ok 3894 - Math::BigInt::Subclass->new(1)->is_one("-") = 0 ok 3895 - Math::BigInt::Subclass->new(-1)->is_one("-") = 1 ok 3896 - Math::BigInt::Subclass->new(1)->is_one() = 1 ok 3897 - Math::BigInt::Subclass->new(-1)->is_one() = 0 ok 3898 - $x = Math::BigInt::Subclass->new(3); $x -= $x; = 0 ok 3899 - $x = Math::BigInt::Subclass->new(-3); $x -= $x; = 0 ok 3900 - $x = Math::BigInt::Subclass->new("NaN"); $x -= $x; $x->is_nan() = 1 ok 3901 - $x = Math::BigInt::Subclass->new("inf"); $x -= $x; $x->is_nan() = 1 ok 3902 - $x = Math::BigInt::Subclass->new("-inf"); $x -= $x; $x->is_nan() = 1 ok 3903 - $x = Math::BigInt::Subclass->new("NaN"); $x += $x; $x->is_nan() = 1 ok 3904 - $x = Math::BigInt::Subclass->new("inf"); $x += $x; $x->is_inf() = 1 ok 3905 - $x = Math::BigInt::Subclass->new("-inf"); $x += $x; $x->is_inf("-") = 1 ok 3906 - $x = Math::BigInt::Subclass->new(3); $x += $x; $x = 6 ok 3907 - $x = Math::BigInt::Subclass->new(-3); $x += $x; $x = -6 ok 3908 - $x = Math::BigInt::Subclass->new(3); $x *= $x; $x = 9 ok 3909 - $x = Math::BigInt::Subclass->new(-3); $x *= $x; $x = 9 ok 3910 - $x = Math::BigInt::Subclass->new(3); $x /= $x; $x = 1 ok 3911 - $x = Math::BigInt::Subclass->new(-3); $x /= $x; $x = 1 ok 3912 - $x = Math::BigInt::Subclass->new(3); $x %= $x; $x = 0 ok 3913 - $x = Math::BigInt::Subclass->new(-3); $x %= $x; $x = 0 ok 3914 - $ms has custom attribute \$ms->{_custom} ok 3915 - An object of class 'Math::BigInt::Subclass' isa 'Math::BigInt' ok 3916 - $ms is 46 ok 3917 - $ms has custom attribute $ms->{_custom} ok 3918 - $ms is not an object of class 'Math::BigInt::Subclass' ok t/sub_mif.t ................................... 1..712 ok 1 - ${"Math::BigInt::Subclass::accuracy"} ok 2 - ${"Math::BigInt::Subclass::precision"} ok 3 - Math::BigInt::Subclass->accuracy() ok 4 - Math::BigInt::Subclass->precision() ok 5 - ${"Math::BigInt::Subclass::div_scale"} ok 6 - ${"Math::BigInt::Subclass::round_mode"} ok 7 - Math::BigInt::Subclass->round_mode() ok 8 - ${"Math::BigFloat::Subclass::accuracy"} ok 9 - ${"Math::BigFloat::Subclass::precision"} ok 10 - Math::BigFloat::Subclass->precision() ok 11 - Math::BigFloat::Subclass->precision() ok 12 - ${"Math::BigFloat::Subclass::div_scale"} ok 13 - ${"Math::BigFloat::Subclass::round_mode"} ok 14 - Math::BigFloat::Subclass->round_mode() ok 15 - Math::BigInt::Subclass->accuracy() ok 16 - Math::BigInt::Subclass->precision() ok 17 - Math::BigInt::Subclass->round_mode() ok 18 - Math::BigInt::Subclass->div_scale() ok 19 - Math::BigInt::Subclass->div_scale(20) ok 20 - Math::BigInt::Subclass->div_scale() ok 21 - Math::BigInt::Subclass->round_mode("odd") ok 22 - Math::BigInt::Subclass->round_mode() ok 23 - Math::BigInt::Subclass->accuracy(2) ok 24 - Math::BigInt::Subclass->accuracy() ok 25 - Math::BigInt::Subclass->accuracy(undef) ok 26 - Math::BigInt::Subclass->precision(2) ok 27 - Math::BigInt::Subclass->precision(-2) ok 28 - Math::BigInt::Subclass->precision() ok 29 - Math::BigInt::Subclass->precision(undef) ok 30 - Math::BigFloat::Subclass->accuracy() ok 31 - Math::BigFloat::Subclass->precision() ok 32 - Math::BigFloat::Subclass->round_mode() ok 33 - Math::BigFloat::Subclass->div_scale() ok 34 - Math::BigFloat::Subclass->div_scale(20) ok 35 - Math::BigFloat::Subclass->div_scale() ok 36 - Math::BigFloat::Subclass->round_mode("odd") ok 37 - Math::BigFloat::Subclass->round_mode() ok 38 - Math::BigFloat::Subclass->accuracy(2) ok 39 - Math::BigFloat::Subclass->accuracy() ok 40 - Math::BigFloat::Subclass->accuracy(undef) ok 41 - Math::BigFloat::Subclass->precision(2) ok 42 - Math::BigFloat::Subclass->precision(-2) ok 43 - Math::BigFloat::Subclass->precision() ok 44 - Math::BigFloat::Subclass->precision(undef) ok 45 - ${"Math::BigFloat::Subclass::accuracy"} = 5 ok 46 - ${"Math::BigInt::Subclass::accuracy"} = 5 ok 47 - ${"Math::BigFloat::Subclass::accuracy"} = 42 ok 48 - ${"Math::BigInt::Subclass::accuracy"} = 42 ok 49 - ${"Math::BigFloat::Subclass::accuracy"} = -1 ok 50 - ${"Math::BigInt::Subclass::accuracy"} = -1 ok 51 - ${"Math::BigFloat::Subclass::accuracy"} = 0 ok 52 - ${"Math::BigInt::Subclass::accuracy"} = 0 ok 53 - ${"Math::BigFloat::Subclass::accuracy"} = undef ok 54 - ${"Math::BigInt::Subclass::accuracy"} = undef ok 55 - ${"Math::BigFloat::Subclass::precision"} = 5 ok 56 - ${"Math::BigInt::Subclass::precision"} = 5 ok 57 - ${"Math::BigFloat::Subclass::precision"} = 42 ok 58 - ${"Math::BigInt::Subclass::precision"} = 42 ok 59 - ${"Math::BigFloat::Subclass::precision"} = -1 ok 60 - ${"Math::BigInt::Subclass::precision"} = -1 ok 61 - ${"Math::BigFloat::Subclass::precision"} = 0 ok 62 - ${"Math::BigInt::Subclass::precision"} = 0 ok 63 - ${"Math::BigFloat::Subclass::precision"} = undef ok 64 - ${"Math::BigInt::Subclass::precision"} = undef ok 65 - ${"Math::BigFloat::Subclass::div_scale"} = 5 ok 66 - ${"Math::BigInt::Subclass::div_scale"} = 5 ok 67 - ${"Math::BigFloat::Subclass::div_scale"} = 42 ok 68 - ${"Math::BigInt::Subclass::div_scale"} = 42 ok 69 - ${"Math::BigFloat::Subclass::div_scale"} = 1 ok 70 - ${"Math::BigInt::Subclass::div_scale"} = 1 ok 71 - ${"Math::BigFloat::Subclass::round_mode"} = "odd" ok 72 - ${"Math::BigInt::Subclass::round_mode"} = "odd" ok 73 - ${"Math::BigFloat::Subclass::round_mode"} = "even" ok 74 - ${"Math::BigInt::Subclass::round_mode"} = "even" ok 75 - ${"Math::BigFloat::Subclass::round_mode"} = "zero" ok 76 - ${"Math::BigInt::Subclass::round_mode"} = "zero" ok 77 - ${"Math::BigFloat::Subclass::round_mode"} = "trunc" ok 78 - ${"Math::BigInt::Subclass::round_mode"} = "trunc" ok 79 - ${"Math::BigFloat::Subclass::round_mode"} = "+inf" ok 80 - ${"Math::BigInt::Subclass::round_mode"} = "+inf" ok 81 - ${"Math::BigFloat::Subclass::round_mode"} = "-inf" ok 82 - ${"Math::BigInt::Subclass::round_mode"} = "-inf" ok 83 - ${"Math::BigFloat::Subclass::round_mode"} ok 84 - ${"Math::BigInt::Subclass::round_mode"} ok 85 - $x->accuracy() ok 86 - $x->accuracy(5) ok 87 - $x->accuracy(undef) ok 88 - $x->precision() ok 89 - $x->precision(5) ok 90 - $x->precision(undef) ok 91 - ${"Math::BigInt::Subclass::accuracy"} = 42 ok 92 - ${"Math::BigFloat::Subclass::accuracy"} = 64 ok 93 - ${"Math::BigInt::Subclass::accuracy"} = 42 ok 94 - ${"Math::BigFloat::Subclass::accuracy"} = 64 ok 95 - Math::BigInt::Subclass->new(123456) = 123500 ok 96 - Math::BigInt::Subclass->new(123456) = 123000 ok 97 - Math::BigFloat::Subclass->new("123.456") = 123.5 ok 98 - Math::BigFloat::Subclass->new("123.456") = 123.5 ok 99 - Math::BigFloat::Subclass->new("123.456") = 123.456 ok 100 - $x = Math::BigFloat::Subclass->new("123.456"); $x->accuracy(4) ok 101 - $x = Math::BigFloat::Subclass->new("123.456"); $x->precision(-2) ok 102 - $x = Math::BigInt::Subclass->new(123456); $x->accuracy(4) ok 103 - $x = Math::BigInt::Subclass->new(123456); $x->precision(2) ok 104 - $x = Math::BigFloat::Subclass->new("123.456"); $x->copy()->round(5) ok 105 - $x = Math::BigFloat::Subclass->new("123.456"); $x->copy()->round(4) ok 106 - $x = Math::BigFloat::Subclass->new("123.456"); $x->copy()->round(5, 2) ok 107 - $x = Math::BigFloat::Subclass->new("123.456"); $x->copy()->round(undef, -2) ok 108 - $x = Math::BigFloat::Subclass->new("123.456"); $x->copy()->round(undef, 2) ok 109 - $x = Math::BigInt::Subclass->new("123"); $x->round(5, 2) ok 110 - $x = Math::BigFloat::Subclass->new("123.45000"); $x->copy()->round(undef, -1, "odd") ok 111 - $x = Math::BigFloat::Subclass->new("123.4567"); $y = $x->copy()->bround() ok 112 - $y = $x->copy()->round(5); $y->accuracy() ok 113 - $y = $x->copy()->round(5); $y->precision() ok 114 - $y = $x->copy()->round(undef, 2); $y->precision() ok 115 - $y = $x->copy()->round(undef, 2); $y->accuracy() ok 116 - $x = $mbf->new("123.4567") ok 117 - $x->accuracy(4) ok 118 - $x->precision(-2) ok 119 - $x->accuracy() ok 120 - $x = $mbf->new("123.4567") ok 121 - $x->precision(-2) ok 122 - $x->accuracy(4) ok 123 - $x->precision() ok 124 - $z = $x->copy(); $z->accuracy() ok 125 - $z = $x->copy(); $z->precision() ok 126 - $x->copy()->bdiv(3, 4) ok 127 - $x->copy()->bdiv(3, 8) ok 128 - $x->copy()->bdiv(3, 16) ok 129 - $x->copy()->bdiv(3, 32) ok 130 - $x = Math::BigInt::Subclass->bzero(); $x->accuracy(5); $x->{_a} ok 131 - $x = Math::BigInt::Subclass->bzero(); $x->precision(5); $x->{_p} ok 132 - $x = Math::BigInt::Subclass->new(0); $x->accuracy(5); $x->{_a} ok 133 - $x = Math::BigInt::Subclass->new(0); $x->precision(5); $x->{_p} ok 134 - $x = Math::BigInt::Subclass->bzero(); $x->round(5); $x->{_a} ok 135 - $x = Math::BigInt::Subclass->bzero(); $x->round(undef, 5); $x->{_p} ok 136 - $x = Math::BigInt::Subclass->new(0); $x->round(5); $x->{_a} ok 137 - $x = Math::BigInt::Subclass->new(0); $x->round(undef, 5); $x->{_p} ok 138 - $x = Math::BigInt::Subclass->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 139 - $x = Math::BigFloat::Subclass->bzero(); $x->accuracy(5); $x->{_a} ok 140 - $x = Math::BigFloat::Subclass->bzero(); $x->precision(5); $x->{_p} ok 141 - $x = Math::BigFloat::Subclass->new(0); $x->accuracy(5); $x->{_a} ok 142 - $x = Math::BigFloat::Subclass->new(0); $x->precision(5); $x->{_p} ok 143 - $x = Math::BigFloat::Subclass->bzero(); $x->round(5); $x->{_a} ok 144 - $x = Math::BigFloat::Subclass->bzero(); $x->round(undef, 5); $x->{_p} ok 145 - $x = Math::BigFloat::Subclass->new(0); $x->round(5); $x->{_a} ok 146 - $x = Math::BigFloat::Subclass->new(0); $x->round(undef, 5); $x->{_p} ok 147 - $x = Math::BigFloat::Subclass->bzero(); $x->{_a} = 3; $x->round(5); $x->{_a} ok 148 - Math::BigInt::Subclass->new(123)->badd(123) ok 149 - Math::BigInt::Subclass->badd(123, 321) ok 150 - Math::BigInt::Subclass->badd(123, Math::BigInt::Subclass->new(321)) ok 151 - Math::BigInt::Subclass->new(123)->bsub(122) ok 152 - Math::BigInt::Subclass->bsub(321, 123) ok 153 - Math::BigInt::Subclass->bsub(321, Math::BigInt::Subclass->new(123)) ok 154 - Math::BigInt::Subclass->new(123)->bmul(123) ok 155 - Math::BigInt::Subclass->bmul(123, 123) ok 156 - Math::BigInt::Subclass->bmul(123, Math::BigInt::Subclass->new(123)) ok 157 - Math::BigInt::Subclass->new(15131)->bmod(123) ok 158 - Math::BigInt::Subclass->bmod(15131, 123) ok 159 - Math::BigInt::Subclass->bmod(15131, Math::BigInt::Subclass->new(123)) ok 160 - Math::BigInt::Subclass->new(2)->bpow(16) ok 161 - Math::BigInt::Subclass->bpow(2, 16) ok 162 - Math::BigInt::Subclass->bpow(2, Math::BigInt::Subclass->new(16)) ok 163 - Math::BigInt::Subclass->new(2**15)->brsft(1) ok 164 - Math::BigInt::Subclass->brsft(2**15, 1) ok 165 - Math::BigInt::Subclass->brsft(2**15, Math::BigInt::Subclass->new(1)) ok 166 - Math::BigInt::Subclass->new(2**13)->blsft(1) ok 167 - Math::BigInt::Subclass->blsft(2**13, 1) ok 168 - Math::BigInt::Subclass->blsft(2**13, Math::BigInt::Subclass->new(1)) ok 169 - Math::BigFloat::Subclass->new(123)->badd(123) ok 170 - Math::BigFloat::Subclass->badd(123, 321) ok 171 - Math::BigFloat::Subclass->badd(123, Math::BigFloat::Subclass->new(321)) ok 172 - Math::BigFloat::Subclass->new(123)->bsub(122) ok 173 - Math::BigFloat::Subclass->bsub(321, 123) ok 174 - Math::BigFloat::Subclass->bsub(321, Math::BigFloat::Subclass->new(123)) ok 175 - Math::BigFloat::Subclass->new(123)->bmul(123) ok 176 - Math::BigFloat::Subclass->bmul(123, 123) ok 177 - Math::BigFloat::Subclass->bmul(123, Math::BigFloat::Subclass->new(123)) ok 178 - Math::BigFloat::Subclass->new(15131)->bmod(123) ok 179 - Math::BigFloat::Subclass->bmod(15131, 123) ok 180 - Math::BigFloat::Subclass->bmod(15131, Math::BigFloat::Subclass->new(123)) ok 181 - Math::BigFloat::Subclass->new(2)->bpow(16) ok 182 - Math::BigFloat::Subclass->bpow(2, 16) ok 183 - Math::BigFloat::Subclass->bpow(2, Math::BigFloat::Subclass->new(16)) ok 184 - Math::BigFloat::Subclass->new(2**15)->brsft(1) ok 185 - Math::BigFloat::Subclass->brsft(2**15, 1) ok 186 - Math::BigFloat::Subclass->brsft(2**15, Math::BigFloat::Subclass->new(1)) ok 187 - Math::BigFloat::Subclass->new(2**13)->blsft(1) ok 188 - Math::BigFloat::Subclass->blsft(2**13, 1) ok 189 - Math::BigFloat::Subclass->blsft(2**13, Math::BigFloat::Subclass->new(1)) ok 190 - $z = $x + $y ok 191 - $z = $y - $x ok 192 - $z = $y * $x ok 193 - $z = $x ** 2 ok 194 - $z = $x * $x ok 195 - $z = $z / 2 ok 196 - $z++ ok 197 - $z = $x + $y ok 198 - $z = $y - $x ok 199 - $z = $y * $x ok 200 - $z = $x ** 2 ok 201 - $z++ ok 202 - $z = $z / 2 ok 203 - $x->bnot() ok 204 - $x->babs() ok 205 - $x->bneg() ok 206 - $x ok 207 - $x->bdiv($y) ok 208 - $x->{_a} ok 209 - $x->bdiv($y) ok 210 - $x->{_a} ok 211 - $x->bdiv($y) ok 212 - $x->{_a} ok 213 - $x->bdiv($y) ok 214 - $x->{_a} ok 215 - $x->copy()->bsqrt(...) ok 216 - $x->copy->bsqrt(...) ok 217 - $x->{_a} ok 218 - $z = $x->bsqrt(); $z ok 219 - $z = $x->bsqrt(); $x ok 220 - $x->copy()->bpow(...) ok 221 - $x->copy()->bpow(...) vs. $x->copy()->bsqrt(...) ok 222 - $x->copy()->bpow('2', 0) ok 223 - $mbi->new(12)->bfac() ok 224 - $mbi->new(12)->bfac(2) ok 225 - $x = Math::BigInt::Subclass->new(12); $x->accuracy(2); $x->bfac() ok 226 - $x = Math::BigInt::Subclass->new(13); $x->accuracy(2); $x->bfac() ok 227 - $x = Math::BigInt::Subclass->new(13); $x->accuracy(3); $x->bfac() ok 228 - $x = Math::BigInt::Subclass->new(13); $x->accuracy(4); $x->bfac() ok 229 - $x = Math::BigInt::Subclass->new(20); $x->accuracy(1); $x->bfac() ok 230 - $x = Math::BigInt::Subclass->new("123456")->bsqrt(2, undef) ok 231 - $x->accuracy() ok 232 - $x = 360 ok 233 - $x = 400 ok 234 - $z = $x + $y; ok 235 - $z is a "Math::BigFloat::Subclass" object ok 236 - $z = $x / $y; ok 237 - $z is a "Math::BigFloat::Subclass" object ok 238 - $z = $u * $y; ok 239 - $z is a "Math::BigFloat::Subclass" object ok 240 - $z = 31000 ok 241 - $z = 30900 ok 242 - $z = 30863 ok 243 - $z = 30863 ok 244 - $z = 30860 ok 245 - $z = 30900 ok 246 - $z = 30862.5 ok 247 - $z = "" ok 248 - "$z = $y >= 3.17" gives warning as expected ok 249 - $z = "" ok 250 - "$z = $y >= 3.17" gives warning as expected ok 251 - $x->bdiv(3) ok 252 - $x->{_a} ok 253 - $x->bdiv($y) ok 254 - $x->{_a} ok 255 - $x->bdiv(3) ok 256 - $x->bdiv(3, undef, -2) ok 257 - $x->bdiv(3, undef, -8) = "3.33333333" ok 258 - $x->bdiv($y) = '3.333' ok 259 - $x->{_a} = 4 ok 260 - $y->{_a} = 4 ok 261 - $x->{_p} = undef ok 262 - $y->{_p} = undef ok 263 - $x->bdiv($y) = '3.33' ok 264 - $x->{_p} = -2 ok 265 - $y->{_p} = -2 ok 266 - $x->{_a} = undef ok 267 - $y->{_a} = undef ok 268 - "$x->bround(-2)" gives warning as expected ok 269 - $x = "1.000" ok 270 - $x->{_a} = 4 ok 271 - $x = "1.000" ok 272 - $x = "1230" ok 273 - $x->{_a} = 3 ok 274 - $x = "1230" ok 275 - $x = "1200" ok 276 - $x->{_a} = 2 ok 277 - $x = "12300" ok 278 - $x->{_a} = 4 ok 279 - $x = "12000" ok 280 - $x->{_a} = 3 ok 281 - $x = "10000" ok 282 - $x->{_a} = 2 ok 283 - $x = "0" ok 284 - $x->{_a} = 1 ok 285 - $x = "0" ok 286 - $x->{_a} = 0 ok 287 - $x = "100000" ok 288 - $x->{_a} = 0 ok 289 - $x = "100000" ok 290 - $x->{_a} = 0 ok 291 - $x = "12345" ok 292 - $x->{_a} = 5 ok 293 - $x = "12345" ok 294 - $x = "0.01" ok 295 - $x = "0.00" ok 296 - $x = "0.00" ok 297 - $x = "12340" ok 298 - $x = "12340" ok 299 - $x->{_a} = undef ok 300 - $x = "0.000176118351532229658330398027474462839027826699542092286016203" ok 301 - $x = "0.000176118351532229658330398027474462839027826699542092286016202888340965128566396618527651" ok 302 - $x = "0.00017611835153222965833039802747446283902782669954209228601620288834096512856639662" ok 303 - $x = "1.00000" ok 304 - $x->bfround(-2) = "1.00" ok 305 - $x->{_p} = -2 ok 306 - $x->bround(2) = "12000" ok 307 - $x->{_a} = 2 ok 308 - $x->bround(2) = "1.2" ok 309 - $x->{_a} = 2 ok 310 - $x = "12350" ok 311 - $x->{_a} = 4 ok 312 - $x->{_p} = undef ok 313 - $x->{_a} = undef ok 314 - $x->{_p} = undef ok 315 - $x->{_a} = undef ok 316 - $x->{_p} = undef ok 317 - $y->{_a} = undef ok 318 - $y->{_p} = undef ok 319 - $x+$y = 24000 ok 320 - $x-$y = 42000 ok 321 - $x+$y = "2.46" ok 322 - scalar(@params) = 1 ok 323 - scalar(@params) = 4 ok 324 - $params[0] = $x ok 325 - $params[1] = 1 ok 326 - $params[2] = undef ok 327 - $params[3] = "odd" ok 328 - scalar(@params) = 4 ok 329 - $params[0] = $x ok 330 - $params[1] = undef ok 331 - $params[2] = 2 ok 332 - $params[3] = "odd" ok 333 - round mode "foo" gives a warning as expected ok 334 - scalar(@params) = 4 ok 335 - $params[0] = $x ok 336 - $params[1] = undef ok 337 - $params[2] = 2 ok 338 - $params[3] = "+inf" ok 339 - scalar(@params) = 1 ok 340 - $params[0] = $x ok 341 - scalar(@params) = 1 ok 342 - $params[0] = $x ok 343 - $x->is_nan() = 1 ok 344 - scalar(@params) = 1 ok 345 - $params[0] = $x ok 346 - $x->is_nan() = 1 ok 347 - $x = Math::BigInt::Subclass->new(2)->bzero(); $x->{_a} ok 348 - $x = Math::BigInt::Subclass->new(2)->bzero(); $x->{_p} ok 349 - $x = Math::BigInt::Subclass->new(2)->bone(); $x->{_a} ok 350 - $x = Math::BigInt::Subclass->new(2)->bone(); $x->{_p} ok 351 - $x = Math::BigInt::Subclass->new(2)->binf(); $x->{_a} ok 352 - $x = Math::BigInt::Subclass->new(2)->binf(); $x->{_p} ok 353 - $x = Math::BigInt::Subclass->new(2)->bnan(); $x->{_a} ok 354 - $x = Math::BigInt::Subclass->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 355 - $x = Math::BigInt::Subclass->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 356 - $x = Math::BigInt::Subclass->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 357 - $x = Math::BigInt::Subclass->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 358 - $x = Math::BigInt::Subclass->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 359 - $x = Math::BigInt::Subclass->new(2, 1); $x->{_a} ok 360 - $x = Math::BigInt::Subclass->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 361 - $x = Math::BigInt::Subclass->new(2, undef, 1); $x->{_a} ok 362 - $x = Math::BigInt::Subclass->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 363 - $x = Math::BigInt::Subclass->new(2, 1)->bzero(); $x->{_a} ok 364 - $x = Math::BigInt::Subclass->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 365 - $x = Math::BigInt::Subclass->new(2, undef, 1)->bzero(); $x->{_a} ok 366 - $x = Math::BigInt::Subclass->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 367 - $x = Math::BigInt::Subclass->new(2, 1)->bone(); $x->{_a} ok 368 - $x = Math::BigInt::Subclass->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 369 - $x = Math::BigInt::Subclass->new(2, undef, 1)->bone(); $x->{_a} ok 370 - $x = Math::BigInt::Subclass->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 371 - $x = Math::BigInt::Subclass->new(2); $x->{_a} ok 372 - $x = Math::BigInt::Subclass->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 373 - $x = Math::BigInt::Subclass->new(2); $x->bone('+', undef, 2); $x->{_a} ok 374 - $x = Math::BigInt::Subclass->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 375 - $x = Math::BigInt::Subclass->new(2); $x->bone('-', 2, undef); $x->{_a} ok 376 - $x = Math::BigInt::Subclass->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 377 - $x = Math::BigInt::Subclass->new(2); $x->bone('-', undef, 2); $x->{_a} ok 378 - $x = Math::BigInt::Subclass->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 379 - $x = Math::BigInt::Subclass->new(2);$x->bzero(2, undef); $x->{_a} ok 380 - $x = Math::BigInt::Subclass->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 381 - $x = Math::BigInt::Subclass->new(2); $x->bzero(undef, 2); $x->{_a} ok 382 - $x = Math::BigInt::Subclass->new(2); $x->bzero(undef, 2); $x->{_p} ok 383 - $x = Math::BigFloat::Subclass->new(2)->bzero(); $x->{_a} ok 384 - $x = Math::BigFloat::Subclass->new(2)->bzero(); $x->{_p} ok 385 - $x = Math::BigFloat::Subclass->new(2)->bone(); $x->{_a} ok 386 - $x = Math::BigFloat::Subclass->new(2)->bone(); $x->{_p} ok 387 - $x = Math::BigFloat::Subclass->new(2)->binf(); $x->{_a} ok 388 - $x = Math::BigFloat::Subclass->new(2)->binf(); $x->{_p} ok 389 - $x = Math::BigFloat::Subclass->new(2)->bnan(); $x->{_a} ok 390 - $x = Math::BigFloat::Subclass->new(2)->bnan(); $x->{_p} # Verify that bnan() does not delete/undefine accuracy and precision. ok 391 - $x = Math::BigFloat::Subclass->new(2); $x->{_a} = 1; $x->bnan(); $x->{_a} ok 392 - $x = Math::BigFloat::Subclass->new(2); $x->{_p} = 1; $x->bnan(); $x->{_p} # Verify that binf() does not delete/undefine accuracy and precision. ok 393 - $x = Math::BigFloat::Subclass->new(2); $x->{_a} = 1; $x->binf(); $x->{_a} ok 394 - $x = Math::BigFloat::Subclass->new(2); $x->{_p} = 1; $x->binf(); $x->{_p} # Verify that accuracy can be set as argument to new(). ok 395 - $x = Math::BigFloat::Subclass->new(2, 1); $x->{_a} ok 396 - $x = Math::BigFloat::Subclass->new(2, 1); $x->{_p} # Verify that precision can be set as argument to new(). ok 397 - $x = Math::BigFloat::Subclass->new(2, undef, 1); $x->{_a} ok 398 - $x = Math::BigFloat::Subclass->new(2, undef, 1); $x->{_p} # Verify that accuracy set with new() is preserved after calling bzero(). ok 399 - $x = Math::BigFloat::Subclass->new(2, 1)->bzero(); $x->{_a} ok 400 - $x = Math::BigFloat::Subclass->new(2, 1)->bzero(); $x->{_p} # Verify that precision set with new() is preserved after calling bzero(). ok 401 - $x = Math::BigFloat::Subclass->new(2, undef, 1)->bzero(); $x->{_a} ok 402 - $x = Math::BigFloat::Subclass->new(2, undef, 1)->bzero(); $x->{_p} # Verify that accuracy set with new() is preserved after calling bone(). ok 403 - $x = Math::BigFloat::Subclass->new(2, 1)->bone(); $x->{_a} ok 404 - $x = Math::BigFloat::Subclass->new(2, 1)->bone(); $x->{_p} # Verify that precision set with new() is preserved after calling bone(). ok 405 - $x = Math::BigFloat::Subclass->new(2, undef, 1)->bone(); $x->{_a} ok 406 - $x = Math::BigFloat::Subclass->new(2, undef, 1)->bone(); $x->{_p} # Verify that accuracy can be set with instance method bone('+'). ok 407 - $x = Math::BigFloat::Subclass->new(2); $x->{_a} ok 408 - $x = Math::BigFloat::Subclass->new(2); $x->{_p} # Verify that precision can be set with instance method bone('+'). ok 409 - $x = Math::BigFloat::Subclass->new(2); $x->bone('+', undef, 2); $x->{_a} ok 410 - $x = Math::BigFloat::Subclass->new(2); $x->bone('+', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bone('-'). ok 411 - $x = Math::BigFloat::Subclass->new(2); $x->bone('-', 2, undef); $x->{_a} ok 412 - $x = Math::BigFloat::Subclass->new(2); $x->bone('-', 2, undef); $x->{_p} # Verify that precision can be set with instance method bone('-'). ok 413 - $x = Math::BigFloat::Subclass->new(2); $x->bone('-', undef, 2); $x->{_a} ok 414 - $x = Math::BigFloat::Subclass->new(2); $x->bone('-', undef, 2); $x->{_p} # Verify that accuracy can be set with instance method bzero(). ok 415 - $x = Math::BigFloat::Subclass->new(2);$x->bzero(2, undef); $x->{_a} ok 416 - $x = Math::BigFloat::Subclass->new(2);$x->bzero(2, undef); $x->{_p} # Verify that precision can be set with instance method bzero(). ok 417 - $x = Math::BigFloat::Subclass->new(2); $x->bzero(undef, 2); $x->{_a} ok 418 - $x = Math::BigFloat::Subclass->new(2); $x->bzero(undef, 2); $x->{_p} # Verify that class accuracy is copied into new objects. ok 419 - Math::BigInt::Subclass->accuracy(3); $x = Math::BigInt::Subclass->bzero(); $x->accuracy() ok 420 - Math::BigInt::Subclass->accuracy(3); $x = Math::BigInt::Subclass->bone(); $x->accuracy() ok 421 - Math::BigInt::Subclass->accuracy(3); $x = Math::BigInt::Subclass->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 422 - Math::BigInt::Subclass->precision(-4); $x = Math::BigInt::Subclass->bzero(); $x->precision() ok 423 - Math::BigInt::Subclass->precision(-4); $x = Math::BigInt::Subclass->bone(); $x->precision() ok 424 - Math::BigInt::Subclass->precision(-4); $x = Math::BigInt::Subclass->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 425 - Math::BigInt::Subclass->accuracy(2); $x = Math::BigInt::Subclass->bzero(5); $x->accuracy() ok 426 # skip 1 ok 427 - Math::BigInt::Subclass->accuracy(2); $x = Math::BigInt::Subclass->bone("+", 5); $x->accuracy() ok 428 # skip 1 ok 429 - Math::BigInt::Subclass->accuracy(2); $x = Math::BigInt::Subclass->new(2, 5); $x->accuracy() ok 430 # skip 1 # Verify that setting precision as method argument overrides class variable ok 431 - Math::BigInt::Subclass->precision(-2); $x = Math::BigInt::Subclass->bzero(undef, -6); $x->precision() ok 432 # skip 1 ok 433 - Math::BigInt::Subclass->precision(-2); $x = Math::BigInt::Subclass->bone("+", undef, -6); $x->precision() ok 434 # skip 1 ok 435 - Math::BigInt::Subclass->precision(-2); $x = Math::BigInt::Subclass->new(2, undef, -6); $x->precision() ok 436 # skip 1 # Verify that class accuracy is copied into new objects. ok 437 - Math::BigFloat::Subclass->accuracy(3); $x = Math::BigFloat::Subclass->bzero(); $x->accuracy() ok 438 - Math::BigFloat::Subclass->accuracy(3); $x = Math::BigFloat::Subclass->bone(); $x->accuracy() ok 439 - Math::BigFloat::Subclass->accuracy(3); $x = Math::BigFloat::Subclass->new(2); $x->accuracy() # Verify that class precision is copied into new objects. ok 440 - Math::BigFloat::Subclass->precision(-4); $x = Math::BigFloat::Subclass->bzero(); $x->precision() ok 441 - Math::BigFloat::Subclass->precision(-4); $x = Math::BigFloat::Subclass->bone(); $x->precision() ok 442 - Math::BigFloat::Subclass->precision(-4); $x = Math::BigFloat::Subclass->new(2); $x->precision() # Verify that setting accuracy as method argument overrides class variable ok 443 - Math::BigFloat::Subclass->accuracy(2); $x = Math::BigFloat::Subclass->bzero(5); $x->accuracy() ok 444 # skip 1 ok 445 - Math::BigFloat::Subclass->accuracy(2); $x = Math::BigFloat::Subclass->bone("+", 5); $x->accuracy() ok 446 # skip 1 ok 447 - Math::BigFloat::Subclass->accuracy(2); $x = Math::BigFloat::Subclass->new(2, 5); $x->accuracy() ok 448 # skip 1 # Verify that setting precision as method argument overrides class variable ok 449 - Math::BigFloat::Subclass->precision(-2); $x = Math::BigFloat::Subclass->bzero(undef, -6); $x->precision() ok 450 # skip 1 ok 451 - Math::BigFloat::Subclass->precision(-2); $x = Math::BigFloat::Subclass->bone("+", undef, -6); $x->precision() ok 452 # skip 1 ok 453 - Math::BigFloat::Subclass->precision(-2); $x = Math::BigFloat::Subclass->new(2, undef, -6); $x->precision() ok 454 # skip 1 ok 455 - mixing A and P creates a NaN ok 456 - $class->new(123) = "NaN" ok 457 - mixing A and P creates a NaN ok 458 - $class->new(123) = "NaN" ok 459 - my $x = Math::BigInt::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigInt::Subclass->new(12); $y->precision(-3); $x->badd($y); ok 460 - my $x = Math::BigInt::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigInt::Subclass->new(12); $y->precision(-3); $x->bsub($y); ok 461 - my $x = Math::BigInt::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigInt::Subclass->new(12); $y->precision(-3); $x->bmul($y); ok 462 - my $x = Math::BigInt::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigInt::Subclass->new(12); $y->precision(-3); $x->bpow($y); ok 463 - my $x = Math::BigInt::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigInt::Subclass->new(12); $y->precision(-3); $x->bmod($y); ok 464 - my $x = Math::BigFloat::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigFloat::Subclass->new(12); $y->precision(-3); $x->badd($y); ok 465 - my $x = Math::BigFloat::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigFloat::Subclass->new(12); $y->precision(-3); $x->bsub($y); ok 466 - my $x = Math::BigFloat::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigFloat::Subclass->new(12); $y->precision(-3); $x->bmul($y); ok 467 - my $x = Math::BigFloat::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigFloat::Subclass->new(12); $y->precision(-3); $x->bpow($y); ok 468 - my $x = Math::BigFloat::Subclass->new(1234); $x->accuracy(5); my $y = Math::BigFloat::Subclass->new(12); $y->precision(-3); $x->bmod($y); ok 469 - my $x = Math::BigInt::Subclass->new(1234, 5, -3); ok 470 - my $x = Math::BigInt::Subclass->bsqrt(1234, 5, -3); ok 471 - $x = 120 ok 472 - $x = 120 ok 473 - $x = 120 ok 474 - $x = 120 ok 475 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("123"); $x->$f($y); ok 476 - is a valid object ok 477 - $x = Math::BigInt::Subclass->new("123"); $x->accuracy(3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 478 - is a valid object ok 479 - $x->{_a} == 3 ok 480 - $x->{_p} is undef ok 481 - $x = Math::BigInt::Subclass->new("123"); $x->precision(-3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 482 - is a valid object ok 483 - $x->{_p} == -3 ok 484 - $x->{_a} is undef ok 485 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(3); $x->$f($y); ok 486 - is a valid object ok 487 - $x->{_a} == 3 ok 488 - $x->{_p} is undef ok 489 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("0"); $y->precision(-3); $x->$f($y); ok 490 - is a valid object ok 491 - $x->{_p} == -3 ok 492 - $x->{_a} is undef ok 493 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 494 - is a valid object ok 495 - $x = Math::BigInt::Subclass->new("123"); $x->accuracy(3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 496 - is a valid object ok 497 - $x->{_a} == 3 ok 498 - $x->{_p} is undef ok 499 - $x = Math::BigInt::Subclass->new("123"); $x->precision(-3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 500 - is a valid object ok 501 - $x->{_p} == -3 ok 502 - $x->{_a} is undef ok 503 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(3); $x->$f($y); ok 504 - is a valid object ok 505 - $x->{_a} == 3 ok 506 - $x->{_p} is undef ok 507 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("0"); $y->precision(-3); $x->$f($y); ok 508 - is a valid object ok 509 - $x->{_p} == -3 ok 510 - $x->{_a} is undef ok 511 - $x = Math::BigInt::Subclass->new("123"); $x->accuracy(3); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 512 - is a valid object ok 513 - $x->{_a} == 3 ok 514 - $x->{_p} is undef ok 515 - $x = Math::BigInt::Subclass->new("123"); $x->precision(-3); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 516 - is a valid object ok 517 - $x->{_p} == -3 ok 518 - $x->{_a} is undef ok 519 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $y->accuracy(3); $x->$f($y); ok 520 - is a valid object ok 521 - $x->{_a} == 3 ok 522 - $x->{_p} is undef ok 523 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $y->precision(-3); $x->$f($y); ok 524 - is a valid object ok 525 - $x->{_p} == -3 ok 526 - $x->{_a} is undef ok 527 - $x = Math::BigInt::Subclass->new("1"); $x->accuracy(3); $y = Math::BigInt::Subclass->new("123"); $x->$f($y); ok 528 - is a valid object ok 529 - $x->{_a} == 3 ok 530 - $x->{_p} is undef ok 531 - $x = Math::BigInt::Subclass->new("1"); $x->precision(-3); $y = Math::BigInt::Subclass->new("123"); $x->$f($y); ok 532 - is a valid object ok 533 - $x->{_p} == -3 ok 534 - $x->{_a} is undef ok 535 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("123"); $y->accuracy(3); $x->$f($y); ok 536 - is a valid object ok 537 - $x->{_a} == 3 ok 538 - $x->{_p} is undef ok 539 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("123"); $y->precision(-3); $x->$f($y); ok 540 - is a valid object ok 541 - $x->{_p} == -3 ok 542 - $x->{_a} is undef ok 543 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 544 - is a valid object ok 545 - $x = Math::BigInt::Subclass->new("123"); $x->accuracy(4); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 546 - is a valid object ok 547 - $x->{_a} == 4 ok 548 - $x->{_p} is undef ok 549 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $y->accuracy(4); $x->$f($y); ok 550 - is a valid object ok 551 - $x->{_a} == 4 ok 552 - $x->{_p} is undef ok 553 - $x = Math::BigInt::Subclass->new("123"); $y = Math::BigInt::Subclass->new("1"); $y->precision(-4); $x->$f($y); ok 554 - is a valid object ok 555 - $x->{_p} == -4 ok 556 - $x->{_a} is undef ok 557 - $x = Math::BigInt::Subclass->new("123"); $x->precision(-4); $y = Math::BigInt::Subclass->new("1"); $x->$f($y); ok 558 - is a valid object ok 559 - $x->{_p} == -4 ok 560 - $x->{_a} is undef ok 561 - $x = Math::BigInt::Subclass->new("1"); $x->accuracy(4); $y = Math::BigInt::Subclass->new("123"); $x->$f($y); ok 562 - is a valid object ok 563 - $x->{_a} == 4 ok 564 - $x->{_p} is undef ok 565 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("123"); $y->accuracy(4); $x->$f($y); ok 566 - is a valid object ok 567 - $x->{_a} == 4 ok 568 - $x->{_p} is undef ok 569 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("123"); $y->precision(-4); $x->$f($y); ok 570 - is a valid object ok 571 - $x->{_p} == -4 ok 572 - $x->{_a} is undef ok 573 - $x = Math::BigInt::Subclass->new("1"); $x->precision(-4); $y = Math::BigInt::Subclass->new("123"); $x->$f($y); ok 574 - is a valid object ok 575 - $x->{_p} == -4 ok 576 - $x->{_a} is undef ok 577 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x->$f($y); ok 578 - is a valid object ok 579 - $x = Math::BigInt::Subclass->new("1234"); $x->accuracy(1); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 580 - is a valid object ok 581 - $x->{_a} == 1 ok 582 - $x->{_p} is undef ok 583 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(1); $x->$f($y); ok 584 - is a valid object ok 585 - $x->{_a} == 1 ok 586 - $x->{_p} is undef ok 587 - $x = Math::BigInt::Subclass->new("1234"); $x->precision(-1); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 588 - is a valid object ok 589 - $x->{_p} == -1 ok 590 - $x->{_a} is undef ok 591 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->precision(-1); $x->$f($y); ok 592 - is a valid object ok 593 - $x->{_p} == -1 ok 594 - $x->{_a} is undef ok 595 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0x10"); $x->$f($y); ok 596 - is a valid object ok 597 - $x = Math::BigInt::Subclass->new("0xFF"); $x->accuracy(2); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 598 - is a valid object ok 599 - $x->{_a} == 2 ok 600 - $x->{_p} is undef ok 601 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 602 - is a valid object ok 603 - $x->{_a} == 2 ok 604 - $x->{_p} is undef ok 605 - $x = Math::BigInt::Subclass->new("0xFF"); $x->precision(1); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 606 - is a valid object ok 607 - $x->{_p} == 1 ok 608 - $x->{_a} is undef ok 609 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFF"); $y->precision(1); $x->$f($y); ok 610 - is a valid object ok 611 - $x->{_p} == 1 ok 612 - $x->{_a} is undef ok 613 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x->$f($y); ok 614 - is a valid object ok 615 - $x = Math::BigInt::Subclass->new("1234"); $x->accuracy(1); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 616 - is a valid object ok 617 - $x->{_a} == 1 ok 618 - $x->{_p} is undef ok 619 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(1); $x->$f($y); ok 620 - is a valid object ok 621 - $x->{_a} == 1 ok 622 - $x->{_p} is undef ok 623 - $x = Math::BigInt::Subclass->new("1234"); $x->precision(3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 624 - is a valid object ok 625 - $x->{_p} == 3 ok 626 - $x->{_a} is undef ok 627 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->precision(3); $x->$f($y); ok 628 - is a valid object ok 629 - $x->{_p} == 3 ok 630 - $x->{_a} is undef ok 631 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0x10"); $x->$f($y); ok 632 - is a valid object ok 633 - $x = Math::BigInt::Subclass->new("0xFF"); $x->accuracy(2); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 634 - is a valid object ok 635 - $x->{_a} == 2 ok 636 - $x->{_p} is undef ok 637 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFF"); $y->accuracy(2); $x->$f($y); ok 638 - is a valid object ok 639 - $x->{_a} == 2 ok 640 - $x->{_p} is undef ok 641 - $x = Math::BigInt::Subclass->new("0xFF"); $x->precision(1); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 642 - is a valid object ok 643 - $x->{_p} == 1 ok 644 - $x->{_a} is undef ok 645 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFF"); $y->precision(1); $x->$f($y); ok 646 - is a valid object ok 647 - $x->{_p} == 1 ok 648 - $x->{_a} is undef ok 649 - $x = Math::BigInt::Subclass->new("0xFF"); $x->accuracy(2); $y = Math::BigInt::Subclass->new("0xFFF"); $x->$f($y); ok 650 - is a valid object ok 651 - $x->{_a} == 2 ok 652 - $x->{_p} is undef ok 653 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFFF"); $y->accuracy(2); $x->$f($y); ok 654 - is a valid object ok 655 - $x->{_a} == 2 ok 656 - $x->{_p} is undef ok 657 - $x = Math::BigInt::Subclass->new("0xFF"); $x->precision(2); $y = Math::BigInt::Subclass->new("0xFFF"); $x->$f($y); ok 658 - is a valid object ok 659 - $x->{_p} == 2 ok 660 - $x->{_a} is undef ok 661 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFFF"); $y->precision(2); $x->$f($y); ok 662 - is a valid object ok 663 - $x->{_p} == 2 ok 664 - $x->{_a} is undef ok 665 - $x = Math::BigInt::Subclass->new("1"); $y = Math::BigInt::Subclass->new("3"); $x->$f($y); ok 666 - is a valid object ok 667 - $x = Math::BigInt::Subclass->new("1234"); $x->accuracy(1); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 668 - is a valid object ok 669 - $x->{_a} == 1 ok 670 - $x->{_p} is undef ok 671 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(1); $x->$f($y); ok 672 - is a valid object ok 673 - $x->{_a} == 1 ok 674 - $x->{_p} is undef ok 675 - $x = Math::BigInt::Subclass->new("1234"); $x->precision(3); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 676 - is a valid object ok 677 - $x->{_p} == 3 ok 678 - $x->{_a} is undef ok 679 - $x = Math::BigInt::Subclass->new("1234"); $y = Math::BigInt::Subclass->new("0"); $y->precision(3); $x->$f($y); ok 680 - is a valid object ok 681 - $x->{_p} == 3 ok 682 - $x->{_a} is undef ok 683 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0x10"); $x->$f($y); ok 684 - is a valid object ok 685 - $x = Math::BigInt::Subclass->new("250"); $x->accuracy(2); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 686 - is a valid object ok 687 - $x->{_a} == 2 ok 688 - $x->{_p} is undef ok 689 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("250"); $y->accuracy(2); $x->$f($y); ok 690 - is a valid object ok 691 - $x->{_a} == 2 ok 692 - $x->{_p} is undef ok 693 - $x = Math::BigInt::Subclass->new("0xFF"); $x->precision(1); $y = Math::BigInt::Subclass->new("0xFF"); $x->$f($y); ok 694 - is a valid object ok 695 - $x->{_p} == 1 ok 696 - $x->{_a} is undef ok 697 - $x = Math::BigInt::Subclass->new("0xFF"); $y = Math::BigInt::Subclass->new("0xFF"); $y->precision(1); $x->$f($y); ok 698 - is a valid object ok 699 - $x->{_p} == 1 ok 700 - $x->{_a} is undef ok 701 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("3"); $x->$f($y); ok 702 - is a valid object ok 703 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 704 - is a valid object ok 705 - $x = Math::BigInt::Subclass->new("2"); $x->accuracy(2); $y = Math::BigInt::Subclass->new("0"); $x->$f($y); ok 706 - is a valid object ok 707 - $x->{_a} == 2 ok 708 - $x->{_p} is undef ok 709 - $x = Math::BigInt::Subclass->new("2"); $y = Math::BigInt::Subclass->new("0"); $y->accuracy(2); $x->$f($y); ok 710 - is a valid object ok 711 - $x->{_a} == 2 ok 712 - $x->{_p} is undef ok t/trap.t ...................................... 1..43 ok 1 - can config() ok 2 - trap_nan defaults to 0 ok 3 - trap_inf defaults to 0 ok 4 - trap_nan now true ok 5 - died ok 6 - $x after new() never modified ok 7 - trap_nan disabled ok 8 - trap_inf enabled ok 9 - died ok 10 - $x after new() never modified ok 11 - died ok 12 - $x after new() never modified ok 13 - died ok 14 - $x after new() never modified ok 15 - died ok 16 - $x after new() never modified ok 17 - died ok 18 - $x after new not modified ok 19 - died ok 20 - $x after new not modified ok 21 - can config() ok 22 - trap_nan defaults to 0 ok 23 - trap_inf defaults to 0 ok 24 - trap_nan now true ok 25 - died ok 26 - $x after new() never modified ok 27 - trap_nan disabled ok 28 - trap_inf enabled ok 29 - died ok 30 - $x after new() never modified ok 31 - died ok 32 - $x after new() never modified ok 33 - died ok 34 - $x after new() never modified ok 35 - died ok 36 - $x after new() never modified ok 37 - died ok 38 - $x after new not modified ok 39 - died ok 40 - $x after new not modified ok 41 - never modified since it dies ok 42 - never modified since it dies ok 43 - never modified since it dies ok t/upgrade.t ................................... 1..2126 ok 1 - Math::BigInt->upgrade() ok 2 - Math::BigInt->downgrade() || "" ok 3 - Math::BigInt->config('lib') ok 4 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("-345"); $x .= $y; ok 5 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x += $y; ok 6 - is a valid object ok 7 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x += $y; ok 8 - is a valid object ok 9 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x -= $y; ok 10 - is a valid object ok 11 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x -= $y; ok 12 - is a valid object ok 13 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x *= $y; ok 14 - is a valid object ok 15 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x *= $y; ok 16 - is a valid object ok 17 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x %= $y; ok 18 - is a valid object ok 19 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("9"); $x %= $y; ok 20 - is a valid object ok 21 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("3"); $x /= $y; ok 22 - is a valid object ok 23 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("2"); $x /= $y; ok 24 - is a valid object ok 25 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x |= $y; ok 26 - is a valid object ok 27 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x &= $y; ok 28 - is a valid object ok 29 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("7"); $x ^= $y; ok 30 - is a valid object ok 31 - $x = Math::BigInt->new("0"); $x->is_negative(); ok 32 - $x = Math::BigInt->new("-1"); $x->is_negative(); ok 33 - $x = Math::BigInt->new("1"); $x->is_negative(); ok 34 - $x = Math::BigInt->new("+inf"); $x->is_negative(); ok 35 - $x = Math::BigInt->new("-inf"); $x->is_negative(); ok 36 - $x = Math::BigInt->new("NaNneg"); $x->is_negative(); ok 37 - $x = Math::BigInt->new("0"); $x->is_positive(); ok 38 - $x = Math::BigInt->new("-1"); $x->is_positive(); ok 39 - $x = Math::BigInt->new("1"); $x->is_positive(); ok 40 - $x = Math::BigInt->new("+inf"); $x->is_positive(); ok 41 - $x = Math::BigInt->new("-inf"); $x->is_positive(); ok 42 - $x = Math::BigInt->new("NaNneg"); $x->is_positive(); ok 43 - $x = Math::BigInt->new("abc"); $x->is_odd(); ok 44 - $x = Math::BigInt->new("0"); $x->is_odd(); ok 45 - $x = Math::BigInt->new("1"); $x->is_odd(); ok 46 - $x = Math::BigInt->new("3"); $x->is_odd(); ok 47 - $x = Math::BigInt->new("-1"); $x->is_odd(); ok 48 - $x = Math::BigInt->new("-3"); $x->is_odd(); ok 49 - $x = Math::BigInt->new("10000001"); $x->is_odd(); ok 50 - $x = Math::BigInt->new("10000002"); $x->is_odd(); ok 51 - $x = Math::BigInt->new("2"); $x->is_odd(); ok 52 - $x = Math::BigInt->new("120"); $x->is_odd(); ok 53 - $x = Math::BigInt->new("121"); $x->is_odd(); ok 54 - $x = Math::BigInt->new("NaN"); $x->is_int(); ok 55 - $x = Math::BigInt->new("inf"); $x->is_int(); ok 56 - $x = Math::BigInt->new("-inf"); $x->is_int(); ok 57 - $x = Math::BigInt->new("1"); $x->is_int(); ok 58 - $x = Math::BigInt->new("12"); $x->is_int(); ok 59 - $x = Math::BigInt->new("123e12"); $x->is_int(); ok 60 - $x = Math::BigInt->new("abc"); $x->is_even(); ok 61 - $x = Math::BigInt->new("0"); $x->is_even(); ok 62 - $x = Math::BigInt->new("1"); $x->is_even(); ok 63 - $x = Math::BigInt->new("3"); $x->is_even(); ok 64 - $x = Math::BigInt->new("-1"); $x->is_even(); ok 65 - $x = Math::BigInt->new("-3"); $x->is_even(); ok 66 - $x = Math::BigInt->new("10000001"); $x->is_even(); ok 67 - $x = Math::BigInt->new("10000002"); $x->is_even(); ok 68 - $x = Math::BigInt->new("2"); $x->is_even(); ok 69 - $x = Math::BigInt->new("120"); $x->is_even(); ok 70 - $x = Math::BigInt->new("121"); $x->is_even(); ok 71 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-0"); $x->bacmp($y); ok 72 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 73 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x->bacmp($y); ok 74 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 75 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+2"); $x->bacmp($y); ok 76 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-1"); $x->bacmp($y); ok 77 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x->bacmp($y); ok 78 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bacmp($y); ok 79 - $x = Math::BigInt->new("+987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 80 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("+123456789"); $x->bacmp($y); ok 81 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("+4567889"); $x->bacmp($y); ok 82 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 83 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 84 - $x = Math::BigInt->new("acmpNaN"); $y = Math::BigInt->new("acmpNaN"); $x->bacmp($y); ok 85 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 86 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 87 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 88 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bacmp($y); ok 89 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 90 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("123"); $x->bacmp($y); ok 91 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 92 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-123"); $x->bacmp($y); ok 93 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 94 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bacmp($y); ok 95 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bacmp($y); ok 96 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bacmp($y); ok 97 - $x = Math::BigInt->bnorm("123"); ok 98 - is a valid object ok 99 - $x = Math::BigInt->bnorm("12.3"); ok 100 - ref($got) ok 101 - $Math::BigInt::upgrade ok 102 - is a valid object ok 103 - $x = Math::BigInt->bnorm("0babc"); ok 104 - is a valid object ok 105 - $x = Math::BigInt->bnorm("0b123"); ok 106 - is a valid object ok 107 - $x = Math::BigInt->bnorm("0b0"); ok 108 - is a valid object ok 109 - $x = Math::BigInt->bnorm("-0b0"); ok 110 - is a valid object ok 111 - $x = Math::BigInt->bnorm("-0b1"); ok 112 - is a valid object ok 113 - $x = Math::BigInt->bnorm("0b0001"); ok 114 - is a valid object ok 115 - $x = Math::BigInt->bnorm("0b001"); ok 116 - is a valid object ok 117 - $x = Math::BigInt->bnorm("0b011"); ok 118 - is a valid object ok 119 - $x = Math::BigInt->bnorm("0b101"); ok 120 - is a valid object ok 121 - $x = Math::BigInt->bnorm("0b1001"); ok 122 - is a valid object ok 123 - $x = Math::BigInt->bnorm("0b10001"); ok 124 - is a valid object ok 125 - $x = Math::BigInt->bnorm("0b100001"); ok 126 - is a valid object ok 127 - $x = Math::BigInt->bnorm("0b1000001"); ok 128 - is a valid object ok 129 - $x = Math::BigInt->bnorm("0b10000001"); ok 130 - is a valid object ok 131 - $x = Math::BigInt->bnorm("0b100000001"); ok 132 - is a valid object ok 133 - $x = Math::BigInt->bnorm("0b1000000001"); ok 134 - is a valid object ok 135 - $x = Math::BigInt->bnorm("0b10000000001"); ok 136 - is a valid object ok 137 - $x = Math::BigInt->bnorm("0b100000000001"); ok 138 - is a valid object ok 139 - $x = Math::BigInt->bnorm("0b1000000000001"); ok 140 - is a valid object ok 141 - $x = Math::BigInt->bnorm("0b10000000000001"); ok 142 - is a valid object ok 143 - $x = Math::BigInt->bnorm("0b100000000000001"); ok 144 - is a valid object ok 145 - $x = Math::BigInt->bnorm("0b1000000000000001"); ok 146 - is a valid object ok 147 - $x = Math::BigInt->bnorm("0b10000000000000001"); ok 148 - is a valid object ok 149 - $x = Math::BigInt->bnorm("0b100000000000000001"); ok 150 - is a valid object ok 151 - $x = Math::BigInt->bnorm("0b1000000000000000001"); ok 152 - is a valid object ok 153 - $x = Math::BigInt->bnorm("0b10000000000000000001"); ok 154 - is a valid object ok 155 - $x = Math::BigInt->bnorm("0b100000000000000000001"); ok 156 - is a valid object ok 157 - $x = Math::BigInt->bnorm("0b1000000000000000000001"); ok 158 - is a valid object ok 159 - $x = Math::BigInt->bnorm("0b10000000000000000000001"); ok 160 - is a valid object ok 161 - $x = Math::BigInt->bnorm("0b100000000000000000000001"); ok 162 - is a valid object ok 163 - $x = Math::BigInt->bnorm("0b1000000000000000000000001"); ok 164 - is a valid object ok 165 - $x = Math::BigInt->bnorm("0b10000000000000000000000001"); ok 166 - is a valid object ok 167 - $x = Math::BigInt->bnorm("0b100000000000000000000000001"); ok 168 - is a valid object ok 169 - $x = Math::BigInt->bnorm("0b1000000000000000000000000001"); ok 170 - is a valid object ok 171 - $x = Math::BigInt->bnorm("0b10000000000000000000000000001"); ok 172 - is a valid object ok 173 - $x = Math::BigInt->bnorm("0b100000000000000000000000000001"); ok 174 - is a valid object ok 175 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000001"); ok 176 - is a valid object ok 177 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000001"); ok 178 - is a valid object ok 179 - $x = Math::BigInt->bnorm("0b100000000000000000000000000000001"); ok 180 - is a valid object ok 181 - $x = Math::BigInt->bnorm("0b1000000000000000000000000000000001"); ok 182 - is a valid object ok 183 - $x = Math::BigInt->bnorm("0b10000000000000000000000000000000001"); ok 184 - is a valid object ok 185 - $x = Math::BigInt->bnorm("0b__101"); ok 186 - is a valid object ok 187 - $x = Math::BigInt->bnorm("0b1_0_1"); ok 188 - is a valid object ok 189 - $x = Math::BigInt->bnorm("0b0_0_0_1"); ok 190 - is a valid object ok 191 - $x = Math::BigInt->bnorm("-0x0"); ok 192 - is a valid object ok 193 - $x = Math::BigInt->bnorm("0xabcdefgh"); ok 194 - is a valid object ok 195 - $x = Math::BigInt->bnorm("0x1234"); ok 196 - is a valid object ok 197 - $x = Math::BigInt->bnorm("0xabcdef"); ok 198 - is a valid object ok 199 - $x = Math::BigInt->bnorm("-0xABCDEF"); ok 200 - is a valid object ok 201 - $x = Math::BigInt->bnorm("-0x1234"); ok 202 - is a valid object ok 203 - $x = Math::BigInt->bnorm("0x12345678"); ok 204 - is a valid object ok 205 - $x = Math::BigInt->bnorm("0x1_2_3_4_56_78"); ok 206 - is a valid object ok 207 - $x = Math::BigInt->bnorm("0xa_b_c_d_e_f"); ok 208 - is a valid object ok 209 - $x = Math::BigInt->bnorm("0x__123"); ok 210 - is a valid object ok 211 - $x = Math::BigInt->bnorm("0x9"); ok 212 - is a valid object ok 213 - $x = Math::BigInt->bnorm("0x11"); ok 214 - is a valid object ok 215 - $x = Math::BigInt->bnorm("0x21"); ok 216 - is a valid object ok 217 - $x = Math::BigInt->bnorm("0x41"); ok 218 - is a valid object ok 219 - $x = Math::BigInt->bnorm("0x81"); ok 220 - is a valid object ok 221 - $x = Math::BigInt->bnorm("0x101"); ok 222 - is a valid object ok 223 - $x = Math::BigInt->bnorm("0x201"); ok 224 - is a valid object ok 225 - $x = Math::BigInt->bnorm("0x401"); ok 226 - is a valid object ok 227 - $x = Math::BigInt->bnorm("0x801"); ok 228 - is a valid object ok 229 - $x = Math::BigInt->bnorm("0x1001"); ok 230 - is a valid object ok 231 - $x = Math::BigInt->bnorm("0x2001"); ok 232 - is a valid object ok 233 - $x = Math::BigInt->bnorm("0x4001"); ok 234 - is a valid object ok 235 - $x = Math::BigInt->bnorm("0x8001"); ok 236 - is a valid object ok 237 - $x = Math::BigInt->bnorm("0x10001"); ok 238 - is a valid object ok 239 - $x = Math::BigInt->bnorm("0x20001"); ok 240 - is a valid object ok 241 - $x = Math::BigInt->bnorm("0x40001"); ok 242 - is a valid object ok 243 - $x = Math::BigInt->bnorm("0x80001"); ok 244 - is a valid object ok 245 - $x = Math::BigInt->bnorm("0x100001"); ok 246 - is a valid object ok 247 - $x = Math::BigInt->bnorm("0x200001"); ok 248 - is a valid object ok 249 - $x = Math::BigInt->bnorm("0x400001"); ok 250 - is a valid object ok 251 - $x = Math::BigInt->bnorm("0x800001"); ok 252 - is a valid object ok 253 - $x = Math::BigInt->bnorm("0x1000001"); ok 254 - is a valid object ok 255 - $x = Math::BigInt->bnorm("0x2000001"); ok 256 - is a valid object ok 257 - $x = Math::BigInt->bnorm("0x4000001"); ok 258 - is a valid object ok 259 - $x = Math::BigInt->bnorm("0x8000001"); ok 260 - is a valid object ok 261 - $x = Math::BigInt->bnorm("0x10000001"); ok 262 - is a valid object ok 263 - $x = Math::BigInt->bnorm("0x20000001"); ok 264 - is a valid object ok 265 - $x = Math::BigInt->bnorm("0x40000001"); ok 266 - is a valid object ok 267 - $x = Math::BigInt->bnorm("0x80000001"); ok 268 - is a valid object ok 269 - $x = Math::BigInt->bnorm("0x100000001"); ok 270 - is a valid object ok 271 - $x = Math::BigInt->bnorm("0x200000001"); ok 272 - is a valid object ok 273 - $x = Math::BigInt->bnorm("0x400000001"); ok 274 - is a valid object ok 275 - $x = Math::BigInt->bnorm("0x800000001"); ok 276 - is a valid object ok 277 - $x = Math::BigInt->bnorm("inf"); ok 278 - is a valid object ok 279 - $x = Math::BigInt->bnorm("+inf"); ok 280 - is a valid object ok 281 - $x = Math::BigInt->bnorm("-inf"); ok 282 - is a valid object ok 283 - $x = Math::BigInt->bnorm("0inf"); ok 284 - is a valid object ok 285 - $x = Math::BigInt->bnorm(""); ok 286 - is a valid object ok 287 - $x = Math::BigInt->bnorm("abc"); ok 288 - is a valid object ok 289 - $x = Math::BigInt->bnorm(" 1 a"); ok 290 - is a valid object ok 291 - $x = Math::BigInt->bnorm("1bcd2"); ok 292 - is a valid object ok 293 - $x = Math::BigInt->bnorm("11111b"); ok 294 - is a valid object ok 295 - $x = Math::BigInt->bnorm("+1z"); ok 296 - is a valid object ok 297 - $x = Math::BigInt->bnorm("-1z"); ok 298 - is a valid object ok 299 - $x = Math::BigInt->bnorm("_123"); ok 300 - is a valid object ok 301 - $x = Math::BigInt->bnorm("_123_"); ok 302 - is a valid object ok 303 - $x = Math::BigInt->bnorm("123_"); ok 304 - is a valid object ok 305 - $x = Math::BigInt->bnorm("1__23"); ok 306 - is a valid object ok 307 - $x = Math::BigInt->bnorm("1E1__2"); ok 308 - is a valid object ok 309 - $x = Math::BigInt->bnorm("1_E12"); ok 310 - is a valid object ok 311 - $x = Math::BigInt->bnorm("1E_12"); ok 312 - is a valid object ok 313 - $x = Math::BigInt->bnorm("1_E_12"); ok 314 - is a valid object ok 315 - $x = Math::BigInt->bnorm("+_1E12"); ok 316 - is a valid object ok 317 - $x = Math::BigInt->bnorm("+0_1E2"); ok 318 - is a valid object ok 319 - $x = Math::BigInt->bnorm("+0_0_1E2"); ok 320 - is a valid object ok 321 - $x = Math::BigInt->bnorm("-0_0_1E2"); ok 322 - is a valid object ok 323 - $x = Math::BigInt->bnorm("-0_0_1E+0_0_2"); ok 324 - is a valid object ok 325 - $x = Math::BigInt->bnorm("E1"); ok 326 - is a valid object ok 327 - $x = Math::BigInt->bnorm("E23"); ok 328 - is a valid object ok 329 - $x = Math::BigInt->bnorm("1.23E1"); ok 330 - ref($got) ok 331 - $Math::BigInt::upgrade ok 332 - is a valid object ok 333 - $x = Math::BigInt->bnorm("1.23E-1"); ok 334 - ref($got) ok 335 - $Math::BigInt::upgrade ok 336 - is a valid object ok 337 - $x = Math::BigInt->bnorm("1e2e3"); ok 338 - is a valid object ok 339 - $x = Math::BigInt->bnorm("1e2r"); ok 340 - is a valid object ok 341 - $x = Math::BigInt->bnorm("1e2.0"); ok 342 - is a valid object ok 343 - $x = Math::BigInt->bnorm("012"); ok 344 - is a valid object ok 345 - $x = Math::BigInt->bnorm("0123"); ok 346 - is a valid object ok 347 - $x = Math::BigInt->bnorm("01234"); ok 348 - is a valid object ok 349 - $x = Math::BigInt->bnorm("012345"); ok 350 - is a valid object ok 351 - $x = Math::BigInt->bnorm("0123456"); ok 352 - is a valid object ok 353 - $x = Math::BigInt->bnorm("01234567"); ok 354 - is a valid object ok 355 - $x = Math::BigInt->bnorm("012345678"); ok 356 - is a valid object ok 357 - $x = Math::BigInt->bnorm("0123456789"); ok 358 - is a valid object ok 359 - $x = Math::BigInt->bnorm("01234567891"); ok 360 - is a valid object ok 361 - $x = Math::BigInt->bnorm("012345678912"); ok 362 - is a valid object ok 363 - $x = Math::BigInt->bnorm("0123456789123"); ok 364 - is a valid object ok 365 - $x = Math::BigInt->bnorm("01234567891234"); ok 366 - is a valid object ok 367 - $x = Math::BigInt->bnorm("0"); ok 368 - is a valid object ok 369 - $x = Math::BigInt->bnorm("+0"); ok 370 - is a valid object ok 371 - $x = Math::BigInt->bnorm("+00"); ok 372 - is a valid object ok 373 - $x = Math::BigInt->bnorm("+000"); ok 374 - is a valid object ok 375 - $x = Math::BigInt->bnorm("000000000000000000"); ok 376 - is a valid object ok 377 - $x = Math::BigInt->bnorm("-0"); ok 378 - is a valid object ok 379 - $x = Math::BigInt->bnorm("-0000"); ok 380 - is a valid object ok 381 - $x = Math::BigInt->bnorm("+1"); ok 382 - is a valid object ok 383 - $x = Math::BigInt->bnorm("+01"); ok 384 - is a valid object ok 385 - $x = Math::BigInt->bnorm("+001"); ok 386 - is a valid object ok 387 - $x = Math::BigInt->bnorm("+00000100000"); ok 388 - is a valid object ok 389 - $x = Math::BigInt->bnorm("123456789"); ok 390 - is a valid object ok 391 - $x = Math::BigInt->bnorm("-1"); ok 392 - is a valid object ok 393 - $x = Math::BigInt->bnorm("-01"); ok 394 - is a valid object ok 395 - $x = Math::BigInt->bnorm("-001"); ok 396 - is a valid object ok 397 - $x = Math::BigInt->bnorm("-123456789"); ok 398 - is a valid object ok 399 - $x = Math::BigInt->bnorm("-00000100000"); ok 400 - is a valid object ok 401 - $x = Math::BigInt->bnorm("1_2_3"); ok 402 - is a valid object ok 403 - $x = Math::BigInt->bnorm("10000000000E-1_0"); ok 404 - is a valid object ok 405 - $x = Math::BigInt->bnorm("1E2"); ok 406 - is a valid object ok 407 - $x = Math::BigInt->bnorm("1E1"); ok 408 - is a valid object ok 409 - $x = Math::BigInt->bnorm("1E0"); ok 410 - is a valid object ok 411 - $x = Math::BigInt->bnorm("1.23E2"); ok 412 - is a valid object ok 413 - $x = Math::BigInt->bnorm("100E-1"); ok 414 - is a valid object ok 415 - $x = Math::BigInt->bnorm("1.E3"); ok 416 - is a valid object ok 417 - $x = Math::BigInt->bnorm("1.01E2"); ok 418 - is a valid object ok 419 - $x = Math::BigInt->bnorm("1010E-1"); ok 420 - is a valid object ok 421 - $x = Math::BigInt->bnorm("-1010E0"); ok 422 - is a valid object ok 423 - $x = Math::BigInt->bnorm("-1010E1"); ok 424 - is a valid object ok 425 - $x = Math::BigInt->bnorm("1234.00"); ok 426 - is a valid object ok 427 - $x = Math::BigInt->bnorm("-1010E-2"); ok 428 - ref($got) ok 429 - $Math::BigInt::upgrade ok 430 - is a valid object ok 431 - $x = Math::BigInt->bnorm("-1.01E+1"); ok 432 - ref($got) ok 433 - $Math::BigInt::upgrade ok 434 - is a valid object ok 435 - $x = Math::BigInt->bnorm("-1.01E-1"); ok 436 - ref($got) ok 437 - $Math::BigInt::upgrade ok 438 - is a valid object ok 439 - $x = Math::BigInt->new("1"); $x->bnan(); ok 440 - is a valid object ok 441 - $x = Math::BigInt->new("2"); $x->bnan(); ok 442 - is a valid object ok 443 - $x = Math::BigInt->new("abc"); $x->bnan(); ok 444 - is a valid object ok 445 - $x = Math::BigInt->new("2"); $x->bone('+'); ok 446 - is a valid object ok 447 - $x = Math::BigInt->new("2"); $x->bone('-'); ok 448 - is a valid object ok 449 - $x = Math::BigInt->new("boneNaN"); $x->bone('-'); ok 450 - is a valid object ok 451 - $x = Math::BigInt->new("boneNaN"); $x->bone('+'); ok 452 - is a valid object ok 453 - $x = Math::BigInt->new("2"); $x->bone('abc'); ok 454 - is a valid object ok 455 - $x = Math::BigInt->new("3"); $x->bone(''); ok 456 - is a valid object ok 457 - $x = Math::BigInt->new("1"); $x->binf('+'); ok 458 - is a valid object ok 459 - $x = Math::BigInt->new("2"); $x->binf('-'); ok 460 - is a valid object ok 461 - $x = Math::BigInt->new("3"); $x->binf('abc'); ok 462 - is a valid object ok 463 - $x = Math::BigInt->new("123"); $x->is_nan(); ok 464 - $x = Math::BigInt->new("abc"); $x->is_nan(); ok 465 - $x = Math::BigInt->new("NaN"); $x->is_nan(); ok 466 - $x = Math::BigInt->new("-123"); $x->is_nan(); ok 467 - $x = Math::BigInt->new("+inf"); $x->is_inf(''); ok 468 - $x = Math::BigInt->new("-inf"); $x->is_inf(''); ok 469 - $x = Math::BigInt->new("abc"); $x->is_inf(''); ok 470 - $x = Math::BigInt->new("1"); $x->is_inf(''); ok 471 - $x = Math::BigInt->new("NaN"); $x->is_inf(''); ok 472 - $x = Math::BigInt->new("-1"); $x->is_inf(''); ok 473 - $x = Math::BigInt->new("+inf"); $x->is_inf('-'); ok 474 - $x = Math::BigInt->new("+inf"); $x->is_inf('+'); ok 475 - $x = Math::BigInt->new("-inf"); $x->is_inf('-'); ok 476 - $x = Math::BigInt->new("-inf"); $x->is_inf('+'); ok 477 - $x = Math::BigInt->new("+iNfInItY"); $x->is_inf(''); ok 478 - $x = Math::BigInt->new("-InFiNiTy"); $x->is_inf(''); ok 479 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x << $y; ok 480 - is a valid object ok 481 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+2"); $x << $y; ok 482 - is a valid object ok 483 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+32"); $x << $y; ok 484 - is a valid object ok 485 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+48"); $x << $y; ok 486 - is a valid object ok 487 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("-2"); $x << $y; ok 488 - is a valid object ok 489 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("4"); $x->blsft($y, 10); ok 490 - is a valid object ok 491 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 492 - is a valid object ok 493 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->blsft($y, 10); ok 494 - is a valid object ok 495 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 496 - is a valid object ok 497 - $x = Math::BigInt->new("+12"); $y = Math::BigInt->new("2"); $x->blsft($y, 10); ok 498 - is a valid object ok 499 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->blsft($y, 10); ok 500 - is a valid object ok 501 - $x = Math::BigInt->new("1234567890123"); $y = Math::BigInt->new("12"); $x->blsft($y, 10); ok 502 - is a valid object ok 503 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x >> $y; ok 504 - is a valid object ok 505 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x >> $y; ok 506 - is a valid object ok 507 - $x = Math::BigInt->new("+4294967296"); $y = Math::BigInt->new("+32"); $x >> $y; ok 508 - is a valid object ok 509 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+48"); $x >> $y; ok 510 - is a valid object ok 511 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-2"); $x >> $y; ok 512 - is a valid object ok 513 - $x = Math::BigInt->new("-1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 514 - is a valid object ok 515 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("0"); $x->brsft($y, 10); ok 516 - is a valid object ok 517 - $x = Math::BigInt->new("+200"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 518 - is a valid object ok 519 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("3"); $x->brsft($y, 10); ok 520 - is a valid object ok 521 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("2"); $x->brsft($y, 10); ok 522 - is a valid object ok 523 - $x = Math::BigInt->new("+1234"); $y = Math::BigInt->new("-3"); $x->brsft($y, 10); ok 524 - is a valid object ok 525 - $x = Math::BigInt->new("310000"); $y = Math::BigInt->new("4"); $x->brsft($y, 10); ok 526 - is a valid object ok 527 - $x = Math::BigInt->new("12300000"); $y = Math::BigInt->new("5"); $x->brsft($y, 10); ok 528 - is a valid object ok 529 - $x = Math::BigInt->new("1230000000000"); $y = Math::BigInt->new("10"); $x->brsft($y, 10); ok 530 - is a valid object ok 531 - $x = Math::BigInt->new("09876123456789067890"); $y = Math::BigInt->new("12"); $x->brsft($y, 10); ok 532 - is a valid object ok 533 - $x = Math::BigInt->new("1234561234567890123"); $y = Math::BigInt->new("13"); $x->brsft($y, 10); ok 534 - is a valid object ok 535 - $x = Math::BigInt->new("1e+34"); $x->bsstr(); ok 536 - $x = Math::BigInt->new("123.456E3"); $x->bsstr(); ok 537 - $x = Math::BigInt->new("100"); $x->bsstr(); ok 538 - $x = Math::BigInt->new("abc"); $x->bsstr(); ok 539 - $x = Math::BigInt->new("bnegNaN"); $x->bneg(); ok 540 - is a valid object ok 541 - $x = Math::BigInt->new("+inf"); $x->bneg(); ok 542 - is a valid object ok 543 - $x = Math::BigInt->new("-inf"); $x->bneg(); ok 544 - is a valid object ok 545 - $x = Math::BigInt->new("abd"); $x->bneg(); ok 546 - is a valid object ok 547 - $x = Math::BigInt->new("0"); $x->bneg(); ok 548 - is a valid object ok 549 - $x = Math::BigInt->new("1"); $x->bneg(); ok 550 - is a valid object ok 551 - $x = Math::BigInt->new("-1"); $x->bneg(); ok 552 - is a valid object ok 553 - $x = Math::BigInt->new("+123456789"); $x->bneg(); ok 554 - is a valid object ok 555 - $x = Math::BigInt->new("-123456789"); $x->bneg(); ok 556 - is a valid object ok 557 - $x = Math::BigInt->new("babsNaN"); $x->babs(); ok 558 - is a valid object ok 559 - $x = Math::BigInt->new("+inf"); $x->babs(); ok 560 - is a valid object ok 561 - $x = Math::BigInt->new("-inf"); $x->babs(); ok 562 - is a valid object ok 563 - $x = Math::BigInt->new("0"); $x->babs(); ok 564 - is a valid object ok 565 - $x = Math::BigInt->new("1"); $x->babs(); ok 566 - is a valid object ok 567 - $x = Math::BigInt->new("-1"); $x->babs(); ok 568 - is a valid object ok 569 - $x = Math::BigInt->new("+123456789"); $x->babs(); ok 570 - is a valid object ok 571 - $x = Math::BigInt->new("-123456789"); $x->babs(); ok 572 - is a valid object ok 573 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 574 - $x = Math::BigInt->new("bcmpNaN"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 575 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("bcmpNaN"); $x->bcmp($y); ok 576 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 577 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 578 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 579 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x->bcmp($y); ok 580 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 581 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 582 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 583 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x->bcmp($y); ok 584 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x->bcmp($y); ok 585 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 586 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("12"); $x->bcmp($y); ok 587 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 588 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 589 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-12"); $x->bcmp($y); ok 590 - $x = Math::BigInt->new("-12"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 591 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("124"); $x->bcmp($y); ok 592 - $x = Math::BigInt->new("124"); $y = Math::BigInt->new("123"); $x->bcmp($y); ok 593 - $x = Math::BigInt->new("-123"); $y = Math::BigInt->new("-124"); $x->bcmp($y); ok 594 - $x = Math::BigInt->new("-124"); $y = Math::BigInt->new("-123"); $x->bcmp($y); ok 595 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("5"); $x->bcmp($y); ok 596 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x->bcmp($y); ok 597 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x->bcmp($y); ok 598 - $x = Math::BigInt->new("-987654321"); $y = Math::BigInt->new("123456789"); $x->bcmp($y); ok 599 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 600 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("5432112345"); $x->bcmp($y); ok 601 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 602 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-5432112345"); $x->bcmp($y); ok 603 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 604 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 605 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 606 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x->bcmp($y); ok 607 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 608 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 609 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 610 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 611 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 612 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("inf"); $x->bcmp($y); ok 613 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaN"); $x->bcmp($y); ok 614 - $x = Math::BigInt->new("NaN"); $y = Math::BigInt->new("-inf"); $x->bcmp($y); ok 615 - $x = Math::BigInt->new("abc"); $x->binc(); ok 616 - is a valid object ok 617 - $x = Math::BigInt->new("+inf"); $x->binc(); ok 618 - is a valid object ok 619 - $x = Math::BigInt->new("-inf"); $x->binc(); ok 620 - is a valid object ok 621 - $x = Math::BigInt->new("+0"); $x->binc(); ok 622 - is a valid object ok 623 - $x = Math::BigInt->new("+1"); $x->binc(); ok 624 - is a valid object ok 625 - $x = Math::BigInt->new("-1"); $x->binc(); ok 626 - is a valid object ok 627 - $x = Math::BigInt->new("abc"); $x->bdec(); ok 628 - is a valid object ok 629 - $x = Math::BigInt->new("+inf"); $x->bdec(); ok 630 - is a valid object ok 631 - $x = Math::BigInt->new("-inf"); $x->bdec(); ok 632 - is a valid object ok 633 - $x = Math::BigInt->new("+0"); $x->bdec(); ok 634 - is a valid object ok 635 - $x = Math::BigInt->new("+1"); $x->bdec(); ok 636 - is a valid object ok 637 - $x = Math::BigInt->new("-1"); $x->bdec(); ok 638 - is a valid object ok 639 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x + $y; ok 640 - is a valid object ok 641 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x + $y; ok 642 - is a valid object ok 643 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x + $y; ok 644 - is a valid object ok 645 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x + $y; ok 646 - is a valid object ok 647 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x + $y; ok 648 - is a valid object ok 649 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x + $y; ok 650 - is a valid object ok 651 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x + $y; ok 652 - is a valid object ok 653 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x + $y; ok 654 - is a valid object ok 655 - $x = Math::BigInt->new("baddNaN"); $y = Math::BigInt->new("+inf"); $x + $y; ok 656 - is a valid object ok 657 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("baddNaN"); $x + $y; ok 658 - is a valid object ok 659 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("baddNaN"); $x + $y; ok 660 - is a valid object ok 661 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x + $y; ok 662 - is a valid object ok 663 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x + $y; ok 664 - is a valid object ok 665 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x + $y; ok 666 - is a valid object ok 667 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x + $y; ok 668 - is a valid object ok 669 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x + $y; ok 670 - is a valid object ok 671 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x + $y; ok 672 - is a valid object ok 673 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x + $y; ok 674 - is a valid object ok 675 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x + $y; ok 676 - is a valid object ok 677 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x + $y; ok 678 - is a valid object ok 679 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x + $y; ok 680 - is a valid object ok 681 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x + $y; ok 682 - is a valid object ok 683 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x + $y; ok 684 - is a valid object ok 685 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x + $y; ok 686 - is a valid object ok 687 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x + $y; ok 688 - is a valid object ok 689 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 690 - is a valid object ok 691 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 692 - is a valid object ok 693 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 694 - is a valid object ok 695 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 696 - is a valid object ok 697 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 698 - is a valid object ok 699 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x + $y; ok 700 - is a valid object ok 701 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x + $y; ok 702 - is a valid object ok 703 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x + $y; ok 704 - is a valid object ok 705 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x + $y; ok 706 - is a valid object ok 707 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x + $y; ok 708 - is a valid object ok 709 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x + $y; ok 710 - is a valid object ok 711 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x + $y; ok 712 - is a valid object ok 713 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x + $y; ok 714 - is a valid object ok 715 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x + $y; ok 716 - is a valid object ok 717 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x + $y; ok 718 - is a valid object ok 719 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x + $y; ok 720 - is a valid object ok 721 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("987654321"); $x + $y; ok 722 - is a valid object ok 723 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("987654321"); $x + $y; ok 724 - is a valid object ok 725 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x + $y; ok 726 - is a valid object ok 727 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x + $y; ok 728 - is a valid object ok 729 - $x = Math::BigInt->new("2"); $y = Math::BigFloat->new("2.5"); $x + $y; ok 730 - ref($got) ok 731 - $Math::BigInt::upgrade ok 732 - is a valid object ok 733 - $x = Math::BigInt->new("-123"); $y = Math::BigFloat->new("-1.5"); $x + $y; ok 734 - ref($got) ok 735 - $Math::BigInt::upgrade ok 736 - is a valid object ok 737 - $x = Math::BigInt->new("-1.2"); $y = Math::BigInt->new("1"); $x + $y; ok 738 - ref($got) ok 739 - $Math::BigInt::upgrade ok 740 - is a valid object ok 741 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x - $y; ok 742 - is a valid object ok 743 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x - $y; ok 744 - is a valid object ok 745 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x - $y; ok 746 - is a valid object ok 747 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x - $y; ok 748 - is a valid object ok 749 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x - $y; ok 750 - is a valid object ok 751 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x - $y; ok 752 - is a valid object ok 753 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x - $y; ok 754 - is a valid object ok 755 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x - $y; ok 756 - is a valid object ok 757 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x - $y; ok 758 - is a valid object ok 759 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x - $y; ok 760 - is a valid object ok 761 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x - $y; ok 762 - is a valid object ok 763 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x - $y; ok 764 - is a valid object ok 765 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x - $y; ok 766 - is a valid object ok 767 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x - $y; ok 768 - is a valid object ok 769 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x - $y; ok 770 - is a valid object ok 771 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x - $y; ok 772 - is a valid object ok 773 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("+1"); $x - $y; ok 774 - is a valid object ok 775 - $x = Math::BigInt->new("+99"); $y = Math::BigInt->new("+1"); $x - $y; ok 776 - is a valid object ok 777 - $x = Math::BigInt->new("+999"); $y = Math::BigInt->new("+1"); $x - $y; ok 778 - is a valid object ok 779 - $x = Math::BigInt->new("+9999"); $y = Math::BigInt->new("+1"); $x - $y; ok 780 - is a valid object ok 781 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+1"); $x - $y; ok 782 - is a valid object ok 783 - $x = Math::BigInt->new("+999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 784 - is a valid object ok 785 - $x = Math::BigInt->new("+9999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 786 - is a valid object ok 787 - $x = Math::BigInt->new("+99999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 788 - is a valid object ok 789 - $x = Math::BigInt->new("+999999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 790 - is a valid object ok 791 - $x = Math::BigInt->new("+9999999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 792 - is a valid object ok 793 - $x = Math::BigInt->new("+99999999999"); $y = Math::BigInt->new("+1"); $x - $y; ok 794 - is a valid object ok 795 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("-1"); $x - $y; ok 796 - is a valid object ok 797 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("-1"); $x - $y; ok 798 - is a valid object ok 799 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("-1"); $x - $y; ok 800 - is a valid object ok 801 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("-1"); $x - $y; ok 802 - is a valid object ok 803 - $x = Math::BigInt->new("+100000"); $y = Math::BigInt->new("-1"); $x - $y; ok 804 - is a valid object ok 805 - $x = Math::BigInt->new("+1000000"); $y = Math::BigInt->new("-1"); $x - $y; ok 806 - is a valid object ok 807 - $x = Math::BigInt->new("+10000000"); $y = Math::BigInt->new("-1"); $x - $y; ok 808 - is a valid object ok 809 - $x = Math::BigInt->new("+100000000"); $y = Math::BigInt->new("-1"); $x - $y; ok 810 - is a valid object ok 811 - $x = Math::BigInt->new("+1000000000"); $y = Math::BigInt->new("-1"); $x - $y; ok 812 - is a valid object ok 813 - $x = Math::BigInt->new("+10000000000"); $y = Math::BigInt->new("-1"); $x - $y; ok 814 - is a valid object ok 815 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("+987654321"); $x - $y; ok 816 - is a valid object ok 817 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("+987654321"); $x - $y; ok 818 - is a valid object ok 819 - $x = Math::BigInt->new("-123456789"); $y = Math::BigInt->new("-987654321"); $x - $y; ok 820 - is a valid object ok 821 - $x = Math::BigInt->new("+123456789"); $y = Math::BigInt->new("-987654321"); $x - $y; ok 822 - is a valid object ok 823 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x * $y; ok 824 - is a valid object ok 825 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); $x * $y; ok 826 - is a valid object ok 827 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); $x * $y; ok 828 - is a valid object ok 829 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("+inf"); $x * $y; ok 830 - is a valid object ok 831 - $x = Math::BigInt->new("NaNmul"); $y = Math::BigInt->new("-inf"); $x * $y; ok 832 - is a valid object ok 833 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("NaNmul"); $x * $y; ok 834 - is a valid object ok 835 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("NaNmul"); $x * $y; ok 836 - is a valid object ok 837 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("+inf"); $x * $y; ok 838 - is a valid object ok 839 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-inf"); $x * $y; ok 840 - is a valid object ok 841 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("+inf"); $x * $y; ok 842 - is a valid object ok 843 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x * $y; ok 844 - is a valid object ok 845 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); $x * $y; ok 846 - is a valid object ok 847 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); $x * $y; ok 848 - is a valid object ok 849 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); $x * $y; ok 850 - is a valid object ok 851 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("-1"); $x * $y; ok 852 - is a valid object ok 853 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+0"); $x * $y; ok 854 - is a valid object ok 855 - $x = Math::BigInt->new("123456789123456789"); $y = Math::BigInt->new("0"); $x * $y; ok 856 - is a valid object ok 857 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("123456789123456789"); $x * $y; ok 858 - is a valid object ok 859 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x * $y; ok 860 - is a valid object ok 861 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("+1"); $x * $y; ok 862 - is a valid object ok 863 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("-1"); $x * $y; ok 864 - is a valid object ok 865 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); $x * $y; ok 866 - is a valid object ok 867 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); $x * $y; ok 868 - is a valid object ok 869 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("+3"); $x * $y; ok 870 - is a valid object ok 871 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("-3"); $x * $y; ok 872 - is a valid object ok 873 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x * $y; ok 874 - is a valid object ok 875 - $x = Math::BigInt->new("111"); $y = Math::BigInt->new("111"); $x * $y; ok 876 - is a valid object ok 877 - $x = Math::BigInt->new("10101"); $y = Math::BigInt->new("10101"); $x * $y; ok 878 - is a valid object ok 879 - $x = Math::BigInt->new("1001001"); $y = Math::BigInt->new("1001001"); $x * $y; ok 880 - is a valid object ok 881 - $x = Math::BigInt->new("100010001"); $y = Math::BigInt->new("100010001"); $x * $y; ok 882 - is a valid object ok 883 - $x = Math::BigInt->new("10000100001"); $y = Math::BigInt->new("10000100001"); $x * $y; ok 884 - is a valid object ok 885 - $x = Math::BigInt->new("11111111111"); $y = Math::BigInt->new("9"); $x * $y; ok 886 - is a valid object ok 887 - $x = Math::BigInt->new("22222222222"); $y = Math::BigInt->new("9"); $x * $y; ok 888 - is a valid object ok 889 - $x = Math::BigInt->new("33333333333"); $y = Math::BigInt->new("9"); $x * $y; ok 890 - is a valid object ok 891 - $x = Math::BigInt->new("44444444444"); $y = Math::BigInt->new("9"); $x * $y; ok 892 - is a valid object ok 893 - $x = Math::BigInt->new("55555555555"); $y = Math::BigInt->new("9"); $x * $y; ok 894 - is a valid object ok 895 - $x = Math::BigInt->new("66666666666"); $y = Math::BigInt->new("9"); $x * $y; ok 896 - is a valid object ok 897 - $x = Math::BigInt->new("77777777777"); $y = Math::BigInt->new("9"); $x * $y; ok 898 - is a valid object ok 899 - $x = Math::BigInt->new("88888888888"); $y = Math::BigInt->new("9"); $x * $y; ok 900 - is a valid object ok 901 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("9"); $x * $y; ok 902 - is a valid object ok 903 - $x = Math::BigInt->new("+25"); $y = Math::BigInt->new("+25"); $x * $y; ok 904 - is a valid object ok 905 - $x = Math::BigInt->new("+12345"); $y = Math::BigInt->new("+12345"); $x * $y; ok 906 - is a valid object ok 907 - $x = Math::BigInt->new("+99999"); $y = Math::BigInt->new("+11111"); $x * $y; ok 908 - is a valid object ok 909 - $x = Math::BigInt->new("9999"); $y = Math::BigInt->new("10000"); $x * $y; ok 910 - is a valid object ok 911 - $x = Math::BigInt->new("99999"); $y = Math::BigInt->new("100000"); $x * $y; ok 912 - is a valid object ok 913 - $x = Math::BigInt->new("999999"); $y = Math::BigInt->new("1000000"); $x * $y; ok 914 - is a valid object ok 915 - $x = Math::BigInt->new("9999999"); $y = Math::BigInt->new("10000000"); $x * $y; ok 916 - is a valid object ok 917 - $x = Math::BigInt->new("99999999"); $y = Math::BigInt->new("100000000"); $x * $y; ok 918 - is a valid object ok 919 - $x = Math::BigInt->new("999999999"); $y = Math::BigInt->new("1000000000"); $x * $y; ok 920 - is a valid object ok 921 - $x = Math::BigInt->new("9999999999"); $y = Math::BigInt->new("10000000000"); $x * $y; ok 922 - is a valid object ok 923 - $x = Math::BigInt->new("99999999999"); $y = Math::BigInt->new("100000000000"); $x * $y; ok 924 - is a valid object ok 925 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("1000000000000"); $x * $y; ok 926 - is a valid object ok 927 - $x = Math::BigInt->new("9999999999999"); $y = Math::BigInt->new("10000000000000"); $x * $y; ok 928 - is a valid object ok 929 - $x = Math::BigInt->new("99999999999999"); $y = Math::BigInt->new("100000000000000"); $x * $y; ok 930 - is a valid object ok 931 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("1000000000000000"); $x * $y; ok 932 - is a valid object ok 933 - $x = Math::BigInt->new("9999999999999999"); $y = Math::BigInt->new("10000000000000000"); $x * $y; ok 934 - is a valid object ok 935 - $x = Math::BigInt->new("99999999999999999"); $y = Math::BigInt->new("100000000000000000"); $x * $y; ok 936 - is a valid object ok 937 - $x = Math::BigInt->new("999999999999999999"); $y = Math::BigInt->new("1000000000000000000"); $x * $y; ok 938 - is a valid object ok 939 - $x = Math::BigInt->new("9999999999999999999"); $y = Math::BigInt->new("10000000000000000000"); $x * $y; ok 940 - is a valid object ok 941 - $x = Math::BigInt->new("3"); $y = Math::BigFloat->new("3.5"); $x * $y; ok 942 - ref($got) ok 943 - $Math::BigInt::upgrade ok 944 - is a valid object ok 945 - $x = Math::BigInt->new("3.5"); $y = Math::BigInt->new("3"); $x * $y; ok 946 - ref($got) ok 947 - $Math::BigInt::upgrade ok 948 - is a valid object ok 949 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("20"); join(",", $x->bdiv($y)); ok 950 - $x = Math::BigInt->new("4095"); $y = Math::BigInt->new("4095"); join(",", $x->bdiv($y)); ok 951 - $x = Math::BigInt->new("-4095"); $y = Math::BigInt->new("-4095"); join(",", $x->bdiv($y)); ok 952 - $x = Math::BigInt->new("4095"); $y = Math::BigInt->new("-4095"); join(",", $x->bdiv($y)); ok 953 - $x = Math::BigInt->new("-4095"); $y = Math::BigInt->new("4095"); join(",", $x->bdiv($y)); ok 954 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 955 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 956 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("4"); join(",", $x->bdiv($y)); ok 957 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("8"); join(",", $x->bdiv($y)); ok 958 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("8"); join(",", $x->bdiv($y)); ok 959 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 960 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("-2"); join(",", $x->bdiv($y)); ok 961 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("2"); join(",", $x->bdiv($y)); ok 962 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 963 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 964 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 965 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 966 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 967 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 968 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 969 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 970 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 971 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 972 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); join(",", $x->bdiv($y)); ok 973 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); join(",", $x->bdiv($y)); ok 974 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 975 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 976 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); join(",", $x->bdiv($y)); ok 977 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); join(",", $x->bdiv($y)); ok 978 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 979 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 980 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 981 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 982 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); join(",", $x->bdiv($y)); ok 983 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x / $y; ok 984 - is a valid object ok 985 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("1"); $x / $y; ok 986 - is a valid object ok 987 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("abc"); $x / $y; ok 988 - is a valid object ok 989 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x / $y; ok 990 - is a valid object ok 991 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x / $y; ok 992 - is a valid object ok 993 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x / $y; ok 994 - is a valid object ok 995 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x / $y; ok 996 - is a valid object ok 997 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x / $y; ok 998 - is a valid object ok 999 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x / $y; ok 1000 - is a valid object ok 1001 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x / $y; ok 1002 - is a valid object ok 1003 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x / $y; ok 1004 - is a valid object ok 1005 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x / $y; ok 1006 - is a valid object ok 1007 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x / $y; ok 1008 - is a valid object ok 1009 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x / $y; ok 1010 - is a valid object ok 1011 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x / $y; ok 1012 - is a valid object ok 1013 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x / $y; ok 1014 - is a valid object ok 1015 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x / $y; ok 1016 - is a valid object ok 1017 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x / $y; ok 1018 - is a valid object ok 1019 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x / $y; ok 1020 - is a valid object ok 1021 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x / $y; ok 1022 - is a valid object ok 1023 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("0"); $x / $y; ok 1024 - is a valid object ok 1025 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x / $y; ok 1026 - is a valid object ok 1027 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("0"); $x / $y; ok 1028 - is a valid object ok 1029 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x / $y; ok 1030 - is a valid object ok 1031 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("2"); $x / $y; ok 1032 - ref($got) ok 1033 - $Math::BigInt::upgrade ok 1034 - is a valid object ok 1035 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("-2"); $x / $y; ok 1036 - ref($got) ok 1037 - $Math::BigInt::upgrade ok 1038 - is a valid object ok 1039 - $x = Math::BigInt->new("-11"); $y = Math::BigInt->new("2"); $x / $y; ok 1040 - ref($got) ok 1041 - $Math::BigInt::upgrade ok 1042 - is a valid object ok 1043 - $x = Math::BigInt->new("11"); $y = Math::BigInt->new("-2"); $x / $y; ok 1044 - ref($got) ok 1045 - $Math::BigInt::upgrade ok 1046 - is a valid object ok 1047 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x / $y; ok 1048 - is a valid object ok 1049 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x / $y; ok 1050 - is a valid object ok 1051 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x / $y; ok 1052 - is a valid object ok 1053 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x / $y; ok 1054 - is a valid object ok 1055 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x / $y; ok 1056 - is a valid object ok 1057 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x / $y; ok 1058 - is a valid object ok 1059 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x / $y; ok 1060 - ref($got) ok 1061 - $Math::BigInt::upgrade ok 1062 - is a valid object ok 1063 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x / $y; ok 1064 - is a valid object ok 1065 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1066 - ref($got) ok 1067 - $Math::BigInt::upgrade ok 1068 - is a valid object ok 1069 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1070 - ref($got) ok 1071 - $Math::BigInt::upgrade ok 1072 - is a valid object ok 1073 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1074 - ref($got) ok 1075 - $Math::BigInt::upgrade ok 1076 - is a valid object ok 1077 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1078 - ref($got) ok 1079 - $Math::BigInt::upgrade ok 1080 - is a valid object ok 1081 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1082 - ref($got) ok 1083 - $Math::BigInt::upgrade ok 1084 - is a valid object ok 1085 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1086 - ref($got) ok 1087 - $Math::BigInt::upgrade ok 1088 - is a valid object ok 1089 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1090 - ref($got) ok 1091 - $Math::BigInt::upgrade ok 1092 - is a valid object ok 1093 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1094 - ref($got) ok 1095 - $Math::BigInt::upgrade ok 1096 - is a valid object ok 1097 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x / $y; ok 1098 - is a valid object ok 1099 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x / $y; ok 1100 - ref($got) ok 1101 - $Math::BigInt::upgrade ok 1102 - is a valid object ok 1103 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x / $y; ok 1104 - ref($got) ok 1105 - $Math::BigInt::upgrade ok 1106 - is a valid object ok 1107 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x / $y; ok 1108 - ref($got) ok 1109 - $Math::BigInt::upgrade ok 1110 - is a valid object ok 1111 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x / $y; ok 1112 - ref($got) ok 1113 - $Math::BigInt::upgrade ok 1114 - is a valid object ok 1115 - $x = Math::BigInt->new("+10"); $y = Math::BigInt->new("+5"); $x / $y; ok 1116 - is a valid object ok 1117 - $x = Math::BigInt->new("+100"); $y = Math::BigInt->new("+4"); $x / $y; ok 1118 - is a valid object ok 1119 - $x = Math::BigInt->new("+1000"); $y = Math::BigInt->new("+8"); $x / $y; ok 1120 - is a valid object ok 1121 - $x = Math::BigInt->new("+10000"); $y = Math::BigInt->new("+16"); $x / $y; ok 1122 - is a valid object ok 1123 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x / $y; ok 1124 - is a valid object ok 1125 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x / $y; ok 1126 - is a valid object ok 1127 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x / $y; ok 1128 - is a valid object ok 1129 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x / $y; ok 1130 - is a valid object ok 1131 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x / $y; ok 1132 - is a valid object ok 1133 - $x = Math::BigInt->new("+1111088889"); $y = Math::BigInt->new("99999"); $x / $y; ok 1134 - is a valid object ok 1135 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x / $y; ok 1136 - ref($got) ok 1137 - $Math::BigInt::upgrade ok 1138 - is a valid object ok 1139 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x / $y; ok 1140 - ref($got) ok 1141 - $Math::BigInt::upgrade ok 1142 - is a valid object ok 1143 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x / $y; ok 1144 - ref($got) ok 1145 - $Math::BigInt::upgrade ok 1146 - is a valid object ok 1147 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x / $y; ok 1148 - ref($got) ok 1149 - $Math::BigInt::upgrade ok 1150 - is a valid object ok 1151 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x / $y; ok 1152 - ref($got) ok 1153 - $Math::BigInt::upgrade ok 1154 - is a valid object ok 1155 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x / $y; ok 1156 - ref($got) ok 1157 - $Math::BigInt::upgrade ok 1158 - is a valid object ok 1159 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x / $y; ok 1160 - ref($got) ok 1161 - $Math::BigInt::upgrade ok 1162 - is a valid object ok 1163 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x / $y; ok 1164 - ref($got) ok 1165 - $Math::BigInt::upgrade ok 1166 - is a valid object ok 1167 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("5"); $x / $y; ok 1168 - ref($got) ok 1169 - $Math::BigInt::upgrade ok 1170 - is a valid object ok 1171 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("5"); $x / $y; ok 1172 - ref($got) ok 1173 - $Math::BigInt::upgrade ok 1174 - is a valid object ok 1175 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("-3"); $x / $y; ok 1176 - ref($got) ok 1177 - $Math::BigInt::upgrade ok 1178 - is a valid object ok 1179 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("3"); $x / $y; ok 1180 - ref($got) ok 1181 - $Math::BigInt::upgrade ok 1182 - is a valid object ok 1183 - $x = Math::BigInt->new("-14"); $y = Math::BigInt->new("-3"); $x / $y; ok 1184 - ref($got) ok 1185 - $Math::BigInt::upgrade ok 1186 - is a valid object ok 1187 - $x = Math::BigInt->new("14"); $y = Math::BigInt->new("3"); $x / $y; ok 1188 - ref($got) ok 1189 - $Math::BigInt::upgrade ok 1190 - is a valid object ok 1191 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("24"); $x / $y; ok 1192 - ref($got) ok 1193 - $Math::BigInt::upgrade ok 1194 - is a valid object ok 1195 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("inf"); $x % $y; ok 1196 - is a valid object ok 1197 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-inf"); $x % $y; ok 1198 - is a valid object ok 1199 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("inf"); $x % $y; ok 1200 - is a valid object ok 1201 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 1202 - is a valid object ok 1203 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("inf"); $x % $y; ok 1204 - is a valid object ok 1205 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-inf"); $x % $y; ok 1206 - is a valid object ok 1207 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("5"); $x % $y; ok 1208 - is a valid object ok 1209 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("5"); $x % $y; ok 1210 - is a valid object ok 1211 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 1212 - is a valid object ok 1213 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-5"); $x % $y; ok 1214 - is a valid object ok 1215 - $x = Math::BigInt->new("5"); $y = Math::BigInt->new("5"); $x % $y; ok 1216 - is a valid object ok 1217 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-5"); $x % $y; ok 1218 - is a valid object ok 1219 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 1220 - is a valid object ok 1221 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 1222 - is a valid object ok 1223 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("inf"); $x % $y; ok 1224 - is a valid object ok 1225 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("-inf"); $x % $y; ok 1226 - is a valid object ok 1227 - $x = Math::BigInt->new("8"); $y = Math::BigInt->new("0"); $x % $y; ok 1228 - is a valid object ok 1229 - $x = Math::BigInt->new("inf"); $y = Math::BigInt->new("0"); $x % $y; ok 1230 - is a valid object ok 1231 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("0"); $x % $y; ok 1232 - is a valid object ok 1233 - $x = Math::BigInt->new("-8"); $y = Math::BigInt->new("0"); $x % $y; ok 1234 - is a valid object ok 1235 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x % $y; ok 1236 - is a valid object ok 1237 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x % $y; ok 1238 - is a valid object ok 1239 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("1"); $x % $y; ok 1240 - is a valid object ok 1241 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("abc"); $x % $y; ok 1242 - is a valid object ok 1243 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x % $y; ok 1244 - is a valid object ok 1245 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x % $y; ok 1246 - is a valid object ok 1247 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x % $y; ok 1248 - is a valid object ok 1249 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x % $y; ok 1250 - is a valid object ok 1251 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x % $y; ok 1252 - is a valid object ok 1253 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x % $y; ok 1254 - is a valid object ok 1255 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x % $y; ok 1256 - is a valid object ok 1257 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x % $y; ok 1258 - is a valid object ok 1259 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x % $y; ok 1260 - is a valid object ok 1261 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x % $y; ok 1262 - is a valid object ok 1263 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1264 - is a valid object ok 1265 - $x = Math::BigInt->new("2000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1266 - is a valid object ok 1267 - $x = Math::BigInt->new("3000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1268 - is a valid object ok 1269 - $x = Math::BigInt->new("4000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1270 - is a valid object ok 1271 - $x = Math::BigInt->new("5000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1272 - is a valid object ok 1273 - $x = Math::BigInt->new("6000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1274 - is a valid object ok 1275 - $x = Math::BigInt->new("7000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1276 - is a valid object ok 1277 - $x = Math::BigInt->new("8000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1278 - is a valid object ok 1279 - $x = Math::BigInt->new("9000000000"); $y = Math::BigInt->new("9"); $x % $y; ok 1280 - is a valid object ok 1281 - $x = Math::BigInt->new("35500000"); $y = Math::BigInt->new("113"); $x % $y; ok 1282 - is a valid object ok 1283 - $x = Math::BigInt->new("71000000"); $y = Math::BigInt->new("226"); $x % $y; ok 1284 - is a valid object ok 1285 - $x = Math::BigInt->new("106500000"); $y = Math::BigInt->new("339"); $x % $y; ok 1286 - is a valid object ok 1287 - $x = Math::BigInt->new("1000000000"); $y = Math::BigInt->new("3"); $x % $y; ok 1288 - is a valid object ok 1289 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x % $y; ok 1290 - is a valid object ok 1291 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("4"); $x % $y; ok 1292 - is a valid object ok 1293 - $x = Math::BigInt->new("1000"); $y = Math::BigInt->new("8"); $x % $y; ok 1294 - is a valid object ok 1295 - $x = Math::BigInt->new("10000"); $y = Math::BigInt->new("16"); $x % $y; ok 1296 - is a valid object ok 1297 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9"); $x % $y; ok 1298 - is a valid object ok 1299 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("99"); $x % $y; ok 1300 - is a valid object ok 1301 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("999"); $x % $y; ok 1302 - is a valid object ok 1303 - $x = Math::BigInt->new("999999999999"); $y = Math::BigInt->new("9999"); $x % $y; ok 1304 - is a valid object ok 1305 - $x = Math::BigInt->new("999999999999999"); $y = Math::BigInt->new("99999"); $x % $y; ok 1306 - is a valid object ok 1307 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("+5"); $x % $y; ok 1308 - is a valid object ok 1309 - $x = Math::BigInt->new("+9"); $y = Math::BigInt->new("-5"); $x % $y; ok 1310 - is a valid object ok 1311 - $x = Math::BigInt->new("-9"); $y = Math::BigInt->new("-5"); $x % $y; ok 1312 - is a valid object ok 1313 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("3"); $x % $y; ok 1314 - is a valid object ok 1315 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x % $y; ok 1316 - is a valid object ok 1317 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("3"); $x % $y; ok 1318 - is a valid object ok 1319 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x % $y; ok 1320 - is a valid object ok 1321 - $x = Math::BigInt->new("-5"); $y = Math::BigInt->new("-3"); $x % $y; ok 1322 - is a valid object ok 1323 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x % $y; ok 1324 - is a valid object ok 1325 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-3"); $x % $y; ok 1326 - is a valid object ok 1327 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x % $y; ok 1328 - is a valid object ok 1329 - $x = Math::BigInt->new("4095"); $y = Math::BigInt->new("4095"); $x % $y; ok 1330 - is a valid object ok 1331 - $x = Math::BigInt->new("100041000510123"); $y = Math::BigInt->new("3"); $x % $y; ok 1332 - is a valid object ok 1333 - $x = Math::BigInt->new("152403346"); $y = Math::BigInt->new("12345"); $x % $y; ok 1334 - is a valid object ok 1335 - $x = Math::BigInt->new("9"); $y = Math::BigInt->new("5"); $x % $y; ok 1336 - is a valid object ok 1337 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 1338 - is a valid object ok 1339 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 1340 - is a valid object ok 1341 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::bgcd($x, $y); ok 1342 - is a valid object ok 1343 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 1344 - is a valid object ok 1345 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 1346 - is a valid object ok 1347 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::bgcd($x, $y); ok 1348 - is a valid object ok 1349 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+1"); Math::BigInt::bgcd($x, $y); ok 1350 - is a valid object ok 1351 - $x = Math::BigInt->new("+2"); $y = Math::BigInt->new("+3"); Math::BigInt::bgcd($x, $y); ok 1352 - is a valid object ok 1353 - $x = Math::BigInt->new("+3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 1354 - is a valid object ok 1355 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("+2"); Math::BigInt::bgcd($x, $y); ok 1356 - is a valid object ok 1357 - $x = Math::BigInt->new("100"); $y = Math::BigInt->new("625"); Math::BigInt::bgcd($x, $y); ok 1358 - is a valid object ok 1359 - $x = Math::BigInt->new("4096"); $y = Math::BigInt->new("81"); Math::BigInt::bgcd($x, $y); ok 1360 - is a valid object ok 1361 - $x = Math::BigInt->new("1034"); $y = Math::BigInt->new("804"); Math::BigInt::bgcd($x, $y); ok 1362 - is a valid object ok 1363 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("56"); Math::BigInt::bgcd($x, $y, $z); ok 1364 - is a valid object ok 1365 - $x = Math::BigInt->new("27"); $y = Math::BigInt->new("90"); $z = Math::BigInt->new("54"); Math::BigInt::bgcd($x, $y, $z); ok 1366 - is a valid object ok 1367 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 1368 - is a valid object ok 1369 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 1370 - is a valid object ok 1371 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("abc"); Math::BigInt::blcm($x, $y); ok 1372 - is a valid object ok 1373 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 1374 - is a valid object ok 1375 - $x = Math::BigInt->new("+1"); $y = Math::BigInt->new("+0"); Math::BigInt::blcm($x, $y); ok 1376 - is a valid object ok 1377 - $x = Math::BigInt->new("+0"); $y = Math::BigInt->new("+1"); Math::BigInt::blcm($x, $y); ok 1378 - is a valid object ok 1379 - $x = Math::BigInt->new("+27"); $y = Math::BigInt->new("+90"); Math::BigInt::blcm($x, $y); ok 1380 - is a valid object ok 1381 - $x = Math::BigInt->new("+1034"); $y = Math::BigInt->new("+804"); Math::BigInt::blcm($x, $y); ok 1382 - is a valid object ok 1383 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x & $y; ok 1384 - is a valid object ok 1385 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x & $y; ok 1386 - is a valid object ok 1387 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x & $y; ok 1388 - is a valid object ok 1389 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x & $y; ok 1390 - is a valid object ok 1391 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("2"); $x & $y; ok 1392 - is a valid object ok 1393 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x & $y; ok 1394 - is a valid object ok 1395 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x & $y; ok 1396 - is a valid object ok 1397 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x & $y; ok 1398 - is a valid object ok 1399 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("+281474976710656"); $x & $y; ok 1400 - is a valid object ok 1401 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x & $y; ok 1402 - is a valid object ok 1403 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x & $y; ok 1404 - is a valid object ok 1405 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x & $y; ok 1406 - is a valid object ok 1407 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("-4"); $x & $y; ok 1408 - is a valid object ok 1409 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x & $y; ok 1410 - is a valid object ok 1411 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x & $y; ok 1412 - is a valid object ok 1413 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x & $y; ok 1414 - is a valid object ok 1415 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x & $y; ok 1416 - is a valid object ok 1417 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x & $y; ok 1418 - is a valid object ok 1419 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x & $y; ok 1420 - is a valid object ok 1421 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x & $y; ok 1422 - is a valid object ok 1423 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x & $y; ok 1424 - is a valid object ok 1425 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x & $y; ok 1426 - is a valid object ok 1427 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x & $y; ok 1428 - is a valid object ok 1429 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x & $y; ok 1430 - is a valid object ok 1431 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x & $y; ok 1432 - is a valid object ok 1433 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x & $y; ok 1434 - is a valid object ok 1435 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x & $y; ok 1436 - is a valid object ok 1437 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x & $y; ok 1438 - is a valid object ok 1439 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x & $y; ok 1440 - is a valid object ok 1441 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x & $y; ok 1442 - is a valid object ok 1443 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0x3F0F0F0F0F0F"); $x & $y; ok 1444 - is a valid object ok 1445 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x | $y; ok 1446 - is a valid object ok 1447 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x | $y; ok 1448 - is a valid object ok 1449 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x | $y; ok 1450 - is a valid object ok 1451 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x | $y; ok 1452 - is a valid object ok 1453 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x | $y; ok 1454 - is a valid object ok 1455 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x | $y; ok 1456 - is a valid object ok 1457 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x | $y; ok 1458 - is a valid object ok 1459 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x | $y; ok 1460 - is a valid object ok 1461 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x | $y; ok 1462 - is a valid object ok 1463 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x | $y; ok 1464 - is a valid object ok 1465 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x | $y; ok 1466 - is a valid object ok 1467 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x | $y; ok 1468 - is a valid object ok 1469 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x | $y; ok 1470 - is a valid object ok 1471 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 1472 - is a valid object ok 1473 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 1474 - is a valid object ok 1475 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 1476 - is a valid object ok 1477 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 1478 - is a valid object ok 1479 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 1480 - is a valid object ok 1481 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x | $y; ok 1482 - is a valid object ok 1483 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x | $y; ok 1484 - is a valid object ok 1485 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x | $y; ok 1486 - is a valid object ok 1487 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x | $y; ok 1488 - is a valid object ok 1489 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x | $y; ok 1490 - is a valid object ok 1491 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 1492 - is a valid object ok 1493 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 1494 - is a valid object ok 1495 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 1496 - is a valid object ok 1497 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 1498 - is a valid object ok 1499 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x | $y; ok 1500 - is a valid object ok 1501 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x | $y; ok 1502 - is a valid object ok 1503 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 1504 - is a valid object ok 1505 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x | $y; ok 1506 - is a valid object ok 1507 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 1508 - is a valid object ok 1509 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x | $y; ok 1510 - is a valid object ok 1511 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x | $y; ok 1512 - is a valid object ok 1513 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 1514 - is a valid object ok 1515 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x | $y; ok 1516 - is a valid object ok 1517 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x | $y; ok 1518 - is a valid object ok 1519 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 1520 - is a valid object ok 1521 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x | $y; ok 1522 - is a valid object ok 1523 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x | $y; ok 1524 - is a valid object ok 1525 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 1526 - is a valid object ok 1527 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x | $y; ok 1528 - is a valid object ok 1529 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 1530 - is a valid object ok 1531 - $x = Math::BigInt->new("0x1F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x | $y; ok 1532 - is a valid object ok 1533 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 1534 - is a valid object ok 1535 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1536 - is a valid object ok 1537 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("abc"); $x ^ $y; ok 1538 - is a valid object ok 1539 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ^ $y; ok 1540 - is a valid object ok 1541 - $x = Math::BigInt->new("+8"); $y = Math::BigInt->new("+2"); $x ^ $y; ok 1542 - is a valid object ok 1543 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1544 - is a valid object ok 1545 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("1"); $x ^ $y; ok 1546 - is a valid object ok 1547 - $x = Math::BigInt->new("+281474976710656"); $y = Math::BigInt->new("281474976710656"); $x ^ $y; ok 1548 - is a valid object ok 1549 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x ^ $y; ok 1550 - is a valid object ok 1551 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ^ $y; ok 1552 - is a valid object ok 1553 - $x = Math::BigInt->new("-6"); $y = Math::BigInt->new("-6"); $x ^ $y; ok 1554 - is a valid object ok 1555 - $x = Math::BigInt->new("-7"); $y = Math::BigInt->new("4"); $x ^ $y; ok 1556 - is a valid object ok 1557 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("7"); $x ^ $y; ok 1558 - is a valid object ok 1559 - $x = Math::BigInt->new("4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 1560 - is a valid object ok 1561 - $x = Math::BigInt->new("-4"); $y = Math::BigInt->new("-7"); $x ^ $y; ok 1562 - is a valid object ok 1563 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 1564 - is a valid object ok 1565 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 1566 - is a valid object ok 1567 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 1568 - is a valid object ok 1569 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 1570 - is a valid object ok 1571 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 1572 - is a valid object ok 1573 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFF"); $x ^ $y; ok 1574 - is a valid object ok 1575 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFF"); $x ^ $y; ok 1576 - is a valid object ok 1577 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFF"); $x ^ $y; ok 1578 - is a valid object ok 1579 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFF"); $x ^ $y; ok 1580 - is a valid object ok 1581 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0xFFFFFFFFFFFF"); $x ^ $y; ok 1582 - is a valid object ok 1583 - $x = Math::BigInt->new("0xFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1584 - is a valid object ok 1585 - $x = Math::BigInt->new("0xFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1586 - is a valid object ok 1587 - $x = Math::BigInt->new("0xFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1588 - is a valid object ok 1589 - $x = Math::BigInt->new("0xFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1590 - is a valid object ok 1591 - $x = Math::BigInt->new("0xFFFFFFFFFFFF"); $y = Math::BigInt->new("0"); $x ^ $y; ok 1592 - is a valid object ok 1593 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0xF0F0"); $x ^ $y; ok 1594 - is a valid object ok 1595 - $x = Math::BigInt->new("0x0F0F"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 1596 - is a valid object ok 1597 - $x = Math::BigInt->new("0xF0F0"); $y = Math::BigInt->new("0x0F0F"); $x ^ $y; ok 1598 - is a valid object ok 1599 - $x = Math::BigInt->new("0xF0F0F0"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 1600 - is a valid object ok 1601 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0x0F0F0F"); $x ^ $y; ok 1602 - is a valid object ok 1603 - $x = Math::BigInt->new("0x0F0F0F"); $y = Math::BigInt->new("0xF0F0F0"); $x ^ $y; ok 1604 - is a valid object ok 1605 - $x = Math::BigInt->new("0xF0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 1606 - is a valid object ok 1607 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F"); $x ^ $y; ok 1608 - is a valid object ok 1609 - $x = Math::BigInt->new("0x0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0"); $x ^ $y; ok 1610 - is a valid object ok 1611 - $x = Math::BigInt->new("0xF0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 1612 - is a valid object ok 1613 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F"); $x ^ $y; ok 1614 - is a valid object ok 1615 - $x = Math::BigInt->new("0x0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0"); $x ^ $y; ok 1616 - is a valid object ok 1617 - $x = Math::BigInt->new("0xF0F0F0F0F0F0"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 1618 - is a valid object ok 1619 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0x0F0F0F0F0F0F"); $x ^ $y; ok 1620 - is a valid object ok 1621 - $x = Math::BigInt->new("0x0F0F0F0F0F0F"); $y = Math::BigInt->new("0xF0F0F0F0F0F0"); $x ^ $y; ok 1622 - is a valid object ok 1623 - $x = Math::BigInt->new("abc"); $x->bnot(); ok 1624 - is a valid object ok 1625 - $x = Math::BigInt->new("+0"); $x->bnot(); ok 1626 - is a valid object ok 1627 - $x = Math::BigInt->new("+8"); $x->bnot(); ok 1628 - is a valid object ok 1629 - $x = Math::BigInt->new("+281474976710656"); $x->bnot(); ok 1630 - is a valid object ok 1631 - $x = Math::BigInt->new("-1"); $x->bnot(); ok 1632 - is a valid object ok 1633 - $x = Math::BigInt->new("-2"); $x->bnot(); ok 1634 - is a valid object ok 1635 - $x = Math::BigInt->new("-12"); $x->bnot(); ok 1636 - is a valid object ok 1637 - $x = Math::BigInt->new("0"); $x->digit(0); ok 1638 - $x = Math::BigInt->new("12"); $x->digit(0); ok 1639 - $x = Math::BigInt->new("12"); $x->digit(1); ok 1640 - $x = Math::BigInt->new("123"); $x->digit(0); ok 1641 - $x = Math::BigInt->new("123"); $x->digit(1); ok 1642 - $x = Math::BigInt->new("123"); $x->digit(2); ok 1643 - $x = Math::BigInt->new("123"); $x->digit(-1); ok 1644 - $x = Math::BigInt->new("123"); $x->digit(-2); ok 1645 - $x = Math::BigInt->new("123"); $x->digit(-3); ok 1646 - $x = Math::BigInt->new("123456"); $x->digit(0); ok 1647 - $x = Math::BigInt->new("123456"); $x->digit(1); ok 1648 - $x = Math::BigInt->new("123456"); $x->digit(2); ok 1649 - $x = Math::BigInt->new("123456"); $x->digit(3); ok 1650 - $x = Math::BigInt->new("123456"); $x->digit(4); ok 1651 - $x = Math::BigInt->new("123456"); $x->digit(5); ok 1652 - $x = Math::BigInt->new("123456"); $x->digit(-1); ok 1653 - $x = Math::BigInt->new("123456"); $x->digit(-2); ok 1654 - $x = Math::BigInt->new("123456"); $x->digit(-3); ok 1655 - $x = Math::BigInt->new("100000"); $x->digit(-3); ok 1656 - $x = Math::BigInt->new("100000"); $x->digit(0); ok 1657 - $x = Math::BigInt->new("100000"); $x->digit(1); ok 1658 - $x = Math::BigInt->new("abc"); $x = $x->mantissa()->bstr(); ok 1659 - $x = Math::BigInt->new("1e4"); $x = $x->mantissa()->bstr(); ok 1660 - $x = Math::BigInt->new("2e0"); $x = $x->mantissa()->bstr(); ok 1661 - $x = Math::BigInt->new("123"); $x = $x->mantissa()->bstr(); ok 1662 - $x = Math::BigInt->new("-1"); $x = $x->mantissa()->bstr(); ok 1663 - $x = Math::BigInt->new("-2"); $x = $x->mantissa()->bstr(); ok 1664 - $x = Math::BigInt->new("+inf"); $x = $x->mantissa()->bstr(); ok 1665 - $x = Math::BigInt->new("-inf"); $x = $x->mantissa()->bstr(); ok 1666 - $x = Math::BigInt->new("abc"); $x = $x->exponent()->bstr(); ok 1667 - $x = Math::BigInt->new("1e4"); $x = $x->exponent()->bstr(); ok 1668 - $x = Math::BigInt->new("2e0"); $x = $x->exponent()->bstr(); ok 1669 - $x = Math::BigInt->new("123"); $x = $x->exponent()->bstr(); ok 1670 - $x = Math::BigInt->new("-1"); $x = $x->exponent()->bstr(); ok 1671 - $x = Math::BigInt->new("-2"); $x = $x->exponent()->bstr(); ok 1672 - $x = Math::BigInt->new("0"); $x = $x->exponent()->bstr(); ok 1673 - $x = Math::BigInt->new("+inf"); $x = $x->exponent()->bstr(); ok 1674 - $x = Math::BigInt->new("-inf"); $x = $x->exponent()->bstr(); ok 1675 - $x = Math::BigInt->new("abc"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1676 - $x = Math::BigInt->new("1e4"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1677 - $x = Math::BigInt->new("2e0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1678 - $x = Math::BigInt->new("123"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1679 - $x = Math::BigInt->new("-1"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1680 - $x = Math::BigInt->new("-2"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1681 - $x = Math::BigInt->new("0"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1682 - $x = Math::BigInt->new("+inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1683 - $x = Math::BigInt->new("-inf"); ($m, $e) = $x->parts(); $m = $m->bstr(); $m = "NaN" if !defined $m; $e = $e->bstr(); $e = "NaN" if !defined $e; "$m,$e"; ok 1684 - $x = Math::BigInt->new("-1"); $x->bfac(); ok 1685 - is a valid object ok 1686 - $x = Math::BigInt->new("NaNfac"); $x->bfac(); ok 1687 - is a valid object ok 1688 - $x = Math::BigInt->new("+inf"); $x->bfac(); ok 1689 - is a valid object ok 1690 - $x = Math::BigInt->new("-inf"); $x->bfac(); ok 1691 - is a valid object ok 1692 - $x = Math::BigInt->new("0"); $x->bfac(); ok 1693 - is a valid object ok 1694 - $x = Math::BigInt->new("1"); $x->bfac(); ok 1695 - is a valid object ok 1696 - $x = Math::BigInt->new("2"); $x->bfac(); ok 1697 - is a valid object ok 1698 - $x = Math::BigInt->new("3"); $x->bfac(); ok 1699 - is a valid object ok 1700 - $x = Math::BigInt->new("4"); $x->bfac(); ok 1701 - is a valid object ok 1702 - $x = Math::BigInt->new("5"); $x->bfac(); ok 1703 - is a valid object ok 1704 - $x = Math::BigInt->new("6"); $x->bfac(); ok 1705 - is a valid object ok 1706 - $x = Math::BigInt->new("10"); $x->bfac(); ok 1707 - is a valid object ok 1708 - $x = Math::BigInt->new("11"); $x->bfac(); ok 1709 - is a valid object ok 1710 - $x = Math::BigInt->new("12"); $x->bfac(); ok 1711 - is a valid object ok 1712 - $x = Math::BigInt->new("abc"); $y = Math::BigInt->new("12"); $x ** $y; ok 1713 - is a valid object ok 1714 - $x = Math::BigInt->new("12"); $y = Math::BigInt->new("abc"); $x ** $y; ok 1715 - is a valid object ok 1716 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("0"); $x ** $y; ok 1717 - is a valid object ok 1718 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("1"); $x ** $y; ok 1719 - is a valid object ok 1720 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("2"); $x ** $y; ok 1721 - is a valid object ok 1722 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-1"); $x ** $y; ok 1723 - is a valid object ok 1724 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("-2"); $x ** $y; ok 1725 - is a valid object ok 1726 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("0"); $x ** $y; ok 1727 - is a valid object ok 1728 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("1"); $x ** $y; ok 1729 - is a valid object ok 1730 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("2"); $x ** $y; ok 1731 - is a valid object ok 1732 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("3"); $x ** $y; ok 1733 - is a valid object ok 1734 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 1735 - is a valid object ok 1736 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 1737 - is a valid object ok 1738 - $x = Math::BigInt->new("1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 1739 - is a valid object ok 1740 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("0"); $x ** $y; ok 1741 - is a valid object ok 1742 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("1"); $x ** $y; ok 1743 - is a valid object ok 1744 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("2"); $x ** $y; ok 1745 - is a valid object ok 1746 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("3"); $x ** $y; ok 1747 - is a valid object ok 1748 - $x = Math::BigInt->new("3"); $y = Math::BigInt->new("3"); $x ** $y; ok 1749 - is a valid object ok 1750 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 1751 - ref($got) ok 1752 - $Math::BigInt::upgrade ok 1753 - is a valid object ok 1754 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-1"); $x ** $y; ok 1755 - ref($got) ok 1756 - $Math::BigInt::upgrade ok 1757 - is a valid object ok 1758 - $x = Math::BigInt->new("2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 1759 - ref($got) ok 1760 - $Math::BigInt::upgrade ok 1761 - is a valid object ok 1762 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-2"); $x ** $y; ok 1763 - ref($got) ok 1764 - $Math::BigInt::upgrade ok 1765 - is a valid object ok 1766 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("-3"); $x ** $y; ok 1767 - ref($got) ok 1768 - $Math::BigInt::upgrade ok 1769 - is a valid object ok 1770 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 1771 - is a valid object ok 1772 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500012"); $x ** $y; ok 1773 - is a valid object ok 1774 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("1234500013"); $x ** $y; ok 1775 - is a valid object ok 1776 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 1777 - is a valid object ok 1778 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("-12345000123"); $x ** $y; ok 1779 - is a valid object ok 1780 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("0"); $x ** $y; ok 1781 - is a valid object ok 1782 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("0"); $x ** $y; ok 1783 - is a valid object ok 1784 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("1"); $x ** $y; ok 1785 - is a valid object ok 1786 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("2"); $x ** $y; ok 1787 - is a valid object ok 1788 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("3"); $x ** $y; ok 1789 - is a valid object ok 1790 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("4"); $x ** $y; ok 1791 - is a valid object ok 1792 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("5"); $x ** $y; ok 1793 - is a valid object ok 1794 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-1"); $x ** $y; ok 1795 - is a valid object ok 1796 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-2"); $x ** $y; ok 1797 - is a valid object ok 1798 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-3"); $x ** $y; ok 1799 - is a valid object ok 1800 - $x = Math::BigInt->new("-1"); $y = Math::BigInt->new("-4"); $x ** $y; ok 1801 - is a valid object ok 1802 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("2"); $x ** $y; ok 1803 - is a valid object ok 1804 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("3"); $x ** $y; ok 1805 - is a valid object ok 1806 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("4"); $x ** $y; ok 1807 - is a valid object ok 1808 - $x = Math::BigInt->new("-2"); $y = Math::BigInt->new("5"); $x ** $y; ok 1809 - is a valid object ok 1810 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("2"); $x ** $y; ok 1811 - is a valid object ok 1812 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("3"); $x ** $y; ok 1813 - is a valid object ok 1814 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("4"); $x ** $y; ok 1815 - is a valid object ok 1816 - $x = Math::BigInt->new("-3"); $y = Math::BigInt->new("5"); $x ** $y; ok 1817 - is a valid object ok 1818 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("2"); $x ** $y; ok 1819 - is a valid object ok 1820 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("3"); $x ** $y; ok 1821 - is a valid object ok 1822 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("4"); $x ** $y; ok 1823 - is a valid object ok 1824 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("5"); $x ** $y; ok 1825 - is a valid object ok 1826 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("6"); $x ** $y; ok 1827 - is a valid object ok 1828 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("7"); $x ** $y; ok 1829 - is a valid object ok 1830 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("8"); $x ** $y; ok 1831 - is a valid object ok 1832 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("9"); $x ** $y; ok 1833 - is a valid object ok 1834 - $x = Math::BigInt->new("10"); $y = Math::BigInt->new("20"); $x ** $y; ok 1835 - is a valid object ok 1836 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("2"); $x ** $y; ok 1837 - is a valid object ok 1838 - $x = Math::BigInt->new("100"); $x->length(); ok 1839 - $x = Math::BigInt->new("10"); $x->length(); ok 1840 - $x = Math::BigInt->new("1"); $x->length(); ok 1841 - $x = Math::BigInt->new("0"); $x->length(); ok 1842 - $x = Math::BigInt->new("12345"); $x->length(); ok 1843 - $x = Math::BigInt->new("10000000000000000"); $x->length(); ok 1844 - $x = Math::BigInt->new("-123"); $x->length(); ok 1845 - $x = Math::BigInt->new("215960156869840440586892398248"); $x->length(); ok 1846 - $x = Math::BigInt->new("144"); $y = Math::BigInt->new("2"); $x->broot($y); ok 1847 - ref($got) ok 1848 - $Math::BigInt::upgrade ok 1849 - is a valid object ok 1850 - $x = Math::BigInt->new("123"); $y = Math::BigInt->new("2"); $x->broot($y); ok 1851 - ref($got) ok 1852 - $Math::BigInt::upgrade ok 1853 - is a valid object ok 1854 - $x = Math::BigInt->new("145"); $x->bsqrt(); ok 1855 - ref($got) ok 1856 - $Math::BigInt::upgrade ok 1857 - is a valid object ok 1858 - $x = Math::BigInt->new("144"); $x->bsqrt(); ok 1859 - ref($got) ok 1860 - $Math::BigInt::upgrade ok 1861 - is a valid object ok 1862 - $x = Math::BigInt->new("143"); $x->bsqrt(); ok 1863 - ref($got) ok 1864 - $Math::BigInt::upgrade ok 1865 - is a valid object ok 1866 - $x = Math::BigInt->new("16"); $x->bsqrt(); ok 1867 - is a valid object ok 1868 - $x = Math::BigInt->new("170"); $x->bsqrt(); ok 1869 - ref($got) ok 1870 - $Math::BigInt::upgrade ok 1871 - is a valid object ok 1872 - $x = Math::BigInt->new("169"); $x->bsqrt(); ok 1873 - is a valid object ok 1874 - $x = Math::BigInt->new("168"); $x->bsqrt(); ok 1875 - ref($got) ok 1876 - $Math::BigInt::upgrade ok 1877 - is a valid object ok 1878 - $x = Math::BigInt->new("4"); $x->bsqrt(); ok 1879 - is a valid object ok 1880 - $x = Math::BigInt->new("3"); $x->bsqrt(); ok 1881 - ref($got) ok 1882 - $Math::BigInt::upgrade ok 1883 - is a valid object ok 1884 - $x = Math::BigInt->new("2"); $x->bsqrt(); ok 1885 - ref($got) ok 1886 - $Math::BigInt::upgrade ok 1887 - is a valid object ok 1888 - $x = Math::BigInt->new("9"); $x->bsqrt(); ok 1889 - is a valid object ok 1890 - $x = Math::BigInt->new("12"); $x->bsqrt(); ok 1891 - ref($got) ok 1892 - $Math::BigInt::upgrade ok 1893 - is a valid object ok 1894 - $x = Math::BigInt->new("256"); $x->bsqrt(); ok 1895 - is a valid object ok 1896 - $x = Math::BigInt->new("100000000"); $x->bsqrt(); ok 1897 - is a valid object ok 1898 - $x = Math::BigInt->new("4000000000000"); $x->bsqrt(); ok 1899 - is a valid object ok 1900 - $x = Math::BigInt->new("152399026"); $x->bsqrt(); ok 1901 - ref($got) ok 1902 - $Math::BigInt::upgrade ok 1903 - is a valid object ok 1904 - $x = Math::BigInt->new("152399025"); $x->bsqrt(); ok 1905 - is a valid object ok 1906 - $x = Math::BigInt->new("152399024"); $x->bsqrt(); ok 1907 - ref($got) ok 1908 - $Math::BigInt::upgrade ok 1909 - is a valid object ok 1910 - $x = Math::BigInt->new("1"); $x->bsqrt(); ok 1911 - is a valid object ok 1912 - $x = Math::BigInt->new("0"); $x->bsqrt(); ok 1913 - is a valid object ok 1914 - $x = Math::BigInt->new("-2"); $x->bsqrt(); ok 1915 - is a valid object ok 1916 - $x = Math::BigInt->new("-123"); $x->bsqrt(); ok 1917 - is a valid object ok 1918 - $x = Math::BigInt->new("Nan"); $x->bsqrt(); ok 1919 - is a valid object ok 1920 - $x = Math::BigInt->new("+inf"); $x->bsqrt(); ok 1921 - is a valid object ok 1922 - $x = Math::BigInt->new("-inf"); $x->bsqrt(); ok 1923 - is a valid object ok 1924 - $x = Math::BigInt->new("0"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1925 - is a valid object ok 1926 - $x = Math::BigInt->new("NaNbround"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1927 - is a valid object ok 1928 - $x = Math::BigInt->new("+inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1929 - is a valid object ok 1930 - $x = Math::BigInt->new("-inf"); $y = Math::BigInt->new("12"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1931 - is a valid object ok 1932 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("0"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1933 - is a valid object ok 1934 - $x = Math::BigInt->new("1234"); $y = Math::BigInt->new("2"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1935 - is a valid object ok 1936 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1937 - is a valid object ok 1938 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1939 - is a valid object ok 1940 - $x = Math::BigInt->new("123456"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1941 - is a valid object ok 1942 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1943 - is a valid object ok 1944 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1945 - is a valid object ok 1946 - $x = Math::BigInt->new("+10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1947 - is a valid object ok 1948 - $x = Math::BigInt->new("-10123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1949 - is a valid object ok 1950 - $x = Math::BigInt->new("+101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1951 - is a valid object ok 1952 - $x = Math::BigInt->new("-101234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('trunc'); $x->bround($y); ok 1953 - is a valid object ok 1954 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1955 - is a valid object ok 1956 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1957 - is a valid object ok 1958 - $x = Math::BigInt->new("+20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1959 - is a valid object ok 1960 - $x = Math::BigInt->new("-20123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1961 - is a valid object ok 1962 - $x = Math::BigInt->new("+201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1963 - is a valid object ok 1964 - $x = Math::BigInt->new("-201234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1965 - is a valid object ok 1966 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1967 - is a valid object ok 1968 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('zero'); $x->bround($y); ok 1969 - is a valid object ok 1970 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1971 - is a valid object ok 1972 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1973 - is a valid object ok 1974 - $x = Math::BigInt->new("+30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1975 - is a valid object ok 1976 - $x = Math::BigInt->new("-30123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1977 - is a valid object ok 1978 - $x = Math::BigInt->new("+301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1979 - is a valid object ok 1980 - $x = Math::BigInt->new("-301234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1981 - is a valid object ok 1982 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1983 - is a valid object ok 1984 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('+inf'); $x->bround($y); ok 1985 - is a valid object ok 1986 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1987 - is a valid object ok 1988 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1989 - is a valid object ok 1990 - $x = Math::BigInt->new("+40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1991 - is a valid object ok 1992 - $x = Math::BigInt->new("-40123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1993 - is a valid object ok 1994 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1995 - is a valid object ok 1996 - $x = Math::BigInt->new("+401234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1997 - is a valid object ok 1998 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 1999 - is a valid object ok 2000 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('-inf'); $x->bround($y); ok 2001 - is a valid object ok 2002 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2003 - is a valid object ok 2004 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2005 - is a valid object ok 2006 - $x = Math::BigInt->new("+50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2007 - is a valid object ok 2008 - $x = Math::BigInt->new("-50123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2009 - is a valid object ok 2010 - $x = Math::BigInt->new("+501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2011 - is a valid object ok 2012 - $x = Math::BigInt->new("-501234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2013 - is a valid object ok 2014 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2015 - is a valid object ok 2016 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('odd'); $x->bround($y); ok 2017 - is a valid object ok 2018 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2019 - is a valid object ok 2020 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("5"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2021 - is a valid object ok 2022 - $x = Math::BigInt->new("+60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2023 - is a valid object ok 2024 - $x = Math::BigInt->new("-60123456789"); $y = Math::BigInt->new("9"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2025 - is a valid object ok 2026 - $x = Math::BigInt->new("+601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2027 - is a valid object ok 2028 - $x = Math::BigInt->new("-601234500"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2029 - is a valid object ok 2030 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("7"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2031 - is a valid object ok 2032 - $x = Math::BigInt->new("+1234567"); $y = Math::BigInt->new("6"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2033 - is a valid object ok 2034 - $x = Math::BigInt->new("+12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2035 - is a valid object ok 2036 - $x = Math::BigInt->new("-12345000"); $y = Math::BigInt->new("4"); Math::BigInt->round_mode('even'); $x->bround($y); ok 2037 - is a valid object ok 2038 - $x = Math::BigInt->new("0"); $x->is_zero(); ok 2039 - $x = Math::BigInt->new("NaNzero"); $x->is_zero(); ok 2040 - $x = Math::BigInt->new("+inf"); $x->is_zero(); ok 2041 - $x = Math::BigInt->new("-inf"); $x->is_zero(); ok 2042 - $x = Math::BigInt->new("123"); $x->is_zero(); ok 2043 - $x = Math::BigInt->new("-1"); $x->is_zero(); ok 2044 - $x = Math::BigInt->new("1"); $x->is_zero(); ok 2045 - $x = Math::BigInt->new("0"); $x->is_one(); ok 2046 - $x = Math::BigInt->new("NaNone"); $x->is_one(); ok 2047 - $x = Math::BigInt->new("+inf"); $x->is_one(); ok 2048 - $x = Math::BigInt->new("-inf"); $x->is_one(); ok 2049 - $x = Math::BigInt->new("1"); $x->is_one(); ok 2050 - $x = Math::BigInt->new("2"); $x->is_one(); ok 2051 - $x = Math::BigInt->new("-1"); $x->is_one(); ok 2052 - $x = Math::BigInt->new("-2"); $x->is_one(); ok 2053 - $x = Math::BigInt->new("0"); $x->bfloor(); ok 2054 - is a valid object ok 2055 - $x = Math::BigInt->new("NaNfloor"); $x->bfloor(); ok 2056 - is a valid object ok 2057 - $x = Math::BigInt->new("+inf"); $x->bfloor(); ok 2058 - is a valid object ok 2059 - $x = Math::BigInt->new("-inf"); $x->bfloor(); ok 2060 - is a valid object ok 2061 - $x = Math::BigInt->new("-1"); $x->bfloor(); ok 2062 - is a valid object ok 2063 - $x = Math::BigInt->new("-2"); $x->bfloor(); ok 2064 - is a valid object ok 2065 - $x = Math::BigInt->new("2"); $x->bfloor(); ok 2066 - is a valid object ok 2067 - $x = Math::BigInt->new("3"); $x->bfloor(); ok 2068 - is a valid object ok 2069 - $x = Math::BigInt->new("abc"); $x->bfloor(); ok 2070 - is a valid object ok 2071 - $x = Math::BigInt->new("NaNceil"); $x->bceil(); ok 2072 - is a valid object ok 2073 - $x = Math::BigInt->new("+inf"); $x->bceil(); ok 2074 - is a valid object ok 2075 - $x = Math::BigInt->new("-inf"); $x->bceil(); ok 2076 - is a valid object ok 2077 - $x = Math::BigInt->new("0"); $x->bceil(); ok 2078 - is a valid object ok 2079 - $x = Math::BigInt->new("-1"); $x->bceil(); ok 2080 - is a valid object ok 2081 - $x = Math::BigInt->new("-2"); $x->bceil(); ok 2082 - is a valid object ok 2083 - $x = Math::BigInt->new("2"); $x->bceil(); ok 2084 - is a valid object ok 2085 - $x = Math::BigInt->new("3"); $x->bceil(); ok 2086 - is a valid object ok 2087 - $x = Math::BigInt->new("abc"); $x->bceil(); ok 2088 - is a valid object ok 2089 - $x = Math::BigInt->new("NaN"); $x->bint(); ok 2090 - is a valid object ok 2091 - $x = Math::BigInt->new("+inf"); $x->bint(); ok 2092 - is a valid object ok 2093 - $x = Math::BigInt->new("-inf"); $x->bint(); ok 2094 - is a valid object ok 2095 - $x = Math::BigInt->new("0"); $x->bint(); ok 2096 - is a valid object ok 2097 - $x = Math::BigInt->new("-1"); $x->bint(); ok 2098 - is a valid object ok 2099 - $x = Math::BigInt->new("-2"); $x->bint(); ok 2100 - is a valid object ok 2101 - $x = Math::BigInt->new("2"); $x->bint(); ok 2102 - is a valid object ok 2103 - $x = Math::BigInt->new("3"); $x->bint(); ok 2104 - is a valid object ok 2105 - $x = Math::BigInt->new("128"); $x->as_hex(); ok 2106 - $x = Math::BigInt->new("-128"); $x->as_hex(); ok 2107 - $x = Math::BigInt->new("0"); $x->as_hex(); ok 2108 - $x = Math::BigInt->new("-0"); $x->as_hex(); ok 2109 - $x = Math::BigInt->new("1"); $x->as_hex(); ok 2110 - $x = Math::BigInt->new("0x123456789123456789"); $x->as_hex(); ok 2111 - $x = Math::BigInt->new("+inf"); $x->as_hex(); ok 2112 - $x = Math::BigInt->new("-inf"); $x->as_hex(); ok 2113 - $x = Math::BigInt->new("NaNas_hex"); $x->as_hex(); ok 2114 - $x = Math::BigInt->new("128"); $x->as_bin(); ok 2115 - $x = Math::BigInt->new("-128"); $x->as_bin(); ok 2116 - $x = Math::BigInt->new("0"); $x->as_bin(); ok 2117 - $x = Math::BigInt->new("-0"); $x->as_bin(); ok 2118 - $x = Math::BigInt->new("1"); $x->as_bin(); ok 2119 - $x = Math::BigInt->new("0b1010111101010101010110110110110110101"); $x->as_bin(); ok 2120 - $x = Math::BigInt->new("+inf"); $x->as_bin(); ok 2121 - $x = Math::BigInt->new("-inf"); $x->as_bin(); ok 2122 - $x = Math::BigInt->new("NaNas_bin"); $x->as_bin(); ok 2123 - $z = 3.17 <= $y ok 2124 - the code "$z = 3.17 <= $y" issued no warning ok 2125 - $z = $y >= 3.17 ok 2126 - the code "$z = $y >= 3.17" issued no warning ok t/upgrade2.t .................................. 1..1 ok 1 - sqrt on a big int does not segv if there are 2 upgrade levels ok t/upgradef.t .................................. 1..6 ok 1 - Math::BigFloat->upgrade() ok 2 - Math::BigFloat->downgrade() || '' ok 3 - $x = Math::BigFloat->new(123); $y = Math::BigFloat::Test->new(123); $z = $x->bmul($y); ref($z) ok 4 - $x = Math::BigFloat->new(123); $y = Math::BigFloat::Test->new(123); $z = $x->bmul($y); $z ok 5 - 123 = Math::BigFloat->new(123); 123 = Math::BigFloat::Test->new(123); $z = $x->badd($y); ref($z) ok 6 - 123 = Math::BigFloat->new(123); 123 = Math::BigFloat::Test->new(123); $z = $x->badd($y); $z ok t/use.t ....................................... 1..1 ok 1 - $x = Math::BigInt->new(1); ++$x; ok t/use_lib1.t .................................. 1..2 # BareCalc using Calc v1.999807 ok 1 - Math::BigInt->config('lib') ok 2 - Math::BigFloat->new(123)->badd(123) ok t/use_lib2.t .................................. 1..2 # BareCalc using Calc v1.999807 ok 1 - Math::BigInt->config('lib') ok 2 - Math::BigFloat->new(123)->badd(123) ok t/use_lib3.t .................................. 1..2 # BareCalc using Calc v1.999807 ok 1 - Math::BigInt->config('lib') ok 2 - Math::BigFloat->new(123)->badd(123) ok t/use_lib4.t .................................. 1..2 # BareCalc using Calc v1.999807 ok 1 - Math::BigInt->config('lib') ok 2 - Math::BigFloat->new(123)->badd(123) ok t/use_mbfw.t .................................. 1..2 # BareCalc using Calc v1.999807 ok 1 - Math::BigFloat->config()->{with} ok 2 - Math::BigInt->config()->{lib} ok t/with_sub.t .................................. 1..2403 ok 1 - Math::BigFloat->config()->{with} ok 2 - Math::BigFloat->config('lib') ok 3 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 4 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 5 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 6 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("12"); Math::BigFloat::bgcd($x, $y); ok 7 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 8 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 9 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 10 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 11 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 12 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); Math::BigFloat::bgcd($x, $y); ok 13 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 14 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 15 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 16 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); Math::BigFloat::bgcd($x, $y); ok 17 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 18 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 19 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 20 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 21 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 22 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::bgcd($x, $y); ok 23 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 24 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 25 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 26 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 27 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 28 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::bgcd($x, $y); ok 29 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 30 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); Math::BigFloat::bgcd($x, $y); ok 31 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 32 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); Math::BigFloat::bgcd($x, $y); ok 33 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 34 - $x = Math::BigFloat->new("+3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 35 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 36 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("+2"); Math::BigFloat::bgcd($x, $y); ok 37 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 38 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-2"); Math::BigFloat::bgcd($x, $y); ok 39 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 40 - $x = Math::BigFloat->new("-144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 41 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 42 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("-60"); Math::BigFloat::bgcd($x, $y); ok 43 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 44 - $x = Math::BigFloat->new("144"); $y = Math::BigFloat->new("60"); Math::BigFloat::bgcd($x, $y); ok 45 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 46 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("625"); Math::BigFloat::bgcd($x, $y); ok 47 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 48 - $x = Math::BigFloat->new("4096"); $y = Math::BigFloat->new("81"); Math::BigFloat::bgcd($x, $y); ok 49 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 50 - $x = Math::BigFloat->new("1034"); $y = Math::BigFloat->new("804"); Math::BigFloat::bgcd($x, $y); ok 51 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 52 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("56"); Math::BigFloat::bgcd($x, $y, $z); ok 53 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 54 - $x = Math::BigFloat->new("27"); $y = Math::BigFloat->new("90"); $z = Math::BigFloat->new("54"); Math::BigFloat::bgcd($x, $y, $z); ok 55 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 56 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 57 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 58 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 59 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 60 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); Math::BigFloat::blcm($x, $y); ok 61 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 62 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 63 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 64 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); Math::BigFloat::blcm($x, $y); ok 65 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 66 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); Math::BigFloat::blcm($x, $y); ok 67 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 68 - $x = Math::BigFloat->new("+27"); $y = Math::BigFloat->new("+90"); Math::BigFloat::blcm($x, $y); ok 69 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 70 - $x = Math::BigFloat->new("+1034"); $y = Math::BigFloat->new("+804"); Math::BigFloat::blcm($x, $y); ok 71 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 72 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 73 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 74 - $x = Math::BigFloat->new("2.4"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 75 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 76 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 77 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 78 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bcos($y); ok 79 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 80 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bcos($y); ok 81 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 82 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("12"); $x->bcos($y); ok 83 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 84 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 85 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 86 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->bsin($y); ok 87 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 88 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("20"); $x->bsin($y); ok 89 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 90 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 91 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 92 - $x = Math::BigFloat->new("1.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 93 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 94 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->bsin($y); ok 95 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 96 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("12"); $x->bsin($y); ok 97 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 98 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 99 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 100 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 101 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 102 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 103 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 104 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 105 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 106 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("10"); $x->batan($y); ok 107 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 108 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 109 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 110 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("13"); $x->batan($y); ok 111 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 112 - $x = Math::BigFloat->new("0.2"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 113 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 114 - $x = Math::BigFloat->new("0.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 115 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 116 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 117 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 118 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 119 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 120 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 121 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 122 - $x = Math::BigFloat->new("2.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 123 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 124 - $x = Math::BigFloat->new("2.5"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 125 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 126 - $x = Math::BigFloat->new("3.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 127 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 128 - $x = Math::BigFloat->new("6.0"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 129 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 130 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 131 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 132 - $x = Math::BigFloat->new("24"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 133 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 134 - $x = Math::BigFloat->new("48"); $y = Math::BigFloat->new("14"); $x->batan($y); ok 135 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 136 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 137 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 138 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 139 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 140 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $z = Math::BigFloat->new("10"); $x->batan2($y, $z); ok 141 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 142 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 143 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 144 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 145 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 146 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 147 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 148 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 149 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 150 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 151 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 152 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 153 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 154 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 155 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 156 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 157 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 158 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 159 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 160 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 161 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 162 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 163 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 164 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 165 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 166 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 167 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 168 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 169 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 170 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 171 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 172 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 173 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 174 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 175 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 176 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 177 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 178 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 179 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 180 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 181 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 182 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 183 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 184 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 185 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 186 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 187 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 188 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 189 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 190 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 191 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 192 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("13"); $x->batan2($y, $z); ok 193 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 194 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 195 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 196 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 197 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 198 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 199 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 200 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("11"); $x->batan2($y, $z); ok 201 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 202 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 203 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 204 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("77"); $x->batan2($y, $z); ok 205 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 206 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 207 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 208 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("5"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 209 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 210 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 211 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 212 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("8"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 213 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 214 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $z = Math::BigFloat->new("24"); $x->batan2($y, $z); ok 215 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 216 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 217 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 218 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("1"); $z = Math::BigFloat->new("14"); $x->batan2($y, $z); ok 219 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 220 - $x = Math::BigFloat->new("150"); Math::BigFloat->bpi($x); ok 221 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 222 - $x = Math::BigFloat->new("77"); Math::BigFloat->bpi($x); ok 223 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 224 - $x = Math::BigFloat->new("+0"); Math::BigFloat->bpi($x); ok 225 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 226 - $x = Math::BigFloat->new("11"); Math::BigFloat->bpi($x); ok 227 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 228 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("10"); $x->bnok($y); ok 229 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 230 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 231 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 232 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 233 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 234 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bnok($y); ok 235 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 236 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 237 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 238 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bnok($y); ok 239 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 240 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 241 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 242 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-2"); $x->bnok($y); ok 243 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 244 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("3"); $x->bnok($y); ok 245 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 246 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("6"); $x->bnok($y); ok 247 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 248 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("90"); $x->bnok($y); ok 249 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 250 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("95"); $x->bnok($y); ok 251 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 252 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 253 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 254 - $x = Math::BigFloat->new("7"); $y = Math::BigFloat->new("0"); $x->bnok($y); ok 255 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 256 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bnok($y); ok 257 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 258 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 259 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 260 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 261 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 262 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 263 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 264 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(-1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 265 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 266 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(0); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 267 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 268 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 269 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 270 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 271 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 272 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(1); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 273 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 274 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new(2); $Math::BigFloat::div_scale = 40; $x->blog($y); ok 275 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 276 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 277 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 278 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 279 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 280 - $x = Math::BigFloat->new("2.718281828"); $Math::BigFloat::div_scale = 20; $x->blog(); ok 281 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 282 - $x = Math::BigFloat->new("123"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 283 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 284 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 285 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 286 - $x = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 287 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 288 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 289 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 290 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 291 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 292 - $x = Math::BigFloat->new("3.1415"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 293 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 294 - $x = Math::BigFloat->new("12345"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 295 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 296 - $x = Math::BigFloat->new("0.001"); $Math::BigFloat::div_scale = 15; $x->blog(); ok 297 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 298 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new(10); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 299 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 300 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new(100); $Math::BigFloat::div_scale = 15; $x->blog($y); ok 301 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 302 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->blog(); ok 303 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 304 - $x = Math::BigFloat->new("NaNbrsft"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 305 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 306 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("2"); $x->brsft($y); ok 307 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 308 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 309 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 310 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 311 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 312 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 313 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 314 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("1"); $x->brsft($y); ok 315 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 316 - $x = Math::BigFloat->new("32"); $y = Math::BigFloat->new("3"); $x->brsft($y); ok 317 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 318 - $x = Math::BigFloat->new("NaNblsft"); $y = Math::BigFloat->new("0"); $x->blsft($y); ok 319 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 320 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->blsft($y); ok 321 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 322 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 323 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 324 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("3"); $x->blsft($y); ok 325 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 326 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->blsft($y); ok 327 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 328 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("5"); $x->blsft($y); ok 329 - $x = Math::BigFloat->new("1"); $x; ok 330 - $x = Math::BigFloat->new("1"); $x; ok 331 - $x = Math::BigFloat->new("-0"); $x; ok 332 - $x = Math::BigFloat->new("-0"); $x; ok 333 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 334 - $x = Math::BigFloat->new("bnormNaN"); $x; ok 335 - $x = Math::BigFloat->new("+inf"); $x; ok 336 - $x = Math::BigFloat->new("+inf"); $x; ok 337 - $x = Math::BigFloat->new("-inf"); $x; ok 338 - $x = Math::BigFloat->new("-inf"); $x; ok 339 - $x = Math::BigFloat->new("123"); $x; ok 340 - $x = Math::BigFloat->new("123"); $x; ok 341 - $x = Math::BigFloat->new("-123.4567"); $x; ok 342 - $x = Math::BigFloat->new("-123.4567"); $x; ok 343 - $x = Math::BigFloat->new("1__2"); $x; ok 344 - $x = Math::BigFloat->new("1__2"); $x; ok 345 - $x = Math::BigFloat->new("1E1__2"); $x; ok 346 - $x = Math::BigFloat->new("1E1__2"); $x; ok 347 - $x = Math::BigFloat->new("11__2E2"); $x; ok 348 - $x = Math::BigFloat->new("11__2E2"); $x; ok 349 - $x = Math::BigFloat->new(".2E-3."); $x; ok 350 - $x = Math::BigFloat->new(".2E-3."); $x; ok 351 - $x = Math::BigFloat->new("1e3e4"); $x; ok 352 - $x = Math::BigFloat->new("1e3e4"); $x; ok 353 - $x = Math::BigFloat->new(".2E2"); $x; ok 354 - $x = Math::BigFloat->new(".2E2"); $x; ok 355 - $x = Math::BigFloat->new("1.E3"); $x; ok 356 - $x = Math::BigFloat->new("1.E3"); $x; ok 357 - $x = Math::BigFloat->new("0e0"); $x; ok 358 - $x = Math::BigFloat->new("0e0"); $x; ok 359 - $x = Math::BigFloat->new("+0e0"); $x; ok 360 - $x = Math::BigFloat->new("+0e0"); $x; ok 361 - $x = Math::BigFloat->new("+0e+0"); $x; ok 362 - $x = Math::BigFloat->new("+0e+0"); $x; ok 363 - $x = Math::BigFloat->new("-0e+0"); $x; ok 364 - $x = Math::BigFloat->new("-0e+0"); $x; ok 365 - $x = Math::BigFloat->new("0e-0"); $x; ok 366 - $x = Math::BigFloat->new("0e-0"); $x; ok 367 - $x = Math::BigFloat->new("-0e-0"); $x; ok 368 - $x = Math::BigFloat->new("-0e-0"); $x; ok 369 - $x = Math::BigFloat->new("+0e-0"); $x; ok 370 - $x = Math::BigFloat->new("+0e-0"); $x; ok 371 - $x = Math::BigFloat->new("000"); $x; ok 372 - $x = Math::BigFloat->new("000"); $x; ok 373 - $x = Math::BigFloat->new("00e2"); $x; ok 374 - $x = Math::BigFloat->new("00e2"); $x; ok 375 - $x = Math::BigFloat->new("00e02"); $x; ok 376 - $x = Math::BigFloat->new("00e02"); $x; ok 377 - $x = Math::BigFloat->new("000e002"); $x; ok 378 - $x = Math::BigFloat->new("000e002"); $x; ok 379 - $x = Math::BigFloat->new("000e1230"); $x; ok 380 - $x = Math::BigFloat->new("000e1230"); $x; ok 381 - $x = Math::BigFloat->new("00e-3"); $x; ok 382 - $x = Math::BigFloat->new("00e-3"); $x; ok 383 - $x = Math::BigFloat->new("00e+3"); $x; ok 384 - $x = Math::BigFloat->new("00e+3"); $x; ok 385 - $x = Math::BigFloat->new("00e-03"); $x; ok 386 - $x = Math::BigFloat->new("00e-03"); $x; ok 387 - $x = Math::BigFloat->new("00e+03"); $x; ok 388 - $x = Math::BigFloat->new("00e+03"); $x; ok 389 - $x = Math::BigFloat->new("-000"); $x; ok 390 - $x = Math::BigFloat->new("-000"); $x; ok 391 - $x = Math::BigFloat->new("-00e2"); $x; ok 392 - $x = Math::BigFloat->new("-00e2"); $x; ok 393 - $x = Math::BigFloat->new("-00e02"); $x; ok 394 - $x = Math::BigFloat->new("-00e02"); $x; ok 395 - $x = Math::BigFloat->new("-000e002"); $x; ok 396 - $x = Math::BigFloat->new("-000e002"); $x; ok 397 - $x = Math::BigFloat->new("-000e1230"); $x; ok 398 - $x = Math::BigFloat->new("-000e1230"); $x; ok 399 - $x = Math::BigFloat->new("-00e-3"); $x; ok 400 - $x = Math::BigFloat->new("-00e-3"); $x; ok 401 - $x = Math::BigFloat->new("-00e+3"); $x; ok 402 - $x = Math::BigFloat->new("-00e+3"); $x; ok 403 - $x = Math::BigFloat->new("-00e-03"); $x; ok 404 - $x = Math::BigFloat->new("-00e-03"); $x; ok 405 - $x = Math::BigFloat->new("-00e+03"); $x; ok 406 - $x = Math::BigFloat->new("-00e+03"); $x; ok 407 - $x = Math::BigFloat->new("0"); $x->as_number(); ok 408 - $x = Math::BigFloat->new("1"); $x->as_number(); ok 409 - $x = Math::BigFloat->new("1.2"); $x->as_number(); ok 410 - $x = Math::BigFloat->new("2.345"); $x->as_number(); ok 411 - $x = Math::BigFloat->new("-2"); $x->as_number(); ok 412 - $x = Math::BigFloat->new("-123.456"); $x->as_number(); ok 413 - $x = Math::BigFloat->new("-200"); $x->as_number(); ok 414 - $x = Math::BigFloat->new("-inf"); $x->as_number(); ok 415 - $x = Math::BigFloat->new("inf"); $x->as_number(); ok 416 - $x = Math::BigFloat->new("NaN"); $x->as_number(); ok 417 - $x = Math::BigFloat->new("71243225429896467497217836789578596379"); $x->as_number(); ok 418 - $x = Math::BigFloat->new("0.000641"); $x->as_number(); ok 419 - $x = Math::BigFloat->new("0.0006412"); $x->as_number(); ok 420 - $x = Math::BigFloat->new("0.00064123"); $x->as_number(); ok 421 - $x = Math::BigFloat->new("0.000641234"); $x->as_number(); ok 422 - $x = Math::BigFloat->new("0.0006412345"); $x->as_number(); ok 423 - $x = Math::BigFloat->new("0.00064123456"); $x->as_number(); ok 424 - $x = Math::BigFloat->new("0.000641234567"); $x->as_number(); ok 425 - $x = Math::BigFloat->new("0.0006412345678"); $x->as_number(); ok 426 - $x = Math::BigFloat->new("0.00064123456789"); $x->as_number(); ok 427 - $x = Math::BigFloat->new("0.1"); $x->as_number(); ok 428 - $x = Math::BigFloat->new("0.01"); $x->as_number(); ok 429 - $x = Math::BigFloat->new("0.001"); $x->as_number(); ok 430 - $x = Math::BigFloat->new("0.0001"); $x->as_number(); ok 431 - $x = Math::BigFloat->new("0.00001"); $x->as_number(); ok 432 - $x = Math::BigFloat->new("0.000001"); $x->as_number(); ok 433 - $x = Math::BigFloat->new("0.0000001"); $x->as_number(); ok 434 - $x = Math::BigFloat->new("0.00000001"); $x->as_number(); ok 435 - $x = Math::BigFloat->new("0.000000001"); $x->as_number(); ok 436 - $x = Math::BigFloat->new("0.0000000001"); $x->as_number(); ok 437 - $x = Math::BigFloat->new("0.00000000001"); $x->as_number(); ok 438 - $x = Math::BigFloat->new("0.12345"); $x->as_number(); ok 439 - $x = Math::BigFloat->new("0.123456"); $x->as_number(); ok 440 - $x = Math::BigFloat->new("0.1234567"); $x->as_number(); ok 441 - $x = Math::BigFloat->new("0.12345678"); $x->as_number(); ok 442 - $x = Math::BigFloat->new("0.123456789"); $x->as_number(); ok 443 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 444 - $x = Math::BigFloat->new("1"); $x->binf("+"); ok 445 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 446 - $x = Math::BigFloat->new("2"); $x->binf("-"); ok 447 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 448 - $x = Math::BigFloat->new("3"); $x->binf("abc"); ok 449 - $x = Math::BigFloat->new("+inf"); $x->as_hex(); ok 450 - $x = Math::BigFloat->new("-inf"); $x->as_hex(); ok 451 - $x = Math::BigFloat->new("hexNaN"); $x->as_hex(); ok 452 - $x = Math::BigFloat->new("0"); $x->as_hex(); ok 453 - $x = Math::BigFloat->new("5"); $x->as_hex(); ok 454 - $x = Math::BigFloat->new("-5"); $x->as_hex(); ok 455 - $x = Math::BigFloat->new("+inf"); $x->as_bin(); ok 456 - $x = Math::BigFloat->new("-inf"); $x->as_bin(); ok 457 - $x = Math::BigFloat->new("hexNaN"); $x->as_bin(); ok 458 - $x = Math::BigFloat->new("0"); $x->as_bin(); ok 459 - $x = Math::BigFloat->new("5"); $x->as_bin(); ok 460 - $x = Math::BigFloat->new("-5"); $x->as_bin(); ok 461 - $x = Math::BigFloat->new("0"); $x->numify(); ok 462 - $x = Math::BigFloat->new("+1"); $x->numify(); ok 463 - $x = Math::BigFloat->new("1234"); $x->numify(); ok 464 - $x = Math::BigFloat->new("-5"); $x->numify(); ok 465 - $x = Math::BigFloat->new("100"); $x->numify(); ok 466 - $x = Math::BigFloat->new("-100"); $x->numify(); ok 467 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 468 - $x = Math::BigFloat->new("abc"); $x->bnan(); ok 469 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 470 - $x = Math::BigFloat->new("2"); $x->bnan(); ok 471 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 472 - $x = Math::BigFloat->new("-2"); $x->bnan(); ok 473 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 474 - $x = Math::BigFloat->new("0"); $x->bnan(); ok 475 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 476 - $x = Math::BigFloat->new("2"); $x->bone("+"); ok 477 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 478 - $x = Math::BigFloat->new("-2"); $x->bone("-"); ok 479 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 480 - $x = Math::BigFloat->new("-2"); $x->bone("+"); ok 481 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 482 - $x = Math::BigFloat->new("2"); $x->bone("-"); ok 483 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 484 - $x = Math::BigFloat->new("0"); $x->bone(""); ok 485 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 486 - $x = Math::BigFloat->new("-2"); $x->bone(""); ok 487 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 488 - $x = Math::BigFloat->new("abc"); $x->bone(""); ok 489 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 490 - $x = Math::BigFloat->new("2"); $x->bone("abc"); ok 491 - $x = Math::BigFloat->new("+inf"); $x->bsstr(); ok 492 - $x = Math::BigFloat->new("-inf"); $x->bsstr(); ok 493 - $x = Math::BigFloat->new("abcfsstr"); $x->bsstr(); ok 494 - $x = Math::BigFloat->new("-abcfsstr"); $x->bsstr(); ok 495 - $x = Math::BigFloat->new("1234.567"); $x->bsstr(); ok 496 - $x = Math::BigFloat->new("123"); $x->bsstr(); ok 497 - $x = Math::BigFloat->new("-5"); $x->bsstr(); ok 498 - $x = Math::BigFloat->new("-100"); $x->bsstr(); ok 499 - $x = Math::BigFloat->new("+inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 500 - $x = Math::BigFloat->new("-inf"); $x->accuracy(); $x->precision(); $x->bstr(); ok 501 - $x = Math::BigFloat->new("abcfstr"); $x->accuracy(); $x->precision(); $x->bstr(); ok 502 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(9); $x->precision(); $x->bstr(); ok 503 - $x = Math::BigFloat->new("1234.567"); $x->accuracy(); $x->precision(-6); $x->bstr(); ok 504 - $x = Math::BigFloat->new("12345"); $x->accuracy(5); $x->precision(); $x->bstr(); ok 505 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(6); $x->precision(); $x->bstr(); ok 506 - $x = Math::BigFloat->new("0.001234"); $x->accuracy(); $x->precision(-8); $x->bstr(); ok 507 - $x = Math::BigFloat->new("0"); $x->accuracy(4); $x->precision(); $x->bstr(); ok 508 - $x = Math::BigFloat->new("0"); $x->accuracy(); $x->precision(-4); $x->bstr(); ok 509 - $x = Math::BigFloat->new("inf"); $x; ok 510 - $x = Math::BigFloat->new("inf"); $x; ok 511 - $x = Math::BigFloat->new("+inf"); $x; ok 512 - $x = Math::BigFloat->new("+inf"); $x; ok 513 - $x = Math::BigFloat->new("-inf"); $x; ok 514 - $x = Math::BigFloat->new("-inf"); $x; ok 515 - $x = Math::BigFloat->new("+infinity"); $x; ok 516 - $x = Math::BigFloat->new("+infinity"); $x; ok 517 - $x = Math::BigFloat->new("+-inf"); $x; ok 518 - $x = Math::BigFloat->new("+-inf"); $x; ok 519 - $x = Math::BigFloat->new("abc"); $x; ok 520 - $x = Math::BigFloat->new("abc"); $x; ok 521 - $x = Math::BigFloat->new(" 1 a"); $x; ok 522 - $x = Math::BigFloat->new(" 1 a"); $x; ok 523 - $x = Math::BigFloat->new("1bcd2"); $x; ok 524 - $x = Math::BigFloat->new("1bcd2"); $x; ok 525 - $x = Math::BigFloat->new("11111b"); $x; ok 526 - $x = Math::BigFloat->new("11111b"); $x; ok 527 - $x = Math::BigFloat->new("+1z"); $x; ok 528 - $x = Math::BigFloat->new("+1z"); $x; ok 529 - $x = Math::BigFloat->new("-1z"); $x; ok 530 - $x = Math::BigFloat->new("-1z"); $x; ok 531 - $x = Math::BigFloat->new("0e999"); $x; ok 532 - $x = Math::BigFloat->new("0e999"); $x; ok 533 - $x = Math::BigFloat->new("0e-999"); $x; ok 534 - $x = Math::BigFloat->new("0e-999"); $x; ok 535 - $x = Math::BigFloat->new("-0e999"); $x; ok 536 - $x = Math::BigFloat->new("-0e999"); $x; ok 537 - $x = Math::BigFloat->new("-0e-999"); $x; ok 538 - $x = Math::BigFloat->new("-0e-999"); $x; ok 539 - $x = Math::BigFloat->new("0"); $x; ok 540 - $x = Math::BigFloat->new("0"); $x; ok 541 - $x = Math::BigFloat->new("+0"); $x; ok 542 - $x = Math::BigFloat->new("+0"); $x; ok 543 - $x = Math::BigFloat->new("+00"); $x; ok 544 - $x = Math::BigFloat->new("+00"); $x; ok 545 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 546 - $x = Math::BigFloat->new("+0_0_0"); $x; ok 547 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 548 - $x = Math::BigFloat->new("000000_0000000_00000"); $x; ok 549 - $x = Math::BigFloat->new("-0"); $x; ok 550 - $x = Math::BigFloat->new("-0"); $x; ok 551 - $x = Math::BigFloat->new("-0000"); $x; ok 552 - $x = Math::BigFloat->new("-0000"); $x; ok 553 - $x = Math::BigFloat->new("+1"); $x; ok 554 - $x = Math::BigFloat->new("+1"); $x; ok 555 - $x = Math::BigFloat->new("+01"); $x; ok 556 - $x = Math::BigFloat->new("+01"); $x; ok 557 - $x = Math::BigFloat->new("+001"); $x; ok 558 - $x = Math::BigFloat->new("+001"); $x; ok 559 - $x = Math::BigFloat->new("+00000100000"); $x; ok 560 - $x = Math::BigFloat->new("+00000100000"); $x; ok 561 - $x = Math::BigFloat->new("123456789"); $x; ok 562 - $x = Math::BigFloat->new("123456789"); $x; ok 563 - $x = Math::BigFloat->new("-1"); $x; ok 564 - $x = Math::BigFloat->new("-1"); $x; ok 565 - $x = Math::BigFloat->new("-01"); $x; ok 566 - $x = Math::BigFloat->new("-01"); $x; ok 567 - $x = Math::BigFloat->new("-001"); $x; ok 568 - $x = Math::BigFloat->new("-001"); $x; ok 569 - $x = Math::BigFloat->new("-123456789"); $x; ok 570 - $x = Math::BigFloat->new("-123456789"); $x; ok 571 - $x = Math::BigFloat->new("-00000100000"); $x; ok 572 - $x = Math::BigFloat->new("-00000100000"); $x; ok 573 - $x = Math::BigFloat->new("123.456a"); $x; ok 574 - $x = Math::BigFloat->new("123.456a"); $x; ok 575 - $x = Math::BigFloat->new("123.456"); $x; ok 576 - $x = Math::BigFloat->new("123.456"); $x; ok 577 - $x = Math::BigFloat->new("0.01"); $x; ok 578 - $x = Math::BigFloat->new("0.01"); $x; ok 579 - $x = Math::BigFloat->new(".002"); $x; ok 580 - $x = Math::BigFloat->new(".002"); $x; ok 581 - $x = Math::BigFloat->new("+.2"); $x; ok 582 - $x = Math::BigFloat->new("+.2"); $x; ok 583 - $x = Math::BigFloat->new("-0.0003"); $x; ok 584 - $x = Math::BigFloat->new("-0.0003"); $x; ok 585 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 586 - $x = Math::BigFloat->new("-.0000000004"); $x; ok 587 - $x = Math::BigFloat->new("123456E2"); $x; ok 588 - $x = Math::BigFloat->new("123456E2"); $x; ok 589 - $x = Math::BigFloat->new("123456E-2"); $x; ok 590 - $x = Math::BigFloat->new("123456E-2"); $x; ok 591 - $x = Math::BigFloat->new("-123456E2"); $x; ok 592 - $x = Math::BigFloat->new("-123456E2"); $x; ok 593 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 594 - $x = Math::BigFloat->new("-123456E-2"); $x; ok 595 - $x = Math::BigFloat->new("1e1"); $x; ok 596 - $x = Math::BigFloat->new("1e1"); $x; ok 597 - $x = Math::BigFloat->new("2e-11"); $x; ok 598 - $x = Math::BigFloat->new("2e-11"); $x; ok 599 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 600 - $x = Math::BigFloat->new(" .02e-1"); $x; ok 601 - $x = Math::BigFloat->new(" 000001"); $x; ok 602 - $x = Math::BigFloat->new(" 000001"); $x; ok 603 - $x = Math::BigFloat->new(" -00001"); $x; ok 604 - $x = Math::BigFloat->new(" -00001"); $x; ok 605 - $x = Math::BigFloat->new(" -1"); $x; ok 606 - $x = Math::BigFloat->new(" -1"); $x; ok 607 - $x = Math::BigFloat->new(" 000.01"); $x; ok 608 - $x = Math::BigFloat->new(" 000.01"); $x; ok 609 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 610 - $x = Math::BigFloat->new(" -000.0023"); $x; ok 611 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 612 - $x = Math::BigFloat->new(" 1.1e1"); $x; ok 613 - $x = Math::BigFloat->new("-3e111"); $x; ok 614 - $x = Math::BigFloat->new("-3e111"); $x; ok 615 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 616 - $x = Math::BigFloat->new("-4e-1111"); $x; ok 617 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 618 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 619 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 620 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 621 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 622 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-1"); $x->bpow($y); ok 623 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 624 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 625 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 626 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-21"); $x->bpow($y); ok 627 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 628 - $x = Math::BigFloat->new("-21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 629 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 630 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("21"); $x->bpow($y); ok 631 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 632 - $x = Math::BigFloat->new("21"); $y = Math::BigFloat->new("NaN"); $x->bpow($y); ok 633 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 634 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bpow($y); ok 635 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 636 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bpow($y); ok 637 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 638 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("9"); $x->bpow($y); ok 639 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 640 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 641 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 642 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 643 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 644 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 645 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 646 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 647 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 648 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 649 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 650 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 651 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 652 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 653 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 654 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 655 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 656 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("-3"); $x->bpow($y); ok 657 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 658 - $x = Math::BigFloat->new("128"); $y = Math::BigFloat->new("-2"); $x->bpow($y); ok 659 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 660 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("123.456"); $x->bpow($y); ok 661 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 662 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("abc"); $x->bpow($y); ok 663 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 664 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 665 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 666 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.45"); $x->bpow($y); ok 667 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 668 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 669 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 670 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.45"); $x->bpow($y); ok 671 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 672 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 673 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 674 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 675 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 676 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 677 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 678 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 679 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 680 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("2"); $x->bpow($y); ok 681 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 682 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("3"); $x->bpow($y); ok 683 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 684 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $x->bpow($y); ok 685 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 686 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("5"); $x->bpow($y); ok 687 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 688 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("0.5"); $x->bpow($y); ok 689 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 690 - $x = Math::BigFloat->new("bnegNaN"); $x->bneg(); ok 691 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 692 - $x = Math::BigFloat->new("+inf"); $x->bneg(); ok 693 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 694 - $x = Math::BigFloat->new("-inf"); $x->bneg(); ok 695 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 696 - $x = Math::BigFloat->new("+0"); $x->bneg(); ok 697 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 698 - $x = Math::BigFloat->new("+1"); $x->bneg(); ok 699 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 700 - $x = Math::BigFloat->new("-1"); $x->bneg(); ok 701 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 702 - $x = Math::BigFloat->new("+123456789"); $x->bneg(); ok 703 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 704 - $x = Math::BigFloat->new("-123456789"); $x->bneg(); ok 705 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 706 - $x = Math::BigFloat->new("+123.456789"); $x->bneg(); ok 707 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 708 - $x = Math::BigFloat->new("-123456.789"); $x->bneg(); ok 709 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 710 - $x = Math::BigFloat->new("babsNaN"); $x->babs(); ok 711 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 712 - $x = Math::BigFloat->new("+inf"); $x->babs(); ok 713 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 714 - $x = Math::BigFloat->new("-inf"); $x->babs(); ok 715 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 716 - $x = Math::BigFloat->new("+0"); $x->babs(); ok 717 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 718 - $x = Math::BigFloat->new("+1"); $x->babs(); ok 719 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 720 - $x = Math::BigFloat->new("-1"); $x->babs(); ok 721 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 722 - $x = Math::BigFloat->new("+123456789"); $x->babs(); ok 723 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 724 - $x = Math::BigFloat->new("-123456789"); $x->babs(); ok 725 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 726 - $x = Math::BigFloat->new("+123.456789"); $x->babs(); ok 727 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 728 - $x = Math::BigFloat->new("-123456.789"); $x->babs(); ok 729 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 730 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 731 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 732 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 733 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 734 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 735 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 736 - $x = Math::BigFloat->new("NaNfround"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 737 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 738 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 739 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 740 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 741 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 742 - $x = Math::BigFloat->new("+10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 743 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 744 - $x = Math::BigFloat->new("-10123456789.123"); $Math::BigFloat::round_mode = "trunc"; $x->bround(5); ok 745 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 746 - $x = Math::BigFloat->new("+10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 747 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 748 - $x = Math::BigFloat->new("-10123456789"); $Math::BigFloat::round_mode = "trunc"; $x->bround(9); ok 749 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 750 - $x = Math::BigFloat->new("+101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 751 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 752 - $x = Math::BigFloat->new("-101234500"); $Math::BigFloat::round_mode = "trunc"; $x->bround(6); ok 753 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 754 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 755 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 756 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 757 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 758 - $x = Math::BigFloat->new("+20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 759 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 760 - $x = Math::BigFloat->new("-20123456789.123"); $Math::BigFloat::round_mode = "zero"; $x->bround(5); ok 761 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 762 - $x = Math::BigFloat->new("+20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 763 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 764 - $x = Math::BigFloat->new("-20123456789"); $Math::BigFloat::round_mode = "zero"; $x->bround(9); ok 765 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 766 - $x = Math::BigFloat->new("+201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 767 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 768 - $x = Math::BigFloat->new("-201234500"); $Math::BigFloat::round_mode = "zero"; $x->bround(6); ok 769 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 770 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 771 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 772 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 773 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 774 - $x = Math::BigFloat->new("+30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 775 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 776 - $x = Math::BigFloat->new("-30123456789.123"); $Math::BigFloat::round_mode = "+inf"; $x->bround(5); ok 777 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 778 - $x = Math::BigFloat->new("+30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 779 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 780 - $x = Math::BigFloat->new("-30123456789"); $Math::BigFloat::round_mode = "+inf"; $x->bround(9); ok 781 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 782 - $x = Math::BigFloat->new("+301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 783 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 784 - $x = Math::BigFloat->new("-301234500"); $Math::BigFloat::round_mode = "+inf"; $x->bround(6); ok 785 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 786 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 787 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 788 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 789 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 790 - $x = Math::BigFloat->new("+40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 791 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 792 - $x = Math::BigFloat->new("-40123456789.123"); $Math::BigFloat::round_mode = "-inf"; $x->bround(5); ok 793 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 794 - $x = Math::BigFloat->new("+40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 795 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 796 - $x = Math::BigFloat->new("-40123456789"); $Math::BigFloat::round_mode = "-inf"; $x->bround(9); ok 797 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 798 - $x = Math::BigFloat->new("+401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 799 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 800 - $x = Math::BigFloat->new("-401234500"); $Math::BigFloat::round_mode = "-inf"; $x->bround(6); ok 801 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 802 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 803 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 804 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 805 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 806 - $x = Math::BigFloat->new("+50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 807 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 808 - $x = Math::BigFloat->new("-50123456789.123"); $Math::BigFloat::round_mode = "odd"; $x->bround(5); ok 809 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 810 - $x = Math::BigFloat->new("+50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 811 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 812 - $x = Math::BigFloat->new("-50123456789"); $Math::BigFloat::round_mode = "odd"; $x->bround(9); ok 813 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 814 - $x = Math::BigFloat->new("+501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 815 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 816 - $x = Math::BigFloat->new("-501234500"); $Math::BigFloat::round_mode = "odd"; $x->bround(6); ok 817 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 818 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 819 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 820 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 821 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 822 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 823 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 824 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "even"; $x->bround(9); ok 825 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 826 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 827 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 828 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "even"; $x->bround(6); ok 829 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 830 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 831 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 832 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "even"; $x->bround(5); ok 833 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 834 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 835 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 836 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 837 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 838 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 839 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 840 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 841 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 842 - $x = Math::BigFloat->new("+60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 843 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 844 - $x = Math::BigFloat->new("-60123456789"); $Math::BigFloat::round_mode = "common"; $x->bround(9); ok 845 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 846 - $x = Math::BigFloat->new("+601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 847 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 848 - $x = Math::BigFloat->new("-601234500"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 849 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 850 - $x = Math::BigFloat->new("+601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 851 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 852 - $x = Math::BigFloat->new("-601234400"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 853 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 854 - $x = Math::BigFloat->new("+601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 855 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 856 - $x = Math::BigFloat->new("-601234600"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 857 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 858 - $x = Math::BigFloat->new("+601234300"); $Math::BigFloat::round_mode = "common"; $x->bround(6); ok 859 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 860 - $x = Math::BigFloat->new("+60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 861 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 862 - $x = Math::BigFloat->new("-60123456789.0123"); $Math::BigFloat::round_mode = "common"; $x->bround(5); ok 863 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 864 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 865 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 866 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 867 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 868 - $x = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 869 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 870 - $x = Math::BigFloat->new("NaNffround"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(5); ok 871 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 872 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 873 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 874 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 875 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 876 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 877 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 878 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 879 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 880 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 881 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 882 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 883 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 884 - $x = Math::BigFloat->new("+1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 885 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 886 - $x = Math::BigFloat->new("+1.234"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 887 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 888 - $x = Math::BigFloat->new("+1.2345"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 889 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 890 - $x = Math::BigFloat->new("-1.23"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 891 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 892 - $x = Math::BigFloat->new("+1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 893 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 894 - $x = Math::BigFloat->new("-1.27"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 895 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 896 - $x = Math::BigFloat->new("+1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 897 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 898 - $x = Math::BigFloat->new("-1.25"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 899 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 900 - $x = Math::BigFloat->new("+1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 901 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 902 - $x = Math::BigFloat->new("-1.35"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 903 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 904 - $x = Math::BigFloat->new("-0.0061234567890"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 905 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 906 - $x = Math::BigFloat->new("-0.0061"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 907 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 908 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 909 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 910 - $x = Math::BigFloat->new("-0.00612"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 911 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 912 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-1); ok 913 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 914 - $x = Math::BigFloat->new("-0.006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 915 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 916 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-2); ok 917 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 918 - $x = Math::BigFloat->new("-0.0006"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 919 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-3); ok 920 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-4); ok 921 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(-5); ok 922 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 923 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 924 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 925 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 926 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 927 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 928 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 929 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "trunc"; $x->bfround(0); ok 930 - $x = Math::BigFloat->new("+2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 931 - $x = Math::BigFloat->new("-2.23"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 932 - $x = Math::BigFloat->new("+2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 933 - $x = Math::BigFloat->new("-2.27"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 934 - $x = Math::BigFloat->new("+2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 935 - $x = Math::BigFloat->new("-2.25"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 936 - $x = Math::BigFloat->new("+2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 937 - $x = Math::BigFloat->new("-2.35"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 938 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 939 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-1); ok 940 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-2); ok 941 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-3); ok 942 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-4); ok 943 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "zero"; $x->bfround(-5); ok 944 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 945 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 946 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 947 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 948 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 949 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 950 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 951 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "zero"; $x->bfround(0); ok 952 - $x = Math::BigFloat->new("+3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 953 - $x = Math::BigFloat->new("-3.23"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 954 - $x = Math::BigFloat->new("+3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 955 - $x = Math::BigFloat->new("-3.27"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 956 - $x = Math::BigFloat->new("+3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 957 - $x = Math::BigFloat->new("-3.25"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 958 - $x = Math::BigFloat->new("+3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 959 - $x = Math::BigFloat->new("-3.35"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 960 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 961 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-1); ok 962 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-2); ok 963 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-3); ok 964 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-4); ok 965 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(-5); ok 966 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 967 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 968 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 969 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 970 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 971 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 972 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 973 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "+inf"; $x->bfround(0); ok 974 - $x = Math::BigFloat->new("+4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 975 - $x = Math::BigFloat->new("-4.23"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 976 - $x = Math::BigFloat->new("+4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 977 - $x = Math::BigFloat->new("-4.27"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 978 - $x = Math::BigFloat->new("+4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 979 - $x = Math::BigFloat->new("-4.25"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 980 - $x = Math::BigFloat->new("+4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 981 - $x = Math::BigFloat->new("-4.35"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 982 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 983 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-1); ok 984 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-2); ok 985 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-3); ok 986 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-4); ok 987 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(-5); ok 988 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 989 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 990 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 991 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 992 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 993 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 994 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 995 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "-inf"; $x->bfround(0); ok 996 - $x = Math::BigFloat->new("+5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 997 - $x = Math::BigFloat->new("-5.23"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 998 - $x = Math::BigFloat->new("+5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 999 - $x = Math::BigFloat->new("-5.27"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1000 - $x = Math::BigFloat->new("+5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1001 - $x = Math::BigFloat->new("-5.25"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1002 - $x = Math::BigFloat->new("+5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1003 - $x = Math::BigFloat->new("-5.35"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1004 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1005 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-1); ok 1006 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-2); ok 1007 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-3); ok 1008 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-4); ok 1009 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "odd"; $x->bfround(-5); ok 1010 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1011 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1012 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1013 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1014 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1015 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1016 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1017 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "odd"; $x->bfround(0); ok 1018 - $x = Math::BigFloat->new("+6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1019 - $x = Math::BigFloat->new("-6.23"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1020 - $x = Math::BigFloat->new("+6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1021 - $x = Math::BigFloat->new("-6.27"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1022 - $x = Math::BigFloat->new("+6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1023 - $x = Math::BigFloat->new("-6.25"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1024 - $x = Math::BigFloat->new("+6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1025 - $x = Math::BigFloat->new("-6.35"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1026 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1027 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-1); ok 1028 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-2); ok 1029 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1030 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1031 - $x = Math::BigFloat->new("-0.0065"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1032 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1033 - $x = Math::BigFloat->new("0.05"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1034 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1035 - $x = Math::BigFloat->new("0.5"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1036 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1037 - $x = Math::BigFloat->new("0.51"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1038 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1039 - $x = Math::BigFloat->new("0.41"); $Math::BigFloat::round_mode = "even"; $x->bfround(0); ok 1040 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1041 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-3); ok 1042 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1043 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-4); ok 1044 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1045 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-5); ok 1046 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1047 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-6); ok 1048 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1049 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-7); ok 1050 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1051 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-8); ok 1052 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1053 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-9); ok 1054 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1055 - $x = Math::BigFloat->new("0.01234567"); $Math::BigFloat::round_mode = "even"; $x->bfround(-12); ok 1056 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1057 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1058 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bcmp($y); ok 1059 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1060 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1061 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1062 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1063 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1064 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1065 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1066 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bcmp($y); ok 1067 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bcmp($y); ok 1068 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1069 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bcmp($y); ok 1070 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bcmp($y); ok 1071 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bcmp($y); ok 1072 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1073 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bcmp($y); ok 1074 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1075 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1076 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bcmp($y); ok 1077 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1078 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bcmp($y); ok 1079 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bcmp($y); ok 1080 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bcmp($y); ok 1081 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bcmp($y); ok 1082 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bcmp($y); ok 1083 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1084 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bcmp($y); ok 1085 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bcmp($y); ok 1086 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1087 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1088 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1089 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1090 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bcmp($y); ok 1091 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bcmp($y); ok 1092 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1093 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bcmp($y); ok 1094 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1095 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1096 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1097 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1098 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1099 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1100 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bcmp($y); ok 1101 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bcmp($y); ok 1102 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bcmp($y); ok 1103 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bcmp($y); ok 1104 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bcmp($y); ok 1105 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bcmp($y); ok 1106 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bcmp($y); ok 1107 - $x = Math::BigFloat->new("1e1234567890987654321"); $y = Math::BigFloat->new("1e1234567890987654320"); $x->bcmp($y); ok 1108 - $x = Math::BigFloat->new("1e-1234567890987654321"); $y = Math::BigFloat->new("1e-1234567890987654320"); $x->bcmp($y); ok 1109 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1110 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bcmp($y); ok 1111 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1112 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bcmp($y); ok 1113 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1114 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bcmp($y); ok 1115 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1116 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bcmp($y); ok 1117 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1118 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1119 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1120 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bcmp($y); ok 1121 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1122 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $x->bcmp($y); ok 1123 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $x->bcmp($y); ok 1124 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("-inf"); $x->bcmp($y); ok 1125 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1126 - $x = Math::BigFloat->new("bcmpNaN"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1127 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("bcmpNaN"); $x->bacmp($y); ok 1128 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1129 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1130 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1131 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1132 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1133 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1134 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1135 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bacmp($y); ok 1136 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bacmp($y); ok 1137 - $x = Math::BigFloat->new("-1.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1138 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1.1"); $x->bacmp($y); ok 1139 - $x = Math::BigFloat->new("+1.1"); $y = Math::BigFloat->new("+0"); $x->bacmp($y); ok 1140 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1.1"); $x->bacmp($y); ok 1141 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1142 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+12"); $x->bacmp($y); ok 1143 - $x = Math::BigFloat->new("+12"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1144 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1145 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-12"); $x->bacmp($y); ok 1146 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1147 - $x = Math::BigFloat->new("+123"); $y = Math::BigFloat->new("+124"); $x->bacmp($y); ok 1148 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+123"); $x->bacmp($y); ok 1149 - $x = Math::BigFloat->new("-123"); $y = Math::BigFloat->new("-124"); $x->bacmp($y); ok 1150 - $x = Math::BigFloat->new("-124"); $y = Math::BigFloat->new("-123"); $x->bacmp($y); ok 1151 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.01"); $x->bacmp($y); ok 1152 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1153 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001"); $x->bacmp($y); ok 1154 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.1"); $x->bacmp($y); ok 1155 - $x = Math::BigFloat->new("0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1156 - $x = Math::BigFloat->new("0.00001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1157 - $x = Math::BigFloat->new("-0.0001"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1158 - $x = Math::BigFloat->new("-0.1"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1159 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0.0001234"); $x->bacmp($y); ok 1160 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-0.0001234"); $x->bacmp($y); ok 1161 - $x = Math::BigFloat->new("0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1162 - $x = Math::BigFloat->new("-0.0001234"); $y = Math::BigFloat->new("0"); $x->bacmp($y); ok 1163 - $x = Math::BigFloat->new("0.0001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1164 - $x = Math::BigFloat->new("0.0005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1165 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1166 - $x = Math::BigFloat->new("0.001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1167 - $x = Math::BigFloat->new("0.000001"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1168 - $x = Math::BigFloat->new("0.00000123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1169 - $x = Math::BigFloat->new("0.00512"); $y = Math::BigFloat->new("0.0001"); $x->bacmp($y); ok 1170 - $x = Math::BigFloat->new("0.005"); $y = Math::BigFloat->new("0.000112"); $x->bacmp($y); ok 1171 - $x = Math::BigFloat->new("0.00123"); $y = Math::BigFloat->new("0.0005"); $x->bacmp($y); ok 1172 - $x = Math::BigFloat->new("1.5"); $y = Math::BigFloat->new("2"); $x->bacmp($y); ok 1173 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.5"); $x->bacmp($y); ok 1174 - $x = Math::BigFloat->new("1.54321"); $y = Math::BigFloat->new("234"); $x->bacmp($y); ok 1175 - $x = Math::BigFloat->new("234"); $y = Math::BigFloat->new("1.54321"); $x->bacmp($y); ok 1176 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1177 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("5432112345"); $x->bacmp($y); ok 1178 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1179 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-5432112345"); $x->bacmp($y); ok 1180 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1181 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("54321.12345"); $x->bacmp($y); ok 1182 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1183 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-54321.12345"); $x->bacmp($y); ok 1184 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1185 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1186 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1187 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bacmp($y); ok 1188 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1189 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1190 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1191 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1192 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1193 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("inf"); $x->bacmp($y); ok 1194 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("bacmpNaN"); $x->bacmp($y); ok 1195 - $x = Math::BigFloat->new("bacmpNaN"); $y = Math::BigFloat->new("-inf"); $x->bacmp($y); ok 1196 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1197 - $x = Math::BigFloat->new("bdecNaN"); $x->bdec(); ok 1198 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1199 - $x = Math::BigFloat->new("+inf"); $x->bdec(); ok 1200 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1201 - $x = Math::BigFloat->new("-inf"); $x->bdec(); ok 1202 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1203 - $x = Math::BigFloat->new("+0"); $x->bdec(); ok 1204 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1205 - $x = Math::BigFloat->new("+1"); $x->bdec(); ok 1206 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1207 - $x = Math::BigFloat->new("-1"); $x->bdec(); ok 1208 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1209 - $x = Math::BigFloat->new("1.23"); $x->bdec(); ok 1210 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1211 - $x = Math::BigFloat->new("-1.23"); $x->bdec(); ok 1212 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1213 - $x = Math::BigFloat->new("100"); $x->bdec(); ok 1214 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1215 - $x = Math::BigFloat->new("101"); $x->bdec(); ok 1216 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1217 - $x = Math::BigFloat->new("-100"); $x->bdec(); ok 1218 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1219 - $x = Math::BigFloat->new("-99"); $x->bdec(); ok 1220 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1221 - $x = Math::BigFloat->new("-98"); $x->bdec(); ok 1222 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1223 - $x = Math::BigFloat->new("99"); $x->bdec(); ok 1224 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1225 - $x = Math::BigFloat->new("bincNaN"); $x->binc(); ok 1226 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1227 - $x = Math::BigFloat->new("+inf"); $x->binc(); ok 1228 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1229 - $x = Math::BigFloat->new("-inf"); $x->binc(); ok 1230 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1231 - $x = Math::BigFloat->new("+0"); $x->binc(); ok 1232 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1233 - $x = Math::BigFloat->new("+1"); $x->binc(); ok 1234 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1235 - $x = Math::BigFloat->new("-1"); $x->binc(); ok 1236 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1237 - $x = Math::BigFloat->new("1.23"); $x->binc(); ok 1238 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1239 - $x = Math::BigFloat->new("-1.23"); $x->binc(); ok 1240 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1241 - $x = Math::BigFloat->new("100"); $x->binc(); ok 1242 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1243 - $x = Math::BigFloat->new("-100"); $x->binc(); ok 1244 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1245 - $x = Math::BigFloat->new("-99"); $x->binc(); ok 1246 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1247 - $x = Math::BigFloat->new("-101"); $x->binc(); ok 1248 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1249 - $x = Math::BigFloat->new("99"); $x->binc(); ok 1250 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1251 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1252 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1253 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1254 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1255 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->badd($y); ok 1256 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1257 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1258 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1259 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1260 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1261 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1262 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1263 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->badd($y); ok 1264 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1265 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1266 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1267 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->badd($y); ok 1268 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1269 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1270 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1271 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->badd($y); ok 1272 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1273 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1274 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1275 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1276 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1277 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1278 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1279 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1280 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1281 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->badd($y); ok 1282 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1283 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1284 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1285 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1286 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1287 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1288 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1289 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1290 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1291 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1292 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1293 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1294 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1295 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1296 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1297 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1298 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1299 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1300 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1301 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1302 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1303 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1304 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1305 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1306 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1307 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1308 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1309 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1310 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1311 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->badd($y); ok 1312 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1313 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1314 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1315 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1316 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1317 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1318 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1319 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1320 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1321 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1322 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1323 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1324 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1325 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1326 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1327 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1328 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1329 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1330 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1331 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->badd($y); ok 1332 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1333 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1334 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1335 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->badd($y); ok 1336 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1337 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1338 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1339 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->badd($y); ok 1340 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1341 - $x = Math::BigFloat->new("0.001234"); $y = Math::BigFloat->new("0.0001234"); $x->badd($y); ok 1342 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1343 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1344 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1345 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1346 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1347 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bsub($y); ok 1348 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1349 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1350 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1351 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1352 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1353 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1354 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1355 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bsub($y); ok 1356 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1357 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1358 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1359 - $x = Math::BigFloat->new("baddNaN"); $y = Math::BigFloat->new("+inf"); $x->bsub($y); ok 1360 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1361 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1362 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1363 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("baddNaN"); $x->bsub($y); ok 1364 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1365 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1366 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1367 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1368 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1369 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1370 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1371 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1372 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1373 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bsub($y); ok 1374 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1375 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1376 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1377 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1378 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1379 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1380 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1381 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1382 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1383 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1384 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1385 - $x = Math::BigFloat->new("+99"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1386 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1387 - $x = Math::BigFloat->new("+999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1388 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1389 - $x = Math::BigFloat->new("+9999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1390 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1391 - $x = Math::BigFloat->new("+99999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1392 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1393 - $x = Math::BigFloat->new("+999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1394 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1395 - $x = Math::BigFloat->new("+9999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1396 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1397 - $x = Math::BigFloat->new("+99999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1398 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1399 - $x = Math::BigFloat->new("+999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1400 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1401 - $x = Math::BigFloat->new("+9999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1402 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1403 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+1"); $x->bsub($y); ok 1404 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1405 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1406 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1407 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1408 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1409 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1410 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1411 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1412 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1413 - $x = Math::BigFloat->new("+100000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1414 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1415 - $x = Math::BigFloat->new("+1000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1416 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1417 - $x = Math::BigFloat->new("+10000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1418 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1419 - $x = Math::BigFloat->new("+100000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1420 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1421 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1422 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1423 - $x = Math::BigFloat->new("+10000000000"); $y = Math::BigFloat->new("-1"); $x->bsub($y); ok 1424 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1425 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1426 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1427 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("+987654321"); $x->bsub($y); ok 1428 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1429 - $x = Math::BigFloat->new("-123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1430 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1431 - $x = Math::BigFloat->new("+123456789"); $y = Math::BigFloat->new("-987654321"); $x->bsub($y); ok 1432 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1433 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1434 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1435 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1436 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1437 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1438 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1439 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("abc"); $x->bmuladd($y, $z); ok 1440 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1441 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1442 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1443 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1444 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1445 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1446 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1447 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1448 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1449 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1450 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1451 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1452 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1453 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("+inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1454 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1455 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1456 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1457 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1458 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1459 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1460 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1461 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1462 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1463 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1464 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1465 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1466 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1467 - $x = Math::BigFloat->new("123456789123456789"); $y = Math::BigFloat->new("0"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1468 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1469 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("123456789123456789"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1470 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1471 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1472 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1473 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1474 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1475 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1476 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1477 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1478 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1479 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1480 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1481 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1482 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1483 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1484 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1485 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1486 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1487 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1488 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1489 - $x = Math::BigFloat->new("111"); $y = Math::BigFloat->new("111"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1490 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1491 - $x = Math::BigFloat->new("10101"); $y = Math::BigFloat->new("10101"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1492 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1493 - $x = Math::BigFloat->new("1001001"); $y = Math::BigFloat->new("1001001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1494 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1495 - $x = Math::BigFloat->new("100010001"); $y = Math::BigFloat->new("100010001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1496 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1497 - $x = Math::BigFloat->new("10000100001"); $y = Math::BigFloat->new("10000100001"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1498 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1499 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1500 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1501 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1502 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1503 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1504 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1505 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1506 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1507 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1508 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1509 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1510 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1511 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1512 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1513 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1514 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1515 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("0"); $x->bmuladd($y, $z); ok 1516 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1517 - $x = Math::BigFloat->new("11111111111"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1518 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1519 - $x = Math::BigFloat->new("22222222222"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1520 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1521 - $x = Math::BigFloat->new("33333333333"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1522 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1523 - $x = Math::BigFloat->new("44444444444"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1524 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1525 - $x = Math::BigFloat->new("55555555555"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1526 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1527 - $x = Math::BigFloat->new("66666666666"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1528 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1529 - $x = Math::BigFloat->new("77777777777"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1530 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1531 - $x = Math::BigFloat->new("88888888888"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1532 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1533 - $x = Math::BigFloat->new("99999999999"); $y = Math::BigFloat->new("9"); $z = Math::BigFloat->new("1"); $x->bmuladd($y, $z); ok 1534 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1535 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1536 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1537 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1538 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1539 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1540 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1541 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("-5"); $x->bmuladd($y, $z); ok 1542 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1543 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1544 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1545 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-4"); $z = Math::BigFloat->new("5"); $x->bmuladd($y, $z); ok 1546 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1547 - $x = Math::BigFloat->new("9999999999999999999"); $y = Math::BigFloat->new("10000000000000000000"); $z = Math::BigFloat->new("1234567890"); $x->bmuladd($y, $z); ok 1548 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1549 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("5.7"); $z = Math::BigFloat->new("8.9"); $x->bmuladd($y, $z); ok 1550 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1551 - $x = Math::BigFloat->new("-3.2"); $y = Math::BigFloat->new("5.197"); $z = Math::BigFloat->new("6.05"); $x->bmuladd($y, $z); ok 1552 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1553 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("8"); $x->bmodpow($y, $z); ok 1554 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1555 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1556 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1557 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("4"); $z = Math::BigFloat->new("7"); $x->bmodpow($y, $z); ok 1558 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1559 - $x = Math::BigFloat->new("77777"); $y = Math::BigFloat->new("777"); $z = Math::BigFloat->new("123456789"); $x->bmodpow($y, $z); ok 1560 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1561 - $x = Math::BigFloat->new("3.2"); $y = Math::BigFloat->new("6.2"); $z = Math::BigFloat->new("5.2"); $x->bmodpow($y, $z); ok 1562 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1563 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1564 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1565 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1566 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1567 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("abc"); $x->bmul($y); ok 1568 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1569 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1570 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1571 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaNmul"); $x->bmul($y); ok 1572 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1573 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1574 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1575 - $x = Math::BigFloat->new("NaNmul"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1576 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1577 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1578 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1579 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1580 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1581 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1582 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1583 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1584 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1585 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1586 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1587 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1588 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1589 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("123.34"); $x->bmul($y); ok 1590 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1591 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-123.34"); $x->bmul($y); ok 1592 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1593 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1594 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1595 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("+inf"); $x->bmul($y); ok 1596 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1597 - $x = Math::BigFloat->new("123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1598 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1599 - $x = Math::BigFloat->new("-123.34"); $y = Math::BigFloat->new("-inf"); $x->bmul($y); ok 1600 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1601 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1602 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1603 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1604 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1605 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1606 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1607 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1608 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1609 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1610 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1611 - $x = Math::BigFloat->new("+123456789123456789"); $y = Math::BigFloat->new("+0"); $x->bmul($y); ok 1612 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1613 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+123456789123456789"); $x->bmul($y); ok 1614 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1615 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1616 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1617 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1618 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1619 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $x->bmul($y); ok 1620 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1621 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $x->bmul($y); ok 1622 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1623 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1624 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1625 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("+3"); $x->bmul($y); ok 1626 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1627 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1628 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1629 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmul($y); ok 1630 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1631 - $x = Math::BigFloat->new("+111"); $y = Math::BigFloat->new("+111"); $x->bmul($y); ok 1632 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1633 - $x = Math::BigFloat->new("+10101"); $y = Math::BigFloat->new("+10101"); $x->bmul($y); ok 1634 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1635 - $x = Math::BigFloat->new("+1001001"); $y = Math::BigFloat->new("+1001001"); $x->bmul($y); ok 1636 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1637 - $x = Math::BigFloat->new("+100010001"); $y = Math::BigFloat->new("+100010001"); $x->bmul($y); ok 1638 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1639 - $x = Math::BigFloat->new("+10000100001"); $y = Math::BigFloat->new("+10000100001"); $x->bmul($y); ok 1640 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1641 - $x = Math::BigFloat->new("+11111111111"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1642 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1643 - $x = Math::BigFloat->new("+22222222222"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1644 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1645 - $x = Math::BigFloat->new("+33333333333"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1646 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1647 - $x = Math::BigFloat->new("+44444444444"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1648 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1649 - $x = Math::BigFloat->new("+55555555555"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1650 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1651 - $x = Math::BigFloat->new("+66666666666"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1652 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1653 - $x = Math::BigFloat->new("+77777777777"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1654 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1655 - $x = Math::BigFloat->new("+88888888888"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1656 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1657 - $x = Math::BigFloat->new("+99999999999"); $y = Math::BigFloat->new("+9"); $x->bmul($y); ok 1658 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1659 - $x = Math::BigFloat->new("6"); $y = Math::BigFloat->new("120"); $x->bmul($y); ok 1660 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1661 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("10000"); $x->bmul($y); ok 1662 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1663 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1664 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("4"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1665 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("5"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1666 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1667 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1668 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1669 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $Math::BigFloat::round_mode = "even"; join(",", $x->bdiv($y)); ok 1670 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1671 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1672 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1673 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1674 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1675 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1676 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1677 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1678 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1679 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("abc"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1680 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1681 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1682 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1683 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1684 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1685 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1686 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1687 - $x = Math::BigFloat->new("+3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1688 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1689 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1690 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1691 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1692 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1693 - $x = Math::BigFloat->new("-3214"); $y = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1694 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1695 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1696 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1697 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1698 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1699 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1700 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1701 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1702 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1703 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("+2"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1704 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1705 - $x = Math::BigFloat->new("+2"); $y = Math::BigFloat->new("+1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1706 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1707 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1708 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1709 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1710 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1711 - $x = Math::BigFloat->new("+10"); $y = Math::BigFloat->new("+5"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1712 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1713 - $x = Math::BigFloat->new("+100"); $y = Math::BigFloat->new("+4"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1714 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1715 - $x = Math::BigFloat->new("+1000"); $y = Math::BigFloat->new("+8"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1716 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1717 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("+16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1718 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1719 - $x = Math::BigFloat->new("+10000"); $y = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1720 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1721 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1722 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1723 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+99"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1724 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1725 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1726 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1727 - $x = Math::BigFloat->new("+999999999999"); $y = Math::BigFloat->new("+9999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1728 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1729 - $x = Math::BigFloat->new("+999999999999999"); $y = Math::BigFloat->new("+99999"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1730 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1731 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1732 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1733 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1734 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1735 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1736 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1737 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1738 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1739 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1740 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1741 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1742 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1743 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1744 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1745 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1746 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1747 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1748 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1749 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1750 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1751 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1752 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1753 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1754 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1755 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1756 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1757 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("25.024996000799840031993601279744051189762"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1758 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1759 - $x = Math::BigFloat->new("123456"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $Math::BigFloat::round_mode = "even"; scalar $x->bdiv($y); ok 1760 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1761 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1762 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1763 - $x = Math::BigFloat->new("+2000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1764 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1765 - $x = Math::BigFloat->new("+3000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1766 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1767 - $x = Math::BigFloat->new("+4000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1768 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1769 - $x = Math::BigFloat->new("+5000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1770 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1771 - $x = Math::BigFloat->new("+6000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1772 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1773 - $x = Math::BigFloat->new("+7000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1774 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1775 - $x = Math::BigFloat->new("+8000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1776 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1777 - $x = Math::BigFloat->new("+9000000000"); $y = Math::BigFloat->new("+9"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1778 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1779 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1780 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1781 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1782 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1783 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1784 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1785 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("10000"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1786 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1787 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("504"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1788 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1789 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1.987654321"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1790 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1791 - $x = Math::BigFloat->new("123456789.123456789123456789123456789"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1792 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1793 - $x = Math::BigFloat->new("+35500000"); $y = Math::BigFloat->new("+113"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1794 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1795 - $x = Math::BigFloat->new("+71000000"); $y = Math::BigFloat->new("+226"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1796 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1797 - $x = Math::BigFloat->new("+106500000"); $y = Math::BigFloat->new("+339"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1798 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1799 - $x = Math::BigFloat->new("+1000000000"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 20; scalar $x->bdiv($y); ok 1800 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1801 - $x = Math::BigFloat->new("+124"); $y = Math::BigFloat->new("+3"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1802 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1803 - $x = Math::BigFloat->new("123456789.1234"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 1; scalar $x->bdiv($y); ok 1804 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1805 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1806 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1807 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1808 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1809 - $x = Math::BigFloat->new("+9000"); $y = Math::BigFloat->new("56"); $x->bmod($y); ok 1810 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1811 - $x = Math::BigFloat->new("+56"); $y = Math::BigFloat->new("9000"); $x->bmod($y); ok 1812 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1813 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1814 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1815 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1816 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1817 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1818 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1819 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1820 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1821 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1822 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1823 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1824 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1825 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1826 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1827 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1828 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1829 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1830 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1831 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1832 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1833 - $x = Math::BigFloat->new("5"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1834 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1835 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1836 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1837 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1838 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1839 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1840 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1841 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("inf"); $x->bmod($y); ok 1842 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1843 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("-inf"); $x->bmod($y); ok 1844 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1845 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1846 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1847 - $x = Math::BigFloat->new("inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1848 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1849 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1850 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1851 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1852 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1853 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1854 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1855 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1856 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1857 - $x = Math::BigFloat->new("abc"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1858 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1859 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("abc"); $x->bmod($y); ok 1860 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1861 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1862 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1863 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1864 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1865 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1866 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1867 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $x->bmod($y); ok 1868 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1869 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1870 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1871 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1872 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1873 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1874 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1875 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1876 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1877 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("2"); $x->bmod($y); ok 1878 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1879 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1880 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1881 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1882 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1883 - $x = Math::BigFloat->new("2000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1884 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1885 - $x = Math::BigFloat->new("3000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1886 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1887 - $x = Math::BigFloat->new("4000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1888 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1889 - $x = Math::BigFloat->new("5000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1890 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1891 - $x = Math::BigFloat->new("6000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1892 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1893 - $x = Math::BigFloat->new("7000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1894 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1895 - $x = Math::BigFloat->new("8000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1896 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1897 - $x = Math::BigFloat->new("9000000000"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1898 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1899 - $x = Math::BigFloat->new("35500000"); $y = Math::BigFloat->new("113"); $x->bmod($y); ok 1900 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1901 - $x = Math::BigFloat->new("71000000"); $y = Math::BigFloat->new("226"); $x->bmod($y); ok 1902 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1903 - $x = Math::BigFloat->new("106500000"); $y = Math::BigFloat->new("339"); $x->bmod($y); ok 1904 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1905 - $x = Math::BigFloat->new("1000000000"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1906 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1907 - $x = Math::BigFloat->new("10"); $y = Math::BigFloat->new("5"); $x->bmod($y); ok 1908 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1909 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("4"); $x->bmod($y); ok 1910 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1911 - $x = Math::BigFloat->new("1000"); $y = Math::BigFloat->new("8"); $x->bmod($y); ok 1912 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1913 - $x = Math::BigFloat->new("10000"); $y = Math::BigFloat->new("16"); $x->bmod($y); ok 1914 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1915 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9"); $x->bmod($y); ok 1916 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1917 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("99"); $x->bmod($y); ok 1918 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1919 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("999"); $x->bmod($y); ok 1920 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1921 - $x = Math::BigFloat->new("999999999999"); $y = Math::BigFloat->new("9999"); $x->bmod($y); ok 1922 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1923 - $x = Math::BigFloat->new("999999999999999"); $y = Math::BigFloat->new("99999"); $x->bmod($y); ok 1924 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1925 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("+5"); $x->bmod($y); ok 1926 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1927 - $x = Math::BigFloat->new("+9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1928 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1929 - $x = Math::BigFloat->new("-9"); $y = Math::BigFloat->new("-5"); $x->bmod($y); ok 1930 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1931 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1932 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1933 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1934 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1935 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1936 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1937 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1938 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1939 - $x = Math::BigFloat->new("-5"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1940 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1941 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1942 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1943 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1944 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1945 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("-3"); $x->bmod($y); ok 1946 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1947 - $x = Math::BigFloat->new("4095"); $y = Math::BigFloat->new("4095"); $x->bmod($y); ok 1948 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1949 - $x = Math::BigFloat->new("100041000510123"); $y = Math::BigFloat->new("3"); $x->bmod($y); ok 1950 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1951 - $x = Math::BigFloat->new("152403346"); $y = Math::BigFloat->new("12345"); $x->bmod($y); ok 1952 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1953 - $x = Math::BigFloat->new("87654321"); $y = Math::BigFloat->new("87654321"); $x->bmod($y); ok 1954 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1955 - $x = Math::BigFloat->new("123"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1956 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1957 - $x = Math::BigFloat->new("1230"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1958 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1959 - $x = Math::BigFloat->new("123.4"); $y = Math::BigFloat->new("2.5"); $x->bmod($y); ok 1960 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1961 - $x = Math::BigFloat->new("123e1"); $y = Math::BigFloat->new("25"); $x->bmod($y); ok 1962 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1963 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1964 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1965 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1966 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1967 - $x = Math::BigFloat->new("-2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1968 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1969 - $x = Math::BigFloat->new("2.1"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1970 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1971 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1972 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1973 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("1"); $x->bmod($y); ok 1974 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1975 - $x = Math::BigFloat->new("-3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1976 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1977 - $x = Math::BigFloat->new("3"); $y = Math::BigFloat->new("-1"); $x->bmod($y); ok 1978 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1979 - $x = Math::BigFloat->new("Nanfac"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1980 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1981 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1982 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1983 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1984 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1985 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1986 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1987 - $x = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1988 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1989 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1990 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1991 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1992 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1993 - $x = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1994 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1995 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1996 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1997 - $x = Math::BigFloat->new("5"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1998 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 1999 - $x = Math::BigFloat->new("6"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2000 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2001 - $x = Math::BigFloat->new("10"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2002 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2003 - $x = Math::BigFloat->new("11"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2004 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2005 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bfac(); ok 2006 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2007 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2008 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2009 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2010 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2011 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2012 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2013 - $x = Math::BigFloat->new("-123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2014 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2015 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2016 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2017 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2018 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2019 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2020 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2021 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2022 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2023 - $x = Math::BigFloat->new("4"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2024 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2025 - $x = Math::BigFloat->new("9"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2026 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2027 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2028 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2029 - $x = Math::BigFloat->new("100"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2030 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2031 - $x = Math::BigFloat->new("123.456"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2032 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2033 - $x = Math::BigFloat->new("15241.38393"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2034 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2035 - $x = Math::BigFloat->new("1.44"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2036 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2037 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2038 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2039 - $x = Math::BigFloat->new("0.49"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2040 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2041 - $x = Math::BigFloat->new("0.0049"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2042 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2043 - $x = Math::BigFloat->new("1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2044 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2045 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2046 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2047 - $x = Math::BigFloat->new("0"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2048 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2049 - $x = Math::BigFloat->new("-inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2050 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2051 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("NaN"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2052 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2053 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2054 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2055 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2056 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2057 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2058 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2059 - $x = Math::BigFloat->new("NaN"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2060 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2061 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2062 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2063 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("inf"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2064 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2065 - $x = Math::BigFloat->new("+0"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2066 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2067 - $x = Math::BigFloat->new("+1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2068 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2069 - $x = Math::BigFloat->new("-1"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2070 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2071 - $x = Math::BigFloat->new("-2"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2072 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2073 - $x = Math::BigFloat->new("-123.45"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2074 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2075 - $x = Math::BigFloat->new("+inf"); $y = Math::BigFloat->new("0"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2076 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2077 - $x = Math::BigFloat->new("12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2078 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2079 - $x = Math::BigFloat->new("-12"); $y = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2080 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2081 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2082 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2083 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2084 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2085 - $x = Math::BigFloat->new("8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2086 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2087 - $x = Math::BigFloat->new("-8"); $y = Math::BigFloat->new("3"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2088 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2089 - $x = Math::BigFloat->new("16"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2090 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2091 - $x = Math::BigFloat->new("81"); $y = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->broot($y); ok 2092 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2093 - $x = Math::BigFloat->new("+0"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2094 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2095 - $x = Math::BigFloat->new("-1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2096 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2097 - $x = Math::BigFloat->new("-2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2098 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2099 - $x = Math::BigFloat->new("-16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2100 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2101 - $x = Math::BigFloat->new("-123.45"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2102 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2103 - $x = Math::BigFloat->new("nanbsqrt"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2104 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2105 - $x = Math::BigFloat->new("+inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2106 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2107 - $x = Math::BigFloat->new("-inf"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2108 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2109 - $x = Math::BigFloat->new("1"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2110 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2111 - $x = Math::BigFloat->new("2"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2112 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2113 - $x = Math::BigFloat->new("4"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2114 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2115 - $x = Math::BigFloat->new("9"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2116 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2117 - $x = Math::BigFloat->new("16"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2118 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2119 - $x = Math::BigFloat->new("100"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2120 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2121 - $x = Math::BigFloat->new("123.456"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2122 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2123 - $x = Math::BigFloat->new("15241.38393"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2124 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2125 - $x = Math::BigFloat->new("1.44"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2126 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2127 - $x = Math::BigFloat->new("1.44E10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2128 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2129 - $x = Math::BigFloat->new("2e10"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2130 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2131 - $x = Math::BigFloat->new("144e20"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2132 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2133 - $x = Math::BigFloat->new("12"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2134 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2135 - $x = Math::BigFloat->new("0.49"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2136 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2137 - $x = Math::BigFloat->new("0.0049"); $Math::BigFloat::div_scale = 40; $x->bsqrt(); ok 2138 - $x = Math::BigFloat->new("123"); $x->is_nan(); ok 2139 - $x = Math::BigFloat->new("abc"); $x->is_nan(); ok 2140 - $x = Math::BigFloat->new("NaN"); $x->is_nan(); ok 2141 - $x = Math::BigFloat->new("-123"); $x->is_nan(); ok 2142 - $x = Math::BigFloat->new("+inf"); $x->is_inf(""); ok 2143 - $x = Math::BigFloat->new("-inf"); $x->is_inf(""); ok 2144 - $x = Math::BigFloat->new("abc"); $x->is_inf(""); ok 2145 - $x = Math::BigFloat->new("1"); $x->is_inf(""); ok 2146 - $x = Math::BigFloat->new("NaN"); $x->is_inf(""); ok 2147 - $x = Math::BigFloat->new("-1"); $x->is_inf(""); ok 2148 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-"); ok 2149 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+"); ok 2150 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-"); ok 2151 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+"); ok 2152 - $x = Math::BigFloat->new("-inf"); $x->is_inf("-inf"); ok 2153 - $x = Math::BigFloat->new("-inf"); $x->is_inf("+inf"); ok 2154 - $x = Math::BigFloat->new("+inf"); $x->is_inf("-inf"); ok 2155 - $x = Math::BigFloat->new("+inf"); $x->is_inf("+inf"); ok 2156 - $x = Math::BigFloat->new("+iNfInItY"); $x->is_inf(""); ok 2157 - $x = Math::BigFloat->new("-InFiNiTy"); $x->is_inf(""); ok 2158 - $x = Math::BigFloat->new("abc"); $x->is_odd(); ok 2159 - $x = Math::BigFloat->new("0"); $x->is_odd(); ok 2160 - $x = Math::BigFloat->new("-1"); $x->is_odd(); ok 2161 - $x = Math::BigFloat->new("-3"); $x->is_odd(); ok 2162 - $x = Math::BigFloat->new("1"); $x->is_odd(); ok 2163 - $x = Math::BigFloat->new("3"); $x->is_odd(); ok 2164 - $x = Math::BigFloat->new("1000001"); $x->is_odd(); ok 2165 - $x = Math::BigFloat->new("1000002"); $x->is_odd(); ok 2166 - $x = Math::BigFloat->new("+inf"); $x->is_odd(); ok 2167 - $x = Math::BigFloat->new("-inf"); $x->is_odd(); ok 2168 - $x = Math::BigFloat->new("123.45"); $x->is_odd(); ok 2169 - $x = Math::BigFloat->new("-123.45"); $x->is_odd(); ok 2170 - $x = Math::BigFloat->new("2"); $x->is_odd(); ok 2171 - $x = Math::BigFloat->new("NaNis_int"); $x->is_int(); ok 2172 - $x = Math::BigFloat->new("0"); $x->is_int(); ok 2173 - $x = Math::BigFloat->new("1"); $x->is_int(); ok 2174 - $x = Math::BigFloat->new("2"); $x->is_int(); ok 2175 - $x = Math::BigFloat->new("-2"); $x->is_int(); ok 2176 - $x = Math::BigFloat->new("-1"); $x->is_int(); ok 2177 - $x = Math::BigFloat->new("-inf"); $x->is_int(); ok 2178 - $x = Math::BigFloat->new("+inf"); $x->is_int(); ok 2179 - $x = Math::BigFloat->new("123.4567"); $x->is_int(); ok 2180 - $x = Math::BigFloat->new("-0.1"); $x->is_int(); ok 2181 - $x = Math::BigFloat->new("-0.002"); $x->is_int(); ok 2182 - $x = Math::BigFloat->new("abc"); $x->is_even(); ok 2183 - $x = Math::BigFloat->new("0"); $x->is_even(); ok 2184 - $x = Math::BigFloat->new("-1"); $x->is_even(); ok 2185 - $x = Math::BigFloat->new("-3"); $x->is_even(); ok 2186 - $x = Math::BigFloat->new("1"); $x->is_even(); ok 2187 - $x = Math::BigFloat->new("3"); $x->is_even(); ok 2188 - $x = Math::BigFloat->new("1000001"); $x->is_even(); ok 2189 - $x = Math::BigFloat->new("1000002"); $x->is_even(); ok 2190 - $x = Math::BigFloat->new("2"); $x->is_even(); ok 2191 - $x = Math::BigFloat->new("+inf"); $x->is_even(); ok 2192 - $x = Math::BigFloat->new("-inf"); $x->is_even(); ok 2193 - $x = Math::BigFloat->new("123.456"); $x->is_even(); ok 2194 - $x = Math::BigFloat->new("-123.456"); $x->is_even(); ok 2195 - $x = Math::BigFloat->new("0.01"); $x->is_even(); ok 2196 - $x = Math::BigFloat->new("-0.01"); $x->is_even(); ok 2197 - $x = Math::BigFloat->new("120"); $x->is_even(); ok 2198 - $x = Math::BigFloat->new("1200"); $x->is_even(); ok 2199 - $x = Math::BigFloat->new("-1200"); $x->is_even(); ok 2200 - $x = Math::BigFloat->new("0"); $x->is_positive(); ok 2201 - $x = Math::BigFloat->new("1"); $x->is_positive(); ok 2202 - $x = Math::BigFloat->new("-1"); $x->is_positive(); ok 2203 - $x = Math::BigFloat->new("-123"); $x->is_positive(); ok 2204 - $x = Math::BigFloat->new("NaN"); $x->is_positive(); ok 2205 - $x = Math::BigFloat->new("-inf"); $x->is_positive(); ok 2206 - $x = Math::BigFloat->new("+inf"); $x->is_positive(); ok 2207 - $x = Math::BigFloat->new("0"); $x->is_negative(); ok 2208 - $x = Math::BigFloat->new("1"); $x->is_negative(); ok 2209 - $x = Math::BigFloat->new("-1"); $x->is_negative(); ok 2210 - $x = Math::BigFloat->new("-123"); $x->is_negative(); ok 2211 - $x = Math::BigFloat->new("NaN"); $x->is_negative(); ok 2212 - $x = Math::BigFloat->new("-inf"); $x->is_negative(); ok 2213 - $x = Math::BigFloat->new("+inf"); $x->is_negative(); ok 2214 - $x = Math::BigFloat->new("0"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2215 - $x = Math::BigFloat->new("1"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2216 - $x = Math::BigFloat->new("123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2217 - $x = Math::BigFloat->new("-123"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2218 - $x = Math::BigFloat->new("-1200"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2219 - $x = Math::BigFloat->new("NaNparts"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2220 - $x = Math::BigFloat->new("+inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2221 - $x = Math::BigFloat->new("-inf"); ($a, $b) = $x->parts(); $a = $a->bstr(); $b = $b->bstr(); "$a $b"; ok 2222 - $x = Math::BigFloat->new("0"); $x->exponent()->bstr(); ok 2223 - $x = Math::BigFloat->new("1"); $x->exponent()->bstr(); ok 2224 - $x = Math::BigFloat->new("123"); $x->exponent()->bstr(); ok 2225 - $x = Math::BigFloat->new("-123"); $x->exponent()->bstr(); ok 2226 - $x = Math::BigFloat->new("-1200"); $x->exponent()->bstr(); ok 2227 - $x = Math::BigFloat->new("+inf"); $x->exponent()->bstr(); ok 2228 - $x = Math::BigFloat->new("-inf"); $x->exponent()->bstr(); ok 2229 - $x = Math::BigFloat->new("NaNexponent"); $x->exponent()->bstr(); ok 2230 - $x = Math::BigFloat->new("0"); $x->mantissa()->bstr(); ok 2231 - $x = Math::BigFloat->new("1"); $x->mantissa()->bstr(); ok 2232 - $x = Math::BigFloat->new("123"); $x->mantissa()->bstr(); ok 2233 - $x = Math::BigFloat->new("-123"); $x->mantissa()->bstr(); ok 2234 - $x = Math::BigFloat->new("-1200"); $x->mantissa()->bstr(); ok 2235 - $x = Math::BigFloat->new("+inf"); $x->mantissa()->bstr(); ok 2236 - $x = Math::BigFloat->new("-inf"); $x->mantissa()->bstr(); ok 2237 - $x = Math::BigFloat->new("NaNmantissa"); $x->mantissa()->bstr(); ok 2238 - $x = Math::BigFloat->new("123"); $x->length(); ok 2239 - $x = Math::BigFloat->new("-123"); $x->length(); ok 2240 - $x = Math::BigFloat->new("0"); $x->length(); ok 2241 - $x = Math::BigFloat->new("1"); $x->length(); ok 2242 - $x = Math::BigFloat->new("12345678901234567890"); $x->length(); ok 2243 - $x = Math::BigFloat->new("NaNzero"); $x->is_zero(); ok 2244 - $x = Math::BigFloat->new("+inf"); $x->is_zero(); ok 2245 - $x = Math::BigFloat->new("-inf"); $x->is_zero(); ok 2246 - $x = Math::BigFloat->new("0"); $x->is_zero(); ok 2247 - $x = Math::BigFloat->new("-1"); $x->is_zero(); ok 2248 - $x = Math::BigFloat->new("1"); $x->is_zero(); ok 2249 - $x = Math::BigFloat->new("NaNone"); $x->is_one(); ok 2250 - $x = Math::BigFloat->new("+inf"); $x->is_one(); ok 2251 - $x = Math::BigFloat->new("-inf"); $x->is_one(); ok 2252 - $x = Math::BigFloat->new("0"); $x->is_one(); ok 2253 - $x = Math::BigFloat->new("2"); $x->is_one(); ok 2254 - $x = Math::BigFloat->new("1"); $x->is_one(); ok 2255 - $x = Math::BigFloat->new("-1"); $x->is_one(); ok 2256 - $x = Math::BigFloat->new("-2"); $x->is_one(); ok 2257 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2258 - $x = Math::BigFloat->new("0"); $x->bfloor(); ok 2259 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2260 - $x = Math::BigFloat->new("abc"); $x->bfloor(); ok 2261 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2262 - $x = Math::BigFloat->new("+inf"); $x->bfloor(); ok 2263 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2264 - $x = Math::BigFloat->new("-inf"); $x->bfloor(); ok 2265 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2266 - $x = Math::BigFloat->new("1"); $x->bfloor(); ok 2267 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2268 - $x = Math::BigFloat->new("-51"); $x->bfloor(); ok 2269 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2270 - $x = Math::BigFloat->new("-51.2"); $x->bfloor(); ok 2271 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2272 - $x = Math::BigFloat->new("12.2"); $x->bfloor(); ok 2273 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2274 - $x = Math::BigFloat->new("0.12345"); $x->bfloor(); ok 2275 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2276 - $x = Math::BigFloat->new("0.123456"); $x->bfloor(); ok 2277 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2278 - $x = Math::BigFloat->new("0.1234567"); $x->bfloor(); ok 2279 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2280 - $x = Math::BigFloat->new("0.12345678"); $x->bfloor(); ok 2281 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2282 - $x = Math::BigFloat->new("0.123456789"); $x->bfloor(); ok 2283 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2284 - $x = Math::BigFloat->new("0"); $x->bceil(); ok 2285 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2286 - $x = Math::BigFloat->new("abc"); $x->bceil(); ok 2287 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2288 - $x = Math::BigFloat->new("+inf"); $x->bceil(); ok 2289 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2290 - $x = Math::BigFloat->new("-inf"); $x->bceil(); ok 2291 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2292 - $x = Math::BigFloat->new("1"); $x->bceil(); ok 2293 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2294 - $x = Math::BigFloat->new("-51"); $x->bceil(); ok 2295 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2296 - $x = Math::BigFloat->new("-51.2"); $x->bceil(); ok 2297 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2298 - $x = Math::BigFloat->new("12.2"); $x->bceil(); ok 2299 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2300 - $x = Math::BigFloat->new("-0.4"); $x->bceil(); ok 2301 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2302 - $x = Math::BigFloat->new("0"); $x->bint(); ok 2303 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2304 - $x = Math::BigFloat->new("NaN"); $x->bint(); ok 2305 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2306 - $x = Math::BigFloat->new("+inf"); $x->bint(); ok 2307 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2308 - $x = Math::BigFloat->new("-inf"); $x->bint(); ok 2309 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2310 - $x = Math::BigFloat->new("1"); $x->bint(); ok 2311 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2312 - $x = Math::BigFloat->new("-51"); $x->bint(); ok 2313 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2314 - $x = Math::BigFloat->new("-51.2"); $x->bint(); ok 2315 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2316 - $x = Math::BigFloat->new("12.2"); $x->bint(); ok 2317 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2318 - $x = Math::BigFloat->new("-0.4"); $x->bint(); ok 2319 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2320 - $x = Math::BigFloat->new("-1"); $x = log($x); ok 2321 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2322 - $x = Math::BigFloat->new("0"); $x = log($x); ok 2323 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2324 - $x = Math::BigFloat->new("1"); $x = log($x); ok 2325 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2326 - $x = Math::BigFloat->new("2"); $x = log($x); ok 2327 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2328 - $x = Math::BigFloat->new("3"); $x = log($x); ok 2329 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2330 - $x = Math::BigFloat->new("123456789"); $x = log($x); ok 2331 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2332 - $x = Math::BigFloat->new("1234567890987654321"); $x = log($x); ok 2333 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2334 - $x = Math::BigFloat->new("-inf"); $x = log($x); ok 2335 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2336 - $x = Math::BigFloat->new("inf"); $x = log($x); ok 2337 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2338 - $x = Math::BigFloat->new("NaN"); $x = log($x); ok 2339 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $y ok 2340 - $x = Math::BigInt->new(1200); $y = $CLASS->new($x); \# check $x ok 2341 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsstr() ok 2342 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->exponent() ok 2343 - Math::BigFloat->new("1e1234567890123456789012345678901234567890") > 0 ok 2344 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bsub("1e1234567890123456789012345678901234567890") ok 2345 - Math::BigFloat->new("1e1234567890123456789012345678901234567890")->bmul(2)->bsstr() ok 2346 - Math::BigFloat->new("1234567890123456789012345678901234567890e2")->mantissa() ok 2347 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_a} ok 2348 - $x = Math::BigFloat->new(2); $x->bzero(); $x->{_p} ok 2349 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_a} ok 2350 - $x = Math::BigFloat->new(2); $x->binf(); $x->{_p} ok 2351 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_a} ok 2352 - $x = Math::BigFloat->new(2); $x->bone(); $x->{_p} ok 2353 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_a} ok 2354 - $x = Math::BigFloat->new(2); $x->bnan(); $x->{_p} ok 2355 - Math::BigFloat->bzero() ok 2356 - Math::BigFloat->bone() ok 2357 - Math::BigFloat->bone("+") ok 2358 - Math::BigFloat->bone("-") ok 2359 - Math::BigFloat->bnan() ok 2360 - Math::BigFloat->binf() ok 2361 - Math::BigFloat->binf("+") ok 2362 - Math::BigFloat->binf("-") ok 2363 - Math::BigFloat->binf("-inf") ok 2364 - $x = Math::BigFloat->new(12); Math::BigFloat->precision(-2); $x->bsqrt(); ok 2365 - Math::BigFloat->precision(undef); $x = Math::BigFloat->new(12); Math::BigFloat->precision(0); $x->bsqrt(); ok 2366 - Math::BigFloat->precision(-3); $x = Math::BigFloat->new(12); $x->bsqrt(); ok 2367 - A and P set => NaN ok 2368 - supplied arg overrides set global ok 2369 - @args = Math::BigFloat::objectify(2, Math::BigFloat, 4, 5); join(" ", @args); ok 2370 - Math::BigFloat->new(-1)->is_one() ok 2371 - Math::BigFloat->new(-1)->is_one("-") ok 2372 - Math::BigFloat->new(1)->bdiv("0.5")->bsstr() ok 2373 - $x = Math::BigFloat->new(3); $x -= $x; ok 2374 - $x = Math::BigFloat->new(-3); $x -= $x; ok 2375 - $x = Math::BigFloat->new(3); $x += $x; ok 2376 - $x = Math::BigFloat->new(-3); $x += $x; ok 2377 - $x = Math::BigFloat->new("NaN"); $x -= $x; ok 2378 - $x = Math::BigFloat->new("inf"); $x -= $x; ok 2379 - $x = Math::BigFloat->new("-inf"); $x -= $x; ok 2380 - $x = Math::BigFloat->new("NaN"); $x += $x; ok 2381 - $x = Math::BigFloat->new("inf"); $x += $x; ok 2382 - $x = Math::BigFloat->new("-inf"); $x += $x; ok 2383 - $x = Math::BigFloat->new("3.14"); $x -= $x; ok 2384 - $x = Math::BigFloat->new("-3.14"); $x -= $x; ok 2385 - 6.28 = Math::BigFloat->new("3.14"); 6.28 += 6.28; ok 2386 - -6.28 = Math::BigFloat->new("-3.14"); -6.28 += -6.28; ok 2387 - 9.8596 = Math::BigFloat->new("3.14"); 9.8596 *= 9.8596; ok 2388 - 9.8596 = Math::BigFloat->new("-3.14"); 9.8596 *= 9.8596; ok 2389 - 1 = Math::BigFloat->new("3.14"); 1 /= 1; ok 2390 - 1 = Math::BigFloat->new("-3.14"); 1 /= 1; ok 2391 - 0 = Math::BigFloat->new("3.14"); 0 %= 0; ok 2392 - 0 = Math::BigFloat->new("-3.14"); 0 %= 0; ok 2393 - $x = Math::BigFloat->new(0); $y = Math::BigFloat->new("0.1"); $x ** $y ok 2394 - 1 = Math::BigFloat->new(".222222222222222222222222222222222222222222"); 1->bceil(); ok 2395 - value of ((2**148)+1)/17 ok 2396 - number of digits in ((2**148)+1)/17 ok 2397 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y ok 2398 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x ok 2399 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y ok 2400 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18"); $x <<= $y; $x >>= $y; $x ok 2401 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); ok 2402 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y ok 2403 - $x = Math::BigFloat->new("2"); $y = Math::BigFloat->new("18.2"); $x <<= $y; $x->copy()->bfround(-9); $x >>= $y; $x ok All tests successful. Files=148, Tests=44270, 49 wallclock secs ( 5.80 usr + 0.52 sys = 6.32 CPU) Result: PASS PJACKLAM/Math-BigInt-1.999807.tar.gz dmake test TEST_VERBOSE=1 -- OK Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/P/PJ/PJACKLAM/CHECKSUMS Peter John Acklam <pjacklam@online.no> unknown >>> (cd C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz && tar cvf - Math-BigInt-1.999807.ppd blib) | gzip -c >C:/cpanfly-5.22-64/var/REPO/P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz Math-BigInt-1.999807.ppd blib/ blib/lib/ blib/lib/Math/ blib/lib/Math/BigFloat.pm blib/lib/Math/BigInt/ blib/lib/Math/BigInt/Calc.pm blib/lib/Math/BigInt/CalcEmu.pm blib/lib/Math/BigInt/Lib.pm blib/lib/Math/BigInt.pm Running test for module 'Math::ProvablePrime' Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'get' Checksum for C:\cpanfly-5.22-64\var\cpan\sources\authors\id\F\FE\FELIPE\Math-ProvablePrime-0.043.tar.gz ok Math-ProvablePrime-0.043/ Math-ProvablePrime-0.043/.gitignore Math-ProvablePrime-0.043/Changes Math-ProvablePrime-0.043/lib/ Math-ProvablePrime-0.043/Makefile.PL Math-ProvablePrime-0.043/MANIFEST Math-ProvablePrime-0.043/META.json Math-ProvablePrime-0.043/META.yml Math-ProvablePrime-0.043/README.pod Math-ProvablePrime-0.043/t/ Math-ProvablePrime-0.043/t/Math-ProvablePrime-Rand.t Math-ProvablePrime-0.043/t/Math-ProvablePrime.t Math-ProvablePrime-0.043/lib/Math/ Math-ProvablePrime-0.043/lib/Math/ProvablePrime/ Math-ProvablePrime-0.043/lib/Math/ProvablePrime.pm Math-ProvablePrime-0.043/lib/Math/ProvablePrime/Rand.pm Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'prepare' Configuring F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz with Makefile.PL >>> C:\Perl-5.22-64\bin\perl.exe Makefile.PL Checking if your kit is complete... Looks good Have \cpanfl~4.22-\var\megalib Want \perl-5~2.22-\lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [MSWin32-x64-multi-thread] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a dmake-style Makefile Writing Makefile for Math::ProvablePrime Writing MYMETA.yml and MYMETA.json FELIPE/Math-ProvablePrime-0.043.tar.gz C:\Perl-5.22-64\bin\perl.exe Makefile.PL -- OK Running make for F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'make' >>> dmake cp README.pod blib\lib\Math\README.pod cp lib/Math/ProvablePrime.pm blib\lib\Math\ProvablePrime.pm cp lib/Math/ProvablePrime/Rand.pm blib\lib\Math\ProvablePrime\Rand.pm FELIPE/Math-ProvablePrime-0.043.tar.gz dmake -- OK Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'test' Running make test >>> dmake test TEST_VERBOSE=1 "C:\Perl-5.22-64\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/Math-ProvablePrime-Rand.t .. 1..3 ok 1 - scalar limits (40531 times) ok 2 - Math::BigInt limits (10163 times) ok 3 - no warnings ok # Your Crypt::Perl::BigInt backend is “Math::BigInt::FastCalc”. t/Math-ProvablePrime.t ....... 1..2 ok 1 # skip “Math::BigInt::FastCalc” isn’t recognized as a C-based Math::BigInt backend. This module is too slow to be practical without such a backend. Skipping … ok 2 - no warnings ok All tests successful. Files=2, Tests=5, 21 wallclock secs ( 0.08 usr + 0.03 sys = 0.11 CPU) Result: PASS FELIPE/Math-ProvablePrime-0.043.tar.gz dmake test TEST_VERBOSE=1 -- OK Felipe Gasper <CENSORED> Generate a provable prime number, in pure Perl >>> (cd C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-ProvablePrime-0.043-iuvIkC && tar cvf - Math-ProvablePrime-0.043.ppd blib) | gzip -c >C:/cpanfly-5.22-64/var/REPO/F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz Math-ProvablePrime-0.043.ppd blib/ blib/lib/ blib/lib/Math/ blib/lib/Math/ProvablePrime/ blib/lib/Math/ProvablePrime/Rand.pm blib/lib/Math/ProvablePrime.pm blib/lib/Math/README.pod FELIPE/Crypt-Perl-0.14.tar.gz Has already been unwrapped into directory C:\cpanfly-5.22-64\var\tmp\cpan_build\Crypt-Perl-0.14-ibdn94 FELIPE/Crypt-Perl-0.14.tar.gz Has already been prepared Running make for F/FE/FELIPE/Crypt-Perl-0.14.tar.gz Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-ProvablePrime-0.043-iuvIkC/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-ProvablePrime-0.043-iuvIkC/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'make' >>> dmake cp lib/Crypt/Perl/BigInt.pm blib\lib\Crypt\Perl\BigInt.pm cp lib/Crypt/Perl/ASN1/Encodee.pm blib\lib\Crypt\Perl\ASN1\Encodee.pm cp lib/Crypt/Perl/ECDSA/Parse.pm blib\lib\Crypt\Perl\ECDSA\Parse.pm cp lib/Crypt/Perl/ECDSA/PublicKey.pm blib\lib\Crypt\Perl\ECDSA\PublicKey.pm cp lib/Crypt/Perl/ECDSA.pm blib\lib\Crypt\Perl\ECDSA.pm cp lib/Crypt/Perl.pm blib\lib\Crypt\Perl.pm cp README.pod blib\lib\Crypt\README.pod cp lib/Crypt/Perl/ECDSA/Utils.pm blib\lib\Crypt\Perl\ECDSA\Utils.pm cp lib/Crypt/Perl/ECDSA/EC/DB.pm blib\lib\Crypt\Perl\ECDSA\EC\DB.pm cp lib/Crypt/Perl/ECDSA/PrivateKey.pm blib\lib\Crypt\Perl\ECDSA\PrivateKey.pm cp lib/Crypt/Perl/ECDSA/EC/Point.pm blib\lib\Crypt\Perl\ECDSA\EC\Point.pm cp lib/Crypt/Perl/ECDSA/EC/FieldElement.pm blib\lib\Crypt\Perl\ECDSA\EC\FieldElement.pm cp lib/Crypt/Perl/ECDSA/ECParameters.pm blib\lib\Crypt\Perl\ECDSA\ECParameters.pm cp lib/Crypt/Perl/ECDSA/EC/Curve.pm blib\lib\Crypt\Perl\ECDSA\EC\Curve.pm cp lib/Crypt/Perl/ECDSA/Generate.pm blib\lib\Crypt\Perl\ECDSA\Generate.pm cp lib/Crypt/Perl/ASN1.pm blib\lib\Crypt\Perl\ASN1.pm cp lib/Crypt/Perl/ECDSA/KeyBase.pm blib\lib\Crypt\Perl\ECDSA\KeyBase.pm cp lib/Crypt/Perl/ECDSA/EC/CurvesDB.pm blib\lib\Crypt\Perl\ECDSA\EC\CurvesDB.pm cp lib/Crypt/Perl/ECDSA/NIST.pm blib\lib\Crypt\Perl\ECDSA\NIST.pm cp lib/Crypt/Perl/RNG.pm blib\lib\Crypt\Perl\RNG.pm cp lib/Crypt/Perl/RSA/PrivateKey.pm blib\lib\Crypt\Perl\RSA\PrivateKey.pm cp lib/Crypt/Perl/PKCS8.pm blib\lib\Crypt\Perl\PKCS8.pm cp lib/Crypt/Perl/KeyBase.pm blib\lib\Crypt\Perl\KeyBase.pm cp lib/Crypt/Perl/RSA/KeyBase.pm blib\lib\Crypt\Perl\RSA\KeyBase.pm cp lib/Crypt/Perl/JWK.pm blib\lib\Crypt\Perl\JWK.pm cp lib/Crypt/Perl/PK.pm blib\lib\Crypt\Perl\PK.pm cp lib/Crypt/Perl/PKCS10/Attribute/extensionRequest.pm blib\lib\Crypt\Perl\PKCS10\Attribute\extensionRequest.pm cp lib/Crypt/Perl/PKCS10/Attributes.pm blib\lib\Crypt\Perl\PKCS10\Attributes.pm cp lib/Crypt/Perl/PKCS10/Attribute.pm blib\lib\Crypt\Perl\PKCS10\Attribute.pm cp lib/Crypt/Perl/PKCS10/ASN1.pm blib\lib\Crypt\Perl\PKCS10\ASN1.pm cp lib/Crypt/Perl/RSA/PKCS1_v1_5.pm blib\lib\Crypt\Perl\RSA\PKCS1_v1_5.pm cp lib/Crypt/Perl/RSA.pm blib\lib\Crypt\Perl\RSA.pm cp lib/Crypt/Perl/PKCS10/Attribute/challengePassword.pm blib\lib\Crypt\Perl\PKCS10\Attribute\challengePassword.pm cp lib/Crypt/Perl/Math.pm blib\lib\Crypt\Perl\Math.pm cp lib/Crypt/Perl/PKCS10.pm blib\lib\Crypt\Perl\PKCS10.pm cp lib/Crypt/Perl/RSA/Generate.pm blib\lib\Crypt\Perl\RSA\Generate.pm cp lib/Crypt/Perl/RSA/Parse.pm blib\lib\Crypt\Perl\RSA\Parse.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForOID.pm blib\lib\Crypt\Perl\X\ECDSA\NoCurveForOID.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForParameters.pm blib\lib\Crypt\Perl\X\ECDSA\NoCurveForParameters.pm cp lib/Crypt/Perl/X/ASN1/Encode.pm blib\lib\Crypt\Perl\X\ASN1\Encode.pm cp lib/Crypt/Perl/X/ASN1/Find.pm blib\lib\Crypt\Perl\X\ASN1\Find.pm cp lib/Crypt/Perl/X/ECDSA/CharacteristicTwoUnsupported.pm blib\lib\Crypt\Perl\X\ECDSA\CharacteristicTwoUnsupported.pm cp lib/Crypt/Perl/X/InvalidJWK.pm blib\lib\Crypt\Perl\X\InvalidJWK.pm cp lib/Crypt/Perl/X/ASN1/Prepare.pm blib\lib\Crypt\Perl\X\ASN1\Prepare.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForNISTName.pm blib\lib\Crypt\Perl\X\ECDSA\NoCurveForNISTName.pm cp lib/Crypt/Perl/ToDER.pm blib\lib\Crypt\Perl\ToDER.pm cp lib/Crypt/Perl/RSA/Template.pm blib\lib\Crypt\Perl\RSA\Template.pm cp lib/Crypt/Perl/RSA/PublicKey.pm blib\lib\Crypt\Perl\RSA\PublicKey.pm cp lib/Crypt/Perl/X/TooLongToSign.pm blib\lib\Crypt\Perl\X\TooLongToSign.pm cp lib/Crypt/Perl/X.pm blib\lib\Crypt\Perl\X.pm cp lib/Crypt/Perl/X/UnknownHash.pm blib\lib\Crypt\Perl\X\UnknownHash.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForName.pm blib\lib\Crypt\Perl\X\ECDSA\NoCurveForName.pm cp lib/Crypt/Perl/X/ASN1/Decode.pm blib\lib\Crypt\Perl\X\ASN1\Decode.pm cp lib/Crypt/Perl/X/Base.pm blib\lib\Crypt\Perl\X\Base.pm cp lib/Crypt/Perl/X509/Extension/subjectAltName.pm blib\lib\Crypt\Perl\X509\Extension\subjectAltName.pm cp lib/Crypt/Perl/X509/Extension.pm blib\lib\Crypt\Perl\X509\Extension.pm cp lib/Crypt/Perl/X509/Name.pm blib\lib\Crypt\Perl\X509\Name.pm cp lib/Crypt/Perl/X/UnknownJWKkty.pm blib\lib\Crypt\Perl\X\UnknownJWKkty.pm FELIPE/Crypt-Perl-0.14.tar.gz dmake -- OK Prepending C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-ProvablePrime-0.043-iuvIkC/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-ProvablePrime-0.043-iuvIkC/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Math-BigInt-1.999807-slDdCz/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Symbol-Get-0.05-xQWxOo/blib/lib C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/arch C:\cpanfly-5.22-64\var\tmp\cpan_build\Call-Context-0.02-qVBIoX/blib/lib to PERL5LIB for 'test' Running make test >>> dmake test TEST_VERBOSE=1 "C:\Perl-5.22-64\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/Crypt-Perl-BigInt.t ............................. 1..9 ok 1 - as_bytes() ok 2 - from_bytes() ok 3 - bit_length() ok 4 - bit_length(), repeated ok 5 - 0b100, bit 0: 0 ok 6 - 0b100, bit 1: 0 ok 7 - 0b100, bit 2: 1 ok 8 - 0b100, bit 3: 0 ok 9 - no warnings ok t/Crypt-Perl-ECDSA-Generate.t ..................... 1..1 ok 1 - no warnings ok t/Crypt-Perl-ECDSA-Parse.t ........................ 1..5 ok 1 - from JWK is identical to from PEM ok 2 - from JWK is identical to from PEM ok 3 - PKCS8 key parsed the same as a regular one ok 4 - 'public() return' isa 'Crypt::Perl::ECDSA::PublicKey' ok 5 - no warnings ok read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key read EC key writing EC key Timeout (max run time is 300s) C:\Perl-5.22-64\bin\perl.exe exits with 37.