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
|
#!/bin/sh
# -*- mode: cperl; coding: utf-8-unix; -*-
eval 'exec ${PERL-perl} -Sx "$0" ${1+"$@"}'
if 0;
#!perl
#line 9
use strict;
use warnings;
use Algorithm::Combinatorics 'permutations';
my $data = [
['bigint', 'Math::BigInt' ],
['bignum', 'Math::BigFloat'],
['bigrat', 'Math::BigRat' ],
];
print <<"EOF";
#!perl
use strict;
use warnings;
use Test::More tests => 96;
EOF
my $iter = permutations([0, 1, 2]);
while (my $idxs = $iter -> next()) {
my $p0 = $data -> [ $idxs -> [0] ][0];
my $c0 = $data -> [ $idxs -> [0] ][1];
my $p1 = $data -> [ $idxs -> [1] ][0];
my $c1 = $data -> [ $idxs -> [1] ][1];
my $p2 = $data -> [ $idxs -> [2] ][0];
my $c2 = $data -> [ $idxs -> [2] ][1];
print <<"EOF";
note "\\n$p0 -> $p1 -> $p2\\n\\n";
{
note "use $p0;";
use $p0;
is(ref(hex("1")), "$c0", 'ref(hex("1"))');
is(ref(oct("1")), "$c0", 'ref(oct("1"))');
{
note "use $p1;";
use $p1;
is(ref(hex("1")), "$c1", 'ref(hex("1"))');
is(ref(oct("1")), "$c1", 'ref(oct("1"))');
{
note "use $p2;";
use $p2;
is(ref(hex("1")), "$c2", 'ref(hex("1"))');
is(ref(oct("1")), "$c2", 'ref(oct("1"))');
note "no $p2;";
no $p2;
is(ref(hex("1")), "", 'ref(hex("1"))');
is(ref(oct("1")), "", 'ref(oct("1"))');
}
is(ref(hex("1")), "$c1", 'ref(hex("1"))');
is(ref(oct("1")), "$c1", 'ref(oct("1"))');
note "no $p1;";
no $p1;
is(ref(hex("1")), "", 'ref(hex("1"))');
is(ref(oct("1")), "", 'ref(oct("1"))');
}
is(ref(hex("1")), "$c0", 'ref(hex("1"))');
is(ref(oct("1")), "$c0", 'ref(oct("1"))');
note "no $p0;";
no $p0;
is(ref(hex("1")), "", 'ref(hex("1"))');
is(ref(oct("1")), "", 'ref(oct("1"))');
}
EOF
}
|
