diff options
| author | hobbs <hobbs> | 2002-10-17 23:38:01 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-10-17 23:38:01 (GMT) |
| commit | 0465cec552b98e372b86ba0e09b9bfb361f19c8b (patch) | |
| tree | c80e54b66b58bb37c2cc0d3131187ee22108d012 /tests | |
| parent | cb7080b4f3f78a21873a08bedf7ec9417dd219c3 (diff) | |
| download | tk-0465cec552b98e372b86ba0e09b9bfb361f19c8b.zip tk-0465cec552b98e372b86ba0e09b9bfb361f19c8b.tar.gz tk-0465cec552b98e372b86ba0e09b9bfb361f19c8b.tar.bz2 | |
* tests/text.test: properly return the number of
* unix/tkUnixFont.c (ControlUtfProc): bytes consumed. [Bug #624732]
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 - - - - - - - - - - - - - |