The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SISYPHUS / Math-Decimal64-0.08 / t / subnormal.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

              
##!perl  -l
use strict;
use warnings;
use Math::Decimal64 qw(:all);
print "1..11\n";
my $str = '5' x16; # 5555555555555555
my $str_copy = $str;
if(MEtoD64($str, -399) == MEtoD64( ('5' x 14) . 6, -398)) {print "ok 1\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -399), "\n Expected 555555555555556e-398\n";
  print "not ok 1\n";
}
substr($str, -2, 1, '4'); # 5555555555555545
if(MEtoD64($str, -399) == MEtoD64( ('5' x 14) . 4, -398)) {print "ok 2\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -399), "\n Expected 555555555555556e-398\n";
  print "not ok 2\n";
}
substr($str, -2, 2, '54'); # 5555555555555554
if(MEtoD64($str, -399) == MEtoD64( ('5' x 14) . 5, -398)) {print "ok 3\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -399), "\n Expected 555555555555555e-398\n";
  print "not ok 3\n";
}
$str = $str_copy;  # 5555555555555555
if(MEtoD64($str, -400) == MEtoD64( ('5' x 13) . 6, -398)) {print "ok 4\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -400), "\n Expected 55555555555556e-398\n";
  print "not ok 4\n";
}
substr($str, -3, 1, '4');  # 5555555555555455
if(MEtoD64($str, -400) == MEtoD64( ('5' x 13) . 5, -398)) {print "ok 5\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -400), "\n Expected 55555555555554e-398\n";
  print "not ok 5\n";
}
substr($str, -3, 2, '54');  # 5555555555555545
if(MEtoD64($str, -400) == MEtoD64( ('5' x 13) . 5, -398)) {print "ok 6\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -400), "\n Expected 55555555555555e-398\n";
  print "not ok 6\n";
}
$str = '55' . ('0' x 14);
if(MEtoD64($str, -413) == MEtoD64( '6', -398)) {print "ok 7\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -413), "\n Expected 6e-398\n";
  print "not ok 7\n";
}
$str = '45' . ('0' x 14);
if(MEtoD64($str, -413) == MEtoD64( '4', -398)) {print "ok 8\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -413), "\n Expected 4e-398\n";
  print "not ok 8\n";
}
$str = '55' . ('0' x 14);
if(MEtoD64($str, -414) == MEtoD64( '1', -398)) {print "ok 9\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -414), "\n Expected 1e-398\n";
  print "not ok 9\n";
}
$str = '49' . ('0' x 14);
if(MEtoD64($str, -414) == MEtoD64( '0', -398)) {print "ok 10\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -414), "\n Expected 0\n";
  print "not ok 10\n";
}
$str = '54' . ('9' x 14);
if(MEtoD64($str, -413) == MEtoD64( '5', -398)) {print "ok 11\n"}
else {
  warn "\n          $str\n Got      ", MEtoD64($str, -413), "\n Expected 6e-398\n";
  print "not ok 11\n";
}