Piotr Caban : msvcp90: std::_Fabs(complex) tests.
Alexandre Julliard
julliard at winehq.org
Thu Jan 24 12:59:49 CST 2013
Module: wine
Branch: master
Commit: 2e4eb12219b3154ab3ca9a012090229cc500c88f
URL: http://source.winehq.org/git/wine.git/?a=commit;h=2e4eb12219b3154ab3ca9a012090229cc500c88f
Author: Piotr Caban <piotr at codeweavers.com>
Date: Thu Jan 24 12:28:08 2013 +0100
msvcp90: std::_Fabs(complex) tests.
---
dlls/msvcp90/tests/misc.c | 63 +++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 63 insertions(+), 0 deletions(-)
diff --git a/dlls/msvcp90/tests/misc.c b/dlls/msvcp90/tests/misc.c
index d0a41c5..b1e3c0b 100644
--- a/dlls/msvcp90/tests/misc.c
+++ b/dlls/msvcp90/tests/misc.c
@@ -111,6 +111,7 @@ static void (__thiscall *p_basic_ios_char_dtor)(/*basic_ios_char*/void*);
static complex_float* (__thiscall *p_complex_float_ctor)(complex_float*, const float*, const float*);
static complex_float* (__cdecl *p_complex_float_add)(complex_float*, const complex_float*, const complex_float*);
static complex_float* (__cdecl *p_complex_float_div)(complex_float*, const complex_float*, const complex_float*);
+static float (__cdecl *p_complex_float__Fabs)(const complex_float*, int*);
static int invalid_parameter = 0;
static void __cdecl test_invalid_parameter_handler(const wchar_t *expression,
@@ -249,6 +250,8 @@ static BOOL init(void)
"??$?HM at std@@YA?AV?$complex at M@0 at AEBV10@0 at Z");
SET(p_complex_float_div,
"??$?KM at std@@YA?AV?$complex at M@0 at AEBV10@0 at Z");
+ SET(p_complex_float__Fabs,
+ "??$_Fabs at M@std@@YAMAEBV?$complex at M@0 at PEAH@Z");
} else {
SET(p_char_assign, "?assign@?$char_traits at D@std@@SAXAADABD at Z");
SET(p_wchar_assign, "?assign@?$char_traits at _W@std@@SAXAA_WAB_W at Z");
@@ -293,6 +296,8 @@ static BOOL init(void)
"??$?HM at std@@YA?AV?$complex at M@0 at ABV10@0 at Z");
SET(p_complex_float_div,
"??$?KM at std@@YA?AV?$complex at M@0 at ABV10@0 at Z");
+ SET(p_complex_float__Fabs,
+ "??$_Fabs at M@std@@YAMABV?$complex at M@0 at PAH@Z");
}
init_thiscall_thunk();
@@ -587,6 +592,7 @@ static void test_complex(void)
{
complex_float c1, c2, c3;
float f1, f2;
+ int scale;
f1 = 1;
f2 = 2;
@@ -594,20 +600,36 @@ static void test_complex(void)
ok(c1.real == 1, "c1.real = %f\n", c1.real);
ok(c1.imag == 2, "c1.imag = %f\n", c1.imag);
+ f1 = p_complex_float__Fabs(&c1, &scale);
+ ok(almost_eq(f1, 0.559017), "abs(1+2i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
f1 = -1;
f2 = 1;
call_func3(p_complex_float_ctor, &c2, &f1, &f2);
ok(c2.real == -1, "c2.real = %f\n", c1.real);
ok(c2.imag == 1, "c2.imag = %f\n", c1.imag);
+ f1 = p_complex_float__Fabs(&c2, &scale);
+ ok(almost_eq(f1, 0.353553), "abs(1-1i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
p_complex_float_add(&c3, &c1, &c2);
ok(c3.real == 0, "c3.real = %f\n", c3.real);
ok(c3.imag == 3, "c3.imag = %f\n", c3.imag);
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 0.75), "abs(0+3i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
p_complex_float_add(&c2, &c1, &c3);
ok(c2.real == 1, "c2.real = %f\n", c1.real);
ok(c2.imag == 5, "c2.imag = %f\n", c1.imag);
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 0.75), "abs(1+5i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
/* (1+5i) / (0+3i) */
p_complex_float_div(&c1, &c2, &c3);
ok(almost_eq(c1.real, 1.666667), "c1.real = %f\n", c1.real);
@@ -620,12 +642,20 @@ static void test_complex(void)
ok(almost_eq(c1.real, 0.5), "c1.real = %f\n", c1.real);
ok(almost_eq(c1.imag, 2.5), "c1.imag = %f\n", c1.imag);
+ f1 = p_complex_float__Fabs(&c1, &scale);
+ ok(almost_eq(f1, 0.637377), "abs(0.5+2.5i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
/* (1+5i) / 0 */
c3.real = 0;
p_complex_float_div(&c1, &c2, &c3);
ok(_isnan(c1.real), "c1.real = %f\n", c1.real);
ok(_isnan(c1.imag), "c1.imag = %f\n", c1.imag);
+ f1 = p_complex_float__Fabs(&c1, &scale);
+ ok(_isnan(f1), "abs(NaN+NaNi) = %f\n", f1);
+ ok(scale == 0, "scale = %d\n", scale);
+
/* (1+5i) / (NaN-2i) */
c1.imag = -2;
p_complex_float_div(&c3, &c2, &c1);
@@ -642,6 +672,39 @@ static void test_complex(void)
p_complex_float_add(&c3, &c2, &c1);
ok(_isnan(c3.real), "c3.real = %f\n", c3.real);
ok(c3.imag == -2, "c3.imag = %f\n", c3.imag);
+
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(_isnan(f1), "abs(NaN-2i) = %f\n", f1);
+ ok(scale == 0, "scale = %d\n", scale);
+
+ c3.real = 1000;
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 250.000504), "abs(1000-2i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
+ c3.real = 0.1;
+ c3.imag = 0.1;
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 0.565685), "abs(0.1+0.1i) = %f\n", f1);
+ ok(scale == -2, "scale = %d\n", scale);
+
+ c3.real = 1;
+ c3.imag = 0;
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 0.25), "abs(1+0i) = %f\n", f1);
+ ok(scale == 2, "scale = %d\n", scale);
+
+ c3.real = 0.99;
+ c3.imag = 0;
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(almost_eq(f1, 3.96), "abs(0.99+0i) = %f\n", f1);
+ ok(scale == -2, "scale = %d\n", scale);
+
+ c3.real = 0;
+ c3.imag = 0;
+ f1 = p_complex_float__Fabs(&c3, &scale);
+ ok(f1 == 0, "abs(0+0i) = %f\n", f1);
+ ok(scale == 0, "scale = %d\n", scale);
}
START_TEST(misc)
More information about the wine-cvs
mailing list