shithub: femtolisp

ref: 4dc8cff4fd04e8536f5577522ecb95032064f295
dir: /3rd/mp/test/main.c/

View raw version
#include "platform.h"
#include "mp.h"
#include "dat.h"
#include "fns.h"
#include "ieee754.h"

double D_PNAN, D_NNAN, D_PINF, D_NINF;
float F_PNAN, F_NNAN, F_PINF, F_NINF;
int anyfail = 0;

void
prng(uint8_t *p, int n)
{
	while(n-- > 0)
		*p++ = rand();
}

int
main()
{
	D_PNAN = D_NNAN = strtod("+NaN", nil);
	D_PINF = D_NINF = strtod("+Inf", nil);

	union ieee754_double *d;
	d = (union ieee754_double *)&D_NNAN;
	d->ieee.negative = 1;
	d = (union ieee754_double *)&D_NINF;
	d->ieee.negative = 1;

	convtests();
	tests();
	return anyfail;
}