diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-21 09:09:01 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-21 09:09:01 (GMT) |
commit | 9d27c20d496ebe21ef04f49dc7b9c100a2de340e (patch) | |
tree | b97730c95be6a7cfb01d6341e83a5ff48dd55ba5 /tests/async.test | |
parent | d9dc3c7c3c720547bce9b9260cb6200ebaed735a (diff) | |
parent | bcd88b005a09280f4b9725d611fd3763fd07241f (diff) | |
download | tcl-9d27c20d496ebe21ef04f49dc7b9c100a2de340e.zip tcl-9d27c20d496ebe21ef04f49dc7b9c100a2de340e.tar.gz tcl-9d27c20d496ebe21ef04f49dc7b9c100a2de340e.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/async.test')
-rw-r--r-- | tests/async.test | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tests/async.test b/tests/async.test index 7834ed5..35dda88 100644 --- a/tests/async.test +++ b/tests/async.test @@ -17,9 +17,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } testConstraint testasync [llength [info commands testasync]] -testConstraint threaded [expr { - [info exists ::tcl_platform(threaded)] && $::tcl_platform(threaded) -}] +testConstraint threaded [::tcl::pkgconfig get threaded] proc async1 {result code} { global aresult acode |