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 | 8868d903d92c976f3c5eb3ea4a4a98862de6e6c0 (patch) | |
| tree | 38435cf8dacbf3aa1e6ae458e67505ce219d0998 /tests | |
| parent | 0d475f68d96279bbbd554fb4223b2c4fa333adba (diff) | |
| download | tcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.zip tcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.tar.gz tcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.tar.bz2 | |
New test iortrans-4.8.1 exposes segfault bug [721ec69271].
Diffstat (limited to 'tests')
| -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 { |