Math::BigRat has blead as its upstream

[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 39a2f71..0000000
--- a/cpan/Math-BigRat/t/big_ap.t
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test that accuracy() and precision() in BigInt/BigFloat do not disturb
-# the rounding force in BigRat.
-
-use strict;
-use Test::More tests => 17;
-
-use Math::BigInt;
-use Math::BigFloat;
-use Math::BigRat;
-
-my $r = 'Math::BigRat';
-my $proper = $r->new('12345678901234567890/2');
-my $proper_inc = $r->new('12345678901234567890/2')->binc();
-my $proper_dec = $r->new('12345678901234567890/2')->bdec();
-my $proper_int = Math::BigInt->new('12345678901234567890');
-my $proper_float = Math::BigFloat->new('12345678901234567890');
-my $proper2 = $r->new('12345678901234567890');
-
-print "# Start\n";
-
-Math::BigInt->accuracy(3);
-Math::BigFloat->accuracy(5);
-
-my ($x,$y,$z);
-
-##############################################################################
-# new()
-
-$z = $r->new('12345678901234567890/2');
-is ($z,$proper);
-
-$z = $r->new('1234567890123456789E1');
-is ($z,$proper2);
-
-$z = $r->new('12345678901234567890/1E0');
-is ($z,$proper2);
-$z = $r->new('1234567890123456789e1/1');
-is ($z,$proper2);
-$z = $r->new('1234567890123456789e1/1E0');
-is ($z,$proper2);
-
-$z = $r->new($proper_int);
-is ($z,$proper2);
-
-$z = $r->new($proper_float);
-is ($z,$proper2);
-
-##############################################################################
-# bdiv
-
-$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
-$z = $x->copy->bdiv($y);
-is ($z,$proper);
-
-##############################################################################
-# bmul
-
-$x = $r->new("$proper"); $y = Math::BigRat->new('1');
-$z = $x->copy->bmul($y);
-is ($z,$proper);
-$z = $r->new('12345678901234567890/1E0');
-is ($z,$proper2);
-
-$z = $r->new($proper_int);
-is ($z,$proper2);
-
-$z = $r->new($proper_float);
-is ($z,$proper2);
-
-##############################################################################
-# bdiv
-
-$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
-$z = $x->copy->bdiv($y);
-is ($z,$proper);
-
-##############################################################################
-# bmul
-
-$x = $r->new("$proper"); $y = Math::BigRat->new('1');
-$z = $x->copy->bmul($y);
-is ($z,$proper);
-
-$x = $r->new("$proper"); $y = Math::BigRat->new('2');
-$z = $x->copy->bmul($y);
-is ($z,$proper2);
-
-##############################################################################
-# binc/bdec
-
-$x = $proper->copy()->binc(); is ($x,$proper_inc);
-$x = $proper->copy()->bdec(); is ($x,$proper_dec);
-