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
|
use warnings;
use strict;
use Math::MPFR qw(:mpfr);
print"1..2\n";
print "# Using Math::MPFR version ", $Math::MPFR::VERSION, "\n";
print "# Using mpfr library version ", MPFR_VERSION_STRING, "\n";
print "# Using gmp library version ", Math::MPFR::gmp_v(), "\n";
my ($sum, @obj);
my $rop = Math::MPFR->new();
for(my $i = int(rand(201)); $i < 10000; $i++) {
push @obj, Math::MPFR->new($i);
$sum += $i;
}
my $ret = Rmpfr_sum($rop, \@obj, scalar(@obj), GMP_RNDN);
if($sum == $rop) {print "ok 1\n"}
else {
warn "\n Got $rop\n Expected $sum\n";
print "not ok 1\n";
}
Rmpfr_add_si($rop, $rop, -1, GMP_RNDN);
if($rop == $sum - 1) {print "ok 2\n"}
else {
warn "\n Got $rop\n Expected ", $sum - 1, "\n";
print "not ok 2\n";
}
|
