diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-02 14:33:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-02 14:33:18 (GMT) |
| commit | 87ef98228645c237bd89200f404908d00e597c97 (patch) | |
| tree | 4f435b928e49168127c4c452a463dfcd5bcf021c /tests/async.test | |
| parent | 96906cee5e0ea778956e526b49b8b0b6c2f8f192 (diff) | |
| download | tcl-87ef98228645c237bd89200f404908d00e597c97.zip tcl-87ef98228645c237bd89200f404908d00e597c97.tar.gz tcl-87ef98228645c237bd89200f404908d00e597c97.tar.bz2 | |
One more knownMsvcBug marker, for a test which sometimes fails on Travis.
Diffstat (limited to 'tests/async.test')
| -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 e7fc45a..4e7eadf 100644 --- a/tests/async.test +++ b/tests/async.test @@ -21,6 +21,7 @@ catch [list package require -exact Tcltest [info patchlevel]] testConstraint testasync [llength [info commands testasync]] testConstraint threaded [::tcl::pkgconfig get threaded] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] proc async1 {result code} { global aresult acode @@ -203,7 +204,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 threaded + testasync threaded knownMsvcBug } -setup { set hm [testasync create async3] } -body { |