diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/font.test | 70 |
2 files changed, 40 insertions, 35 deletions
@@ -1,3 +1,8 @@ +2002-06-26 Anton Kovalenko <a_kovalenko@users.sourceforge.net> + + * tests/font.test (font-32.1): updated this test + to expect the new behavior of canvas postscript. + 2002-06-25 Don Porter <dgp@users.sf.net> * unix/Makefile.in: Expanded install-binaries target to create diff --git a/tests/font.test b/tests/font.test index 8f9ca8d..07ab5cb 100644 --- a/tests/font.test +++ b/tests/font.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: font.test,v 1.6 2000/03/02 23:52:56 hobbs Exp $ +# RCS: @(#) $Id: font.test,v 1.7 2002/06/26 08:22:54 a_kovalenko Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1118,40 +1118,40 @@ test font-32.1 {Tk_TextLayoutToPostscript: ensure buffer doesn't overflow} { .b.c insert text end "end" set x [.b.c postscript] set i [string first "(qwerty" $x] - string range $x $i [expr {$i + 213}] -} {(qwertyuiopasdfghjklzxcvbnm1234qwertyuiopasdfghjklzxcvbnm) -(qwertyuiopasdfghjklzxcvbnm1234qwertyuiopasdfghjklzxcvbnm) -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -() -(end) + string range $x $i [expr {$i + 278}] +} {(qwertyuiopasdfghjklzxcvbnm1234qwertyuiopasdfghjklzxcvbnm)] +[(qwertyuiopasdfghjklzxcvbnm1234qwertyuiopasdfghjklzxcvbnm)] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[()] +[(end)] } test font-33.1 {Tk_TextWidth procedure} { |