artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

test/gc: list.

Browse source 
* src/test/gc.c (test_list): New function.
(main): Call it.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-16 12:02:22 +02:00
parent f5c905ebd8
commit aee51fb1dd
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"); 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 int
main (int argc, char **argv, char **envp) main (int argc, char **argv, char **envp)
{ {
@ -130,6 +143,7 @@ main (int argc, char **argv, char **envp)
test_empty (); test_empty ();
test_number (); test_number ();
test_cons (); test_cons ();
test_list ();
return 0; return 0;
} }