list_test.c

Branch :
Show log
Commit
Author : Thomas de Grivel
Date : 2022-12-06 13:37:43
Hash : f990b98e
Message : licence
test/list_test.c
/* c3
 * Copyright 2022 kmx.io <contact@kmx.io>
 *
 * Permission is hereby granted to use this software excepted
 * on Apple computers 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 <assert.h>
#include <stdlib.h>
#include <string.h>
#include "../libc3/list.h"
#include "../libc3/str.h"
#include "test.h"

#define LIST_TEST_1(test)                                              \
  do {                                                                 \
    s_list *list_test;                                                 \
    test_context("list_1(" # test ")");                                \
    TEST_ASSERT((list_test = list_1(test)));                           \
    list_delete(list_test);                                            \
    test_context(NULL);                                                \
  } while (0)

#define LIST_TEST_COMPARE(a, b, expected)                              \
  do {                                                                 \
    s_list *tmp_a = (a);                                               \
    s_list *tmp_b = (b);                                               \
    test_context("list_compare(" # a ", " # b ") -> " # expected);     \
    TEST_EQ(list_compare(tmp_a, tmp_b), (expected));                   \
    list_delete(tmp_a);                                                \
    list_delete(tmp_b);                                                \
  } while (0)

#define LIST_TEST_INSPECT(test, expected)                              \
  do {                                                                 \
    s_list *list_test;                                                 \
    s_str str_result;                                                  \
    test_context("list_inspect(" # test ") -> " # expected);           \
    list_test = list_1(test);                                          \
    TEST_EQ(list_inspect(list_test, &str_result), &str_result);        \
    TEST_STRNCMP(str_result.ptr.p, (expected), str_result.size);       \
    str_clean(&str_result);                                            \
    list_delete(list_test);                                            \
    test_context(NULL);                                                \
  } while (0)

void list_test ();
void list_test_1 ();
void list_test_compare ();
void list_test_inspect ();

void list_test ()
{
  list_test_1();
  list_test_inspect();
  list_test_compare();
}

void list_test_1 ()
{
  TEST_ASSERT(! list_1("[]"));
  LIST_TEST_1("[[] | []]");
  LIST_TEST_1("[[], [] | []]");
  LIST_TEST_1("[[], [], [] | []]");
  LIST_TEST_1("[A]");
  LIST_TEST_1("[A | B]");
  LIST_TEST_1("[A, B]");
  LIST_TEST_1("[A, B | C]");
  LIST_TEST_1("[A, B, C]");
  LIST_TEST_1("[A, B, C | D]");
}

void list_test_compare ()
{
  LIST_TEST_COMPARE(NULL, NULL, 0);
  LIST_TEST_COMPARE(list_1("[A, B]"), list_1("[A, C]"), -1);
  LIST_TEST_COMPARE(list_1("[A, C]"), list_1("[A, B]"), 1);
}

void list_test_inspect ()
{
  LIST_TEST_INSPECT("[]", "[]");
  LIST_TEST_INSPECT("[[] | []]", "[[]]");
  LIST_TEST_INSPECT("[[], [] | []]", "[[], []]");
}
kc3-lang/kc3/test/list_test.c

Commit

kc3-lang/kc3 /test/list_test.c
