Skip to content

Commit fa699bf

Browse files
committed
adjust package name (Thread in 2.8 vs. thread in 2.9+)
1 parent b2092fc commit fa699bf

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

tests/thread.test

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff 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 {

0 commit comments

Comments
 (0)