blob: 4ccdf96d0011e1f3195cb9b6f79dc025e7508940 (
plain)
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
# -*- mode: perl; -*-
# test calling conventions, and :constant overloading
use strict;
use warnings;
use Test::More tests => 156;
##############################################################################
package Math::BigInt::Test;
use Math::BigInt;
our @ISA = qw/Math::BigInt/; # subclass of MBI
use overload;
##############################################################################
package Math::BigFloat::Test;
use Math::BigFloat;
our @ISA = qw/Math::BigFloat/; # subclass of MBI
use overload;
##############################################################################
package main;
use Math::BigInt try => 'Calc';
use Math::BigFloat;
my ($x, $y, $z, $u);
###############################################################################
# check whether op's accept normal strings, even when inherited by subclasses
# do one positive and one negative test to avoid false positives by "accident"
my ($method, $expected);
while (<DATA>) {
s/#.*$//; # remove comments
s/\s+$//; # remove trailing whitespace
next unless length; # skip empty lines
if (s/^&//) {
$method = $_;
next;
}
my @args = split /:/, $_, 99;
$expected = pop @args;
foreach my $class (qw/
Math::BigInt Math::BigFloat
Math::BigInt::Test Math::BigFloat::Test
/)
{
my $arg = $args[0] =~ /"/ || $args[0] eq "" ? $args[0]
: qq|"$args[0]"|;
my $try = "$class -> new($arg) -> $method();";
my $got = eval $try;
is($got, $expected, $try);
}
}
__END__
&is_zero
1:0
0:1
&is_one
1:1
0:0
&is_positive
1:1
-1:0
&is_negative
1:0
-1:1
&is_non_positive
1:0
-1:1
&is_non_negative
1:1
-1:0
&is_nan
abc:1
1:0
&is_inf
inf:1
0:0
&bstr
5:5
10:10
-10:-10
abc:NaN
"+inf":inf
"-inf":-inf
&bsstr
1:1e+0
0:0e+0
2:2e+0
200:2e+2
-5:-5e+0
-100:-1e+2
abc:NaN
"+inf":inf
&babs
-1:1
1:1
&bnot
-2:1
1:-2
&bzero
:0
&bnan
:NaN
abc:NaN
&bone
:1
#"+":1
#"-":-1
&binf
:inf
#"+":inf
#"-":-inf
|