From 3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 7 Nov 2014 17:48:31 +0000
Subject: Correct -singleproc 1 testing flaws.

---
 tests/interp.test  | 4 ++--
 tests/ioTrans.test | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/interp.test b/tests/interp.test
index ad99fac..4bc9fe2 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -3615,10 +3615,10 @@ test interp-38.3 {interp debug wrong args} -body {
 } -returnCodes {
     error
 } -result {wrong # args: should be "interp debug path ?-frame ?bool??"}
-test interp-38.4 {interp debug basic setup} -body {
+test interp-38.4 {interp debug basic setup} -constraints {!singleTestInterp} -body {
     interp debug {}
 } -result {-frame 0}
-test interp-38.5 {interp debug basic setup} -body {
+test interp-38.5 {interp debug basic setup} -constraints {!singleTestInterp} -body {
     interp debug {} -f
 } -result {0}
 test interp-38.6 {interp debug basic setup} -body {
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index f82c610..e179eab 100644
--- a/tests/ioTrans.test
+++ b/tests/ioTrans.test
@@ -601,8 +601,8 @@ test iortrans-4.9 {chan read, gets, bug 2921116} -setup {
 # Driver for a base channel that emits several short "files"
 # with each terminated by a fleeting EOF
     proc driver {cmd args} {
-        variable buffer
-        variable index
+        variable ::tcl::buffer
+        variable ::tcl::index
         set chan [lindex $args 0]
         switch -- $cmd {
             initialize {
-- 
cgit v0.12