From 8cb8b16c2a7e02f121f6c5114105b4e695cffad1 Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Tue, 22 Jul 2014 19:57:51 +0000
Subject: Workaround [info frame] troubles with -singleproc 1 testing
 operations.

---
 tests/all.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/all.tcl b/tests/all.tcl
index 05d3024..0a6f57f 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -15,5 +15,8 @@ package require Tcl 8.5
 package require tcltest 2.2
 namespace import tcltest::*
 configure {*}$argv -testdir [file dir [info script]]
+if {[singleProcess]} {
+    interp debug {} -frame 1
+}
 runAllTests
 proc exit args {}
-- 
cgit v0.12