254ef004389bab9cb352d2f8fcbd4fb3b51a646f
[ppam-mpi.git] / code / test / Util / t.utils.c
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
9 void 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
29 void 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 }