janet/unittests/array_test.c

#include "unit.h"
#include <dst/dst.h>


int main() {
    int32_t i;
    dst_init();
    DstArray *array = dst_array(10);
    assert(array->capacity == 10);
    assert(array->count == 0);
    for (i = 0; i < 500; ++i)
        dst_array_push(array, dst_wrap_integer(i));
    for (i = 0; i < 500; ++i)
        assert(dst_checktype(array->data[i], DST_INTEGER) && 
                dst_unwrap_integer(array->data[i]) == i);
    for (i = 0; i < 200; ++i)
        dst_array_pop(array);
    assert(array->count == 300);
    return 0;
}