1 //===-- Unittests for modfl -----------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 
9 #include "src/math/modfl.h"
10 #include "utils/FPUtil/BasicOperations.h"
11 #include "utils/FPUtil/FPBits.h"
12 #include "utils/FPUtil/NearestIntegerOperations.h"
13 #include "utils/UnitTest/Test.h"
14 #include <math.h>
15 
16 using FPBits = __llvm_libc::fputil::FPBits<long double>;
17 
18 TEST(LlvmLibcmodflTest, SpecialNumbers) {
19   long double integral;
20 
21   EXPECT_TRUE(FPBits::zero() == __llvm_libc::modfl(FPBits::inf(), &integral));
22   EXPECT_TRUE(FPBits::inf() == integral);
23 
24   EXPECT_TRUE(FPBits::negZero() ==
25               __llvm_libc::modfl(FPBits::negInf(), &integral));
26   EXPECT_TRUE(FPBits::negInf() == integral);
27 
28   EXPECT_TRUE(FPBits::zero() == __llvm_libc::modfl(FPBits::zero(), &integral));
29   EXPECT_TRUE(integral == 0.0l);
30 
31   EXPECT_TRUE(FPBits::negZero() ==
32               __llvm_libc::modfl(FPBits::negZero(), &integral));
33   EXPECT_TRUE(integral == 0.0l);
34 
35   EXPECT_TRUE(
36       FPBits(__llvm_libc::modfl(FPBits::buildNaN(1), &integral)).isNaN());
37 }
38 
39 TEST(LlvmLibcmodflTest, Integers) {
40   long double integral;
41 
42   EXPECT_TRUE(FPBits::zero() == __llvm_libc::modfl(1.0l, &integral));
43   EXPECT_TRUE(integral == 1.0l);
44 
45   EXPECT_TRUE(FPBits::negZero() == __llvm_libc::modfl(-1.0l, &integral));
46   EXPECT_TRUE(integral == -1.0l);
47 
48   EXPECT_TRUE(FPBits::zero() == __llvm_libc::modfl(10.0l, &integral));
49   EXPECT_TRUE(integral == 10.0l);
50 
51   EXPECT_TRUE(FPBits::negZero() == __llvm_libc::modfl(-10.0l, &integral));
52   EXPECT_TRUE(integral == -10.0l);
53 
54   EXPECT_TRUE(FPBits::zero() == __llvm_libc::modfl(12345.0l, &integral));
55   EXPECT_TRUE(integral == 12345.0l);
56 
57   EXPECT_TRUE(FPBits::negZero() == __llvm_libc::modfl(-12345.0l, &integral));
58   EXPECT_TRUE(integral == -12345.0l);
59 }
60 
61 TEST(LlvmLibcModfTest, Fractions) {
62   long double integral;
63 
64   EXPECT_TRUE(0.5l == __llvm_libc::modfl(1.5l, &integral));
65   EXPECT_TRUE(integral == 1.0l);
66 
67   EXPECT_TRUE(-0.5l == __llvm_libc::modfl(-1.5l, &integral));
68   EXPECT_TRUE(integral == -1.0l);
69 
70   EXPECT_TRUE(0.75l == __llvm_libc::modfl(10.75l, &integral));
71   EXPECT_TRUE(integral == 10.0l);
72 
73   EXPECT_TRUE(-0.75l == __llvm_libc::modfl(-10.75l, &integral));
74   EXPECT_TRUE(integral == -10.0l);
75 
76   EXPECT_TRUE(0.125l == __llvm_libc::modfl(100.125l, &integral));
77   EXPECT_TRUE(integral == 100.0l);
78 
79   EXPECT_TRUE(-0.125l == __llvm_libc::modfl(-100.125l, &integral));
80   EXPECT_TRUE(integral == -100.0l);
81 }
82 
83 TEST(LlvmLibcModflTest, LongDoubleRange) {
84   using UIntType = FPBits::UIntType;
85   constexpr UIntType count = 10000000;
86   constexpr UIntType step = UIntType(-1) / count;
87   for (UIntType i = 0, v = 0; i <= count; ++i, v += step) {
88     long double x = FPBits(v);
89     if (isnan(x) || isinf(x) || x == 0.0l)
90       continue;
91 
92     long double integral;
93     long double frac = __llvm_libc::modfl(x, &integral);
94     ASSERT_TRUE(__llvm_libc::fputil::abs(frac) < 1.0l);
95     ASSERT_TRUE(__llvm_libc::fputil::trunc(x) == integral);
96     ASSERT_TRUE(integral + frac == x);
97   }
98 }
99