summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-09-30 15:22:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-09-30 15:22:08 (GMT)
commitb4824bcca26ab41c141dc900cf409f7ef8084ae5 (patch)
tree9e8af4ed4ee042b75df1473f6566f6a274ef72ed /tests
parent215b48f50b57d1e5b5857936236dae45f6f9af83 (diff)
downloadtk-b4824bcca26ab41c141dc900cf409f7ef8084ae5.zip
tk-b4824bcca26ab41c141dc900cf409f7ef8084ae5.tar.gz
tk-b4824bcca26ab41c141dc900cf409f7ef8084ae5.tar.bz2
614650 is still lurking, but now mainly as a [text] widget bug...
Diffstat (limited to 'tests')
-rw-r--r--tests/unixSelect.test50
1 files changed, 49 insertions, 1 deletions
diff --git a/tests/unixSelect.test b/tests/unixSelect.test
index 7fe26bc..9e0b35b 100644
--- a/tests/unixSelect.test
+++ b/tests/unixSelect.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unixSelect.test,v 1.5 2002/09/30 13:42:25 dkf Exp $
+# RCS: @(#) $Id: unixSelect.test,v 1.6 2002/09/30 15:22:08 dkf Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -296,6 +296,54 @@ test unixSelect-1.15 {TkSelGetSelection procedure: simple i18n text, utf-8} {uni
list [string equal \u00fc\u0444 $x] \
[string length $x] [string bytelength $x]
} {1 2 4}
+test unixSelect-1.16 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixOnly} {
+ setupbg
+ dobg {
+ entry .e; pack .e; update
+ .e insert 0 [string repeat [string repeat \u00c4\u00e4 50]\n 21]
+ .e selection range 0 end
+ }
+ set x [selection get -type UTF8_STRING]
+ cleanupbg
+ list [string equal [string repeat [string repeat \u00c4\u00e4 50]\n 21] $x] \
+ [string length $x] [string bytelength $x]
+} {1 2121 4221}
+test unixSelect-1.17 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixOnly} {
+ setupbg
+ dobg {
+ entry .e; pack .e; update
+ .e insert 0 i[string repeat [string repeat \u00c4\u00e4 50]\n 21]
+ .e selection range 0 end
+ }
+ set x [selection get -type UTF8_STRING]
+ cleanupbg
+ list [string equal i[string repeat [string repeat \u00c4\u00e4 50]\n 21] $x] \
+ [string length $x] [string bytelength $x]
+} {1 2122 4222}
+test unixSelect-1.18 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixOnly} {
+ setupbg
+ dobg {
+ text .t; pack .t; update
+ .t insert 1.0 [string repeat [string repeat \u00c4\u00e4 50]\n 21] sel
+ }
+ after 10
+ set x [selection get -type UTF8_STRING]
+ cleanupbg
+ list [string equal [string repeat [string repeat \u00c4\u00e4 50]\n 21] $x] \
+ [string length $x] [string bytelength $x]
+} {1 2121 4221}
+test unixSelect-1.19 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixOnly} {
+ setupbg
+ dobg {
+ text .t; pack .t; update
+ .t insert 1.0 i[string repeat [string repeat \u00c4\u00e4 50]\n 21] sel
+ }
+ after 10
+ set x [selection get -type UTF8_STRING]
+ cleanupbg
+ list [string equal i[string repeat [string repeat \u00c4\u00e4 50]\n 21] $x] \
+ [string length $x] [string bytelength $x]
+} {1 2122 4222}
# cleanup
::tcltest::cleanupTests