diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-21 15:52:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-21 15:52:03 (GMT) |
| commit | 1588b8475d8a1378e6e9504e10913d756d84983b (patch) | |
| tree | fba2224637909bfe7af586018e017fa5b08f58d5 /tests/chanio.test | |
| parent | d48bca33242b3f10d21a25a6c6a91c27ae707b96 (diff) | |
| download | tcl-1588b8475d8a1378e6e9504e10913d756d84983b.zip tcl-1588b8475d8a1378e6e9504e10913d756d84983b.tar.gz tcl-1588b8475d8a1378e6e9504e10913d756d84983b.tar.bz2 | |
Use new testing command to constrain tests to (sizeof(Tcl_UniChar) == 2)
until bugs are fixed when (sizeof(Tcl_UniChar == 4).
Diffstat (limited to 'tests/chanio.test')
| -rw-r--r-- | tests/chanio.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 5fae431..c2f561b 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -29,6 +29,8 @@ namespace eval ::tcl::test::io { variable msg variable expected + testConstraint ucs2 [expr { [llength [info commands testsize]] && + ([testsize unichar] == 2) }] testConstraint testchannel [llength [info commands testchannel]] testConstraint exec [llength [info commands exec]] testConstraint openpipe 1 @@ -875,7 +877,7 @@ test chan-io-6.44 {Tcl_GetsObj: input saw cr, not followed by cr} {stdio testcha chan close $f set x } [list "bbbbbbbbbbbbbbb" 15 "123456789abcdef" 1 4 "abcd" 0 3 "efg"] -test chan-io-6.45 {Tcl_GetsObj: input saw cr, skip right number of bytes} {stdio testchannel openpipe fileevent} { +test chan-io-6.45 {Tcl_GetsObj: input saw cr, skip right number of bytes} {stdio testchannel openpipe fileevent ucs2} { # Tcl_ExternalToUtf() set f [open "|[list [interpreter] $path(cat)]" w+] |