From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SISYPHUS / Math-MPFR-4.38 / t / overload_float128.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
122
123
124

              
use strict;
use warnings;
use Config;
use Math::MPFR qw(:mpfr);
if(!Math::MPFR::_can_pass_float128()) {
  print "1..1\n";
  warn "\n Skipping all tests - can't pass __float128 type\n";
  print "ok 1\n";
  exit 0;
}
if($Config{nvtype} ne '__float128') {
  print "1..1\n";
  warn "\n What the ... ?? This shouldn't be possible\n";
  print "not ok 1\n";
  exit 0;
}
my $t = 1;
print "1..$t\n";
Rmpfr_set_default_prec(113);
my $ok = '';
my $rop = Math::MPFR->new(2.13);
if($rop == 2.13) {$ok .= 'a'}
else {warn "\n Expected:2.13 Got $rop\n"}
$rop = Math::MPFR->new(1.0);
$rop += 2.13;
if($rop == 3.13) {$ok .= 'b'}
else {warn "\n Expected:3.13 Got $rop\n"}
$rop -= 2.13;
if($rop == 1.0) {$ok .= 'c'}
else {warn "\n Expected:1.0 Got $rop\n"}
$rop *= 2.13;
if($rop == 2.13) {$ok .= 'd'}
else {warn "\n Expected:2.13 Got $rop\n"}
$rop /= 2.13;
if($rop == 1.0) {$ok .= 'e'}
else {warn "\n Expected:1.0 Got $rop\n"}
my $rop1 = $rop + 1.13;
if($rop1 == 2.13) {$ok .= 'f'}
else {warn "\n Expected:2.13 Got $rop1\n"}
$rop1 = $rop - 2.13;
if($rop1 == -1.13) {$ok .= 'g'}
else {warn "\n Expected:-0.13 Got $rop1\n"}
$rop1 = $rop * 2.13;
if($rop1 == 2.13) {$ok .= 'h'}
else {warn "\n Expected:2.13 Got $rop1\n"}
$rop += 1.13;
if($rop == 2.13) {$ok .= 'i'}
else {warn "\n Expected:2.13 Got $rop\n"}
$rop1 = $rop / 2.13;
if($rop1 == 1.0) {$ok .= 'j'}
else {warn "\n Expected:1.0 Got $rop1\n"}
$rop1 = 2.13 / $rop;
if($rop1 == 1.0) {$ok .= 'k'}
else {warn "\n Expected:1.0 Got $rop1\n"}
$rop1 = 3.13 - $rop;
if($rop1 == 1.0) {$ok .= 'l'}
else {warn "\n Expected:1.0 Got $rop1\n"}
if(!($rop <=> 2.13)) {$ok .= 'm'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop != 2.14) {$ok .= 'n'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop <= 2.14) {$ok .= 'o'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop <= 2.13) {$ok .= 'p'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop < 2.14) {$ok .= 'q'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop > 2.12) {$ok .= 'r'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop >= 2.12) {$ok .= 's'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop >= 2.13) {$ok .= 't'}
else {warn "\n Expected:2.13 Got $rop\n"}
if($rop ** 2.13 == 2.13 ** $rop) {$ok .= 'u'}
else {warn $rop ** 2.13, " != ", 2.13 ** $rop, "\n"}
$rop1 = $rop;
$rop1 **= 2.13;
if($rop1 == 2.13 ** $rop) {$ok .= 'v'}
else {warn $rop ** 2.13, " != ", 2.13 ** $rop, "\n"}
if($ok eq 'abcdefghijklmnopqrstuv') {print "ok 1\n"}
else {
  warn "\n\$ok: $ok\n";
  print "not ok 1\n";
}