1 files changed, 18 insertions, 0 deletions
diff --git a/tests/general/gc1.icn b/tests/general/gc1.icn
new file mode 100644
index 0000000..7a63864
--- /dev/null
+++ b/tests/general/gc1.icn
@@ -0,0 +1,18 @@
+procedure main()
+   write("filling ...")
+   every 1 to 100 do {
+      every 1 to 100 do
+         list(1000)
+      }
+   #write(&collections)
+   write("collecting ...")
+   collect()
+   write("filling ...")
+   every s := repl("x",1 to 1000) do {
+      cset(string(&lcase))
+      t := table()
+      set([s])
+      s[2 : 5]
+      }
+   write("done")
+end