Math::BigRat has blead as its upstream

[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 e963da3..0000000
--- a/cpan/Math-BigRat/t/bigratup.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test whether $Math::BigInt::upgrade breaks our neck
-
-use strict;
-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(),
- '1000000000000000000000000000000000000000/1732050807568877293527446341505872366943',
- 'bsqrt(1/3)');
-
-# all tests successfull
-
-1;
-