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
|
use warnings;
use strict;
print "1..1\n";
eval {use Math::MPFR::V;};
if($@) {
warn "\$\@: $@";
print "not ok 1\n";
}
else {
warn "\nGMP Header version (major): ", Math::MPFR::V::___GNU_MP_VERSION(), "\n";
warn "GMP Header version (minor): ", Math::MPFR::V::___GNU_MP_VERSION_MINOR(), "\n";
warn "GMP Header version (patchlevel): ", Math::MPFR::V::___GNU_MP_VERSION_PATCHLEVEL(), "\n";
warn "GMP Library version: ", Math::MPFR::V::gmp_v(), "\n";
warn "GMP CC: ", Math::MPFR::V::___GMP_CC(), "\n";
warn "GMP CFLAGS: ", Math::MPFR::V::___GMP_CFLAGS(), "\n";
warn "MPFR Header version (major): ", Math::MPFR::V::_MPFR_VERSION_MAJOR(), "\n";
warn "MPFR Header version (minor): ", Math::MPFR::V::_MPFR_VERSION_MINOR(), "\n";
warn "MPFR Header version (patchlevel): ", Math::MPFR::V::_MPFR_VERSION_PATCHLEVEL(), "\n";
warn "MPFR Library version: ", Math::MPFR::V::Rmpfr_get_version(), "\n";
print "ok 1\n";
}
my($h_major, $h_minor) = (Math::MPFR::V::_MPFR_VERSION_MAJOR(), Math::MPFR::V::_MPFR_VERSION_MINOR());
if(($h_major < 2) ||
($h_major == 2 && $h_minor < 4)) {
warn "\n\n Your MPFR Header version is outdated and unsupported.\n",
" REMAINING TEST SUITE WILL POSSIBLY FAIL !!!!\n";
}
my @lv = split /\./, Math::MPFR::V::Rmpfr_get_version();
#warn "$lv[0] $lv[1]\n";
if(($lv[0] < 2) ||
($lv[0] == 2 && $lv[1] < 4)) {
warn "\n\n Your MPFR Library version is outdated and unsupported.\n",
" REMAINING TEST SUITE SHOULD INEVITABLY FAIL !!!!\n";
}
|
