sub ok_idle ($;$) {
88:	my ($testsub, $test_name) = @_;
89:	run_main {
90:	# 0 Test::More::ok
91:	# 1 this block's ok() call
92:	# 2 idle callback in run_main
93:	# 3 Gtk2::main call in run_main
94:     # 4 Gtk2::main call in run_main (again)
95:     # 5 ok_idle
96:     # 6 the caller we want to print
97:     local $Test::Builder::Level = 6;
98:     ok ($testsub->(), $test_name);
99:     }
100: }