/* 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/fact.h"
#include "../libkc3/file.h"
#include "../libkc3/marshall.h"
#include "../libkc3/str.h"
#include "../libkc3/list.h"
#include "../libkc3/tag.h"
#include "test.h"
#define MARSHALL_TEST(type, test, expected) \
do { \
s_marshall m = {0}; \
const s_str expected_str = STR_1(expected); \
s_str test_str = {0}; \
test_context("marshall_" # type "(&m, " # test ") -> " \
# expected); \
TEST_ASSERT(marshall_init(&m)); \
TEST_ASSERT(marshall_ ## type (&m, false, (type) (test))); \
TEST_ASSERT(marshall_to_str(&m, &test_str)); \
TEST_STR_HEX_EQ(test_str, expected_str); \
marshall_clean(&m); \
test_context(NULL); \
} while (0)
#define MARSHALL_TEST_STR(test, expected) \
do { \
s_marshall m = {0}; \
s_str str_expected = STR_1(expected); \
s_str str_test = {0}; \
s_str str_result = {0}; \
test_context("marshall_str(&m, " # test ") -> " # expected); \
TEST_EQ(marshall_init(&m), &m); \
TEST_EQ(str_init(&str_test, NULL, sizeof(test) - 1, (test)), \
&str_test); \
TEST_EQ(marshall_str(&m, false, &str_test), &m); \
TEST_EQ(marshall_to_str(&m, &str_result), &str_result); \
TEST_STR_HEX_EQ(str_result, str_expected); \
str_clean(&str_result); \
str_clean(&str_test); \
marshall_clean(&m); \
test_context(NULL); \
} while (0)
#define MARSHALL_TEST_TAG(test, expected) \
do { \
s_marshall m = {0}; \
const s_str expected_str = STR_1(expected); \
s_tag tag = {0}; \
s_str test_str = {0}; \
test_context("marshall_tag(" # test ") -> " # expected); \
TEST_ASSERT(tag_init_1(&tag, test)); \
TEST_EQ(marshall_init(&m), &m); \
TEST_EQ(marshall_tag(&m, false, &tag), &m); \
TEST_ASSERT(marshall_to_str(&m, &test_str)); \
TEST_STR_HEX_EQ(test_str, expected_str); \
marshall_clean(&m); \
tag_clean(&tag); \
test_context(NULL); \
} while (0)
void marshal_test (void);
TEST_CASE_PROTOTYPE(marshall_bool);
TEST_CASE_PROTOTYPE(marshall_character);
TEST_CASE_PROTOTYPE(marshall_s8);
TEST_CASE_PROTOTYPE(marshall_s16);
TEST_CASE_PROTOTYPE(marshall_s32);
TEST_CASE_PROTOTYPE(marshall_s64);
TEST_CASE_PROTOTYPE(marshall_sw);
TEST_CASE_PROTOTYPE(marshall_to_buf);
TEST_CASE_PROTOTYPE(marshall_to_file);
TEST_CASE_PROTOTYPE(marshall_to_str);
TEST_CASE_PROTOTYPE(marshall_u8);
TEST_CASE_PROTOTYPE(marshall_u16);
TEST_CASE_PROTOTYPE(marshall_u32);
TEST_CASE_PROTOTYPE(marshall_u64);
TEST_CASE_PROTOTYPE(marshall_uw);
TEST_CASE_PROTOTYPE(marshall_plist);
TEST_CASE_PROTOTYPE(marshall_plist_twice);
TEST_CASE_PROTOTYPE(marshall_str);
TEST_CASE_PROTOTYPE(marshall_tag);
void marshall_test (void)
{
TEST_CASE_RUN(marshall_bool);
TEST_CASE_RUN(marshall_character);
TEST_CASE_RUN(marshall_s8);
TEST_CASE_RUN(marshall_s16);
TEST_CASE_RUN(marshall_s32);
TEST_CASE_RUN(marshall_s64);
TEST_CASE_RUN(marshall_sw);
TEST_CASE_RUN(marshall_to_buf);
TEST_CASE_RUN(marshall_to_str);
TEST_CASE_RUN(marshall_to_file);
TEST_CASE_RUN(marshall_u8);
TEST_CASE_RUN(marshall_u16);
TEST_CASE_RUN(marshall_u32);
TEST_CASE_RUN(marshall_u64);
TEST_CASE_RUN(marshall_uw);
TEST_CASE_RUN(marshall_plist);
TEST_CASE_RUN(marshall_plist_twice);
TEST_CASE_RUN(marshall_str);
TEST_CASE_RUN(marshall_tag);
}
TEST_CASE(marshall_bool)
{
MARSHALL_TEST(bool, false,
"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");
MARSHALL_TEST(bool, true,
"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");
}
TEST_CASE_END(marshall_bool)
TEST_CASE(marshall_character)
{
MARSHALL_TEST(character, 'A',
"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"
"A");
MARSHALL_TEST(character, '\0',
"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");
MARSHALL_TEST(character, 'Z',
"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"
"Z");
}
TEST_CASE_END(marshall_character)
TEST_CASE(marshall_plist)
{
s_marshall m = {0};
s_list *list_test;
s_str str = {0};
const s_str expected = STR_1("KC3MARSH"
"\x02\x00\x00\x00\x00\x00\x00\x00"
"\x16\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\x11\x00\x16#\x00\x00\x00\x00"
"\x00\x00\x00\x11\x01\x16.\x00"
"\x00\x00\x00\x00\x00\x00 \x00"
"\x00\x00\x00\x00\x00\x00");
TEST_ASSERT(marshall_init(&m));
list_test = list_new_1("[0, 1]");
TEST_ASSERT(list_test);
TEST_ASSERT(marshall_plist(&m, false, list_test));
marshall_to_str(&m, &str);
TEST_STR_HEX_EQ(str, expected);
str_clean(&str);
list_delete_all(list_test);
marshall_clean(&m);
}
TEST_CASE_END(marshall_plist)
TEST_CASE(marshall_plist_twice)
{
s_marshall m = {0};
s_list *list_test;
s_str str = {0};
const s_str expected = STR_1("KC3MARSH"
"\x04\x00\x00\x00\x00\x00\x00\x00"
",\x00\x00\x00\x00\x00\x00\x00"
"\x10\x00\x00\x00\x00\x00\x00\x00"
"\x11\x00\x16#\x00\x00\x00\x00"
"\x00\x00\x00\x11\x01\x16.\x00"
"\x00\x00\x00\x00\x00\x00\x11\x00"
"\x16\x39\x00\x00\x00\x00\x00\x00"
"\x00\x11\x01\x16\x44\x00\x00\x00"
"\x00\x00\x00\x00 \x00\x00\x00"
"\x00\x00\x00\x00\x36\x00\x00\x00"
"\x00\x00\x00\x00");
TEST_ASSERT(marshall_init(&m));
list_test = list_new_1("[0, 1]");
TEST_ASSERT(list_test);
TEST_ASSERT(marshall_plist(&m, false, list_test));
TEST_ASSERT(marshall_plist(&m, false, list_test));
marshall_to_str(&m, &str);
TEST_STR_HEX_EQ(str, expected);
str_clean(&str);
list_delete_all(list_test);
marshall_clean(&m);
}
TEST_CASE_END(marshall_plist_twice)
TEST_CASE(marshall_fact)
{
s_marshall m = {0};
s_fact fact = {0};
s_str str = {0};
const s_str expected = STR_1("");
TEST_ASSERT(marshall_init(&m));
fact_init_1(&fact, "{1, 2, 3}");
TEST_ASSERT(marshall_fact(&m, false, &fact));
marshall_to_str(&m, &str);
TEST_STR_HEX_EQ(str, expected);
str_clean(&str);
marshall_clean(&m);
}
TEST_CASE_END(marshall_plist)
TEST_CASE(marshall_s8)
{
MARSHALL_TEST(s8, 0,
"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");
MARSHALL_TEST(s8, 0xAB,
"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"
"\xAB");
}
TEST_CASE_END(marshall_s8)
TEST_CASE(marshall_s16)
{
MARSHALL_TEST(s16, 0,
"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"
"\x00\x00");
MARSHALL_TEST(s16, -1,
"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"
"\xFF\xFF");
}
TEST_CASE_END(marshall_s16)
TEST_CASE(marshall_s32)
{
MARSHALL_TEST(s32, 0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00");
MARSHALL_TEST(s32, ~0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF");
MARSHALL_TEST(s32, 0xDEADBEEF,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\xEF\xBE\xAD\xDE");
MARSHALL_TEST(s32, 0xDEADCAFE,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\xFE\xCA\xAD\xDE");
MARSHALL_TEST(s32, 0xFEEDBABE,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\xBE\xBA\xED\xFE");
}
TEST_CASE_END(marshall_s32)
TEST_CASE(marshall_s64)
{
MARSHALL_TEST(s64, 0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00");
MARSHALL_TEST(s64, ~0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF");
}
TEST_CASE_END(marshall_s64)
TEST_CASE(marshall_str)
{
MARSHALL_TEST_STR("",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00");
MARSHALL_TEST_STR("hello",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\t\x00\x00\x00\x00\x00\x00\x00"
"\x05\x00\x00\x00hell"
"o");
MARSHALL_TEST_STR("hello\xFF\x00world",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x10\x00\x00\x00\x00\x00\x00\x00"
"\x0C\x00\x00\x00hell"
"o\xFF\x00world");
MARSHALL_TEST_STR("héllo wörld",
"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"
"\r\x00\x00\x00héllo wörld");
}
TEST_CASE_END(marshall_str)
TEST_CASE(marshall_sw)
{
MARSHALL_TEST(sw, 0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00");
MARSHALL_TEST(sw, ~0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF");
}
TEST_CASE_END(marshall_sw)
TEST_CASE(marshall_tag)
{
// U8
MARSHALL_TEST_TAG("0",
"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");
MARSHALL_TEST_TAG("1",
"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");
MARSHALL_TEST_TAG("2",
"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\x02");
// U16
MARSHALL_TEST_TAG("256",
"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\x01");
// S32
MARSHALL_TEST_TAG("-2147483648",
"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\x00\x00\x00\x80");
// U64
MARSHALL_TEST_TAG("92233720368547",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\t\x00\x00\x00\x00\x00\x00\x00"
"\x14\xA3\x8D#\xD6\xE2S\x00"
"\x00");
// Integer
MARSHALL_TEST_TAG("(Integer) 1024",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0C\x00\x00\x00\x00\x00\x00\x00"
"\n\x03\x00\x00\x00\x00\x00\x00"
"\x00\x00\x04\x00");
MARSHALL_TEST_TAG("10000000000000000000000000000000000",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x19\x00\x00\x00\x00\x00\x00\x00"
"\n\x10\x00\x00\x00\x00\x00\x00"
"\x00\x00\x01\xED\t\xBE\xAD\x87"
"\xC0\x37\x8D\x8E\x64\x00\x00\x00"
"\x00");
// List
MARSHALL_TEST_TAG("[1, 2]",
"KC3MARSH"
"\x02\x00\x00\x00\x00\x00\x00\x00"
"\x16\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x11\x01\x16\x23\x00\x00\x00\x00"
"\x00\x00\x00\x11\x02\x16\x2e\x00"
"\x00\x00\x00\x00\x00\x00\x16\x20"
"\x00\x00\x00\x00\x00\x00\x00");
// Float
MARSHALL_TEST_TAG("(F32) 3.1415927",
"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\xdb\x0f\x49\x40");
MARSHALL_TEST_TAG("(F64) 3.141592653589793",
"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\x18\x2d\x44\x54\xfb\x21\x09"
"\x40");
MARSHALL_TEST_TAG("(F128) 3.141592653589793238462643383279502884197" \
"1693993751",
"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\xb1\xc5\x68\x21\xa2\xda\x0f"
"\xc9\x00\x40\x00\x00\x00\x00\x00"
"\x00");
// Do block
MARSHALL_TEST_TAG("do\n"
" 1\n"
" 2\n"
" 3\n"
"end",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x10\x00\x00\x00\x00\x00\x00\x00"
"\x02\x03\x00\x00\x00\x00\x00\x00"
"\x00\x00\x11\x01\x11\x02\x11\x03");
// Tuple
MARSHALL_TEST_TAG("{1, 2, [3, 4]}",
"KC3MARSH"
"\x02\x00\x00\x00\x00\x00\x00\x00"
"\x16\x00\x00\x00\x00\x00\x00\x00"
"\x16\x00\x00\x00\x00\x00\x00\x00"
"\x11\x03\x16\x23\x00\x00\x00\x00"
"\x00\x00\x00\x11\x04\x16\x2e\x00"
"\x00\x00\x00\x00\x00\x00\x25\x03"
"\x00\x00\x00\x00\x00\x00\x00\x11"
"\x01\x11\x02\x16\x20\x00\x00\x00"
"\x00\x00\x00\x00");
// Psym
MARSHALL_TEST_TAG("Module",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0c\x00\x00\x00\x00\x00\x00\x00"
"\x1d\x01\x06\x00\x00\x00\x4d\x6f"
"\x64\x75\x6c\x65");
// Map
MARSHALL_TEST_TAG("%{a: 1, b: 2}",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x1B\x00\x00\x00\x00\x00\x00\x00"
"\x17\x02\x00\x00\x00\x00\x00\x00"
"\x00\x1D\x01\x01\x00\x00\x00\x61"
"\x11\x01\x1D\x01\x01\x00\x00\x00"
"\x62\x11\x02");
// Cfn
MARSHALL_TEST_TAG("cfn Tag \"tag_add\" (Tag, Tag, Result)",
"KC3MARSH"
"\x07\x00\x00\x00\x00\x00\x00\x00"
"\x6b\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x01\x21\x00\x00\x00\x00\x00\x00"
"\x00\x29\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x33\x00\x00\x00\x00"
"\x00\x00\x00\x01\x03\x00\x00\x00"
"\x54\x61\x67\x43\x00\x00\x00\x00"
"\x00\x00\x00\x01\x07\x00\x00\x00"
"\x74\x61\x67\x5f\x61\x64\x64\x03"
"\x58\x00\x00\x00\x00\x00\x00\x00"
"\x01\x03\x00\x00\x00\x54\x61\x67"
"\x68\x00\x00\x00\x00\x00\x00\x00"
"\x01\x03\x00\x00\x00\x54\x61\x67"
"\x78\x00\x00\x00\x00\x00\x00\x00"
"\x01\x06\x00\x00\x00\x52\x65\x73"
"\x75\x6c\x74\x18\x20\x00\x00\x00"
"\x00\x00\x00\x00");
// Call
MARSHALL_TEST_TAG("defmodule Test do end",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0e\x00\x00\x00\x00\x00\x00\x00"
"\x35\x00\x00\x00\x00\x00\x00\x00"
"\x01\x09\x00\x00\x00\x64\x65\x66"
"\x6d\x6f\x64\x75\x6c\x65\x04\x20"
"\x00\x00\x00\x00\x00\x00\x00\x20"
"\x00\x00\x00\x00\x00\x00\x00\x02"
"\x00\x00\x00\x00\x00\x00\x00\x1d"
"\x01\x04\x00\x00\x00\x54\x65\x73"
"\x74\x02\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x2e\x00\x00\x00\x00"
"\x00\x00\x00");
MARSHALL_TEST_TAG("List.reverse([])",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x15\x00\x00\x00\x00\x00\x00\x00"
"\x2a\x00\x00\x00\x00\x00\x00\x00"
"\x01\x04\x00\x00\x00\x4c\x69\x73"
"\x74\x01\x07\x00\x00\x00\x72\x65"
"\x76\x65\x72\x73\x65\x04\x20\x00"
"\x00\x00\x00\x00\x00\x00\x29\x00"
"\x00\x00\x00\x00\x00\x00\x01\x00"
"\x00\x00\x00\x00\x00\x00\x16\x35"
"\x00\x00\x00\x00\x00\x00\x00\x35"
"\x00\x00\x00\x00\x00\x00\x00");
MARSHALL_TEST_TAG("a = 1",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0c\x00\x00\x00\x00\x00\x00\x00"
"\x34\x00\x00\x00\x00\x00\x00\x00"
"\x01\x01\x00\x00\x00\x3d\x01\x01"
"\x00\x00\x00\x61\x04\x20\x00\x00"
"\x00\x00\x00\x00\x00\x20\x00\x00"
"\x00\x00\x00\x00\x00\x02\x00\x00"
"\x00\x00\x00\x00\x00\x27\x26\x00"
"\x00\x00\x00\x00\x00\x00\x26\x00"
"\x00\x00\x00\x00\x00\x00\x11\x01"
"\x2c\x00\x00\x00\x00\x00\x00\x00");
MARSHALL_TEST_TAG("fn (x) { x * 2 }",
"KC3MARSH"
"\x0b\x00\x00\x00\x00\x00\x00\x00"
"\x84\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x02\x00\x00\x23\x00\x00\x00\x00"
"\x00\x00\x00\x2b\x00\x00\x00\x00"
"\x00\x00\x00\x33\x00\x00\x00\x00"
"\x00\x00\x00\x27\x3c\x00\x00\x00"
"\x00\x00\x00\x00\x44\x00\x00\x00"
"\x00\x00\x00\x00\x01\x01\x00\x00"
"\x00\x78\x16\x53\x00\x00\x00\x00"
"\x00\x00\x00\x01\x00\x00\x00\x00"
"\x00\x00\x00\x01\x04\x65\x00\x00"
"\x00\x00\x00\x00\x00\x6d\x00\x00"
"\x00\x00\x00\x00\x00\x01\x01\x00"
"\x00\x00\x2a\x02\x00\x00\x00\x00"
"\x00\x00\x00\x27\x84\x00\x00\x00"
"\x00\x00\x00\x00\x8c\x00\x00\x00"
"\x00\x00\x00\x00\x01\x01\x00\x00"
"\x00\x78\x11\x02\x9c\x00\x00\x00"
"\x00\x00\x00\x00\x18\x20\x00\x00"
"\x00\x00\x00\x00\x00");
// Ratio
MARSHALL_TEST_TAG("2/6",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x15\x00\x00\x00\x00\x00\x00\x00"
"\x0b\x02\x00\x00\x00\x00\x00\x00"
"\x00\x00\x02\x02\x00\x00\x00\x00"
"\x00\x00\x00\x00\x06");
// Quote
MARSHALL_TEST_TAG("quote 1 + 1",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x06\x00\x00\x00\x00\x00\x00\x00"
"\x26\x00\x00\x00\x00\x00\x00\x00"
"\x01\x01\x00\x00\x00\x2b\x22\x04"
"\x20\x00\x00\x00\x00\x00\x00\x00"
"\x20\x00\x00\x00\x00\x00\x00\x00"
"\x02\x00\x00\x00\x00\x00\x00\x00"
"\x11\x01\x11\x01\x26\x00\x00\x00"
"\x00\x00\x00\x00");
// Var
MARSHALL_TEST_TAG("(U8) ?",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x00\x01\x02\x00\x00\x00\x55\x38"
"\x00\x21\x20\x00\x00\x00\x00\x00"
"\x00\x00");
MARSHALL_TEST_TAG("(Tag) ?",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0a\x00\x00\x00\x00\x00\x00\x00"
"\x09\x00\x00\x00\x00\x00\x00\x00"
"\x00\x01\x03\x00\x00\x00\x54\x61"
"\x67\x00\x21\x20\x00\x00\x00\x00"
"\x00\x00\x00");
// Complex
MARSHALL_TEST_TAG("1 +i 2",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x07\x00\x00\x00\x00\x00\x00\x00"
"\x25\x00\x00\x00\x00\x00\x00\x00"
"\x01\x02\x00\x00\x00\x2b\x69\x04"
"\x20\x00\x00\x00\x00\x00\x00\x00"
"\x20\x00\x00\x00\x00\x00\x00\x00"
"\x02\x00\x00\x00\x00\x00\x00\x00"
"\x11\x01\x11\x02\x27\x00\x00\x00"
"\x00\x00\x00\x00");
// Unquote
MARSHALL_TEST_TAG("unquote(123)",
"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"
"\x26\x11\x7b");
// Time
MARSHALL_TEST_TAG("%Time{}",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x12\x00\x00\x00\x00\x00\x00\x00"
"\x24\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00");
MARSHALL_TEST_TAG("%Time{tv_sec: 1000, tv_nsec: 2000}",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x12\x00\x00\x00\x00\x00\x00\x00"
"\x24\x00\xe8\x03\x00\x00\x00\x00"
"\x00\x00\xd0\x07\x00\x00\x00\x00"
"\x00\x00");
MARSHALL_TEST_TAG("%Time{tv_sec: 1 + 1, tv_nsec: 2 + 2}",
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x0c\x00\x00\x00\x00\x00\x00\x00"
"\x4c\x00\x00\x00\x00\x00\x00\x00"
"\x01\x01\x00\x00\x00\x2b\x01\x01"
"\x00\x00\x00\x2b\x24\x01\x04\x20"
"\x00\x00\x00\x00\x00\x00\x00\x20"
"\x00\x00\x00\x00\x00\x00\x00\x02"
"\x00\x00\x00\x00\x00\x00\x00\x11"
"\x01\x11\x01\x26\x00\x00\x00\x00"
"\x00\x00\x00\x04\x26\x00\x00\x00"
"\x00\x00\x00\x00\x26\x00\x00\x00"
"\x00\x00\x00\x00\x02\x00\x00\x00"
"\x00\x00\x00\x00\x11\x02\x11\x02"
"\x2c\x00\x00\x00\x00\x00\x00\x00");
// Ptr
MARSHALL_TEST_TAG("(Ptr) 0",
"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"
"\x1f\x00\x00\x00\x00\x00\x00\x00"
"\x00");
// PtrFree
MARSHALL_TEST_TAG("(PtrFree) 0",
"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"
"\x1f\x00\x00\x00\x00\x00\x00\x00"
"\x00");
}
TEST_CASE_END(marshall_tag)
TEST_CASE(marshall_to_buf)
{
char b[1024024] = {0};
s_buf buf = {0};
s_marshall m = {0};
buf_init(&buf, false, sizeof(b), b);
TEST_ASSERT(marshall_init(&m) != NULL);
TEST_EQ(marshall_to_buf(&m, &buf), sizeof(s_marshall_header));
marshall_clean(&m);
}
TEST_CASE_END(marshall_to_buf)
TEST_CASE(marshall_to_file)
{
u32 value = 42;
s_marshall m = {0};
s_str path = {0};
TEST_ASSERT(marshall_init(&m));
TEST_ASSERT(marshall_u32(&m, false, value));
TEST_EQ(marshall_to_file(&m, ".marshall_test_to_file.1.kc3m"),
sizeof(s_marshall_header) +
sizeof(u32));
TEST_EQ(test_file_compare(".marshall_test_to_file.1.kc3m",
"marshall_test_to_file.1.expected.kc3m"),
0);
TEST_EQ(str_init_1(&path, NULL, ".marshall_test_to_file.1.kc3m"),
&path);
TEST_ASSERT(file_unlink(&path));
str_clean(&path);
marshall_clean(&m);
}
TEST_CASE_END(marshall_to_file)
TEST_CASE(marshall_to_str)
{
u32 value = 424242;
s_marshall m = {0};
s_str str = {0};
s_str expected = {0};
TEST_ASSERT(marshall_init(&m));
TEST_ASSERT(marshall_u32(&m, false, value));
TEST_EQ(marshall_to_str(&m, &str), &str);
marshall_clean(&m);
expected = STR_1("KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\x32\x79\x06\x00");
TEST_STR_HEX_EQ(str, expected);
str_clean(&str);
}
TEST_CASE_END(marshall_to_str)
TEST_CASE(marshall_u8)
{
MARSHALL_TEST(u8, 0x00,
"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");
MARSHALL_TEST(u8, 0xFF,
"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"
"\xFF");
}
TEST_CASE_END(marshall_u8)
TEST_CASE(marshall_u16)
{
MARSHALL_TEST(u16, 0xFFFF,
"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"
"\xFF\xFF");
}
TEST_CASE_END(marshall_u16)
TEST_CASE(marshall_u32)
{
MARSHALL_TEST(u32, 0xFFFFFFFF,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x04\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF");
}
TEST_CASE_END(marshall_u32)
TEST_CASE(marshall_u64)
{
MARSHALL_TEST(u64, 0xFFFFFFFFFFFFFFFF,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF");
}
TEST_CASE_END(marshall_u64)
TEST_CASE(marshall_uw)
{
MARSHALL_TEST(uw, 0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00");
MARSHALL_TEST(uw, ~0,
"KC3MARSH"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x00\x00\x00\x00\x00\x00\x00\x00"
"\x08\x00\x00\x00\x00\x00\x00\x00"
"\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF");
}
TEST_CASE_END(marshall_uw)
