mirror of
https://github.com/reactos/reactos.git
synced 2025-08-10 18:35:54 +00:00
[MSVCRT_APITEST]
Add test suite for IEEE floatting-point functions. It's been tested on w2k3 and it has 0 failed tests. Some are failing on ReactOS. svn path=/trunk/; revision=54425
This commit is contained in:
Pierre Schweitzer
parent
f09717ab8d
commit
73d88a5f6f
4 changed files with 201 additions and 0 deletions
|
|
@ -2,6 +2,7 @@
|
||||||
add_definitions(-D_DLL -D__USE_CRTIMP)
|
add_definitions(-D_DLL -D__USE_CRTIMP)
|
||||||
|
|
||||||
list(APPEND SOURCE
|
list(APPEND SOURCE
|
||||||
|
ieee.c
|
||||||
splitpath.c
|
splitpath.c
|
||||||
testlist.c)
|
testlist.c)
|
||||||
|
|
||||||
|
|
|
||||||
197
rostests/apitests/msvcrt/ieee.c
Normal file
197
rostests/apitests/msvcrt/ieee.c
Normal file
|
|
@ -0,0 +1,197 @@
|
||||||
|
/*
|
||||||
|
* PROJECT: ReactOS api tests
|
||||||
|
* LICENSE: GPL - See COPYING in the top level directory
|
||||||
|
* PURPOSE: Tests for IEEE floatting-point functions
|
||||||
|
* PROGRAMMER: Pierre Schweitzer (pierre@reactos.org)
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <wine/test.h>
|
||||||
|
#include <float.h>
|
||||||
|
|
||||||
|
typedef union
|
||||||
|
{
|
||||||
|
double d;
|
||||||
|
long long l;
|
||||||
|
} ieee_double;
|
||||||
|
|
||||||
|
void test_finite(void)
|
||||||
|
{
|
||||||
|
ieee_double tested;
|
||||||
|
|
||||||
|
tested.l = 0xFFFFFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0xFFF8000000000001LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0xFFF7FFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0xFFF0000000000001LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0xFFF0000000000000LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0xFFEFFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x8010000000000000LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x800FFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x8000000000000001LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x8000000000000000LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x0000000000000000LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x0000000000000001LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x000FFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x0010000000000000LL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x7FEFFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == TRUE, "_finite = FALSE\n");
|
||||||
|
tested.l = 0x7FF0000000000000LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0x7FF0000000000001LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0x7FF7FFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0x7FF8000000000000LL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
tested.l = 0x7FFFFFFFFFFFFFFFLL;
|
||||||
|
ok(_finite(tested.d) == FALSE, "_finite = TRUE\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
void test_fpclass(void)
|
||||||
|
{
|
||||||
|
int class;
|
||||||
|
ieee_double tested;
|
||||||
|
|
||||||
|
tested.l = 0xFFFFFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0xFFF8000000000001LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0xFFF7FFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
/* According to IEEE, it should be Signaling NaN, but
|
||||||
|
* on w2k3, it's Quiet NAN
|
||||||
|
* ok(class == _FPCLASS_SNAN, "class = %d\n", class);
|
||||||
|
*/
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0xFFF0000000000001LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
/* According to IEEE, it should be Signaling NaN, but
|
||||||
|
* on w2k3, it's Quiet NAN
|
||||||
|
* ok(class == _FPCLASS_SNAN, "class = %d\n", class);
|
||||||
|
*/
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0xFFF0000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_NINF, "class = %d\n", class);
|
||||||
|
tested.l = 0xFFEFFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_NN, "class = %d\n", class);
|
||||||
|
tested.l = 0x8010000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_NN, "class = %d\n", class);
|
||||||
|
tested.l = 0x800FFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_ND, "class = %d\n", class);
|
||||||
|
tested.l = 0x8000000000000001LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_ND, "class = %d\n", class);
|
||||||
|
tested.l = 0x8000000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_NZ, "class = %d\n", class);
|
||||||
|
tested.l = 0x0000000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PZ, "class = %d\n", class);
|
||||||
|
tested.l = 0x0000000000000001LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PD, "class = %d\n", class);
|
||||||
|
tested.l = 0x000FFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PD, "class = %d\n", class);
|
||||||
|
tested.l = 0x0010000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PN, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FEFFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PN, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FF0000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_PINF, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FF0000000000001LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
/* According to IEEE, it should be Signaling NaN, but
|
||||||
|
* on w2k3, it's Quiet NAN
|
||||||
|
* ok(class == _FPCLASS_SNAN, "class = %d\n", class);
|
||||||
|
*/
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FF7FFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
/* According to IEEE, it should be Signaling NaN, but
|
||||||
|
* on w2k3, it's Quiet NAN
|
||||||
|
* ok(class == _FPCLASS_SNAN, "class = %d\n", class);
|
||||||
|
*/
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FF8000000000000LL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
tested.l = 0x7FFFFFFFFFFFFFFFLL;
|
||||||
|
class = _fpclass(tested.d);
|
||||||
|
ok(class == _FPCLASS_QNAN, "class = %d\n", class);
|
||||||
|
}
|
||||||
|
|
||||||
|
void test_isnan(void)
|
||||||
|
{
|
||||||
|
ieee_double tested;
|
||||||
|
|
||||||
|
tested.l = 0xFFFFFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0xFFF8000000000001LL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0xFFF7FFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0xFFF0000000000001LL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0xFFF0000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0xFFEFFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x8010000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x800FFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x8000000000000001LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x8000000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x0000000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x0000000000000001LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x000FFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x0010000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x7FEFFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x7FF0000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == FALSE, "_isnan = TRUE\n");
|
||||||
|
tested.l = 0x7FF0000000000001LL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0x7FF7FFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0x7FF8000000000000LL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
tested.l = 0x7FFFFFFFFFFFFFFFLL;
|
||||||
|
ok(_isnan(tested.d) == TRUE, "_isnan = FALSE\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
START_TEST(ieee)
|
||||||
|
{
|
||||||
|
test_finite();
|
||||||
|
test_fpclass();
|
||||||
|
test_isnan();
|
||||||
|
}
|
||||||
|
|
@ -7,6 +7,7 @@
|
||||||
<library>pseh</library>
|
<library>pseh</library>
|
||||||
<file>testlist.c</file>
|
<file>testlist.c</file>
|
||||||
|
|
||||||
|
<file>ieee.c</file>
|
||||||
<file>splitpath.c</file>
|
<file>splitpath.c</file>
|
||||||
|
|
||||||
</module>
|
</module>
|
||||||
|
|
|
||||||
|
|
@ -5,10 +5,12 @@
|
||||||
#define STANDALONE
|
#define STANDALONE
|
||||||
#include "wine/test.h"
|
#include "wine/test.h"
|
||||||
|
|
||||||
|
extern void func_ieee(void);
|
||||||
extern void func_splitpath(void);
|
extern void func_splitpath(void);
|
||||||
|
|
||||||
const struct test winetest_testlist[] =
|
const struct test winetest_testlist[] =
|
||||||
{
|
{
|
||||||
|
{ "ieee", func_ieee },
|
||||||
{ "splitpath", func_splitpath },
|
{ "splitpath", func_splitpath },
|
||||||
|
|
||||||
{ 0, 0 }
|
{ 0, 0 }
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue