/*
 * PROJECT:     ReactOS API tests
 * LICENSE:     MIT (https://spdx.org/licenses/MIT)
 * PURPOSE:     Tests for round / roundf
 * COPYRIGHT:   Copyright 2021 Timo Kreuzer <timo.kreuzer@reactos.org>
 */

#if !defined(_CRTBLD) && !defined(_M_IX86)
#define _CRTBLD // we don't want inline roundf!
#endif
#include "math_helpers.h"

static TESTENTRY_DBL s_round_tests[] =
{
    /* Special values */
    { 0x0000000000000000 /*  0.000000000000000e+000 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0x0000000000000001 /*  0.000000000000000e+000 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0x000fffffffffffff /*  0.000000000000000e+000 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0x8000000000000000 /* -0.000000000000000e+000 */, 0x8000000000000000 /* -0.000000000000000e+000 */ },
    { 0x8000000000000001 /* -0.000000000000000e+000 */, 0x8000000000000000 /* -0.000000000000000e+000 */ },
    { 0x800fffffffffffff /* -0.000000000000000e+000 */, 0x8000000000000000 /* -0.000000000000000e+000 */ },
    { 0x7ff0000000000000 /*  1.#INF00000000000e+000 */, 0x7ff0000000000000 /*  1.#INF00000000000e+000 */ },
#ifdef _M_IX86
    { 0x7ff0000000000001 /*  1.#QNAN0000000000e+000 */, 0x7ff8000000000001 /*  1.#QNAN0000000000e+000 */ },
    { 0x7ff7ffffffffffff /*  1.#QNAN0000000000e+000 */, 0x7fffffffffffffff /*  1.#QNAN0000000000e+000 */ },
#else
    { 0x7ff0000000000001 /*  1.#QNAN0000000000e+000 */, 0x7ff0000000000001 /*  1.#SNAN0000000000e+000 */ },
    { 0x7ff7ffffffffffff /*  1.#QNAN0000000000e+000 */, 0x7ff7ffffffffffff /*  1.#SNAN0000000000e+000 */ },
#endif
    { 0x7ff8000000000000 /*  1.#QNAN0000000000e+000 */, 0x7ff8000000000000 /*  1.#QNAN0000000000e+000 */ },
    { 0x7ff8000000000001 /*  1.#QNAN0000000000e+000 */, 0x7ff8000000000001 /*  1.#QNAN0000000000e+000 */ },
    { 0x7fffffffffffffff /*  1.#QNAN0000000000e+000 */, 0x7fffffffffffffff /*  1.#QNAN0000000000e+000 */ },
    { 0xfff0000000000000 /* -1.#INF00000000000e+000 */, 0xfff0000000000000 /* -1.#INF00000000000e+000 */ },
#ifdef _M_IX86
    { 0xfff0000000000001 /* -1.#QNAN0000000000e+000 */, 0xfff8000000000001 /* -1.#QNAN0000000000e+000 */ },
    { 0xfff7ffffffffffff /* -1.#QNAN0000000000e+000 */, 0xffffffffffffffff /* -1.#QNAN0000000000e+000 */ },
#else
    { 0xfff0000000000001 /* -1.#QNAN0000000000e+000 */, 0xfff0000000000001 /* -1.#SNAN0000000000e+000 */ },
    { 0xfff7ffffffffffff /* -1.#QNAN0000000000e+000 */, 0xfff7ffffffffffff /* -1.#SNAN0000000000e+000 */ },
#endif
    { 0xfff8000000000000 /* -1.#IND00000000000e+000 */, 0xfff8000000000000 /* -1.#IND00000000000e+000 */ },
    { 0xfff8000000000001 /* -1.#QNAN0000000000e+000 */, 0xfff8000000000001 /* -1.#QNAN0000000000e+000 */ },
    { 0xffffffffffffffff /* -1.#QNAN0000000000e+000 */, 0xffffffffffffffff /* -1.#QNAN0000000000e+000 */ },

    /* Some random doubles */
    { 0x386580c747a3402b /*  5.055340589883462e-037 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0xb74298e6627fb9ed /* -1.667860443847725e-042 */, 0x8000000000000000 /* -0.000000000000000e+000 */ },
    { 0x0ef25f06e414aa2d /*  1.128498317470960e-236 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0x24002a37167638b5 /*  2.780001692929186e-135 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0x44258d1be62a0d22 /*  1.987747995999515e+020 */, 0x44258d1be62a0d22 /*  1.987747995999515e+020 */ },
    { 0x9ed4e46a65aad464 /* -3.715074250469020e-160 */, 0x8000000000000000 /* -0.000000000000000e+000 */ },
    { 0xc5afcd6f4ae4bf41 /* -4.921195330852160e+027 */, 0xc5afcd6f4ae4bf41 /* -4.921195330852160e+027 */ },
    { 0x330fac896cbb01d2 /*  9.624395081137827e-063 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
    { 0xc18026ab4c845405 /* -3.387120956461338e+007 */, 0xc18026ab50000000 /* -3.387121000000000e+007 */ },
    { 0x2f42a7dc898a741a /*  4.916804395045249e-081 */, 0x0000000000000000 /*  0.000000000000000e+000 */ },
};


