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

test/gc: cons.

Browse source
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-16 12:00:18 +02:00
parent 9868f41674
commit f5c905ebd8
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
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"); 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 int
main (int argc, char **argv, char **envp) main (int argc, char **argv, char **envp)
{ {
@ -117,6 +129,7 @@ main (int argc, char **argv, char **envp)
test_empty (); test_empty ();
test_number (); test_number ();
test_cons ();
return 0; return 0;
} }