File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -39,10 +39,10 @@ test thread-1.11 {no segfault on 2nd interpreter, bug [d4ba38d00d06ebba]} -body
3939 # any other thread invocation before 2nd interpreter gets the thread::id (TSD),
4040 # but test-suite calls thread::id command (tcltest, all.tcl and thread.test):
4141 set fd [open [list |[info nameofexecutable] << [string map [list {$$load} [tcltest::loadScript]] {
42- $$load; package require thread
42+ $$load; package require Thread
4343 interp create ci
4444 set l {}
45- ci eval {$$load; package require thread ; thread::id}
45+ ci eval {$$load; package require Thread ; thread::id}
4646 thread::send -async [thread::id] {lappend l ev-1}; update
4747 interp delete ci
4848 thread::send -async [thread::id] {lappend l ev-2}; update; # no SF here
@@ -58,7 +58,7 @@ test thread-1.12 {no events in 2nd interpreter, bug [d4ba38d00d06ebba]} -setup {
5858} -body {
5959 set l {}
6060 thread::send -async [thread::id] {lappend l ev-1}; update
61- ci eval {package require tcltest; tcltest::loadTestedCommands; package require thread }
61+ ci eval {package require tcltest; tcltest::loadTestedCommands; package require Thread }
6262 thread::send -async [thread::id] {lappend l ev-2}; update
6363 set l
6464} -cleanup {
You can’t perform that action at this time.
0 commit comments