andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test/gc: vector. 

* src/test/gc.c (test_vector): New function.
(main): Call it.
(print_arena): New function.
(test_gc): Call it.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-27 15:24:42 +01:00
parent bae6557dab
commit 6f4d948cc4
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/test/gc.c
View File

@ -60,18 +60,23 @@ test_setup ()
g_free = cell_f;
}
void
print_arena (long length)
{
SCM v = cell_arena;
TYPE (v) = TVECTOR;
LENGTH (v) = length;
eputs ("arena["); eputs (ntoab (g_cells, 16, 0)); eputs ("]: "); write_ (v); eputs ("\n");
}
void
test_gc (char const *name)
{
eputs ("TEST: "); eputs (name); eputs ("\n");
SCM v = cell_arena;
TYPE (v) = TVECTOR;
LENGTH (v) = gc_free () - 1;
eputs ("arena["); eputs (ntoab (g_cells, 16, 0)); eputs ("]: "); write_ (v); eputs ("\n");
print_arena (gc_free () - 1);
gc_stats_ ("0");
gc_ ();
v = cell_arena;
eputs ("arena["); eputs (ntoab (g_cells, 16, 0)); eputs ("]: "); write_ (v); eputs ("\n");
print_arena (gc_free () - 1);
gc_stats_ ("1");
eputs ("\n");
}
@ -130,6 +135,20 @@ test_string ()
test_gc ("string");
}
void
test_vector ()
{
test_setup ();
SCM v = make_vector_ (4, cell_zero);
SCM one = make_number (1);
SCM two = make_number (2);
vector_set_x_ (v, 1, one);
vector_set_x_ (v, 2, two);
g_free = g_symbol_max + M2_CELL_SIZE;
test_gc ("vector");
}
int
main (int argc, char **argv, char **envp)
{
@ -155,6 +174,7 @@ main (int argc, char **argv, char **envp)
test_cons ();
test_list ();
test_string ();
test_vector ();
return 0;
}