From 4a5d8fde2975f051ad7880b0b35a56dfbbda3fc7 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 27 Oct 2019 16:09:27 +0100
Subject: [PATCH] test/gc: string.

* src/test/gc.c (test_string): New function.
(main): Call it.
---
 src/test/gc.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/test/gc.c b/src/test/gc.c
index 5c034dfa..41d5ff7e 100644
--- a/src/test/gc.c
+++ b/src/test/gc.c
@@ -120,6 +120,16 @@ test_list ()
   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
 main (int argc, char **argv, char **envp)
 {
@@ -144,6 +154,7 @@ main (int argc, char **argv, char **envp)
   test_number ();
   test_cons ();
   test_list ();
+  test_string ();
 
   return 0;
 }