Add test

tests/test-mjson.c

@@ -0,0 +1,155 @@
+#include "m-serial-json.h"
+#include "m-tuple.h"
+#include "m-array.h"
+#include "m-variant.h"
+#include "m-list.h"
+#include "m-dict.h"
+
+// Serial json is not supported for standard types if not C11
+#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 201112L  
+
+ARRAY_DEF(a2, int)
+#define M_OPL_a2_t() ARRAY_OPLIST(a2, M_DEFAULT_OPLIST)
+
+ARRAY_DEF(l2, int)
+#define M_OPL_l2_t() ARRAY_OPLIST(l2, M_DEFAULT_OPLIST)
+
+DICT_DEF2(d2, string_t, STRING_OPLIST, int, M_DEFAULT_OPLIST )
+#define M_OPL_d2_t() DICT_OPLIST(d2, STRING_OPLIST, M_DEFAULT_OPLIST)
+
+VARIANT_DEF2(v2,
+             (is_int, int),
+             (is_bool, bool) )
+#define M_OPL_v2_t() VARIANT_OPLIST(v2, M_DEFAULT_OPLIST, M_DEFAULT_OPLIST)
+            
+TUPLE_DEF2(my,
+           (vala, int),
+           (valb, float),
+           (valc, bool),
+           (vald, string_t),
+           (vale, a2_t),
+           (valf, v2_t),
+           (valg, l2_t),
+           (valh, d2_t)
+           )
+#define M_OPL_my_t() TUPLE_OPLIST(my, M_DEFAULT_OPLIST, M_DEFAULT_OPLIST, M_DEFAULT_OPLIST, STRING_OPLIST, M_OPL_a2_t(), M_OPL_v2_t(), M_OPL_l2_t(), M_OPL_d2_t() )
+
+TUPLE_DEF2(my2,
+           (activated, bool),
+           (data, my_t, M_OPL_my_t() ) )
+
+static void test_out_empty(void)
+{
+  m_serial_read_t  in;
+  m_serial_write_t out;
+  m_serial_return_code_t ret;
+  my2_t el1, el2;
+  my2_init(el1);
+  my2_init(el2);
+  
+  FILE *f = fopen ("a-mjson.dat", "wt");
+  if (!f) abort();
+  m_serial_json_write_init(out, f);
+  ret = my2_out_serial(out, el1);
+  assert (ret == M_SERIAL_OK_DONE);
+  m_serial_json_write_clear(out);
+  fclose(f);
+
+  f = fopen ("a-mjson.dat", "rt");
+  if (!f) abort();
+  static const char expected[] = "{ \"activated\":false,\"data\":{ \"vala\":0,\"valb\":0.000000,\"valc\":false,\"vald\":\"\",\"vale\":[],\"valf\":{},\"valg\":[],\"valh\":{}}";
+  char get[sizeof expected];
+  fgets (get, sizeof expected , f);
+  assert (strcmp(get, expected) == 0);
+  fclose(f);
+  
+  f = fopen ("a-mjson.dat", "rt");
+  if (!f) abort();
+  m_serial_json_read_init(in, f);
+  ret = my2_in_serial(el2, in);
+  assert (ret == M_SERIAL_OK_DONE);
+  m_serial_json_read_clear(in);
+  fclose(f);
+  
+  assert (my2_equal_p (el1, el2));
+
+  my2_clear(el1);
+  my2_clear(el2);
+}
+
+static void test_out_fill(void)
+{
+  m_serial_read_t  in;
+  m_serial_write_t out;
+  m_serial_return_code_t ret;
+  my2_t el1, el2;
+  my2_init(el1);
+  my2_init(el2);
+  
+  FILE *f = fopen("a-mjson.dat", "wt");
+  if (!f) abort();
+  fprintf(f,
+          "{\n"
+          " \"activated\":false,\n"
+          "\"data\":   {\n"
+          "       \"valb\":  -2.300000 , \n"
+          "\"vale\": [1,2,3],\n"
+          "\"valg\": [1,2,3,4,5,6],\n"
+          "\"valh\": { \"jane\": 3, \"steeve\": -4 },\n"
+          "\"valf\": { \"is_bool\": true },\n"
+          "              \"vala\":1742,\n"
+          " \"vald\": \"This is a test\",\n"
+          "    \"valc\": true   } }\n");
+  fclose(f);
+
+  f = fopen ("a-mjson.dat", "rt");
+  if (!f) abort();
+  m_serial_json_read_init(in, f);
+  ret = my2_in_serial(el2, in);
+  assert (ret == M_SERIAL_OK_DONE);
+  m_serial_json_read_clear(in);
+  fclose(f);
+  
+  f = fopen ("a-mjson.dat", "wt");
+  if (!f) abort();
+  m_serial_json_write_init(out, f);
+  ret = my2_out_serial(out, el2);
+  assert (ret == M_SERIAL_OK_DONE);
+  m_serial_json_write_clear(out);
+  fclose(f);
+
+  f = fopen ("a-mjson.dat", "rt");
+  if (!f) abort();
+  static const char expected[] = "{ \"activated\":false,\"data\":{ \"vala\":1742,\"valb\":-2.300000,\"valc\":true,\"vald\":\"This is a test\",\"vale\":[1,2,3],\"valf\":{\"is_bool\":true},\"valg\":[1,2,3,4,5,6],\"valh\":{\"steeve\":-4,\"jane\":3}}}";
+  char get[sizeof expected];
+  fgets (get, sizeof expected , f);
+  assert (strcmp(get, expected) == 0);
+  fclose(f);
+  
+  f = fopen ("a-mjson.dat", "rt");
+  if (!f) abort();
+  m_serial_json_read_init(in, f);
+  ret = my2_in_serial(el1, in);
+  assert (ret == M_SERIAL_OK_DONE);
+  m_serial_json_read_clear(in);
+  fclose(f);
+  
+  assert (my2_equal_p (el1, el2));
+
+  my2_clear(el1);
+  my2_clear(el2);
+}
+
+int main(void)
+{
+  test_out_empty();
+  test_out_fill();
+  exit(0);    
+}
+
+#else
+int main(void)
+{
+  exit(0);    
+}
+#endif