cpan/Math-BigInt - Update to version 2.000000

[perl5.git] / cpan / Math-BigRat / t / big_ap.t

diff --git a/cpan/Math-BigRat/t/big_ap.t b/cpan/Math-BigRat/t/big_ap.t
deleted file mode 100644 (file)
index dd114be..0000000
--- a/cpan/Math-BigRat/t/big_ap.t
+++ /dev/null
@@ -1,121 +0,0 @@
-# -*- mode: perl; -*-
-
-# Test that accuracy() and precision() in BigInt/BigFloat do not disturb
-# the rounding force in BigRat.
-
-use strict;
-use warnings;
-
-use Test::More tests => 17;
-
-use Math::BigInt;
-use Math::BigFloat;
-use Math::BigRat;
-
-my $proper       = Math::BigRat   -> new('12345678901234567890/2');
-my $proper_inc   = Math::BigRat   -> new('12345678901234567890/2') -> binc();
-my $proper_dec   = Math::BigRat   -> new('12345678901234567890/2') -> bdec();
-my $proper_int   = Math::BigInt   -> new('12345678901234567890');
-my $proper_float = Math::BigFloat -> new('12345678901234567890');
-my $proper2      = Math::BigRat   -> new('12345678901234567890');
-
-Math::BigInt   -> accuracy(3);
-Math::BigFloat -> accuracy(5);
-
-my ($x, $y, $z);
-
-##############################################################################
-# new()
-
-note "Test new()";
-
-$z = Math::BigRat->new("12345678901234567890/2");
-is($z, $proper, q|Math::BigRat->new("12345678901234567890/2")|);
-
-$z = Math::BigRat->new("1234567890123456789E1");
-is($z, $proper2, q|Math::BigRat->new("1234567890123456789E1")|);
-
-$z = Math::BigRat->new("12345678901234567890/1E0");
-is($z, $proper2, q|Math::BigRat->new("12345678901234567890/1E0")|);
-
-$z = Math::BigRat->new("1234567890123456789e1/1");
-is($z, $proper2, q|Math::BigRat->new("1234567890123456789e1/1")|);
-
-$z = Math::BigRat->new("1234567890123456789e1/1E0");
-is($z, $proper2, q|Math::BigRat->new("1234567890123456789e1/1E0")|);
-
-$z = Math::BigRat->new($proper_int);
-is($z, $proper2, qq|Math::BigRat->new("$proper_int")|);
-
-$z = Math::BigRat->new($proper_float);
-is($z, $proper2, qq|Math::BigRat->new("$proper_float")|);
-
-##############################################################################
-# bdiv
-
-note "Test bdiv()";
-
-$x = Math::BigRat->new("12345678901234567890");
-$y = Math::BigRat->new("2");
-$z = $x->copy->bdiv($y);
-is($z, $proper);
-
-##############################################################################
-# bmul
-
-note "Test bmul()";
-
-$x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new("1");
-$z = $x->copy->bmul($y);
-is($z, $proper);
-
-$z = Math::BigRat->new("12345678901234567890/1E0");
-is($z, $proper2);
-
-$z = Math::BigRat->new($proper_int);
-is($z, $proper2);
-
-$z = Math::BigRat->new($proper_float);
-is($z, $proper2);
-
-##############################################################################
-# bdiv
-
-note "Test bdiv()";
-
-$x = Math::BigRat->new("12345678901234567890");
-$y = Math::BigRat->new("2");
-$z = $x->copy->bdiv($y);
-is($z, $proper);
-
-##############################################################################
-# bmul
-
-note "Test bmul()";
-
-$x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new("1");
-$z = $x->copy->bmul($y);
-is($z, $proper);
-
-$x = Math::BigRat->new("$proper");
-$y = Math::BigRat->new("2");
-$z = $x->copy->bmul($y);
-is($z, $proper2);
-
-##############################################################################
-# binc
-
-note "Test binc()";
-
-$x = $proper->copy()->binc();
-is($x, $proper_inc);
-
-##############################################################################
-# binc
-
-note "Test bdec()";
-
-$x = $proper->copy()->bdec();
-is($x, $proper_dec);