kc3-lang/kc3/test/pcall_test.c

Branch - branch -masterpdfpdf-rebasedtlstls-rebasedcallablecallable-rebaseconfigurefastfast2fnfractionsfractions-rebaseframeherunstoofastforushttpdjeremy_rebasedlinuxmarshallmarshall_before_mergemarshall_rebasepointerratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.15v0.1.14v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.2.0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : a9077c87
  Author : Thomas de Grivel
  Date : 2025-09-04T01:19:32
  

  wip memory corruption or bug in facts_remove_fact
  

Download

• test/pcall_test.c

• /* kc3
   * Copyright from 2022 to 2025 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/pcall.h"
  #include "../libkc3/str.h"
  #include "test.h"
  
  #define PCALL_TEST_INIT_1(test)                                        \
    do {                                                                 \
      p_call pcall;                                                      \
      TEST_EQ(pcall_init_1(&pcall, (test)), &pcall);                     \
      pcall_clean(&pcall);                                               \
      test_ok();                                                         \
    } while (0)
  
  void pcall_test (void);
  TEST_CASE_PROTOTYPE(pcall_init_1);
  
  void pcall_test (void)
  {
    TEST_CASE_RUN(pcall_init_1);
  }
  
  TEST_CASE(pcall_init_1)
  {
    PCALL_TEST_INIT_1("a()");
    PCALL_TEST_INIT_1("a(b)");
    PCALL_TEST_INIT_1("a(b, c)");
    PCALL_TEST_INIT_1("a(b, c, d)");
    PCALL_TEST_INIT_1("A.b()");
    PCALL_TEST_INIT_1("A.b(c)");
    PCALL_TEST_INIT_1("A.b(c, d)");
    PCALL_TEST_INIT_1("A.b(c, d, e)");
  }
  TEST_CASE_END(pcall_init_1)
  

Download