Posted to tcl by patthoyts at Tue Aug 21 19:55:43 GMT 2007view pretty
==== thread-4.4 TclThreadSend preserve code FAILED ==== Contents of test case: threadReap set len [llength [testthread names]] set serverthread [testthread create] set ::errorInfo {} set x [catch {testthread send $serverthread {break}} msg] threadReap list $len $x $msg $::errorInfo ---- Result was: 1 3 {} {can't read "::tcl_pkgPath": no such variable while executing "foreach Dir $::tcl_pkgPath { if {$Dir ni $::auto_path} { lappend ::auto_path $Dir } }"} ---- Result should have been (exact matching): 1 3 {} {} ==== thread-4.4 FAILED