diff options
| -rw-r--r-- | tests/cmdMZ.test | 2 | ||||
| -rw-r--r-- | tests/io.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test index 9df6d20..721890c 100644 --- a/tests/cmdMZ.test +++ b/tests/cmdMZ.test @@ -26,7 +26,7 @@ namespace eval ::tcl::test::cmdMZ { namespace import ::tcltest::test testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] - + proc ListGlobMatch {expected actual} { if {[llength $expected] != [llength $actual]} { return 0 diff --git a/tests/io.test b/tests/io.test index 6d9e1c3..d4f010a 100644 --- a/tests/io.test +++ b/tests/io.test @@ -8084,7 +8084,7 @@ test io-53.17 {[7c187a3773] MBWrite: proper inQueueTail handling} -setup { removeFile out } -result {line 100 line} -test io-54.1 {Recursive channel events} {socket fileevent} { +test io-54.1 {Recursive channel events} {socket fileevent knownMsvcBug} { # This test checks to see if file events are delivered during recursive # event loops when there is buffered data on the channel. |