void Test_round(void)
{
    int i;

    for (i = 0; i < _countof(s_round_tests); i++)
    {
        double x = u64_to_dbl(s_round_tests[i].x);
        double z = round(x);
        ok_eq_dbl_exact("round", s_round_tests[i].x, z, s_round_tests[i].result);
    }
}

static TESTENTRY_FLT s_roundf_tests[] =
{
    /* Special values */
    { 0x00000000 /*  0.000000 */, 0x00000000 /*  0.000000 */ },
    { 0x00000001 /*  0.000000 */, 0x00000000 /*  0.000000 */ },
    { 0x007FFFFF /*  0.000000 */, 0x00000000 /*  0.000000 */ },
    { 0x80000000 /* -0.000000 */, 0x80000000 /* -0.000000 */ },
    { 0x80000001 /* -0.000000 */, 0x80000000 /* -0.000000 */ },
    { 0x807FFFFF /* -0.000000 */, 0x80000000 /* -0.000000 */ },
    { 0x7f800000 /*  1.#INF00 */, 0x7f800000 /*  1.#INF00 */ },
#ifdef _M_IX86
    { 0x7f800001 /*  1.#SNAN0 */, 0x7fc00001 /*  1.#QNAN0 */ },
    { 0x7fBFffff /*  1.#SNAN0 */, 0x7fffffff /*  1.#QNAN0 */ },
#else
    { 0x7f800001 /*  1.#SNAN0 */, 0x7f800001 /*  1.#SNAN0 */ },
    { 0x7fBFffff /*  1.#SNAN0 */, 0x7fbfffff /*  1.#SNAN0 */ },
#endif
    { 0x7fC00000 /*  1.#QNAN0 */, 0x7fc00000 /*  1.#QNAN0 */ },
    { 0x7fC80001 /*  1.#QNAN0 */, 0x7fc80001 /*  1.#QNAN0 */ },
    { 0x7fFfffff /*  1.#QNAN0 */, 0x7fffffff /*  1.#QNAN0 */ },
    { 0xff800000 /* -1.#INF00 */, 0xff800000 /* -1.#INF00 */ },
#ifdef _M_IX86
    { 0xff800001 /* -1.#SNAN0 */, 0xffc00001 /* -1.#QNAN0 */ },
    { 0xffBfffff /* -1.#SNAN0 */, 0xffffffff /* -1.#QNAN0 */ },
#else
    { 0xff800001 /* -1.#SNAN0 */, 0xff800001 /* -1.#SNAN0 */ },
    { 0xffBfffff /* -1.#SNAN0 */, 0xffbfffff /* -1.#SNAN0 */ },
#endif
    { 0xffC00000 /* -1.#IND00 */, 0xffc00000 /* -1.#IND00 */ },
    { 0xfff80001 /* -1.#QNAN0 */, 0xfff80001 /* -1.#QNAN0 */ },
    { 0xffffffff /* -1.#QNAN0 */, 0xffffffff /* -1.#QNAN0 */ },

    /* Some random floats */
    { 0x386580c7 /*  5.471779e-005 */, 0x00000000 /*  0.000000e+000 */ },
    { 0x47a3402b /*  8.358434e+004 */, 0x47a34000 /*  8.358400e+004 */ },
    { 0xb74298e6 /* -1.159890e-005 */, 0x80000000 /* -0.000000e+000 */ },
    { 0x627fb9ed /*  1.179329e+021 */, 0x627fb9ed /*  1.179329e+021 */ },
    { 0x0ef25f06 /*  5.974911e-030 */, 0x00000000 /*  0.000000e+000 */ },
    { 0xe414aa2d /* -1.096952e+022 */, 0xe414aa2d /* -1.096952e+022 */ },
    { 0x24002a37 /*  2.779133e-017 */, 0x00000000 /*  0.000000e+000 */ },
    { 0x167638b5 /*  1.988962e-025 */, 0x00000000 /*  0.000000e+000 */ },
    { 0x44258d1b /*  6.622048e+002 */, 0x44258000 /*  6.620000e+002 */ },
    { 0xe62a0d22 /* -2.007611e+023 */, 0xe62a0d22 /* -2.007611e+023 */ },
};

void Test_roundf(void)
{
    int i;

    for (i = 0; i < _countof(s_roundf_tests); i++)
    {
        float x = u32_to_flt(s_roundf_tests[i].x);
        float z = roundf(x);
        ok_eq_flt_exact("roundf", s_roundf_tests[i].x, z, s_roundf_tests[i].result);
    }
}

START_TEST(round)
{
    Test_round();
    Test_roundf();
}