diff options
| author | hobbs <hobbs@noemail.net> | 2002-10-17 23:38:00 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2002-10-17 23:38:00 (GMT) |
| commit | d3843d9529a1e01fbaf4555f6fbade5b39e753d5 (patch) | |
| tree | c80e54b66b58bb37c2cc0d3131187ee22108d012 /tests | |
| parent | f9c99768d6ab54a33bb7fbaf410fc67f78355c76 (diff) | |
| download | tk-d3843d9529a1e01fbaf4555f6fbade5b39e753d5.zip tk-d3843d9529a1e01fbaf4555f6fbade5b39e753d5.tar.gz tk-d3843d9529a1e01fbaf4555f6fbade5b39e753d5.tar.bz2 | |
* tests/text.test: properly return the number of
* unix/tkUnixFont.c (ControlUtfProc): bytes consumed. [Bug #624732]
FossilOrigin-Name: e02410d5466c5e624c8e4373a694e372ef8e57d4
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/tests/text.test b/tests/text.test index 0ea9165..1c21d21 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: text.test,v 1.18 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: text.test,v 1.19 2002/10/17 23:38:01 hobbs Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -1573,22 +1573,15 @@ test text-25.13 {-maxundo configuration option} { .t get 1.0 end } "line 1\n\n" +test text-26.1 {bug fix - 624372, ControlUtfProc long lines} { + destroy .t + pack [text .t -wrap none] + .t insert end [string repeat "\1" 500] +} {} + deleteWindows option clear # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - - |