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

test/gc: cons.

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-16 12:00:18 +02:00 committed by Jan Nieuwenhuizen
parent a50da8f059
commit 0c6c5fcc17
No known key found for this signature in database
GPG Key ID: A781B6A92F5C71D6
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/test/gc.c
View File

@ -95,6 +95,18 @@ test_number ()
test_gc ("number");
}
void
test_cons ()
{
test_setup ();
SCM a = make_number (42);
SCM d = make_number (101);
cons (a, d);
g_free = g_symbol_max + M2_CELL_SIZE;
test_gc ("cons");
}
int
main (int argc, char **argv, char **envp)
{
@ -117,6 +129,7 @@ main (int argc, char **argv, char **envp)
test_empty ();
test_number ();
test_cons ();
return 0;
}