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

test/gc: string.

Browse source 
* src/test/gc.c (test_string): New function.
(main): Call it.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-16 17:09:27 +02:00
parent aee51fb1dd
commit 0681f79b67
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/test/gc.c
View file

@ -120,6 +120,16 @@ test_list ()
test_gc ("cons"); test_gc ("cons");
} }
void
test_string ()
{
test_setup ();
SCM s = make_string0 ("hello");
g_free = g_symbol_max + M2_CELL_SIZE;
test_gc ("string");
}
int int
main (int argc, char **argv, char **envp) main (int argc, char **argv, char **envp)
{ {
@ -144,6 +154,7 @@ main (int argc, char **argv, char **envp)
test_number (); test_number ();
test_cons (); test_cons ();
test_list (); test_list ();
test_string ();
return 0; return 0;
} }