summaryrefslogtreecommitdiff
path: root/cpan/Math-BigInt/t/constant.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Math-BigInt/t/constant.t')
-rw-r--r--cpan/Math-BigInt/t/constant.t46
1 files changed, 0 insertions, 46 deletions
diff --git a/cpan/Math-BigInt/t/constant.t b/cpan/Math-BigInt/t/constant.t
deleted file mode 100644
index 1f760d6280..0000000000
--- a/cpan/Math-BigInt/t/constant.t
+++ /dev/null
@@ -1,46 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 7;
-
-use Math::BigInt ':constant';
-
-is(2 ** 255,
- '578960446186580977117854925043439539266'
- . '34992332820282019728792003956564819968',
- '2 ** 255');
-
-{
- no warnings 'portable'; # protect against "non-portable" warnings
-
- # hexadecimal constants
- is(0x123456789012345678901234567890,
- Math::BigInt->new('0x123456789012345678901234567890'),
- 'hexadecimal constant 0x123456789012345678901234567890');
-
- # binary constants
- is(0b01010100011001010110110001110011010010010110000101101101,
- Math::BigInt->new('0b0101010001100101011011000111'
- . '0011010010010110000101101101'),
- 'binary constant 0b0101010001100101011011000111'
- . '0011010010010110000101101101');
-}
-
-use Math::BigFloat ':constant';
-is(1.0 / 3.0, '0.3333333333333333333333333333333333333333',
- '1.0 / 3.0 = 0.3333333333333333333333333333333333333333');
-
-# stress-test Math::BigFloat->import()
-
-Math::BigFloat->import(qw/:constant/);
-pass('Math::BigFloat->import(qw/:constant/);');
-
-Math::BigFloat->import(qw/:constant upgrade Math::BigRat/);
-pass('Math::BigFloat->import(qw/:constant upgrade Math::BigRat/);');
-
-Math::BigFloat->import(qw/upgrade Math::BigRat :constant/);
-pass('Math::BigFloat->import(qw/upgrade Math::BigRat :constant/);');
-
-# all tests done