This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
cpan/Math-BigInt - Update to version 2.000000
[perl5.git] / cpan / Math-BigRat / t / downgrade.t
diff --git a/cpan/Math-BigRat/t/downgrade.t b/cpan/Math-BigRat/t/downgrade.t
deleted file mode 100644 (file)
index 3a9f52a..0000000
--- a/cpan/Math-BigRat/t/downgrade.t
+++ /dev/null
@@ -1,430 +0,0 @@
-# -*- mode: perl; -*-
-
-# Note that this does not test Math::BigRat upgrading.
-
-use strict;
-use warnings;
-
-use Test::More tests => 141;
-
-use Math::BigInt upgrade   => 'Math::BigRat';
-use Math::BigRat downgrade => 'Math::BigInt';
-
-is(Math::BigRat->downgrade(), 'Math::BigInt', 'Math::BigRat->downgrade()');
-is(Math::BigInt->upgrade(),   'Math::BigRat', 'Math::BigInt->upgrade()');
-
-
-################################################################################
-# Verify that constructors downgrade when they should.
-
-note("Enable downgrading, and see if constructors downgrade");
-
-my $x;
-
-# new()
-
-$x = Math::BigRat -> new("0.5");
-cmp_ok($x, "==", 0.5);
-is(ref $x, "Math::BigRat", "Creating a 0.5 does not downgrade");
-
-$x = Math::BigRat -> new("4");
-cmp_ok($x, "==", 4, 'new("4")');
-is(ref $x, "Math::BigInt", "Creating a 4 downgrades to Math::BigInt");
-
-$x = Math::BigRat -> new("0");
-cmp_ok($x, "==", 0, 'new("0")');
-is(ref $x, "Math::BigInt", "Creating a 0 downgrades to Math::BigInt");
-
-$x = Math::BigRat -> new("1");
-cmp_ok($x, "==", 1, 'new("1")');
-is(ref $x, "Math::BigInt", "Creating a 1 downgrades to Math::BigInt");
-
-$x = Math::BigRat -> new("Inf");
-cmp_ok($x, "==", "Inf", 'new("inf")');
-is(ref $x, "Math::BigInt", "Creating an Inf downgrades to Math::BigInt");
-
-$x = Math::BigRat -> new("NaN");
-is($x, "NaN", 'new("NaN")');
-is(ref $x, "Math::BigInt", "Creating a NaN downgrades to Math::BigInt");
-
-# bzero()
-
-$x = Math::BigRat -> bzero();
-cmp_ok($x, "==", 0, "bzero()");
-is(ref $x, "Math::BigInt", "Creating a 0 downgrades to Math::BigInt");
-
-# bone()
-
-$x = Math::BigRat -> bone();
-cmp_ok($x, "==", 1, "bone()");
-is(ref $x, "Math::BigInt", "Creating a 1 downgrades to Math::BigInt");
-
-# binf()
-
-$x = Math::BigRat -> binf();
-cmp_ok($x, "==", "Inf", "binf()");
-is(ref $x, "Math::BigInt", "Creating an Inf downgrades to Math::BigInt");
-
-# bnan()
-
-$x = Math::BigRat -> bnan();
-is($x, "NaN", "bnan()");
-is(ref $x, "Math::BigInt", "Creating a NaN downgrades to Math::BigInt");
-
-# from_hex()
-
-$x = Math::BigRat -> from_hex("13a");
-cmp_ok($x, "==", 314, 'from_hex("13a")');
-is(ref $x, "Math::BigInt", 'from_hex("13a") downgrades to Math::BigInt');
-
-# from_oct()
-
-$x = Math::BigRat -> from_oct("472");
-cmp_ok($x, "==", 314, 'from_oct("472")');
-is(ref $x, "Math::BigInt", 'from_oct("472") downgrades to Math::BigInt');
-
-# from_bin()
-
-$x = Math::BigRat -> from_bin("100111010");
-cmp_ok($x, "==", 314, 'from_bin("100111010")');
-is(ref $x, "Math::BigInt",
-   'from_bin("100111010") downgrades to Math::BigInt');
-
-note("Disable downgrading, and see if constructors downgrade");
-
-Math::BigRat -> downgrade(undef);
-
-my $half = Math::BigRat -> new("1/2");
-my $four = Math::BigRat -> new("4");
-my $zero = Math::BigRat -> bzero();
-my $inf  = Math::BigRat -> binf();
-my $nan  = Math::BigRat -> bnan();
-
-is(ref $half, "Math::BigRat", "Creating a 0.5 does not downgrade");
-is(ref $four, "Math::BigRat", "Creating a 4 does not downgrade");
-is(ref $zero, "Math::BigRat", "Creating a 0 does not downgrade");
-is(ref $inf,  "Math::BigRat", "Creating an Inf does not downgrade");
-is(ref $nan,  "Math::BigRat", "Creating a NaN does not downgrade");
-
-################################################################################
-# Verify that other methods downgrade when they should.
-
-Math::BigRat -> downgrade("Math::BigInt");
-
-note("bneg()");
-
-$x = $zero -> copy() -> bneg();
-cmp_ok($x, "==", 0, "-(0) = 0");
-is(ref($x), "Math::BigInt", "-(0) => Math::BigInt");
-
-$x = $four -> copy() -> bneg();
-cmp_ok($x, "==", -4, "-(4) = -4");
-is(ref($x), "Math::BigInt", "-(4) => Math::BigInt");
-
-$x = $inf -> copy() -> bneg();
-cmp_ok($x, "==", "-inf", "-(Inf) = -Inf");
-is(ref($x), "Math::BigInt", "-(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bneg();
-is($x, "NaN", "-(NaN) = NaN");
-is(ref($x), "Math::BigInt", "-(NaN) => Math::BigInt");
-
-note("bnorm()");
-
-$x = $zero -> copy() -> bnorm();
-cmp_ok($x, "==", 0, "bnorm(0)");
-is(ref($x), "Math::BigInt", "bnorm(0) => Math::BigInt");
-
-$x = $four -> copy() -> bnorm();
-cmp_ok($x, "==", 4, "bnorm(4)");
-is(ref($x), "Math::BigInt", "bnorm(4) => Math::BigInt");
-
-$x = $inf -> copy() -> bnorm();
-cmp_ok($x, "==", "inf", "bnorm(Inf)");
-is(ref($x), "Math::BigInt", "bnorm(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bnorm();
-is($x, "NaN", "bnorm(NaN)");
-is(ref($x), "Math::BigInt", "bnorm(NaN) => Math::BigInt");
-
-note("binc()");
-
-$x = $zero -> copy() -> binc();
-cmp_ok($x, "==", 1, "binc(0)");
-is(ref($x), "Math::BigInt", "binc(0) => Math::BigInt");
-
-$x = $four -> copy() -> binc();
-cmp_ok($x, "==", 5, "binc(4)");
-is(ref($x), "Math::BigInt", "binc(4) => Math::BigInt");
-
-$x = $inf -> copy() -> binc();
-cmp_ok($x, "==", "inf", "binc(Inf)");
-is(ref($x), "Math::BigInt", "binc(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> binc();
-is($x, "NaN", "binc(NaN)");
-is(ref($x), "Math::BigInt", "binc(NaN) => Math::BigInt");
-
-note("bdec()");
-
-$x = $zero -> copy() -> bdec();
-cmp_ok($x, "==", -1, "bdec(0)");
-is(ref($x), "Math::BigInt", "bdec(0) => Math::BigInt");
-
-$x = $four -> copy() -> bdec();
-cmp_ok($x, "==", 3, "bdec(4)");
-is(ref($x), "Math::BigInt", "bdec(4) => Math::BigInt");
-
-$x = $inf -> copy() -> bdec();
-cmp_ok($x, "==", "inf", "bdec(Inf)");
-is(ref($x), "Math::BigInt", "bdec(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bdec();
-is($x, "NaN", "bdec(NaN)");
-is(ref($x), "Math::BigInt", "bdec(NaN) => Math::BigInt");
-
-note("badd()");
-
-$x = $half -> copy() -> badd($nan);
-is($x, "NaN", "0.5 + NaN = NaN");
-is(ref($x), "Math::BigInt", "0.5 + NaN => Math::BigInt");
-
-$x = $half -> copy() -> badd($inf);
-cmp_ok($x, "==", "+Inf", "0.5 + Inf = Inf");
-is(ref($x), "Math::BigInt", "2.5 + Inf => Math::BigInt");
-
-$x = $half -> copy() -> badd($half);
-cmp_ok($x, "==", 1, "0.5 + 0.5 = 1");
-is(ref($x), "Math::BigInt", "0.5 + 0.5 => Math::BigInt");
-
-$x = $half -> copy() -> badd($half -> copy() -> bneg());
-cmp_ok($x, "==", 0, "0.5 + -0.5 = 0");
-is(ref($x), "Math::BigInt", "0.5 + -0.5 => Math::BigInt");
-
-$x = $four -> copy() -> badd($zero);
-cmp_ok($x, "==", 4, "4 + 0 = 4");
-is(ref($x), "Math::BigInt", "4 + 0 => Math::BigInt");
-
-$x = $zero -> copy() -> badd($four);
-cmp_ok($x, "==", 4, "0 + 4 = 4");
-is(ref($x), "Math::BigInt", "0 + 4 => Math::BigInt");
-
-$x = $inf -> copy() -> badd($four);
-cmp_ok($x, "==", "+Inf", "Inf + 4 = Inf");
-is(ref($x), "Math::BigInt", "Inf + 4 => Math::BigInt");
-
-$x = $nan -> copy() -> badd($four);
-is($x, "NaN", "NaN + 4 = NaN");
-is(ref($x), "Math::BigInt", "NaN + 4 => Math::BigInt");
-
-note("bsub()");
-
-$x = $half -> copy() -> bsub($nan);
-is($x, "NaN", "0.5 - NaN = NaN");
-is(ref($x), "Math::BigInt", "0.5 - NaN => Math::BigInt");
-
-$x = $half -> copy() -> bsub($inf);
-cmp_ok($x, "==", "-Inf", "2.5 - Inf = -Inf");
-is(ref($x), "Math::BigInt", "2.5 - Inf => Math::BigInt");
-
-$x = $half -> copy() -> bsub($half);
-cmp_ok($x, "==", 0, "0.5 - 0.5 = 0");
-is(ref($x), "Math::BigInt", "0.5 - 0.5 => Math::BigInt");
-
-$x = $half -> copy() -> bsub($half -> copy() -> bneg());
-cmp_ok($x, "==", 1, "0.5 - -0.5 = 1");
-is(ref($x), "Math::BigInt", "0.5 - -0.5 => Math::BigInt");
-
-$x = $four -> copy() -> bsub($zero);
-cmp_ok($x, "==", 4, "4 - 0 = 4");
-is(ref($x), "Math::BigInt", "4 - 0 => Math::BigInt");
-
-$x = $zero -> copy() -> bsub($four);
-cmp_ok($x, "==", -4, "0 - 4 = -4");
-is(ref($x), "Math::BigInt", "0 - 4 => Math::BigInt");
-
-$x = $inf -> copy() -> bsub($four);
-cmp_ok($x, "==", "Inf", "Inf - 4 = Inf");
-is(ref($x), "Math::BigInt", "Inf - 4 => Math::BigInt");
-
-$x = $nan -> copy() -> bsub($four);
-is($x, "NaN", "NaN - 4 = NaN");
-is(ref($x), "Math::BigInt", "NaN - 4 => Math::BigInt");
-
-note("bmul()");
-
-$x = $zero -> copy() -> bmul($four);
-cmp_ok($x, "==", 0, "bmul(0, 4) = 0");
-is(ref($x), "Math::BigInt", "bmul(0, 4) => Math::BigInt");
-
-$x = $four -> copy() -> bmul($four);
-cmp_ok($x, "==", 16, "bmul(4, 4) = 16");
-is(ref($x), "Math::BigInt", "bmul(4, 4) => Math::BigInt");
-
-$x = $inf -> copy() -> bmul($four);
-cmp_ok($x, "==", "inf", "bmul(Inf, 4) = Inf");
-is(ref($x), "Math::BigInt", "bmul(Inf, 4) => Math::BigInt");
-
-$x = $nan -> copy() -> bmul($four);
-is($x, "NaN", "bmul(NaN, 4) = NaN");
-is(ref($x), "Math::BigInt", "bmul(NaN, 4) => Math::BigInt");
-
-$x = $four -> copy() -> bmul("0.5");
-cmp_ok($x, "==", 2, "bmul(4, 0.5) = 2");
-is(ref($x), "Math::BigInt", "bmul(4, 0.5) => Math::BigInt");
-
-# bmuladd()
-
-note("bdiv()");
-
-note("bmod()");
-
-note("bmodpow()");
-
-note("bpow()");
-
-note("blog()");
-
-note("bexp()");
-
-note("bnok()");
-
-note("bsin()");
-
-note("bcos()");
-
-note("batan()");
-
-note("batan()");
-
-note("bsqrt()");
-
-note("broot()");
-
-note("bfac()");
-
-note("bdfac()");
-
-note("btfac()");
-
-note("bmfac()");
-
-note("blsft()");
-
-note("brsft()");
-
-note("band()");
-
-note("bior()");
-
-note("bxor()");
-
-note("bnot()");
-
-note("bround()");
-
-# Add tests for rounding a non-integer to an integer. Fixme!
-
-$x = $zero -> copy() -> bround();
-cmp_ok($x, "==", 0, "bround(0)");
-is(ref($x), "Math::BigInt", "bround(0) => Math::BigInt");
-
-$x = $four -> copy() -> bround();
-cmp_ok($x, "==", 4, "bround(4)");
-is(ref($x), "Math::BigInt", "bround(4) => Math::BigInt");
-
-$x = $inf -> copy() -> bround();
-cmp_ok($x, "==", "inf", "bround(Inf)");
-is(ref($x), "Math::BigInt", "bround(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bround();
-is($x, "NaN", "bround(NaN)");
-is(ref($x), "Math::BigInt", "bround(NaN) => Math::BigInt");
-
-note("bfround()");
-
-# Add tests for rounding a non-integer to an integer. Fixme!
-
-$x = $zero -> copy() -> bfround();
-cmp_ok($x, "==", 0, "bfround(0)");
-is(ref($x), "Math::BigInt", "bfround(0) => Math::BigInt");
-
-$x = $four -> copy() -> bfround();
-cmp_ok($x, "==", 4, "bfround(4)");
-is(ref($x), "Math::BigInt", "bfround(4) => Math::BigInt");
-
-$x = $inf -> copy() -> bfround();
-cmp_ok($x, "==", "inf", "bfround(Inf)");
-is(ref($x), "Math::BigInt", "bfround(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bfround();
-is($x, "NaN", "bfround(NaN)");
-is(ref($x), "Math::BigInt", "bfround(NaN) => Math::BigInt");
-
-note("bfloor()");
-
-$x = $half -> copy() -> bfloor();
-cmp_ok($x, "==", 0, "bfloor(0)");
-is(ref($x), "Math::BigInt", "bfloor(0) => Math::BigInt");
-
-$x = $inf -> copy() -> bfloor();
-cmp_ok($x, "==", "Inf", "bfloor(Inf)");
-is(ref($x), "Math::BigInt", "bfloor(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bfloor();
-is($x, "NaN", "bfloor(NaN)");
-is(ref($x), "Math::BigInt", "bfloor(NaN) => Math::BigInt");
-
-note("bceil()");
-
-$x = $half -> copy() -> bceil();
-cmp_ok($x, "==", 1, "bceil(0)");
-is(ref($x), "Math::BigInt", "bceil(0) => Math::BigInt");
-
-$x = $inf -> copy() -> bceil();
-cmp_ok($x, "==", "Inf", "bceil(Inf)");
-is(ref($x), "Math::BigInt", "bceil(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bceil();
-is($x, "NaN", "bceil(NaN)");
-is(ref($x), "Math::BigInt", "bceil(NaN) => Math::BigInt");
-
-note("bint()");
-
-$x = $half -> copy() -> bint();
-cmp_ok($x, "==", 0, "bint(0)");
-is(ref($x), "Math::BigInt", "bint(0) => Math::BigInt");
-
-$x = $inf -> copy() -> bint();
-cmp_ok($x, "==", "Inf", "bint(Inf)");
-is(ref($x), "Math::BigInt", "bint(Inf) => Math::BigInt");
-
-$x = $nan -> copy() -> bint();
-is($x, "NaN", "bint(NaN)");
-is(ref($x), "Math::BigInt", "bint(NaN) => Math::BigInt");
-
-note("bgcd()");
-
-note("blcm()");
-
-# mantissa() ?
-
-# exponent() ?
-
-# parts() ?
-
-# sparts()
-
-# nparts()
-
-# eparts()
-
-# dparts()
-
-# fparts()
-
-# numerator()
-
-# denominator()
-
-#require 'upgrade.inc'; # all tests here for sharing
Unnamed repository; edit this file 'description' to name the repository.