summaryrefslogtreecommitdiff
path: root/cpan/Math-BigInt/t/from_bin-mbi.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Math-BigInt/t/from_bin-mbi.t')
-rw-r--r--cpan/Math-BigInt/t/from_bin-mbi.t132
1 files changed, 0 insertions, 132 deletions
diff --git a/cpan/Math-BigInt/t/from_bin-mbi.t b/cpan/Math-BigInt/t/from_bin-mbi.t
deleted file mode 100644
index da8300726b..0000000000
--- a/cpan/Math-BigInt/t/from_bin-mbi.t
+++ /dev/null
@@ -1,132 +0,0 @@
-# -*- mode: perl; -*-
-
-use strict;
-use warnings;
-
-use Test::More tests => 1457;
-
-my $class;
-
-BEGIN { $class = 'Math::BigInt'; }
-BEGIN { use_ok($class); }
-
-my @data;
-my $space = "\t\r\n ";
-
-while (<DATA>) {
- s/#.*$//; # remove comments
- s/\s+$//; # remove trailing whitespace
- next unless length; # skip empty lines
-
- my ($in0, $out0) = split /:/;
-
- push @data, [ $in0, $out0 ],
- [ $in0 . $space, $out0 ],
- [ $space . $in0, $out0 ],
- [ $space . $in0 . $space, $out0 ];
-}
-
-for my $entry (@data) {
- my ($in0, $out0) = @$entry;
-
- # As class method.
-
- {
- my $x;
- my $test = qq|\$x = $class -> from_bin("$in0");|;
-
- eval $test;
- die $@ if $@; # this should never happen
-
- subtest $test, sub {
- plan tests => 2,
-
- is(ref($x), $class, "output arg is a $class");
- is($x, $out0, 'output arg has the right value');
- };
- }
-
- # As instance method.
-
- {
- for my $str ("-1", "0", "1", "-inf", "+inf", "NaN") {
- my $x;
- my $test = qq|\$x = $class -> new("$str");|
- . qq| \$x -> from_bin("$in0");|;
-
- eval $test;
- die $@ if $@; # this should never happen
-
- subtest $test, sub {
- plan tests => 2,
-
- is(ref($x), $class, "output arg is a $class");
- is($x, $out0, 'output arg has the right value');
- };
- }
- }
-}
-
-__END__
-
-0b0:0
-0b1:1
-0b10:2
-0b11:3
-0b100:4
-0b101:5
-0b110:6
-0b111:7
-0b1000:8
-0b1001:9
-0b1010:10
-0b1011:11
-0b1100:12
-0b1101:13
-0b1110:14
-0b1111:15
-0b10000:16
-0b10001:17
-
-0b11111110:254
-0b11111111:255
-0b100000000:256
-0b100000001:257
-
-0b1111111111111110:65534
-0b1111111111111111:65535
-0b10000000000000000:65536
-0b10000000000000001:65537
-
-0b111111111111111111111110:16777214
-0b111111111111111111111111:16777215
-0b1000000000000000000000000:16777216
-0b1000000000000000000000001:16777217
-
-0b11111111111111111111111111111110:4294967294
-0b11111111111111111111111111111111:4294967295
-0b100000000000000000000000000000000:4294967296
-0b100000000000000000000000000000001:4294967297
-
-0b1111111111111111111111111111111111111110:1099511627774
-0b1111111111111111111111111111111111111111:1099511627775
-0b10000000000000000000000000000000000000000:1099511627776
-0b10000000000000000000000000000000000000001:1099511627777
-
-0b111111111111111111111111111111111111111111111110:281474976710654
-0b111111111111111111111111111111111111111111111111:281474976710655
-0b1000000000000000000000000000000000000000000000000:281474976710656
-0b1000000000000000000000000000000000000000000000001:281474976710657
-
-0b11111111111111111111111111111111111111111111111111111110:72057594037927934
-0b11111111111111111111111111111111111111111111111111111111:72057594037927935
-0b100000000000000000000000000000000000000000000000000000000:72057594037927936
-0b100000000000000000000000000000000000000000000000000000001:72057594037927937
-
-0B10:2
-b10:2
-B10:2
-
-NaN:NaN
-+inf:NaN
--inf:NaN