PJACKLAM / Math-BigInt-2.005001 / xt / author / from_dec-mbi.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
# -*- mode: perl; -*-
use strict;
use warnings;
use Test::More tests => 701;
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_dec("$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_dec("$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__
# invalid input
NaN:NaN
+inf:NaN
-inf:NaN
0xff:NaN
0o377:NaN
0b11:NaN
# integers
0:0
-1:-1
+1:1
1:1
-10:-10
10:10
-314159:-314159
314159:314159
-314159.:-314159
314159.:314159
-314159.000:-314159
314159.000:314159
3.14159e+5:314159
31415900e-2:314159
0377:377
# finite non-integers
-314159.5:NaN
314159.5:NaN
314159.5:NaN
314.159e-2:NaN