PATH=/Users/fly2200/cpanfly-5.22/bin:/Users/fly2200/ap2200-299195/bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/X11/bin Start 2017-01-05T01:16:31 ActivePerl-2200 CPAN-2.10 Reading '/Users/fly2200/cpanfly-5.22/var/cpan/Metadata' Database was generated on Wed, 04 Jan 2017 06:41:03 GMT Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/Net-ACME-0.1.tar.gz Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/CHECKSUMS Checksum for /Users/fly2200/cpanfly-5.22/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 >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic 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 /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Net::ACME Writing MYMETA.yml and MYMETA.json FELIPE/Net-ACME-0.1.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic 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] Test::Class [build_requires] Running test for module 'Crypt::Perl' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/Crypt-Perl-0.14.tar.gz Checksum for /Users/fly2200/cpanfly-5.22/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 >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL Warning: prerequisite Math::BigInt 1.999805 not found. We have 1.999723. 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 /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Crypt::Perl Writing MYMETA.yml and MYMETA.json FELIPE/Crypt-Perl-0.14.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic 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] Call::Context [requires] Test::Class [build_requires] Math::BigInt [requires] Math::ProvablePrime [requires] Running test for module 'Symbol::Get' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/Symbol-Get-0.05.tar.gz Checksum for /Users/fly2200/cpanfly-5.22/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 >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL Warning: prerequisite Call::Context 0 not found. Checking if your kit is complete... Looks good Have /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Symbol::Get Writing MYMETA.yml and MYMETA.json FELIPE/Symbol-Get-0.05.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic 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' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/Call-Context-0.02.tar.gz Checksum for /Users/fly2200/cpanfly-5.22/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 >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL Checking if your kit is complete... Looks good Have /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Call::Context Writing MYMETA.yml and MYMETA.json FELIPE/Call-Context-0.02.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL -- OK Running make for F/FE/FELIPE/Call-Context-0.02.tar.gz >>> make cp README.pod blib/lib/Call/README.pod cp lib/Call/Context.pm blib/lib/Call/Context.pm Manifying 2 pod documents FELIPE/Call-Context-0.02.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-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, 0 wallclock secs ( 0.02 usr 0.01 sys + 0.03 cusr 0.01 csys = 0.07 CPU) Result: PASS FELIPE/Call-Context-0.02.tar.gz make test TEST_VERBOSE=1 -- OK Felipe Gasper <CENSORED> Sanity-check calling context >>> (cd /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ && tar cvf - Call-Context-0.02.ppd blib) | gzip -c >/Users/fly2200/cpanfly-5.22/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 blib/man3/ blib/man3/Call::Context.3 blib/man3/Call::README.3 FELIPE/Symbol-Get-0.05.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG FELIPE/Symbol-Get-0.05.tar.gz Has already been prepared Running make for F/FE/FELIPE/Symbol-Get-0.05.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib to PERL5LIB for 'make' >>> make cp lib/Symbol/Get.pm blib/lib/Symbol/Get.pm cp README.pod blib/lib/Symbol/README.pod Manifying 2 pod documents FELIPE/Symbol-Get-0.05.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-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.02 usr 0.01 sys + 0.05 cusr 0.01 csys = 0.09 CPU) Result: PASS FELIPE/Symbol-Get-0.05.tar.gz make test TEST_VERBOSE=1 -- OK Felipe Gasper <CENSORED> Read Perl’s symbol table programmatically >>> (cd /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG && tar cvf - Symbol-Get-0.05.ppd blib) | gzip -c >/Users/fly2200/cpanfly-5.22/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 blib/man3/ blib/man3/Symbol::Get.3 blib/man3/Symbol::README.3 Running test for module 'Test::Class' Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'get' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/E/ET/ETHER/Test-Class-0.50.tar.gz Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/E/ET/ETHER/CHECKSUMS Checksum for /Users/fly2200/cpanfly-5.22/var/cpan/sources/authors/id/E/ET/ETHER/Test-Class-0.50.tar.gz ok Test-Class-0.50/ Test-Class-0.50/Changes Test-Class-0.50/MANIFEST Test-Class-0.50/META.json Test-Class-0.50/META.yml Test-Class-0.50/Makefile.PL Test-Class-0.50/README Test-Class-0.50/lib/ Test-Class-0.50/t/ Test-Class-0.50/xt/ Test-Class-0.50/xt/documented.t Test-Class-0.50/xt/meta.t Test-Class-0.50/xt/perlcritic.t Test-Class-0.50/xt/perlcriticrc Test-Class-0.50/xt/pmv.t Test-Class-0.50/xt/pod.t Test-Class-0.50/xt/spelling.t Test-Class-0.50/t/00-load.t Test-Class-0.50/t/20-load-classes.t Test-Class-0.50/t/21-load-subclassed.t Test-Class-0.50/t/TestClassLoadSubclass.pm Test-Class-0.50/t/Tests.t Test-Class-0.50/t/_new.t Test-Class-0.50/t/bad-autoloads.t Test-Class-0.50/t/bailout.t Test-Class-0.50/t/builder.t Test-Class-0.50/t/compile.t Test-Class-0.50/t/current_method.t Test-Class-0.50/t/diag_on_failure.t Test-Class-0.50/t/die-in-setup.t Test-Class-0.50/t/die_before_plan.t Test-Class-0.50/t/expected_tests.t Test-Class-0.50/t/fail1.t Test-Class-0.50/t/fail2.t Test-Class-0.50/t/fail3.t Test-Class-0.50/t/filter.t Test-Class-0.50/t/filter_bad_filter.t Test-Class-0.50/t/filter_fixtures.t Test-Class-0.50/t/filter_fixtures_only.t Test-Class-0.50/t/filter_multiple.t Test-Class-0.50/t/header.t Test-Class-0.50/t/late_header.t Test-Class-0.50/t/methodinfo.t Test-Class-0.50/t/named_test.t Test-Class-0.50/t/num_method_tests.t Test-Class-0.50/t/num_tests.t Test-Class-0.50/t/override.t Test-Class-0.50/t/rt15870.t Test-Class-0.50/t/rt17264.t Test-Class-0.50/t/run_all_tests.t Test-Class-0.50/t/runtests.t Test-Class-0.50/t/runtests_die.t Test-Class-0.50/t/runtests_die_empty.t Test-Class-0.50/t/runtests_die_nearlyempty.t Test-Class-0.50/t/runtests_extra.t Test-Class-0.50/t/runtests_noplan.t Test-Class-0.50/t/runtests_of.t Test-Class-0.50/t/runtests_result.t Test-Class-0.50/t/runtests_return.t Test-Class-0.50/t/runtests_trailing.t Test-Class-0.50/t/runtests_with_wrong_class.t Test-Class-0.50/t/show_plan_in_shutdown.t Test-Class-0.50/t/skip1.t Test-Class-0.50/t/skip2.t Test-Class-0.50/t/skip_class_reason.t Test-Class-0.50/t/skip_empty_classes.t Test-Class-0.50/t/spaces.t Test-Class-0.50/t/startup.t Test-Class-0.50/t/startup_that_dies.t Test-Class-0.50/t/teardown-when-test-dies.t Test-Class-0.50/t/test-libs/ Test-Class-0.50/t/test_classes.t Test-Class-0.50/t/test_deep.t Test-Class-0.50/t/test_method.t Test-Class-0.50/t/test_verbose.t Test-Class-0.50/t/todo.t Test-Class-0.50/t/test-libs/fail/ Test-Class-0.50/t/test-libs/lib1/ Test-Class-0.50/t/test-libs/lib2/ Test-Class-0.50/t/test-libs/lib3/ Test-Class-0.50/t/test-libs/lib3/Tests/ Test-Class-0.50/t/test-libs/lib3/Tests/Bad1.pm Test-Class-0.50/t/test-libs/lib3/Tests/Good1.pm Test-Class-0.50/t/test-libs/lib3/Tests/Good2.pm Test-Class-0.50/t/test-libs/lib3/Tests/Subdir/ Test-Class-0.50/t/test-libs/lib3/Tests/Subdir/Bad2.pm Test-Class-0.50/t/test-libs/lib3/Tests/Subdir/Good3.pm Test-Class-0.50/t/test-libs/lib2/MyTest/ Test-Class-0.50/t/test-libs/lib2/MyTest/Baz.pm Test-Class-0.50/t/test-libs/lib1/Tests/ Test-Class-0.50/t/test-libs/lib1/Tests/Foo/ Test-Class-0.50/t/test-libs/lib1/Tests/Foo.pm Test-Class-0.50/t/test-libs/lib1/Tests/Foo/Bar.pm Test-Class-0.50/t/test-libs/fail/MyFail.pm Test-Class-0.50/lib/Test/ Test-Class-0.50/lib/Test/Class/ Test-Class-0.50/lib/Test/Class.pm Test-Class-0.50/lib/Test/Class/Load.pm Test-Class-0.50/lib/Test/Class/MethodInfo.pm Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'prepare' Configuring E/ET/ETHER/Test-Class-0.50.tar.gz with Makefile.PL >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL Checking if your kit is complete... Looks good Have /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Test::Class Writing MYMETA.yml and MYMETA.json ETHER/Test-Class-0.50.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL -- OK Running make for E/ET/ETHER/Test-Class-0.50.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' >>> make cp lib/Test/Class/Load.pm blib/lib/Test/Class/Load.pm cp lib/Test/Class/MethodInfo.pm blib/lib/Test/Class/MethodInfo.pm cp lib/Test/Class.pm blib/lib/Test/Class.pm Manifying 3 pod documents ETHER/Test-Class-0.50.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t # Testing Test::Class::Load 0.50, Perl 5.022000, /Users/fly2200/ap2200-299195/bin/perl-dynamic t/00-load.t .................... 1..1 ok 1 - use Test::Class::Load; ok t/20-load-classes.t ............ 1..14 ok 1 - Classes in top level directories should be loaded ok 2 - ... as should tests in subdirectories ok 3 - ... and the methods should work correctly ok 4 - ... even if they are called from subclasses ok 5 - ... or they have their own methods ok 6 - Trying to load multiple lib paths should succeed ok 7 - Top level directories should be loaded even with multiple libs ok 8 - ... as should tests in subdirectories ok 9 - ... and the methods should work correctly ok 10 - ... even if they are called from subclasses ok 11 - ... or they have their own methods ok 12 - And secondary libs should be loaded ok 13 - ... and their methods should also work correctly ok 14 - Trying to load a bad module fails ok t/21-load-subclassed.t ......... 1..7 ok 1 - Classes in top level directories should be loaded ok 2 - ... as should classes in subdirectories ok 3 - Filtered out classes in top level directories should *not* be loaded ok 4 - Filtered out classes in subdirectories should *not* be loaded ok 5 - Class Tests::Good1 method work as expected ok 6 - Class Tests::Good2 method work as expected ok 7 - Class Tests::Subdir::Good3 method work as expected ok t/_new.t ....................... 1..6 ok 1 - use Test::Class; ok 2 - An object of class 'Foo' isa 'Test::Class' ok 3 - key/value set ok 4 - An object of class 'Foo' isa 'Test::Class' ok 5 - prototype key/value set ok 6 - new key/value set ok t/bad-autoloads.t .............. 1..2 ok 1 - use Test::Class; ok 2 - avoided warnings from Contextual::Return::Value ok t/bailout.t .................... 1..2 ok 1 - bailout works ok 2 - exit value okay ok t/builder.t .................... 1..1 ok 1 - builder ok t/compile.t .................... 1..2 ok 1 - cannot test anon sub ok 2 - bad number detected ok # # Local::Test->test t/current_method.t ............. 1..4 ok 1 - current_method in setup ok 2 - current_method in method ok 3 - current_method in teardown ok 4 - current_test outside runtests ok t/diag_on_failure.t ............ 1..1 ok 1 - we show the test class and method name on test failure ok t/die-in-setup.t ............... 1..1 ok 1 - die in setup caused test method to fail ok t/die_before_plan.t ............ 1..1 ok 1 - die before plan ok t/expected_tests.t ............. 1..10 ok 1 - all set ok 2 - no_plan setup ok 3 - no_plan test ok 4 - no_plan teardown ok 5 - no_plan startup ok 6 - no_plan shutdown ok 7 - expected_test_of ok 8 - no_plan expected_test_of ok 9 - bad test class ok 10 - undef test class ok t/fail1.t ...................... 1..2 ok 1 - FAIL_ALL with plan ok 2 - exit value okay ok t/fail2.t ...................... 1..2 ok 1 - fail2 ok 2 - exit value okay ok t/fail3.t ...................... ok 1 - FAIL_ALL with no plan ok 2 - exit value okay 1..2 ok # # Foo->test_run t/filter.t ..................... 1..1 ok 1 - test_run not filtered, so is run ok t/filter_bad_filter.t .......... 1..1 ok 1 - error on non-coderef filter ok # # Foo->test_should_run t/filter_fixtures.t ............ 1..5 ok 1 - startup test is run, even though matches filter ok 2 - setup test is run, even though matches filter ok 3 - should run, due to not matching filter ok 4 - teardown test is run, even though matches filter ok 5 - shutdown test is run, even though matches filter ok t/filter_fixtures_only.t ....... 1..1 ok 1 - setup/teardown not run when no test methods ok # # Foo->test_another_not_matching # # Foo->test_not_filtered t/filter_multiple.t ............ 1..2 ok 1 - test_another_not_matching doesn't meet any filters, so is run ok 2 - test_not_filtered doesn't meet any filters, so is run ok t/header.t ..................... ok 1 - no duplicate headers 1..1 ok # # Local::Test->test t/late_header.t ................ 1..2 ok 1 - test number set ok 2 - builder expected tests set ok t/methodinfo.t ................. ok 1 - use Test::Class::MethodInfo; ok 2 - An object of class 'Test::Class::MethodInfo' isa 'Test::Class::MethodInfo' ok 3 - method type is test by default ok 4 - test methods default to 1 test 1..4 ok t/named_test.t ................. ok 1 - test names set to method name by default 1..1 ok # # Bar->no_plan_test # # Bar->no_plan_test2 # # Bar->two_tests t/num_method_tests.t ........... 1..19 ok 1 - fixed num tests ok 2 - no_plan tests ok 3 - cannot use non-method ok 4 - cannot update illegal value ok 5 - updated legal value ok 6 - update worked ok 7 - updated extended ok 8 - update worked ok 9 - extended method okay ok 10 - class expected_tests ok 11 - object expected_tests ok 12 - num_method_tests dies outside test class ok 13 - just passing ok 14 - no_plan_test just passing 1 ok 15 - no_plan_test just passing 2 ok 16 - no_plan_test2 just passing 1 ok 17 - no_plan_test2 just passing 2 ok 18 - two_tests just passing 1 ok 19 - two_tests just passing 2 ok # # Foo->test_num_tests # # Foo->test_num_tests t/num_tests.t .................. 1..4 ok 1 - num_tests access okay ok 2 - num_tests set okay ok 3 - num_tests access okay ok 4 - num_tests set okay ok t/override.t ................... 1..1 ok 1 - cannot override a public method with a test method ok t/rt15870.t .................... 1..1 ok 1 - sensible error if new() is overridden ok t/rt17264.t .................... 1..1 ok 1 - we figured out that we loaded Test::Class too late ok # # A::Test->setup t/run_all_tests.t .............. 1..5 ok 1 - Test::Class->SKIP_CLASS default ok 2 - Base::Test->SKIP_CLASS overridden ok 3 - A::Test->SKIP_CLASS default ok 4 - non skipping test class run as expected ok 5 - runtests skipped classes with SKIP_CLASS set ok # # Bar->test1 # # Bar->test2 t/runtests.t ................... 1..18 ok 1 - initialise2: methods ran in order ok 2 - test1: initialise1 ran once ok 3 - test1: initialise2 ran once ok 4 - test1: first test running ok 5 - test1: teardown not run ok 6 - teardown1: teardown run for every test ok 7 - teardown1: teardown run for every initialise1 ok 8 - teardown1: teardown run for every initialise2 ok 9 - teardown1: setup run for every test ok 10 - initialise2: methods ran in order ok 11 - test2: initialise1 ran twice ok 12 - test2: initialise2 ran twice ok 13 - test2: second test running ok 14 - test2: teardown ran once ok 15 - teardown1: teardown run for every test ok 16 - teardown1: teardown run for every initialise1 ok 17 - teardown1: teardown run for every initialise2 ok 18 - teardown1: setup run for every test ok t/runtests_die.t ............... 1..1 ok 1 - early die handled ok t/runtests_die_empty.t ......... 1..1 ok 1 - we can handle an exception that stringifies to the empty string ok t/runtests_die_nearlyempty.t ... 1..1 ok 1 - early die with nearly-empty messages handled ok t/runtests_extra.t ............. 1..1 ok 1 - extra test detected ok # # Foo->set_tests # # Foo->undef_tests t/runtests_noplan.t ............ ok 1 - this should pass ok 2 - runtime test 1 ok 3 - runtime test 2 ok 4 - expected number of tests ran 1..4 ok # # Tests1->test # # Tests2->test t/runtests_of.t ................ 1..3 ok 1 - Tests1 test ok 2 - Tests2 test ok 3 - correct number of tests ok t/runtests_result.t ............ 1..4 ok 1 - single failure ran okay ok 2 - failure detected ok 3 - a successful test ok 4 - success detected ok t/runtests_return.t ............ 1..2 ok 1 - early return handled (skip) ok 2 - early return handled (fail) ok t/runtests_trailing.t .......... 1..1 ok 1 - trailing expection detected ok t/runtests_with_wrong_class.t .. 1..2 ok 1 - use Test::Class; ok 2 - runtests dies if we are given something that is not a test class ok # # My::Test->test t/show_plan_in_shutdown.t ...... 1..2 ok 1 - passing test to force shutdown method to run ok 2 - shutdown method has run ok t/skip1.t ...................... 1..1 ok 1 - SKIP_ALL called skip_all ok # Failed test 'SKIP_ALL' # at t/skip2.t line 40. # (in Local::Test->_only) # STDERR is: # # # # Local::Test->test # # not: # # as expected t/skip2.t ...................... 1..4 not ok 1 - SKIP_ALL ok 2 - exit ok ok 3 - make the plan happy ok 4 - make the plan happy Failed 1/4 subtests t/skip_class_reason.t .......... 1..3 # Running under perl version 5.022000 for darwin # Current time local: Thu Jan 5 01:16:39 2017 # Current time GMT: Thu Jan 5 09:16:39 2017 # Using Test.pm version 1.26 ok 1 ok 2 ok 3 ok # # Bar::Test->the_test t/skip_empty_classes.t ......... 1..5 ok 1 - startup run ok 2 - setup run ok 3 - the_test has been run ok 4 - teardown run ok 5 - shutdown run ok t/spaces.t ..................... ok 1 - can have spaces around attributes 1..1 ok # # Foo::Test->test1 # # Foo::Test->test2 t/startup.t .................... 1..15 ok 1 - called start1 ok 2 - called start2 ok 3 - called setup1 ok 4 - called setup2 ok 5 - called test1 ok 6 - called tear1 ok 7 - called tear2 ok 8 - called setup1 ok 9 - called setup2 ok 10 - called test2 ok 11 - called tear1 ok 12 - called tear2 ok 13 - called end1 ok 14 - called end2 ok 15 - all expected methods ran ok t/startup_that_dies.t .......... 1..1 ok 1 - exception in startup method causes all tests to be skipped ok # Failed test 'exception in method, but teardown is still run' # at t/teardown-when-test-dies.t line 29. # STDERR is: # # # # TeardownWhenTestDies->my_test_method # # Failed test 'my_test_method died (oops! at t/teardown-when-test-dies.t line 15.)' # # at t/teardown-when-test-dies.t line 28. # # (in TeardownWhenTestDies->my_test_method) # # not: # /#\s+Failed\ test.*?\n?.*?at\ t\/teardown\-when\-test\-dies\.t line 28.*\n?/ # # (in TeardownWhenTestDies->my_test_method) # # as expected t/teardown-when-test-dies.t .... 1..1 not ok 1 - exception in method, but teardown is still run Failed 1/1 subtests t/test_classes.t ............... 1..1 ok 1 - _test_classes deals with undef values ok t/test_deep.t .................. 1..1 ok 1 - Test::Deep is not included as a test class, even though isa always returns true ok t/test_method.t ................ 1..4 ok 1 - $ENV{TEST_METHOD} with an invalid regex should die ok 2 - no TEST_METHOD runs all tests ok 3 - single match just runs one test ok 4 - two matches run both tests ok t/test_verbose.t ............... 1..1 ok 1 - TEST_VERBOSE outputs method diagnostic ok # # My::Test->Tests_attribute_default_number_of_tests # # My::Test->Tests_attribute_set_number_of_tests t/Tests.t ...................... 1..2 ok 1 - Tests attribute default number of tests ok 2 - Tests attribute set number of tests ok # Test::More: 1.001014 t/todo.t ....................... 1..2 ok 1 - todo tests work ok 2 - todo_test should run 1 test ok Test Summary Report ------------------- t/skip2.t (Wstat: 0 Tests: 4 Failed: 1) Failed test: 1 t/teardown-when-test-dies.t (Wstat: 0 Tests: 1 Failed: 1) Failed test: 1 Files=57, Tests=189, 4 wallclock secs ( 0.15 usr 0.09 sys + 2.17 cusr 0.48 csys = 2.89 CPU) Result: FAIL Failed 2/57 test programs. 2/189 subtests failed. make: *** [test_dynamic] Error 255 ETHER/Test-Class-0.50.tar.gz make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports ETHER/Test-Class-0.50.tar.gz Running test for module 'Math::BigInt' Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'get' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/P/PJ/PJACKLAM/CHECKSUMS Checksum for /Users/fly2200/cpanfly-5.22/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 /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'prepare' Configuring P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz with Makefile.PL >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic 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::FastCalc 0.5000 0.42 # Math::BigInt::Calc 1.999800 1.999723 # Math::BigInt::Pari 1.3000 1.27 # ########################################################################## Sleeping for a few seconds ... Checking if your kit is complete... Looks good Have /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Math::BigInt Writing MYMETA.yml and MYMETA.json PJACKLAM/Math-BigInt-1.999807.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL -- OK Running make for P/PJ/PJACKLAM/Math-BigInt-1.999807.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' >>> make cp lib/Math/BigInt/Lib.pm blib/lib/Math/BigInt/Lib.pm cp lib/Math/BigInt/CalcEmu.pm blib/lib/Math/BigInt/CalcEmu.pm cp lib/Math/BigFloat.pm blib/lib/Math/BigFloat.pm cp lib/Math/BigInt/Calc.pm blib/lib/Math/BigInt/Calc.pm cp lib/Math/BigInt.pm blib/lib/Math/BigInt.pm Manifying 5 pod documents PJACKLAM/Math-BigInt-1.999807.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-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.022000, /Users/fly2200/ap2200-299195/bin/perl-dynamic # # 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 - bigint 2**64-1 as string ok 3861 - bigint 2**64-1 as number ok 3862 - bigint -2**63 as string ok 3863 - bigint -2**63 as number 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 - bigint 2**64-1 as string ok 3881 - bigint 2**64-1 as number ok 3882 - bigint -2**63 as string ok 3883 - bigint -2**63 as number 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(0x7fc6bb9b6f88)) ok 14 - Math::BigInt::Scalar->_is_one(SCALAR(0x7fc6bb9b6f88)) 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(0x7fc6bba03180), SCALAR(0x7fc6bb82b668))) ok 44 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_xor(SCALAR(0x7fc6bc001e58), SCALAR(0x7fc6bb9f7f70))) ok 45 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_and(SCALAR(0x7fc6bba03180), SCALAR(0x7fc6bb82b668))) ok 46 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x7fc6bc001e58), SCALAR(0x7fc6bb9f7f70))) ok 47 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x7fc6bba03180), SCALAR(0x7fc6bb82b668))) ok 48 - Math::BigInt::Scalar->_str(Math::BigInt::Scalar->_pow(SCALAR(0x7fc6bc001e58), SCALAR(0x7fc6bb9f7f70))) 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 - accuracy = 2 ok 31 - accuracy ne $c->{accuracy} ok 32 - accuracy = 2 ok 33 - round_mode = zero ok 34 - round_mode ne $c->{round_mode} ok 35 - round_mode = zero ok 36 - div_scale = 100 ok 37 - div_scale ne $c->{div_scale} ok 38 - div_scale = 100 ok 39 - trap_nan = 1 ok 40 - trap_nan ne $c->{trap_nan} ok 41 - trap_nan = 1 ok 42 - upgrade = Math::BigInt::SomeClass ok 43 - upgrade ne $c->{upgrade} ok 44 - upgrade = Math::BigInt::SomeClass ok 45 - downgrade = Math::BigInt::SomeClass ok 46 - downgrade ne $c->{downgrade} ok 47 - downgrade = Math::BigInt::SomeClass ok 48 - trap_inf = 1 ok 49 - trap_inf ne $c->{trap_inf} ok 50 - trap_inf = 1 ok 51 - precision = 3 ok 52 - precision ne $c->{precision} ok 53 - precision = 3 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 - bigint 2**64-1 as string ok 3861 - bigint 2**64-1 as number ok 3862 - bigint -2**63 as string ok 3863 - bigint -2**63 as number 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, 30 wallclock secs ( 2.98 usr 0.35 sys + 17.28 cusr 1.37 csys = 21.98 CPU) Result: PASS PJACKLAM/Math-BigInt-1.999807.tar.gz make test TEST_VERBOSE=1 -- OK Peter John Acklam <pjacklam@online.no> unknown >>> (cd /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs && tar cvf - Math-BigInt-1.999807.ppd blib) | gzip -c >/Users/fly2200/cpanfly-5.22/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 blib/man3/ blib/man3/Math::BigFloat.3 blib/man3/Math::BigInt.3 blib/man3/Math::BigInt::Calc.3 blib/man3/Math::BigInt::CalcEmu.3 blib/man3/Math::BigInt::Lib.3 Running test for module 'Math::ProvablePrime' Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'get' Fetching with LWP: http://ppm.activestate.com/CPAN/authors/id/F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz Checksum for /Users/fly2200/cpanfly-5.22/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 /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'prepare' Configuring F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz with Makefile.PL >>> /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL Checking if your kit is complete... Looks good Have /Users/fly2200/cpanfly-5.22/var/megalib Want /Users/fly2200/ap2200-299195/lib Your perl and your Config.pm seem to have different ideas about the architecture they are running on. Perl thinks: [megalib] Config says: [darwin-thread-multi-2level] This may or may not cause problems. Please check your installation of perl if you have problems building this extension. Generating a Unix-style Makefile Writing Makefile for Math::ProvablePrime Writing MYMETA.yml and MYMETA.json FELIPE/Math-ProvablePrime-0.043.tar.gz /Users/fly2200/ap2200-299195/bin/perl-dynamic Makefile.PL -- OK Running make for F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' ---- Unsatisfied dependencies detected during ---- ---- FELIPE/Math-ProvablePrime-0.043.tar.gz ---- Test::Class [build_requires] Running test for module 'Test::Class' ETHER/Test-Class-0.50.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Test-Class-0.50-0ExVPo ETHER/Test-Class-0.50.tar.gz Has already been prepared ETHER/Test-Class-0.50.tar.gz Has already been made ETHER/Test-Class-0.50.tar.gz Won't repeat unsuccessful test during this command FELIPE/Math-ProvablePrime-0.043.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef FELIPE/Math-ProvablePrime-0.043.tar.gz Has already been prepared Running make for F/FE/FELIPE/Math-ProvablePrime-0.043.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' Warning: Prerequisite 'Test::Class => 0.4' for 'FELIPE/Math-ProvablePrime-0.043.tar.gz' failed when processing 'ETHER/Test-Class-0.50.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. >>> make cp lib/Math/ProvablePrime/Rand.pm blib/lib/Math/ProvablePrime/Rand.pm cp lib/Math/ProvablePrime.pm blib/lib/Math/ProvablePrime.pm cp README.pod blib/lib/Math/README.pod Manifying 2 pod documents FELIPE/Math-ProvablePrime-0.043.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Math-ProvablePrime-Rand.t line 20. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Math-ProvablePrime-Rand.t .. ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-ProvablePrime-0.043-HDu6ef/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Math-ProvablePrime.t line 25. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Math-ProvablePrime.t ....... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Test Summary Report ------------------- t/Math-ProvablePrime-Rand.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Math-ProvablePrime.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=2, Tests=2, 0 wallclock secs ( 0.02 usr 0.01 sys + 0.08 cusr 0.02 csys = 0.13 CPU) Result: FAIL Failed 2/2 test programs. 0/2 subtests failed. make: *** [test_dynamic] Error 2 FELIPE/Math-ProvablePrime-0.043.tar.gz one dependency not OK (Test::Class); additionally test harness failed make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports FELIPE/Math-ProvablePrime-0.043.tar.gz FELIPE/Crypt-Perl-0.14.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli FELIPE/Crypt-Perl-0.14.tar.gz Has already been prepared Running make for F/FE/FELIPE/Crypt-Perl-0.14.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' Warning: Prerequisite 'Math::ProvablePrime => 0.043' for 'FELIPE/Crypt-Perl-0.14.tar.gz' failed when processing 'FELIPE/Math-ProvablePrime-0.043.tar.gz' with 'make_test => NO one dependency not OK (Test::Class); additionally test harness failed'. Continuing, but chances to succeed are limited. Warning: Prerequisite 'Test::Class => 0.4' for 'FELIPE/Crypt-Perl-0.14.tar.gz' failed when processing 'ETHER/Test-Class-0.50.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. >>> make cp lib/Crypt/Perl/X/ASN1/Prepare.pm blib/lib/Crypt/Perl/X/ASN1/Prepare.pm cp lib/Crypt/Perl/ECDSA/Parse.pm blib/lib/Crypt/Perl/ECDSA/Parse.pm cp lib/Crypt/Perl/JWK.pm blib/lib/Crypt/Perl/JWK.pm cp lib/Crypt/Perl/KeyBase.pm blib/lib/Crypt/Perl/KeyBase.pm cp lib/Crypt/Perl/RSA/Template.pm blib/lib/Crypt/Perl/RSA/Template.pm cp lib/Crypt/Perl/RSA/Parse.pm blib/lib/Crypt/Perl/RSA/Parse.pm cp lib/Crypt/Perl/ASN1/Encodee.pm blib/lib/Crypt/Perl/ASN1/Encodee.pm cp lib/Crypt/Perl/RSA/PublicKey.pm blib/lib/Crypt/Perl/RSA/PublicKey.pm cp lib/Crypt/Perl/ECDSA/Generate.pm blib/lib/Crypt/Perl/ECDSA/Generate.pm cp lib/Crypt/Perl/RSA/PKCS1_v1_5.pm blib/lib/Crypt/Perl/RSA/PKCS1_v1_5.pm cp lib/Crypt/Perl/PKCS8.pm blib/lib/Crypt/Perl/PKCS8.pm cp lib/Crypt/Perl/RSA/Generate.pm blib/lib/Crypt/Perl/RSA/Generate.pm cp lib/Crypt/Perl/PKCS10/Attributes.pm blib/lib/Crypt/Perl/PKCS10/Attributes.pm cp lib/Crypt/Perl/Math.pm blib/lib/Crypt/Perl/Math.pm cp lib/Crypt/Perl/ECDSA/ECParameters.pm blib/lib/Crypt/Perl/ECDSA/ECParameters.pm cp lib/Crypt/Perl/ECDSA/PrivateKey.pm blib/lib/Crypt/Perl/ECDSA/PrivateKey.pm cp README.pod blib/lib/Crypt/README.pod cp lib/Crypt/Perl/X509/Extension/subjectAltName.pm blib/lib/Crypt/Perl/X509/Extension/subjectAltName.pm cp lib/Crypt/Perl/RSA/PrivateKey.pm blib/lib/Crypt/Perl/RSA/PrivateKey.pm cp lib/Crypt/Perl/ToDER.pm blib/lib/Crypt/Perl/ToDER.pm cp lib/Crypt/Perl/X/UnknownJWKkty.pm blib/lib/Crypt/Perl/X/UnknownJWKkty.pm cp lib/Crypt/Perl/X509/Name.pm blib/lib/Crypt/Perl/X509/Name.pm cp lib/Crypt/Perl/ECDSA/EC/DB.pm blib/lib/Crypt/Perl/ECDSA/EC/DB.pm cp lib/Crypt/Perl/ECDSA.pm blib/lib/Crypt/Perl/ECDSA.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForParameters.pm blib/lib/Crypt/Perl/X/ECDSA/NoCurveForParameters.pm cp lib/Crypt/Perl/ECDSA/Utils.pm blib/lib/Crypt/Perl/ECDSA/Utils.pm cp lib/Crypt/Perl/PK.pm blib/lib/Crypt/Perl/PK.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForNISTName.pm blib/lib/Crypt/Perl/X/ECDSA/NoCurveForNISTName.pm cp lib/Crypt/Perl/ECDSA/EC/FieldElement.pm blib/lib/Crypt/Perl/ECDSA/EC/FieldElement.pm cp lib/Crypt/Perl/X.pm blib/lib/Crypt/Perl/X.pm cp lib/Crypt/Perl/X509/Extension.pm blib/lib/Crypt/Perl/X509/Extension.pm cp lib/Crypt/Perl/X/Base.pm blib/lib/Crypt/Perl/X/Base.pm cp lib/Crypt/Perl/ECDSA/NIST.pm blib/lib/Crypt/Perl/ECDSA/NIST.pm cp lib/Crypt/Perl/PKCS10/Attribute.pm blib/lib/Crypt/Perl/PKCS10/Attribute.pm cp lib/Crypt/Perl/X/TooLongToSign.pm blib/lib/Crypt/Perl/X/TooLongToSign.pm cp lib/Crypt/Perl/ECDSA/PublicKey.pm blib/lib/Crypt/Perl/ECDSA/PublicKey.pm cp lib/Crypt/Perl/ECDSA/EC/Curve.pm blib/lib/Crypt/Perl/ECDSA/EC/Curve.pm cp lib/Crypt/Perl/ECDSA/EC/CurvesDB.pm blib/lib/Crypt/Perl/ECDSA/EC/CurvesDB.pm cp lib/Crypt/Perl/RSA.pm blib/lib/Crypt/Perl/RSA.pm cp lib/Crypt/Perl/ASN1.pm blib/lib/Crypt/Perl/ASN1.pm cp lib/Crypt/Perl/X/InvalidJWK.pm blib/lib/Crypt/Perl/X/InvalidJWK.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/ASN1/Decode.pm blib/lib/Crypt/Perl/X/ASN1/Decode.pm cp lib/Crypt/Perl/PKCS10/Attribute/challengePassword.pm blib/lib/Crypt/Perl/PKCS10/Attribute/challengePassword.pm cp lib/Crypt/Perl/ECDSA/EC/Point.pm blib/lib/Crypt/Perl/ECDSA/EC/Point.pm cp lib/Crypt/Perl/PKCS10/ASN1.pm blib/lib/Crypt/Perl/PKCS10/ASN1.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForOID.pm blib/lib/Crypt/Perl/X/ECDSA/NoCurveForOID.pm cp lib/Crypt/Perl/RNG.pm blib/lib/Crypt/Perl/RNG.pm cp lib/Crypt/Perl/ECDSA/KeyBase.pm blib/lib/Crypt/Perl/ECDSA/KeyBase.pm cp lib/Crypt/Perl.pm blib/lib/Crypt/Perl.pm cp lib/Crypt/Perl/PKCS10.pm blib/lib/Crypt/Perl/PKCS10.pm cp lib/Crypt/Perl/RSA/KeyBase.pm blib/lib/Crypt/Perl/RSA/KeyBase.pm cp lib/Crypt/Perl/BigInt.pm blib/lib/Crypt/Perl/BigInt.pm cp lib/Crypt/Perl/PKCS10/Attribute/extensionRequest.pm blib/lib/Crypt/Perl/PKCS10/Attribute/extensionRequest.pm cp lib/Crypt/Perl/X/ECDSA/NoCurveForName.pm blib/lib/Crypt/Perl/X/ECDSA/NoCurveForName.pm cp lib/Crypt/Perl/X/UnknownHash.pm blib/lib/Crypt/Perl/X/UnknownHash.pm cp lib/Crypt/Perl/X/ECDSA/CharacteristicTwoUnsupported.pm blib/lib/Crypt/Perl/X/ECDSA/CharacteristicTwoUnsupported.pm Manifying 25 pod documents FELIPE/Crypt-Perl-0.14.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-BigInt.t line 20. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-BigInt.t ............................. ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-ECDSA-Generate.t line 35. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-ECDSA-Generate.t ..................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-ECDSA-Parse.t line 32. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-ECDSA-Parse.t ........................ ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-ECDSA-PrivateKey.t line 33. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-ECDSA-PrivateKey.t ................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-ECDSA-PublicKey.t line 32. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-ECDSA-PublicKey.t .................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-Math.t line 22. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-Math.t ............................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-PK.t line 26. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-PK.t ................................. ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-PKCS10-Attribute-extensionRequest.t line 22. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-PKCS10-Attribute-extensionRequest.t .. ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-PKCS10.t line 29. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-PKCS10.t ............................. ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: ../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-RSA-Generate.t line 27. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-RSA-Generate.t ....................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-RSA-Parse.t line 26. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-RSA-Parse.t .......................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-RSA-PrivateKey.t line 20. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-RSA-PrivateKey.t ..................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-RSA-PublicKey.t line 20. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-RSA-PublicKey.t ...................... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/t/../lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Crypt-Perl-0.14-4etTli/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Crypt-Perl-X509-Extension-subjectAltName.t line 22. # Tests were run but no plan was declared and done_testing() was not seen. # Looks like your test exited with 2 just after 1. t/Crypt-Perl-X509-Extension-subjectAltName.t ...... ok 1 - no warnings Dubious, test returned 2 (wstat 512, 0x200) All 1 subtests passed Test Summary Report ------------------- t/Crypt-Perl-BigInt.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-ECDSA-Generate.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-ECDSA-Parse.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-ECDSA-PrivateKey.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-ECDSA-PublicKey.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-Math.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-PK.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-PKCS10-Attribute-extensionRequest.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-PKCS10.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-RSA-Generate.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-RSA-Parse.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-RSA-PrivateKey.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-RSA-PublicKey.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Crypt-Perl-X509-Extension-subjectAltName.t (Wstat: 512 Tests: 1 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=14, Tests=14, 2 wallclock secs ( 0.05 usr 0.03 sys + 0.83 cusr 0.24 csys = 1.15 CPU) Result: FAIL Failed 14/14 test programs. 0/14 subtests failed. make: *** [test_dynamic] Error 2 FELIPE/Crypt-Perl-0.14.tar.gz 2 dependencies missing (Test::Class,Math::ProvablePrime); additionally test harness failed make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports FELIPE/Crypt-Perl-0.14.tar.gz Running test for module 'Test::Class' ETHER/Test-Class-0.50.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Test-Class-0.50-0ExVPo ETHER/Test-Class-0.50.tar.gz Has already been prepared ETHER/Test-Class-0.50.tar.gz Has already been made ETHER/Test-Class-0.50.tar.gz Won't repeat unsuccessful test during this command FELIPE/Net-ACME-0.1.tar.gz Has already been unwrapped into directory /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB FELIPE/Net-ACME-0.1.tar.gz Has already been prepared Running make for F/FE/FELIPE/Net-ACME-0.1.tar.gz Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'make' Warning: Prerequisite 'Crypt::Perl => 0.14' for 'FELIPE/Net-ACME-0.1.tar.gz' failed when processing 'FELIPE/Crypt-Perl-0.14.tar.gz' with 'make_test => NO 2 dependencies missing (Test::Class,Math::ProvablePrime); additionally test harness failed'. Continuing, but chances to succeed are limited. Warning: Prerequisite 'Test::Class => 0.4' for 'FELIPE/Net-ACME-0.1.tar.gz' failed when processing 'ETHER/Test-Class-0.50.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. >>> make cp lib/Net/ACME/X/Protocol.pm blib/lib/Net/ACME/X/Protocol.pm cp lib/Net/ACME/Challenge.pm blib/lib/Net/ACME/Challenge.pm cp lib/Net/ACME/Authorization/Pending.pm blib/lib/Net/ACME/Authorization/Pending.pm cp lib/Net/ACME/X/Empty.pm blib/lib/Net/ACME/X/Empty.pm cp lib/Net/ACME/Authorization.pm blib/lib/Net/ACME/Authorization.pm cp lib/Net/ACME/X/UnrecognizedKey.pm blib/lib/Net/ACME/X/UnrecognizedKey.pm cp lib/Net/ACME/HTTP.pm blib/lib/Net/ACME/HTTP.pm cp README.pod blib/lib/Net/README.pod cp lib/Net/ACME/LetsEncrypt.pm blib/lib/Net/ACME/LetsEncrypt.pm cp lib/Net/ACME/X/HTTP/Protocol.pm blib/lib/Net/ACME/X/HTTP/Protocol.pm cp lib/Net/ACME/AccessorBase.pm blib/lib/Net/ACME/AccessorBase.pm cp lib/Net/ACME/Challenge/Pending/http_01/Handler.pm blib/lib/Net/ACME/Challenge/Pending/http_01/Handler.pm cp lib/Net/ACME/X/OverloadBase.pm blib/lib/Net/ACME/X/OverloadBase.pm cp lib/Net/ACME/HTTP_Tiny.pm blib/lib/Net/ACME/HTTP_Tiny.pm cp lib/Net/ACME/HTTP/Response.pm blib/lib/Net/ACME/HTTP/Response.pm cp lib/Net/ACME/Challenge/Pending/http_01.pm blib/lib/Net/ACME/Challenge/Pending/http_01.pm cp lib/Net/ACME/X.pm blib/lib/Net/ACME/X.pm cp lib/Net/ACME/Challenge/Pending.pm blib/lib/Net/ACME/Challenge/Pending.pm cp lib/Net/ACME.pm blib/lib/Net/ACME.pm cp lib/Net/ACME/Crypt.pm blib/lib/Net/ACME/Crypt.pm cp lib/Net/ACME/X/UnexpectedResponse.pm blib/lib/Net/ACME/X/UnexpectedResponse.pm cp lib/Net/ACME/X/HashBase.pm blib/lib/Net/ACME/X/HashBase.pm cp lib/Net/ACME/Registration.pm blib/lib/Net/ACME/Registration.pm cp lib/Net/ACME/Utils.pm blib/lib/Net/ACME/Utils.pm cp lib/Net/ACME/Certificate.pm blib/lib/Net/ACME/Certificate.pm cp lib/Net/ACME/X/InvalidCharacters.pm blib/lib/Net/ACME/X/InvalidCharacters.pm cp lib/Net/ACME/Error.pm blib/lib/Net/ACME/Error.pm cp lib/Net/ACME/X/HTTP/Network.pm blib/lib/Net/ACME/X/HTTP/Network.pm cp lib/Net/ACME/Certificate/Pending.pm blib/lib/Net/ACME/Certificate/Pending.pm cp lib/Net/ACME/RetryAfter.pm blib/lib/Net/ACME/RetryAfter.pm cp lib/Net/ACME/Constants.pm blib/lib/Net/ACME/Constants.pm cp lib/Net/ACME/X/InvalidParameter.pm blib/lib/Net/ACME/X/InvalidParameter.pm Manifying 16 pod documents FELIPE/Net-ACME-0.1.tar.gz make -- OK Prepending /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib to PERL5LIB for 'test' Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/Users/fly2200/ap2200-299195/bin/perl-dynamic" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t # Failed test 'use Net::ACME;' # at t/001_load.t line 7. # Tried to use 'Net::ACME'. # Error: Can't locate Crypt/Perl/PK.pm in @INC (you may need to install the Crypt::Perl::PK module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/Crypt.pm line 15. # BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/Crypt.pm line 15. # Compilation failed in require at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/HTTP.pm line 37. # BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/HTTP.pm line 37. # Compilation failed in require at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/RetryAfter.pm line 11. # BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/RetryAfter.pm line 11. # Compilation failed in require at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. # BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME/Authorization/Pending.pm line 64. # Compilation failed in require at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME.pm line 220. # BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib/Net/ACME.pm line 220. # Compilation failed in require at t/001_load.t line 7. # BEGIN failed--compilation aborted at t/001_load.t line 7. # Looks like you failed 1 test of 1. t/001_load.t .................................... 1..1 not ok 1 - use Net::ACME; Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Authorization-Pending.t line 14. t/Net-ACME-Authorization-Pending.t .............. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Authorization.t line 14. t/Net-ACME-Authorization.t ...................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Certificate-Pending.t line 15. t/Net-ACME-Certificate-Pending.t ................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Certificate.t line 14. t/Net-ACME-Certificate.t ........................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t/Net-ACME-Challenge-Pending-http_01.t line 14. Compilation failed in require at t/Net-ACME-Challenge-Pending-http_01-Handler.t line 13. BEGIN failed--compilation aborted at t/Net-ACME-Challenge-Pending-http_01-Handler.t line 15. t/Net-ACME-Challenge-Pending-http_01-Handler.t .. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Challenge-Pending-http_01.t line 14. t/Net-ACME-Challenge-Pending-http_01.t .......... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t/Net-ACME-Challenge-Pending-http_01.t line 14. Compilation failed in require at t/Net-ACME-Challenge-Pending.t line 13. BEGIN failed--compilation aborted at t/Net-ACME-Challenge-Pending.t line 15. t/Net-ACME-Challenge-Pending.t .................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Challenge.t line 14. t/Net-ACME-Challenge.t .......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Constants.t line 15. t/Net-ACME-Constants.t .......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Crypt.t line 14. t/Net-ACME-Crypt.t .............................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Error.t line 14. t/Net-ACME-Error.t .............................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-HTTP-Response.t line 14. t/Net-ACME-HTTP-Response.t ...................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-HTTP.t line 14. t/Net-ACME-HTTP.t ............................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Registration.t line 14. t/Net-ACME-Registration.t ....................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t/Net-ACME-Certificate-Pending.t line 15. Compilation failed in require at t/Net-ACME-RetryAfter.t line 13. BEGIN failed--compilation aborted at t/Net-ACME-RetryAfter.t line 15. t/Net-ACME-RetryAfter.t ......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-Utils.t line 14. t/Net-ACME-Utils.t .............................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME-X.t line 14. t/Net-ACME-X.t .................................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Net-ACME-X_lazy.t ............................. 1..1 ok 1 - overload.pm is not loaded at compile time ok Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/t/lib/Test/ACMEServer.pm line 11. Compilation failed in require at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/Net-ACME.t line 17. t/Net-ACME.t .................................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/Class.pm in @INC (you may need to install the Test::Class module) (@INC contains: /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Net-ACME-0.1-RooWoB/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Math-BigInt-1.999807-64Q2rs/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Call-Context-0.02-lM4lbQ/blib/lib /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/arch /Users/fly2200/cpanfly-5.22/var/tmp/cpan_build/Symbol-Get-0.05-a6O8CG/blib/lib /Users/fly2200/cpanfly-5.22/var/megalib /Users/fly2200/Library/ActivePerl-5.22/lib /Users/fly2200/ap2200-299195/site/lib /Users/fly2200/ap2200-299195/lib .) at /Users/fly2200/cpanfly-5.22/var/megalib/parent.pm line 16. BEGIN failed--compilation aborted at t/t-lib-Test-Crypt.t line 14. t/t-lib-Test-Crypt.t ............................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Test Summary Report ------------------- t/001_load.t (Wstat: 256 Tests: 1 Failed: 1) Failed test: 1 Non-zero exit status: 1 t/Net-ACME-Authorization-Pending.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Authorization.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Certificate-Pending.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Certificate.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Challenge-Pending-http_01-Handler.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Challenge-Pending-http_01.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Challenge-Pending.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Challenge.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Constants.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Crypt.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Error.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-HTTP-Response.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-HTTP.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Registration.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-RetryAfter.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-Utils.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME-X.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Net-ACME.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/t-lib-Test-Crypt.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=21, Tests=2, 1 wallclock secs ( 0.06 usr 0.04 sys + 0.41 cusr 0.11 csys = 0.62 CPU) Result: FAIL Failed 20/21 test programs. 1/2 subtests failed. make: *** [test_dynamic] Error 2 FELIPE/Net-ACME-0.1.tar.gz 2 dependencies missing (Test::Class,Crypt::Perl); additionally test harness failed make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports FELIPE/Net-ACME-0.1.tar.gz Finished 2017-01-05T01:17:23