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/ioTrans.test | |
| parent | e783e0d809bd84c85d8cf7914540f409b503df4b (diff) | |
| download | tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.zip tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.tar.gz tcl-3e48a2fd72b0b60f4e8f3d59eccd73a3c39d8d9d.tar.bz2 | |
Correct -singleproc 1 testing flaws.
Diffstat (limited to 'tests/ioTrans.test')
| -rw-r--r-- | tests/ioTrans.test | 4 |
1 files changed, 2 insertions, 2 deletions
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 { |