diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-22 10:02:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-22 10:02:06 (GMT) |
| commit | 070fa22acbfab9614a41de82797ab8709a43ae36 (patch) | |
| tree | 12df8ad352bff6beba4a7558fbf19b1097034a71 /tests/io.test | |
| parent | ce76e24a88d8c6c8abfd5da63402691c072e697b (diff) | |
| download | tcl-070fa22acbfab9614a41de82797ab8709a43ae36.zip tcl-070fa22acbfab9614a41de82797ab8709a43ae36.tar.gz tcl-070fa22acbfab9614a41de82797ab8709a43ae36.tar.bz2 | |
Determine "testConstraint ucs2" without the need for a testcommand. Rename "compat85" testConstraint to "ucs2", because that's what it actually is.
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 1c18576..06be982 100644 --- a/tests/io.test +++ b/tests/io.test @@ -29,8 +29,7 @@ namespace eval ::tcl::test::io { variable msg variable expected -testConstraint ucs2 [expr { [llength [info commands testsize]] && - ([testsize unichar] == 2) }] +testConstraint ucs2 [expr {[format %c 0x010000] eq "\uFFFD"}] testConstraint testchannel [llength [info commands testchannel]] testConstraint exec [llength [info commands exec]] |