summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog11
-rw-r--r--tests/ioTrans.test11
2 files changed, 18 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index dce1163..8b7d532 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,13 @@
-2008-06-09 Andreas Kupries <akupries@shaw.ca>
+2008-06-10 Andreas Kupries <andreask@activestate.com>
+
+ * 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.*'.
+
+2008-06-09 Andreas Kupries <andreas_kupries@users.sourceforge.net>
* generic/tclIORTrans.c (ReflectInput): Fixed a bug triggered by
Pat Thoyts <patthoyts@users.sourceforge.net>. Reset the EOF flag
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}