diff options
Diffstat (limited to 'tests/font.test')
-rw-r--r-- | tests/font.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/font.test b/tests/font.test index 09c2dc6..a4e895f 100644 --- a/tests/font.test +++ b/tests/font.test @@ -11,6 +11,8 @@ namespace import ::tcltest::* eval tcltest::configure $argv tcltest::loadTestedCommands +# Some tests require support for 4-byte UTF-8 sequences +testConstraint fullutf [expr {[format %c 0x010000] != "\ufffd"}] set defaultfontlist [font names] @@ -152,11 +154,14 @@ test font-4.13 {font command: actual} -body { font actual {-family times} -- \udc00 } -match glob -result {*} test font-4.14 {font command: actual} -constraints win -body { - font actual {-family times} -family -- \ud800\udc00 + font actual {-family times} -family -- \uD800\uDC00 } -result {times} test font-4.15 {font command: actual} -body { font actual {-family times} -- \udc00\ud800 } -returnCodes 1 -match glob -result {expected a single character but got "*"} +test font-4.16 {font command: actual} -constraints {fullutf win} -body { + font actual {-family times} -family -- \U10000 +} -result {times} test font-5.1 {font command: configure} -body { |