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
|
--TEST--
Decimal::rem
--SKIPIF--
<?php
if (!extension_loaded("decimal")) echo "skip";
?>
--FILE--
<?php
use Decimal\Decimal;
/**
* Shortcut to construct a new decimal.
*/
function decimal(...$args) { return new Decimal(...$args); }
/**
* OP1, OP2, Expected Result, Expected Precision
*/
$tests = [
[decimal("0"), "1", 0 % 1, 28],
[decimal("0"), "-1", 0 % -1, 28],
[decimal( "1"), "3", 1 % 3, 28],
[decimal( "1"), "-3", 1 % -3, 28],
[decimal("-1"), "-3", -1 % -3, 28],
[decimal("-1"), "-3", -1 % -3, 28],
[decimal( "7"), "4", 7 % 4, 28],
[decimal( "7"), "-4", 7 % -4, 28],
[decimal("-7"), "4", -7 % 4, 28],
[decimal("-7"), "-4", -7 % -4, 28],
/* rem is NOT an integer operation*/
[decimal("5.678"), "1.234", "0.742", 28],
[decimal("5.678"), "2.234", "1.210", 28],
[decimal("5.678"), "3.234", "2.444", 28],
[decimal("5"), "1.5", "0.5", 28],
[decimal("5"), "2.5", "0.0", 28],
[decimal("5"), "3.5", "1.5", 28],
[
decimal("5.678", 5),
decimal("3.234", 5),
"2.444", 5
],
[decimal( "NAN"), "NAN", "NAN", 28],
[decimal( "NAN"), "INF", "NAN", 28],
[decimal( "NAN"), "-INF", "NAN", 28],
[decimal( "INF"), "NAN", "NAN", 28],
[decimal( "INF"), "INF", "NAN", 28], // <-- No exception, technically invalid.
[decimal( "INF"), "-INF", "NAN", 28], // <-- No exception, technically invalid.
[decimal("-INF"), "NAN", "NAN", 28],
[decimal("-INF"), "INF", "NAN", 28], // <-- No exception, technically invalid.
[decimal("-INF"), "-INF", "NAN", 28], // <-- No exception, technically invalid.
[decimal( "NAN"), 1, "NAN", 28],
[decimal( "INF"), 1, "NAN", 28], // <-- No exception, technically invalid.
[decimal("-INF"), 1, "NAN", 28], // <-- No exception, technically invalid.
];
foreach ($tests as $index => $test) {
list($op1, $op2, $expect, $precision) = $test;
$result = $op1->rem($op2);
if ([(string) $result, $result->precision()] !== [(string) $expect, $precision]) {
print_r(compact("index", "op1", "op2", "result", "expect", "precision"));
}
}
/* Test that op does not modify the original */
$number = decimal("2");
$number->rem(5);
if ((string) $number !== "2") {
var_dump("Mutated!", compact("number"));
}
/* Check division by zero */
try {
decimal()->rem(0);
} catch (DivisionByZeroError $e) {
printf("A %s\n", $e->getMessage());
}
try {
decimal(1)->rem(0);
} catch (DivisionByZeroError $e) {
printf("B %s\n", $e->getMessage());
}
try {
decimal(NAN)->rem(0);
} catch (DivisionByZeroError $e) {
printf("C %s\n", $e->getMessage());
}
try {
decimal(INF)->rem(0);
} catch (DivisionByZeroError $e) {
printf("D %s\n", $e->getMessage());
}
try {
decimal(-INF)->rem(0);
} catch (DivisionByZeroError $e) {
printf("E %s\n", $e->getMessage());
}
?>
--EXPECT--
A Division by zero
B Division by zero
C Division by zero
D Division by zero
E Division by zero
|
