diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-02 14:36:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-02 14:36:51 (GMT) |
| commit | cd61c32b31ae37eb3203ed3987397d02013ebab9 (patch) | |
| tree | d208e642180958fcb8a9615d975b978215195cd8 | |
| parent | ff1762b09549645184e14776a950e951d8ac2e9c (diff) | |
| parent | 708f0fe99211aca63b01bb0702dfc06801b9ddfe (diff) | |
| download | tcl-cd61c32b31ae37eb3203ed3987397d02013ebab9.zip tcl-cd61c32b31ae37eb3203ed3987397d02013ebab9.tar.gz tcl-cd61c32b31ae37eb3203ed3987397d02013ebab9.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | tests/async.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/async.test b/tests/async.test index 34c2fdc..df13f83 100644 --- a/tests/async.test +++ b/tests/async.test @@ -20,6 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { catch [list package require -exact Tcltest [info patchlevel]] testConstraint testasync [llength [info commands testasync]] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] proc async1 {result code} { global aresult acode @@ -202,7 +203,7 @@ test async-4.2 {async interrupting straight bytecode sequence} -constraints { testasync delete $hm } test async-4.3 {async interrupting loop-less bytecode sequence} -constraints { - testasync + testasync knownMsvcBug } -setup { set hm [testasync create async3] } -body { |