Differences From Artifact [fc803fb496]:

• File library/msgcat/tests/async.test — part of check-in [3653a449db] at 2012-05-07 18:40:55 on branch dgp-pkg-migration — merge trunk (user: dgp size: 5845) [more...]
• File pkgs/msgcat/tests/async.test — part of check-in [3653a449db] at 2012-05-07 18:40:55 on branch dgp-pkg-migration — merge trunk (user: dgp size: 5845)
• File tests/async.test — part of check-in [8032e7f92e] at 2012-04-11 20:34:07 on branch trunk — [Bug 3448512]: clock scan "1958-01-01" fails only in debug compilation (user: jan.nijtmans size: 5845)

To Artifact [f630c1f53d]:

• File library/msgcat/tests/async.test — part of check-in [a33431908c] at 2013-01-19 13:36:57 on branch dgp-pkg-migration — merge trunk (user: dgp size: 5938) [more...]
• File pkgs/msgcat/tests/async.test — part of check-in [a33431908c] at 2013-01-19 13:36:57 on branch dgp-pkg-migration — merge trunk (user: dgp size: 5938)
• File tests/async.test — part of check-in [9792ff8b65] at 2012-07-29 16:23:27 on branch trunk — No longer build tcltest.exe to run the tests,but use tclsh86.exe in combination with tcltest86.dll to do that (Windows only) (user: jan.nijtmans size: 5938)

12
13
14
15
16
17
18



19
20
21
22
23
24
25

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import -force ::tcltest::*
}




testConstraint testasync [llength [info commands testasync]]
testConstraint threaded [::tcl::pkgconfig get threaded]

proc async1 {result code} {
    global aresult acode
    set aresult $result
    set acode $code

>
>
>

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import -force ::tcltest::*
}

::tcltest::loadTestedCommands
catch [list package require -exact Tcltest [info patchlevel]]

testConstraint testasync [llength [info commands testasync]]
testConstraint threaded [::tcl::pkgconfig get threaded]

proc async1 {result code} {
    global aresult acode
    set aresult $result
    set acode $code