diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-06-20 20:48:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-06-20 20:48:47 (GMT) |
| commit | 8f8c4fc92943cd0497881b0185ec142142698b4b (patch) | |
| tree | 2e01e8f3ad4d67843b7a70499a1f97ecf3003081 /tests/ioTrans.test | |
| parent | 64ade57c455847b103bb0bfb4545beede557043f (diff) | |
| download | tcl-8f8c4fc92943cd0497881b0185ec142142698b4b.zip tcl-8f8c4fc92943cd0497881b0185ec142142698b4b.tar.gz tcl-8f8c4fc92943cd0497881b0185ec142142698b4b.tar.bz2 | |
* changes: Updates for 8.6a1 release.
* generic/tclInterp.c: Fixed completely boneheaded mistake that
* tests/interp.test: [interp bgerror $slave] and [$slave bgerror]
would always act like [interp bgerror {}]. [Bug 1999035].
* tests/chanio.test: Corrected flawed tests revealed by a -debug 1
* tests/cmdAH.test: -singleproc 1 test suite run.
* tests/event.test:
* tests/interp.test:
* tests/io.test:
* tests/ioTrans.test:
* tests/namespace.test:
Diffstat (limited to 'tests/ioTrans.test')
| -rw-r--r-- | tests/ioTrans.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index b607885..6298af0 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: ioTrans.test,v 1.3 2008/06/16 18:38:42 andreas_kupries Exp $ +# RCS: @(#) $Id: ioTrans.test,v 1.4 2008/06/20 20:48:49 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -690,9 +690,12 @@ test iortrans-11.0 {origin interpreter of moved transform gone} -match glob -bod # Set up channel and transform in interpreter interp eval $ida $helperscript + interp eval $ida [list ::variable tempchan [tempchan]] + interp transfer {} $::tempchan $ida set chan [interp eval $ida { + variable tempchan proc foo {args} {oninit clear drain flush limit? read write; onfinal; track; return} - set chan [chan push [tempchan] foo] + set chan [chan push $tempchan foo] fconfigure $chan -buffering none set chan }] |