1 files changed, 37 insertions, 0 deletions
diff --git a/lib/mlibc/tests/ansi/creal-cimag.c b/lib/mlibc/tests/ansi/creal-cimag.c
new file mode 100644
index 0000000..fc70aa3
--- /dev/null
+++ b/lib/mlibc/tests/ansi/creal-cimag.c
@@ -0,0 +1,37 @@
+#include <assert.h>
+#include <math.h>
+#include <complex.h>
+
+// FIXME: We should create a proper floating point facility
+//        in order for other functions to be tested properly
+
+#define APPROXIMATELY_EQUAL(calculated, expected) fabs((calculated) - (expected)) <= 0.0000005
+#define APPROXIMATELY_EQUALF(calculated, expected) fabsf((calculated) - (expected)) <= 0.0000005f
+#define APPROXIMATELY_EQUALL(calculated, expected) fabsl((calculated) - (expected)) <= 0.0000005L
+
+#define IS_COMPLEX_NUMBER(Z)    \
+    _Generic((Z),               \
+        double complex: 1,      \
+        float complex: 1,       \
+        long double complex: 1, \
+        default: 0              \
+    )
+
+int main() {
+    assert(IS_COMPLEX_NUMBER(CMPLX(5.2, 4.3)));
+    double complex cz = CMPLX(5.2, 4.3);
+    assert(APPROXIMATELY_EQUAL(creal(cz), 5.2));
+    assert(APPROXIMATELY_EQUAL(cimag(cz), 4.3));
+
+    assert(IS_COMPLEX_NUMBER(CMPLXF(1.2f, 2.5f)));
+    float complex czf = CMPLXF(1.2f, 2.5f);
+    assert(APPROXIMATELY_EQUALF(crealf(czf), 1.2f));
+    assert(APPROXIMATELY_EQUALF(cimagf(czf), 2.5f));
+
+    assert(IS_COMPLEX_NUMBER(CMPLXL(0.1L, 123.54L)));
+    long double complex czl = CMPLXL(0.1L, 123.54L);
+    assert(APPROXIMATELY_EQUALL(creall(czl), 0.1L));
+    assert(APPROXIMATELY_EQUALL(cimagl(czl), 123.54L));
+
+    return 0;
+}
+\ No newline at end of file