The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

PJACKLAM / Math-BigInt-2.005001 / xt / author / btfac-mbr.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
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
# -*- mode: perl; -*-
use strict;
use warnings;
use Test::More tests => 119;
my $class = "Math::BigRat";
use_ok($class);
note("btfac() as a class method");
while (<DATA>) {
    s/^\s+//;
    next if /^#/ || !/\S/;
    my ($x, $want) = split;
    # btfac() as an instance method
    {
        my $y;
        my $test = qq|\$y = $class -> new("$x") -> btfac();|;
        note("\n$test\n\n");
        eval $test;
        die $@ if $@;
        is($y, $want);
    }
    # btfac() as a class method
    {
        my $y;
        my $test = qq|\$y = $class -> btfac("$x");|;
        note("\n$test\n\n");
        eval $test;
        die $@ if $@;
        is($y, $want);
    }
    # btfac() as a function does not work, since objectify() converts the scalar
    # to a Math::BigInt, which is the name of the package in which objectify()
    # is defined.
#    {
#        my $y;
#        my $test = qq|\$y = $ {class}::btfac("$x");|;
#        note("\n$test\n\n");
#        eval $test;
#        die $@ if $@;
#        is($y, $want);
#    }
}
__DATA__
# Tests only for Math::BigRat
-3/2 NaN
-1/2 NaN
3/2 NaN
5/2 NaN
# Common tests for Math::BigInt, Math::BigFloat, and Math::BigRat:
-4 NaN
-3 NaN
-2 1
-1 1
0 1
1 1
2 2
3 3
4 4
5 10
6 18
7 28
8 80
9 162
10 280
11 880
12 1944
13 3640
14 12320
15 29160
16 58240
17 209440
18 524880
19 1106560
20 4188800
21 11022480
22 24344320
23 96342400
24 264539520
25 608608000
26 2504902400
27 7142567040
28 17041024000
29 72642169600
30 214277011200
31 528271744000
32 2324549427200
33 7071141369600
34 17961239296000
35 81359229952000
36 254561089305600
37 664565853952000
38 3091650738176000
39 9927882482918400
40 26582634158080000
41 126757680265216000
42 416971064282572800
43 1143053268797440000
44 5577337931669504000
45 18763697892715776000
46 52580450364682240000
47 262134882788466688000
48 900657498850357248000
49 2576442067869429760000
50 13106744139423334400000