diff options
| author | andreas_kupries <akupries@shaw.ca> | 2001-04-04 17:35:24 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2001-04-04 17:35:24 (GMT) |
| commit | 1bc23f4977493306750102c044b833c0b2b73244 (patch) | |
| tree | 73d04e6b5c7b92798ed03b19442bc0cbeedddbb2 /tests | |
| parent | 8d8e328b979fd600857c37ba6aedb94871872d3b (diff) | |
| download | tcl-1bc23f4977493306750102c044b833c0b2b73244.zip tcl-1bc23f4977493306750102c044b833c0b2b73244.tar.gz tcl-1bc23f4977493306750102c044b833c0b2b73244.tar.bz2 | |
2001-04-04 Andreas Kupries <andreas_kupries@users.sourceforge.net>
* generic/tclTest.c:
* tests/io.tests: TIP #10 followup correcting a problem with the
original patch because of the lack of 'testthread id' for a
non-threaded compilation.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/io.test | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/tests/io.test b/tests/io.test index 044a803..e3ac4a1 100644 --- a/tests/io.test +++ b/tests/io.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.15 2001/03/30 23:06:40 andreas_kupries Exp $ +# RCS: @(#) $Id: io.test,v 1.16 2001/04/04 17:35:25 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -6723,13 +6723,6 @@ test io-58.1 {Tcl_NotifyChannel and error when closing} {unixOrPc} { } {1 {gets {normal message from pipe} gets {} catch {error message from pipe}}} - -if {[info commands testthread] != {}} { - set mainthread [testthread id] -} else { - set mainthread 0 -} - test io-59.1 {Thread reference of channels} { # TIP #10 # More complicated tests (like that the reference changes as a @@ -6741,7 +6734,7 @@ test io-59.1 {Thread reference of channels} { set result [testchannel mthread $f] close $f set result -} $mainthread +} [testmainthread] |