marshall_read_test.c

Branch :
Show log
Commit
Author : lyzer-px
Date : 2025-07-31 12:34:49
Hash : b1ee9258
Message : feat: added marshall_read_ht functions
test/marshall_read_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 <endian.h>
#include "../libkc3/file.h"
#include "../libkc3/inspect.h"
#include "../libkc3/marshall.h"
#include "../libkc3/marshall_read.h"
#include "../libkc3/str.h"
#include "../libkc3/list.h"
#include "../libkc3/tag.h"
#include "../libkc3/tag_init.h"
#include "test.h"
#include "tag_test.h"

#define MARSHALL_READ_TEST(type, test, expected)                       \
  do {                                                                 \
    type tmp = {0};                                                    \
    s_str tmp_str = {{0}, sizeof(expected) - 1, {expected}};           \
    s_marshall_read mr = {0};                                          \
    s_str test_str = {0};                                              \
    test_context("marshall_read_" # type "(" # test ") -> "            \
                 # expected);                                          \
    TEST_EQ(marshall_read_init_1(&mr, (test), sizeof(test) - 1), &mr); \
    TEST_EQ(marshall_read_## type (&mr, false, &tmp), &mr);            \
    marshall_read_clean(&mr);                                          \
    inspect_ ## type(&tmp, &test_str);                                 \
    TEST_STR_EQ(test_str, tmp_str);                                    \
    str_clean(&test_str);                                              \
    str_clean(&tmp_str);                                               \
    test_context(NULL);                                                \
  } while (0)

#define MARSHALL_READ_TEST_TAG(test, expected)                         \
  do {                                                                 \
    s_marshall_read mr = {0};                                          \
    s_tag tag = {0};                                                   \
    s_tag tag_expected = {0};                                          \
    test_context("marshall_read_tag(" # test ")");                     \
    TEST_ASSERT(tag_init_1(&tag_expected, (expected)));                \
    TEST_EQ(marshall_read_init_1(&mr, (test), sizeof(test) - 1), &mr); \
    TEST_EQ(marshall_read_tag(&mr, false, &tag), &mr);                 \
    TAG_TEST_EQ(&tag, &tag_expected);                                  \
    marshall_read_clean(&mr);                                          \
    tag_clean(&tag);                                                   \
    tag_clean(&tag_expected);                                          \
    test_context(NULL);                                                \
  } while (0)

void marshal_test (void);

TEST_CASE_PROTOTYPE(marshall_read_bool);
TEST_CASE_PROTOTYPE(marshall_read_character);
TEST_CASE_PROTOTYPE(marshall_read_init_buf);
TEST_CASE_PROTOTYPE(marshall_read_init_file);
TEST_CASE_PROTOTYPE(marshall_read_init_str);
TEST_CASE_PROTOTYPE(marshall_read_plist);
TEST_CASE_PROTOTYPE(marshall_read_s8);
TEST_CASE_PROTOTYPE(marshall_read_s16);
TEST_CASE_PROTOTYPE(marshall_read_s32);
TEST_CASE_PROTOTYPE(marshall_read_s64);
TEST_CASE_PROTOTYPE(marshall_read_sw);
TEST_CASE_PROTOTYPE(marshall_read_tag);
TEST_CASE_PROTOTYPE(marshall_read_u8);
TEST_CASE_PROTOTYPE(marshall_read_u16);
TEST_CASE_PROTOTYPE(marshall_read_u32);
TEST_CASE_PROTOTYPE(marshall_read_u64);
TEST_CASE_PROTOTYPE(marshall_read_uw);

void marshall_read_test (void)
{
  TEST_CASE_RUN(marshall_read_bool);
  TEST_CASE_RUN(marshall_read_tag);
}

TEST_CASE(marshall_read_bool)
{
  MARSHALL_READ_TEST(bool,
                     "KC3MARSH"
                     "\x00\x00\x00\x00\x00\x00\x00\x00"
                     "\x00\x00\x00\x00\x00\x00\x00\x00"
                     "\x01\x00\x00\x00\x00\x00\x00\x00"
                     "\x00",
                     "false");
  MARSHALL_READ_TEST(bool,
                     "KC3MARSH"
                     "\x00\x00\x00\x00\x00\x00\x00\x00"
                     "\x00\x00\x00\x00\x00\x00\x00\x00"
                     "\x01\x00\x00\x00\x00\x00\x00\x00"
                     "\x01",
                     "true");
}
TEST_CASE_END(marshall_read_bool)

TEST_CASE(marshall_read_plist)
{
  s_marshall_read mr = {0};
  s_tag expected = {0};
  s_tag test_tag = {0};
  const char test_str[] = "KC3MARSH"
                          "\x02\x00\x00\x00\x00\x00\x00\x00"
                          "\x11\x00\x00\x00\x00\x00\x00\x00"
                          "\x00\x00\x00\x00\x00\x00\x00\x00"
                          "\x00\x00\x00\x00\x00\x00\x00\x00"
                          "\x11\x00\x18\x00\x00\x00\x00\x00"
                          "\x00\x00\x00";
  TEST_EQ(marshall_read_init_1(&mr, test_str, sizeof(test_str) - 1),
          &mr);
  TEST_EQ(marshall_read_plist(&mr, false, &test_tag.data.plist), &mr);
  test_tag.type = TAG_PLIST;
  tag_init_plist_1(&expected, "[0, 1]");
  TAG_TEST_EQ(&test_tag, &expected);
  tag_clean(&test_tag);
  tag_clean(&expected);
}
TEST_CASE_END(marshall_read_plist)

TEST_CASE(marshall_read_tag)
{
  // characters
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x41",
                         "'A'");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x7A",
                         "'z'");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x30",
                         "'0'");
  // f32
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x06\x00\x00\x00\x00",
                         "(F32) 0.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x06\x00\x00\x80\x3F",
                         "(F32) 1.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x06\xFF\xFF\xFF\xFF",
                         "(F32) 4294967295.0");
  // f64
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x07\x00\x00\x00\x00\x00\x00\x00\x00",
                         "(F64) 0.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x07\x00\x00\x00\x00\x00\x00\xF0\x3F",
                         "(F64) 1.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x07\x00\x00\x00\x00\x00\x00\xF0\x41",
                         "(F64) 4294967296.0");
  // f128
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\x00\x00\x00\x00\x00\x00\x00"
                         "\x08\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00",
                         "(F128) 0.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\x00\x00\x00\x00\x00\x00\x00"
                         "\x08\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x01\x00\x00\x00\x00\x00\x00\x00",
                         "(F128) 1.0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\x00\x00\x00\x00\x00\x00\x00"
                         "\x08\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x18\x2D\x44\x54\xFB\x21\x09\x40",
                         "(F128) 3.14159265358979323846264338327950"
                         "28841971");
  // s8:
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x10\xD6",
                         "(S8) -42");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x10\x2A",
                         "(S8) 42");
  // s16:
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x03\x00\x00\x00\x00\x00\x00\x00"
                         "\x0F\x2E\xFB",
                         "(S16) -1234");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x03\x00\x00\x00\x00\x00\x00\x00"
                         "\x0F\xD2\x04",
                         "(S16) 1234");
  // s32:
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x0E\xEB\x32\xA4\xF8",
                         "(S32) -123456789");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x0E\x15\xCD\x5B\x07",
                         "(S32) 123456789");
  // s64
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x0D\x15\xCD\x5B\x07\x00\x00\x00\x00",
                         "(S64) 123456789");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x0D\xEB\x32\xA4\xF8\xFF\xFF\xFF\xFF",
                         "(S64) -123456789");
  // sw
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x0C\x15\xCD\x5B\x07\x00\x00\x00\x00",
                         "(Sw) 123456789");
  MARSHALL_READ_TEST_TAG("KC3MARSH\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x0C\xEB\x32\xA4\xF8\xFF\xFF\xFF\xFF",
                         "(Sw) -123456789");
  // u8
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\x00",
                         "0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\x01",
                         "1");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x02\x00\x00\x00\x00\x00\x00\x00"
                         "\x11\xFF",
                         "255");
  // u16
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x03\x00\x00\x00\x00\x00\x00\x00"
                         "\x12\x00\x00",
                         "(U16) 0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x03\x00\x00\x00\x00\x00\x00\x00"
                         "\x12\x01\x00",
                         "(U16) 1");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x03\x00\x00\x00\x00\x00\x00\x00"
                         "\x12\xFF\xFF",
                         "(U16) 65535");
  // u32
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x13\x00\x00\x00\x00",
                         "(U32) 0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x13\x01\x00\x00\x00",
                         "(U32) 1");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x05\x00\x00\x00\x00\x00\x00\x00"
                         "\x13\xFF\xFF\xFF\xFF",
                         "(U32) 4294967295");
  // u64
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x14\x00\x00\x00\x00\x00\x00\x00\x00",
                         "(U64) 0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x14\x01\x00\x00\x00\x00\x00\x00\x00",
                         "(U64) 1");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x14\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF",
                         "18446744073709551615");
  // uw
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x15\x00\x00\x00\x00\x00\x00\x00\x00",
                         "(Uw) 0");
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x15\x40\xE2\x01\x00\x00\x00\x00\x00",
                         "(Uw) 123456");
  #if 0
  // list
  MARSHALL_READ_TEST_TAG("KC3MARSH"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x00\x00\x00\x00\x00\x00\x00\x00"
                         "\x09\x00\x00\x00\x00\x00\x00\x00"
                         "\x16\x40\xE2\x01\x00\x00\x00\x00\x00",
                         "[ 123456 ]");
  #endif
}
TEST_CASE_END(marshall_read_tag)
kc3-lang/kc3/test/marshall_read_test.c

Commit

kc3-lang/kc3 /test/marshall_read_test.c
