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

test/gc: list. 

* src/test/gc.c (test_list): New function.
(main): Call it.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-27 11:02:22 +01:00
parent 888fe1ac6c
commit b6ed1bc9ed
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/test/gc.c
View File

@ -107,6 +107,19 @@ test_cons ()
test_gc ("cons");
}
void
test_list ()
{
test_setup ();
SCM a = make_number (42);
SCM d = make_number (101);
SCM lst = cons (d, cell_nil);
cons (a, lst);
g_free = g_symbol_max + M2_CELL_SIZE;
test_gc ("cons");
}
int
main (int argc, char **argv, char **envp)
{
@ -130,6 +143,7 @@ main (int argc, char **argv, char **envp)
test_empty ();
test_number ();
test_cons ();
test_list ();
return 0;
}