major folder reorganisation, R pkg is now epclust/ at first level. Experimental usage...

[epclust.git] / old_C_code / stage1 / test / Util / t.utils.c

diff --git a/old_C_code/stage1/test/Util/t.utils.c b/old_C_code/stage1/test/Util/t.utils.c
new file mode 100644 (file)
index 0000000..1abed91
--- /dev/null
+++ b/old_C_code/stage1/test/Util/t.utils.c
@@ -0,0 +1,50 @@
+#include "lut.h"
+#include "Util/utils.h"
+#include <stdlib.h>
+#include <stdio.h>
+#include "Util/types.h"
+#include <math.h>
+
+//integers
+void t_utils1()
+{
+       FILE* file = fopen("../tdata/test/integers.txt", "rb");
+       int64_t x;
+       readInt(file, &x);
+       LUT_ASSERT(x == 1234);
+       readInt(file, &x);
+       LUT_ASSERT(x == -987);
+       readInt(file, &x);
+       LUT_ASSERT(x == 654321);
+       readInt(file, &x);
+       LUT_ASSERT(x == 12);
+       readInt(file, &x);
+       LUT_ASSERT(x == 345678);
+       readInt(file, &x);
+       LUT_ASSERT(x == -1234);
+       fclose(file);
+}
+
+//reals
+void t_utils2()
+{
+       FILE* file = fopen("../tdata/test/reals.txt", "rb");
+       Real x, tol = 1e-10;
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - 1234.056) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - 987e-3) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - -654321e-2) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - 12.34567) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - 345678.0) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - -1234.05) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - 3e-1) < tol);
+       readReal(file, &x);
+       LUT_ASSERT(fabs(x - -1.0188) < tol);
+       fclose(file);
+}