17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
}
::tcltest::loadTestedCommands
catch [list package require -exact tcl::test [info patchlevel]]
testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint testasync [llength [info commands testasync]]
testConstraint knownMsvcBug [string match msvc-* [tcl::build-info compiler]]
proc async1 {result code} {
global aresult acode
set aresult $result
set acode $code
return "new result"
}
|
|
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
}
::tcltest::loadTestedCommands
catch [list package require -exact tcl::test [info patchlevel]]
testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint testasync [llength [info commands testasync]]
testConstraint knownMsvcBug [expr {[tcl::build-info msvc]>0}]
proc async1 {result code} {
global aresult acode
set aresult $result
set acode $code
return "new result"
}
|