From 2ad2aba317b1528ae464c945ddc20175b989b63c Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
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