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
|
# Based on a demo script provided provided by Trizen.
# See https://github.com/sisyphus/math-gmpz/issues/5
use Math::MPFR;
use Test::More;
BEGIN {
if($] < 5.014) {
warn "Skipping all tests - version 5.14.0 or later required\n";
is(1, 1,);
done_testing();
exit 0;
}
};
package Number {
sub new {
my ($class, $n) = @_;
bless \$n, $class;
}
sub add {
my ($self, $n) = @_;
Number->new($$self + $$n);
}
my $srand = 1352406084;
my $state = Math::MPFR::Rmpfr_randinit_mt();
Math::MPFR::Rmpfr_randseed_ui($state, $srand);
sub irand2 { # Rmpfr_urandomb
my ($self) = @_;
my $x = Math::MPFR->new($$self);
Math::MPFR::Rmpfr_urandomb($x, $state);
return Number->new($x);
}
}
my $x = Number->new(420);
my $second;
$second = ${$x->add($x->irand2)};
cmp_ok($$x, '==', 420, 'TEST 1: Rmpfr_urandomb ok');
cmp_ok($second, '>=', 420, 'TEST 2: Rmpfr_urandomb ok');
cmp_ok($second, '<', 421, 'TEST 3: Rmpfr_urandomb ok');
done_testing();
|
