/*      $OpenBSD: complex.c,v 1.2 2015/07/16 13:42:06 martynas Exp $    */

/*
 * Written by Martynas Venckus.  Public domain
 */

#include <assert.h>
#include <complex.h>
#include <math.h>

#define PREC    1000
#define test(f, r, i)   (                                       \
        floor((__real__ (f)) * PREC) == floor((r) * PREC) &&    \
        floor((__imag__ (f)) * PREC) == floor((i) * PREC)       \
)
#define testf(f, r, i)  (                                       \
        floorf((__real__ (f)) * PREC) == floorf((r) * PREC) &&  \
        floorf((__imag__ (f)) * PREC) == floorf((i) * PREC)     \
)
#define testl(f, r, i)  (                                       \
        floorl((__real__ (f)) * PREC) == floorl((r) * PREC) &&  \
        floorl((__imag__ (f)) * PREC) == floorl((i) * PREC)     \
)

int
main(int argc, char *argv[])
{
        double complex r, z4 = -1.1 - 1.1 * I;
        float complex rf, z4f = -1.1F - 1.1F * I;
        long double complex rl, z4l = -1.1L - 1.1L * I;

        r = cacosh(z4);
        assert(test(r, 1.150127, -2.256295));
        r = casinh(z4);
        assert(test(r, -1.150127, -0.685498));
        r = catanh(z4);
        assert(test(r, -0.381870, -1.071985));

        rf = cacoshf(z4f);
        assert(testf(rf, 1.150127F, -2.256295F));
        rf = casinhf(z4f);
        assert(testf(rf, -1.150127F, -0.685498F));
        rf = catanhf(z4f);
        assert(testf(rf, -0.381870F, -1.071985F));

        rl = cacoshl(z4l);
        assert(testl(rl, 1.150127L, -2.256295L));
        rl = casinhl(z4l);
        assert(testl(rl, -1.150127L, -0.685498L));
        rl = catanhl(z4l);
        assert(testl(rl, -0.381870L, -1.071985L));

        return (0);
}