oreodave/alisp
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clean up tests a bit

Browse Source
This commit is contained in:
Aryadev Chavali
2025-08-21 21:54:22 +01:00
parent 85b83d7a20
commit 0da524f5a8
1 changed files with 13 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
main.c
View File

@@ -57,25 +57,6 @@ char text[] =
"Nulla facilisis, risus a rhoncus fermentum, tellus tellus lacinia purus, " "Nulla facilisis, risus a rhoncus fermentum, tellus tellus lacinia purus, "
"et dictum nunc justo sit amet elit."; "et dictum nunc justo sit amet elit.";
void vec_test(void)
{
vec_t vec = {0};
vec_init(&vec, 0);
for (u64 i = 0; i < ARRSIZE(words); ++i)
{
vec_append(&vec, words[i], strlen(words[i]));
vec_append(&vec, " ", 1);
printf("[vec_test]: %lu/%lu, inlined?: %s\n", vec.size, vec.capacity,
vec.is_inlined ? "yes" : "no");
}
printf("[vec_test]: Final: %lu/%lu: %.*s\n", vec.size, vec.capacity,
(int)vec.size, (char *)vec_data(&vec));
vec_free(&vec);
}
void symtable_test(void) void symtable_test(void)
{ {
sym_table_t table = {0}; sym_table_t table = {0};
@@ -126,10 +107,22 @@ void intern_test(void)
void make_vec_test(void) void make_vec_test(void)
{ {
sys_t system = {0}; sys_t system = {0};
sys_init(&system); sys_init(&system);
// Generating a vector word by word
lisp_t *vec = make_vec(&system, 0);
for (u64 i = 0; i < ARRSIZE(words); ++i)
{
char *word = words[i];
vec_append(as_vec(vec), word, strlen(word));
vec_append(as_vec(vec), " ", 1);
}
printf("[make_vec_test]: %lu/%lu, inlined?: %s, text=%.*s\n",
as_vec(vec)->size, as_vec(vec)->capacity,
as_vec(vec)->is_inlined ? "yes" : "no", (int)as_vec(vec)->size,
vec_data(as_vec(vec)));
// Generating substrings // Generating substrings
struct Test struct Test
{ {
@@ -185,8 +178,6 @@ void cons_test(void)
int main(void) int main(void)
{ {
vec_test();
printf("\n");
symtable_test(); symtable_test();
printf("\n"); printf("\n");
make_int_test(); make_int_test();