cpan/Math-BigInt - Update to version 2.000000

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

diff --git a/cpan/Math-BigRat/t/bigratup.t b/cpan/Math-BigRat/t/bigratup.t
deleted file mode 100644 (file)
index 1f9bf49..0000000
--- a/cpan/Math-BigRat/t/bigratup.t
+++ /dev/null
@@ -1,41 +0,0 @@
-# -*- mode: perl; -*-
-
-# Test whether $Math::BigInt::upgrade breaks our neck
-
-use strict;
-use warnings;
-
-use Test::More tests => 5;
-
-use Math::BigInt upgrade => 'Math::BigRat';
-use Math::BigRat;
-
-my $rat = 'Math::BigRat';
-my($x, $y, $z);
-
-##############################################################################
-# bceil/bfloor
-
-$x = $rat->new('49/4');
-is($x->bfloor(), '12', 'floor(49/4)');
-
-$x = $rat->new('49/4');
-is($x->bceil(), '13', 'ceil(49/4)');
-
-##############################################################################
-# bsqrt
-
-$x = $rat->new('144');
-is($x->bsqrt(), '12', 'bsqrt(144)');
-
-$x = $rat->new('144/16');
-is($x->bsqrt(), '3', 'bsqrt(144/16)');
-
-$x = $rat->new('1/3');
-is($x->bsqrt(),
-   '1443375672974064411272871951254893639119/2500000000000000000000000000000000000000',
-   'bsqrt(1/3)');
-
-# all tests successful
-
-1;