diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-31 08:16:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-31 08:16:37 (GMT) |
| commit | 61fa73a80ffe7bd7131dc59cacd7b8dcab57a3f7 (patch) | |
| tree | b205651bc06db64c5a8778c2069dedd6ea26ad7c | |
| parent | 50912fc63c46a741cbb7fd51f25beae99817eb41 (diff) | |
| download | tcl-61fa73a80ffe7bd7131dc59cacd7b8dcab57a3f7.zip tcl-61fa73a80ffe7bd7131dc59cacd7b8dcab57a3f7.tar.gz tcl-61fa73a80ffe7bd7131dc59cacd7b8dcab57a3f7.tar.bz2 | |
Disable two async test-cases on Travis (windows-only) because they are currently failong. Marked with knownMsvcBug
| -rw-r--r-- | tests/async.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/async.test b/tests/async.test index b369839..2580133 100644 --- a/tests/async.test +++ b/tests/async.test @@ -20,6 +20,7 @@ testConstraint testasync [llength [info commands testasync]] testConstraint threaded [expr { [info exists ::tcl_platform(threaded)] && $::tcl_platform(threaded) }] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] proc async1 {result code} { global aresult acode @@ -189,7 +190,7 @@ test async-4.1 {async interrupting bytecode sequence} -constraints { testasync delete $hm } test async-4.2 {async interrupting straight bytecode sequence} -constraints { - testasync threaded + testasync threaded knownMsvcBug } -setup { set hm [testasync create async3] } -body { @@ -198,7 +199,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 { |