fix accent (TODO: fix gitweb...)
[ppam-mpi.git] / code / test / Util / t.utils.c
CommitLineData
81923e5c
BA
1#include "lut.h"
2#include "Util/utils.h"
3#include <stdlib.h>
4#include <stdio.h>
5#include "Util/types.h"
6#include <math.h>
7
8//integers
9void t_utils1()
10{
11 FILE* file = fopen("../data/test/integers.txt", "rb");
12 int64_t x;
13 readInt(file, &x);
14 LUT_ASSERT(x == 1234);
15 readInt(file, &x);
16 LUT_ASSERT(x == -987);
17 readInt(file, &x);
18 LUT_ASSERT(x == 654321);
19 readInt(file, &x);
20 LUT_ASSERT(x == 12);
21 readInt(file, &x);
22 LUT_ASSERT(x == 345678);
23 readInt(file, &x);
24 LUT_ASSERT(x == -1234);
25 fclose(file);
26}
27
28//reals
29void t_utils2()
30{
31 FILE* file = fopen("../data/test/reals.txt", "rb");
32 Real x, tol = 1e-10;
33 readReal(file, &x);
34 LUT_ASSERT(fabs(x - 1234.056) < tol);
35 readReal(file, &x);
36 LUT_ASSERT(fabs(x - 987e-3) < tol);
37 readReal(file, &x);
38 LUT_ASSERT(fabs(x - -654321e-2) < tol);
39 readReal(file, &x);
40 LUT_ASSERT(fabs(x - 12.34567) < tol);
41 readReal(file, &x);
42 LUT_ASSERT(fabs(x - 345678.0) < tol);
43 readReal(file, &x);
44 LUT_ASSERT(fabs(x - -1234.05) < tol);
45 readReal(file, &x);
46 LUT_ASSERT(fabs(x - 3e-1) < tol);
47 readReal(file, &x);
48 LUT_ASSERT(fabs(x - -1.0188) < tol);
49 fclose(file);
50}