diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-07 17:48:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-07 17:48:31 (GMT) |
| commit | 3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d (patch) | |
| tree | 46cef2ea68ee0bb3c171f7fe0ee84b59dee81a04 /tests | |
| parent | e783e0d809bd84c85d8cf7914540f409b503df4b (diff) | |
| download | tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.zip tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.tar.gz tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.tar.bz2 | |
Correct -singleproc 1 testing flaws.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/interp.test | 4 | ||||
| -rw-r--r-- | 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 { |