andre/tyche
1
0
Fork 0
Code Pull Requests Actions Packages Releases Activity

.

Browse Source
This commit is contained in:
Andre Wagner
2026-05-13 07:19:33 -05:00
parent 15f2794133
commit 19bff9b32f
9 changed files with 377 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
test/tests.c
View File

@@ -1,4 +1,4 @@
#include "../lib/vm.c"
#include "../lib/priv.h"
#include <assert.h>
#include <math.h>
@@ -20,123 +20,119 @@ int main()
{
printf("### Stack\n");
Stack s;
stack_init(&s);
Stack* s = stack_new();
stack_push(&s, create_value_integer(10));
stack_push(&s, create_value_integer(20));
stack_push(&s, create_value_integer(30));
stack_push(s, create_value_integer(10));
stack_push(s, create_value_integer(20));
stack_push(s, create_value_integer(30));
VALUE v;
assert(stack_len(&s) == 3);
assert(stack_at(&s, 0, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_at(&s, 1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 30);
assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_len(s) == 3);
assert(stack_at(s, 0, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_at(s, 1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(s, -1, &v) == T_OK); assert(value_integer(v) == 30);
assert(stack_at(s, -2, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(&s, 3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(&s, -4, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, 3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, -4, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_set(&s, 1, create_value_integer(99)) == T_OK);
assert(stack_at(&s, 1, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_set(s, 1, create_value_integer(99)) == T_OK);
assert(stack_at(s, 1, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_at(s, -2, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_pop(&s, NULL) == T_OK);
assert(stack_pop(&s, NULL) == T_OK);
assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_pop(&s, NULL) == T_OK);
assert(stack_len(&s) == 0);
assert(stack_pop(s, NULL) == T_OK);
assert(stack_pop(s, NULL) == T_OK);
assert(stack_at(s, -1, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_pop(s, NULL) == T_OK);
assert(stack_len(s) == 0);
assert(stack_pop(&s, NULL) == T_ERR_STACK_UNDERFLOW);
assert(stack_pop(s, NULL) == T_ERR_STACK_UNDERFLOW);
stack_finalize(&s);
stack_destroy(s);
}
{
printf("### Stack with frame pointer\n");
Stack s;
stack_init(&s);
Stack* s = stack_new();
stack_push(&s, create_value_integer(10));
stack_push(&s, create_value_integer(20));
stack_push_fp(&s);
stack_push(&s, create_value_integer(30));
stack_push(&s, create_value_integer(40));
stack_push(&s, create_value_integer(50));
stack_push(s, create_value_integer(10));
stack_push(s, create_value_integer(20));
stack_push_fp(s);
stack_push(s, create_value_integer(30));
stack_push(s, create_value_integer(40));
stack_push(s, create_value_integer(50));
VALUE v;
assert(stack_len(&s) == 3);
assert(stack_at(&s, 0, &v) == T_OK); assert(value_integer(v) == 30);
assert(stack_at(&s, 1, &v) == T_OK); assert(value_integer(v) == 40);
assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 50);
assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 40);
assert(stack_len(s) == 3);
assert(stack_at(s, 0, &v) == T_OK); assert(value_integer(v) == 30);
assert(stack_at(s, 1, &v) == T_OK); assert(value_integer(v) == 40);
assert(stack_at(s, -1, &v) == T_OK); assert(value_integer(v) == 50);
assert(stack_at(s, -2, &v) == T_OK); assert(value_integer(v) == 40);
assert(stack_set(&s, -2, create_value_integer(99)) == T_OK);
assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_set(s, -2, create_value_integer(99)) == T_OK);
assert(stack_at(s, -2, &v) == T_OK); assert(value_integer(v) == 99);
assert(stack_at(&s, 3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(&s, -4, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, 3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, -4, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
stack_pop_fp(&s);
stack_pop_fp(s);
assert(stack_len(&s) == 2);
assert(stack_at(&s, 0, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_at(&s, 1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_len(s) == 2);
assert(stack_at(s, 0, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_at(s, 1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(s, -1, &v) == T_OK); assert(value_integer(v) == 20);
assert(stack_at(s, -2, &v) == T_OK); assert(value_integer(v) == 10);
assert(stack_at(&s, 2, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(&s, -3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, 2, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
assert(stack_at(s, -3, &v) == T_ERR_STACK_ACCESS_OUT_OF_RANGE);
stack_finalize(&s);
stack_destroy(s);
}
{
printf("### Heap - strings\n");
Heap h;
heap_init(&h);
Heap* h = heap_new();
HEAP_KEY key1 = heap_add_string(&h, "hello");
HEAP_KEY key2 = heap_add_string(&h, "world");
HEAP_KEY key1 = heap_add_string(h, "hello");
HEAP_KEY key2 = heap_add_string(h, "world");
const char* value;
assert(heap_get_string(&h, key1, &value) == T_OK); assert(strcmp(value, "hello") == 0);
assert(heap_get_string(&h, key2, &value) == T_OK); assert(strcmp(value, "world") == 0);
assert(heap_get_string(&h, 1000, &value) == T_ERR_HEAP_KEY_NOT_FOUND);
assert(heap_get_string(h, key1, &value) == T_OK); assert(strcmp(value, "hello") == 0);
assert(heap_get_string(h, key2, &value) == T_OK); assert(strcmp(value, "world") == 0);
assert(heap_get_string(h, 1000, &value) == T_ERR_HEAP_KEY_NOT_FOUND);
heap_finalize(&h);
heap_destroy(h);
}
{
printf("### Heap - string GC\n");
Stack s;
stack_init(&s);
Stack* s = stack_new();
Heap* h = heap_new();
Heap h;
heap_init(&h);
stack_push(s, create_value_idx(TT_STRING, heap_add_string(h, "item1")));
stack_push(s, create_value_idx(TT_STRING, heap_add_string(h, "item2")));
stack_push(s, create_value_idx(TT_STRING, heap_add_string(h, "item3")));
stack_push(&s, create_value_idx(TT_STRING, heap_add_string(&h, "item1")));
stack_push(&s, create_value_idx(TT_STRING, heap_add_string(&h, "item2")));
stack_push(&s, create_value_idx(TT_STRING, heap_add_string(&h, "item3")));
/*
assert(heap_size(h) == 3);
heap_gc(h, s->stack, s->stack_n);
assert(heap_size(h) == 3);
assert(heap_size(&h) == 3);
stack_pop(s, NULL);
assert(heap_size(h) == 3);
heap_gc(&h, s.stack, s.stack_n);
assert(heap_size(&h) == 3);
assert(heap_size(h) == 2);
stack_pop(&s, NULL);
assert(heap_size(&h) == 3);
stack_pop(s, NULL);
heap_gc(&h, s.stack, s.stack_n);
assert(heap_size(&h) == 2);
assert(heap_size(h) == 1);
*/
stack_pop(&s, NULL);
heap_gc(&h, s.stack, s.stack_n);
assert(heap_size(&h) == 1);
heap_finalize(&h);
stack_finalize(&s);
heap_destroy(h);
stack_destroy(s);
}
}