summaryrefslogtreecommitdiffstats
path: root/tests/ioTrans.test
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-06-10 18:06:36 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-06-10 18:06:36 (GMT)
commit27cef4c3985bd16df029f37ca9023ed02409ac9b (patch)
tree932df85ccf9bf94013eeb0f098b04ef394fea27f /tests/ioTrans.test
parentf572d15108ea68aef3ff8e2c3de3899f8a50f25f (diff)
downloadtcl-27cef4c3985bd16df029f37ca9023ed02409ac9b.zip
tcl-27cef4c3985bd16df029f37ca9023ed02409ac9b.tar.gz
tcl-27cef4c3985bd16df029f37ca9023ed02409ac9b.tar.bz2
* tests/ioTrans.test (iortrans.tf-6.1): Fixed the [Bug 1988552],
reported by Kevin. Have to close the channel before removal of the file. Fixed same bug in test 'iortrans.tf-11.0', after fixing missing cleanup of the file in 'iortrans.tf-11.*'. Lastly fixed the names of the threaded tests 'iortrans-8.*' to the correct 'iortrans.tf-8.*'.
Diffstat (limited to 'tests/ioTrans.test')
-rw-r--r--tests/ioTrans.test11
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index 070aab1..3bee19e 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.1 2008/06/06 19:46:42 andreas_kupries Exp $
+# RCS: @(#) $Id: ioTrans.test,v 1.2 2008/06/10 18:06:39 andreas_kupries Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1245,6 +1245,8 @@ test iortrans.tf-6.1 {chan read, read limits} -match glob -body {
set c [chan push [tempchan] foo]
notes [inthread $c {
note [read $c 10]
+ close $c
+ set notes
} c]
tempdone
rename foo {}
@@ -1320,7 +1322,7 @@ test iortrans.tf-7.3 {clear, any result is ignored} -match glob -body {
# --- === *** ###########################
# method flush (via seek, close)
-test iortrans-8.1 {seek flushes write buffers, ignores data} -match glob -body {
+test iortrans.tf-8.1 {seek flushes write buffers, ignores data} -match glob -body {
set res {}
proc foo {args} {
oninit flush; onfinal; track
@@ -1346,7 +1348,7 @@ test iortrans-8.1 {seek flushes write buffers, ignores data} -match glob -body {
set res
} -result {{flush rt*} {flush rt*} | {} | {teXt data}} -constraints {testchannel testthread}
-test iortrans-8.2 {close flushes write buffers, writes data} -match glob -body {
+test iortrans.tf-8.2 {close flushes write buffers, writes data} -match glob -body {
set res {}
proc foo {args} {
oninit flush; track ; onfinal
@@ -1404,6 +1406,7 @@ test iortrans.tf-11.0 {origin thread of moved transform gone} -match glob -body
lappend res [catch {testthread send $tidb [list gets $chan]} msg] $msg
lappend res [catch {testthread send $tidb [list close $chan]} msg] $msg
tcltest::threadReap
+ tempdone
set res
# The 'tell' is ok, as it passed through the transform to the base
# channel without invoking the transform handler.
@@ -1445,11 +1448,13 @@ test iortrans.tf-11.1 {origin thread of moved transform destroyed during access}
# loop to wait for the response from B
after 2000
catch { puts $chan shoo } res
+ catch { close $chan }
testthread send -async $mid [list set ::res $res]
}
vwait ::res
tcltest::threadReap
+ tempdone
set res
} -constraints {testchannel testthread} \
-result {Owner lost}