kc3-lang/kc3/test/array_test.c

• Show log

  Commit

• Hash : 1792fa78
  Author : Thomas de Grivel
  Date : 2024-08-10T15:32:54
  

  fixed compilation of tests

Download

• test/array_test.c

• /* kc3
   * Copyright 2022,2023,2024 kmx.io <contact@kmx.io>
   *
   * Permission is hereby granted to use this software granted the above
   * copyright notice and this permission paragraph are included in all
   * copies and substantial portions of this software.
   *
   * THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
   * PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
   * AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
   * THIS SOFTWARE.
   */
  #include <string.h>
  #include "../libkc3/array.h"
  #include "../libkc3/str.h"
  #include "../libkc3/sym.h"
  #include "test.h"
  
  #define ARRAY_TEST_INIT_CLEAN(type, dimension, dimensions)             \
    do {                                                                 \
      s_array a;                                                         \
      TEST_EQ(array_init(&a, (type), (dimension), (dimensions)), &a);    \
      array_clean(&a);                                                   \
    } while(0)
  
  #define ARRAY_TEST_INIT_1_CLEAN(test)                                  \
    do {                                                                 \
      s_array a;                                                         \
      TEST_EQ(array_init_1(&a, (test)), &a);                             \
      array_clean(&a);                                                   \
    } while(0)
  
  void array_test (void);
  TEST_CASE_PROTOTYPE(array_data);
  TEST_CASE_PROTOTYPE(array_init_clean);
  TEST_CASE_PROTOTYPE(array_init_1_clean);
  
  void array_test (void)
  {
    TEST_CASE_RUN(array_init_clean);
    TEST_CASE_RUN(array_init_1_clean);
    TEST_CASE_RUN(array_data);
  }
  
  TEST_CASE(array_data)
  {
    s_array a;
    TEST_EQ(array_init_1(&a, "(U8[]) {1, 2, 3}"), &a);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {0}), 1);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {1}), 2);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {2}), 3);
    array_clean(&a);
    TEST_EQ(array_init_1(&a, "(U8[]) {1 + 1, 2 + 2, 3 + 3}"), &a);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {0}), 2);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {1}), 4);
    TEST_EQ(* (u8 *) array_data(&a, (uw []) {2}), 6);
    array_clean(&a);
  }
  TEST_CASE_END(array_data)
  
  TEST_CASE(array_init_clean)
  {
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 1, (uw []) {1});
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 1, (uw []) {10});
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 1, (uw []) {100});
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 2, ((uw []) {1, 1}));
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 2, ((uw []) {10, 10}));
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 2, ((uw []) {100, 100}));
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 3, ((uw []) {1, 1, 1}));
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 3, ((uw []) {10, 10, 10}));
    ARRAY_TEST_INIT_CLEAN(sym_1("U8[]"), 3, ((uw []) {100, 100, 100}));
  }
  TEST_CASE_END(array_init_clean)
  
  TEST_CASE(array_init_1_clean)
  {
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {0}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {0, 0}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {0, 0, 0}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {{0}, {0}}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {{0, 0}, {0, 0}}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {{0, 0}, {0, 0}, {0, 0}}");
    ARRAY_TEST_INIT_1_CLEAN("(U8[]) {{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}");
  }
  TEST_CASE_END(array_init_1_clean)
  

Download