call_test.c

Branch :
Show log
Commit
Author : Thomas de Grivel
Date : 2022-12-06 13:37:43
Hash : f990b98e
Message : licence
test/call_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 <string.h>
#include "../libc3/call.h"
#include "../libc3/str.h"
#include "test.h"

#define CALL_TEST_INIT_1(test)                                         \
  do {                                                                 \
    s_call call = {0};                                                 \
    TEST_EQ(call_init_1(&call, (test)), &call);                        \
    call_clean(&call);                                                 \
    test_ok();                                                         \
  } while (0)

#define CALL_TEST_INSPECT(test)                                        \
  do {                                                                 \
    s_call call = {0};                                                 \
    s_str result = {0};                                                \
    call_init_1(&call, (test));                                        \
    TEST_EQ(call_inspect(&call, &result), &result);                    \
    TEST_EQ(result.size, strlen(test));                                \
    if (g_test_last_ok)	                                               \
      TEST_STRNCMP(result.ptr.p, (test), result.size);                 \
    call_clean(&call);						       \
    str_clean(&result);						       \
  } while (0)

void call_test ();
void call_test_init_1 ();
void call_test_inspect ();

void call_test ()
{
  call_test_init_1();
  call_test_inspect();
}

void call_test_init_1 ()
{
  CALL_TEST_INIT_1("a()");
  CALL_TEST_INIT_1("a(b)");
  CALL_TEST_INIT_1("a(b, c)");
  CALL_TEST_INIT_1("a(b, c, d)");
  CALL_TEST_INIT_1("A.b()");
  CALL_TEST_INIT_1("A.b(c)");
  CALL_TEST_INIT_1("A.b(c, d)");
  CALL_TEST_INIT_1("A.b(c, d, e)");
}

void call_test_inspect ()
{
  CALL_TEST_INSPECT("a()");
  CALL_TEST_INSPECT("a(b)");
  CALL_TEST_INSPECT("a(b, c)");
  CALL_TEST_INSPECT("a(b, c, d)");
  CALL_TEST_INSPECT("A.b()");
  CALL_TEST_INSPECT("A.b(c)");
  CALL_TEST_INSPECT("A.b(c, d)");
  CALL_TEST_INSPECT("A.b(c, d, e)");
}
kc3-lang/kc3/test/call_test.c

Commit

kc3-lang/kc3 /test/call_test.c
