old_C_code/stage1/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("../tdata/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("../tdata/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 }