aboutsummaryrefslogtreecommitdiff
path: root/tests/icon/regression/frame_cleanup.zc
blob: b55c27ede8c930648cf624d52fb5e2537969b358 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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;
}