diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-13 21:00:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-13 21:00:28 (GMT) |
| commit | 261bde3156d50771907d0e386439fd241874b9eb (patch) | |
| tree | 9de88c6c9cb22c4cd7db19f5995f880ba4906d7f /tests/chanio.test | |
| parent | 4b48c76e1c40761ebe4173552178854265fb50c6 (diff) | |
| parent | bce65c12f657a40e26fc4b42de6047d98ee7e012 (diff) | |
| download | tcl-261bde3156d50771907d0e386439fd241874b9eb.zip tcl-261bde3156d50771907d0e386439fd241874b9eb.tar.gz tcl-261bde3156d50771907d0e386439fd241874b9eb.tar.bz2 | |
Eliminate dependency in test-suite on Unicode functions. Merge tip-548. Fix build with -DTCL_NO_DEPRECATED
Diffstat (limited to 'tests/chanio.test')
| -rw-r--r-- | tests/chanio.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 1439fe4..4b71fef 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -43,6 +43,7 @@ namespace eval ::tcl::test::io { testConstraint testfevent [llength [info commands testfevent]] testConstraint testchannelevent [llength [info commands testchannelevent]] testConstraint testmainthread [llength [info commands testmainthread]] + testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] # You need a *very* special environment to do some tests. In particular, # many file systems do not support large-files... @@ -2790,7 +2791,7 @@ test chan-io-29.34 {Tcl_Chan Close, async flush on chan close, using sockets} -s chan puts $s $l } } -} -constraints {socket tempNotMac fileevent} -body { +} -constraints {socket tempNotMac fileevent knownMsvcBug} -body { proc accept {s a p} { variable x chan event $s readable [namespace code [list readit $s]] |