1 files changed, 16 insertions, 0 deletions
diff --git a/tests/icon/regression/frame_cleanup.zc b/tests/icon/regression/frame_cleanup.zc
new file mode 100644
index 0000000..b55c27e
--- /dev/null
+++ b/tests/icon/regression/frame_cleanup.zc
@@ -0,0 +1,16 @@
+include rt;
+include run;
+include icon;
+fn main() {
+	let q = run.tokens("");
+	int before = rt.live_objects(), i = 0;
+	while (i < 100) {
+		let frame = icon.begin(q);
+		icon.set_local(frame, "local", i);
+		icon.set_global(frame, "global", i + 1);
+		icon.close(d*frame);
+		i++;
+	}
+	rt.put_n(rt.live_objects() == before); rt.put_c(10);
+	return 0;
+}