From 13cd0393ae2cc0458b3bb1fd015a4d93ebd94d48 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 27 Oct 2019 11:02:22 +0100
Subject: [PATCH] test/gc: list.

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

diff --git a/src/test/gc.c b/src/test/gc.c
index 6255f8ab..5c034dfa 100644
--- a/src/test/gc.c
+++ b/src/test/gc.c
@@ -107,6 +107,19 @@ test_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
 main (int argc, char **argv, char **envp)
 {
@@ -130,6 +143,7 @@ main (int argc, char **argv, char **envp)
   test_empty ();
   test_number ();
   test_cons ();
+  test_list ();
 
   return 0;
 }