#include <stdio.h>
#include <math.h>
#include "test.h"

static struct {
	double x;
	double yf;
	double yi;
} t[] = {
	0.7, 0x1.6666666666666p-1, 0.0,
	-0.7, -0x1.6666666666666p-1, -0.0,
	1.7, 0x1.6666666666666p-1, 1.0,
	-1.7, -0x1.6666666666666p-1, -1.0,
	2.0, 0.0, 2.0,
	-2.0, -0.0, -2.0,
	-0x1p99, -0.0, -0x1p99,
	-0.0, -0.0, -0.0,
	INFINITY, 0.0, INFINITY,
	-INFINITY, -0.0, -INFINITY,
	NAN, NAN, NAN,
};

static struct {
	float x;
	float yf;
	float yi;
} tf[] = {
	0.7, 0x1.666666p-1, 0.0,
	-0.7, -0x1.666666p-1, -0.0,
	1.7, 0x1.666668p-1, 1.0,
	-1.7, -0x1.666668p-1, -1.0,
	2.0, 0.0, 2.0,
	-2.0, -0.0, -2.0,
	-0x1p99, -0.0, -0x1p99,
	-0.0, -0.0, -0.0,
	INFINITY, 0.0, INFINITY,
	-INFINITY, -0.0, -INFINITY,
	NAN, NAN, NAN,
};

static struct {
	long double x;
	long double yf;
	long double yi;
} tl[] = {
	0.7L, 0x1.6666666666666666p-1L, 0.0,
	-0.7L, -0x1.6666666666666666p-1L, -0.0,
	1.7L, 0x1.6666666666666668p-1L, 1.0,
	-1.7L, -0x1.6666666666666668p-1L, -1.0,
	2.0, 0, 2.0,
	-2.0, -0.0, -2.0,
	-0x1p99, -0.0, -0x1p99,
	-0.0, -0.0, -0.0,
	INFINITY, 0.0, INFINITY,
	-INFINITY, -0.0, -INFINITY,
	NAN, NAN, NAN,
};

#define eq(a, b) (isnan(a) && isnan(b) || ((a) == (b) && signbit(a) == signbit(b)))

void test_modf()
{
	double yf, yi;
	int i;
	for (i = 0; i < sizeof t/sizeof *t; i++) {
		yf = modf(t[i].x, &yi);
		if (!eq(yf,t[i].yf) || !eq(yi,t[i].yi))
			error("modf(%a) want %a %a got %a %a\n", t[i].x, t[i].yf, t[i].yi, yf, yi);
	}
}
void test_modff()
{
	float yf, yi;
	int i;
	for (i = 0; i < sizeof tf/sizeof *tf; i++) {
		yf = modff(tf[i].x, &yi);
		if (!eq(yf,tf[i].yf) || !eq(yi,tf[i].yi))
			error("modff(%a) want %a %a got %a %a\n", tf[i].x, tf[i].yf, tf[i].yi, yf, yi);
	}
}
void test_modfl()
{
	long double yf, yi;
	int i;
	for (i = 0; i < sizeof tl/sizeof *tl; i++) {
		yf = modfl(tl[i].x, &yi);
		if (!eq(yf,tl[i].yf) || !eq(yi,tl[i].yi))
			error("modfl(%La) want %La %La got %La %La\n", tl[i].x, tl[i].yf, tl[i].yi, yf, yi);
	}
}