diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-03-27 16:27:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-03-27 16:27:09 (GMT) |
| commit | 52fe1455a76d799d203cfb27a5fb8ffe77fda860 (patch) | |
| tree | 38435cf8dacbf3aa1e6ae458e67505ce219d0998 /tests/ioTrans.test | |
| parent | 4c46afc6f593f79c3718dbee4c5b383d7ed9bf29 (diff) | |
| download | tcl-52fe1455a76d799d203cfb27a5fb8ffe77fda860.zip tcl-52fe1455a76d799d203cfb27a5fb8ffe77fda860.tar.gz tcl-52fe1455a76d799d203cfb27a5fb8ffe77fda860.tar.bz2 | |
New test iortrans-4.8.1 exposes segfault bug [721ec69271].
Diffstat (limited to 'tests/ioTrans.test')
| -rw-r--r-- | tests/ioTrans.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test index 5a8874c..b21d894 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.test @@ -540,6 +540,25 @@ test iortrans-4.8 {chan read, read, bug 2921116} -setup { rename foo {} } -result {{read rt* {test data }} file*} +test iortrans-4.8.1 {chan read, bug 721ec69271} -setup { + set res {} +} -match glob -body { + proc foo {fd args} { + handle.initialize + handle.finalize + lappend ::res $args + # Kill and recreate transform while it is operating + chan pop $fd + chan push $fd [list foo $fd] + } + set c [chan push [set c [tempchan]] [list foo $c]] + chan configure $c -buffersize 2 + lappend res [read $c] +} -cleanup { + tempdone + rename foo {} +} -result {{read rt* {test data +}} file*} test iortrans-4.9 {chan read, gets, bug 2921116} -setup { set res {} } -match glob -body { |