diff options
| -rw-r--r-- | tests/text.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/text.test b/tests/text.test index 17c9488..a12d97e 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.40 2005/10/10 10:36:35 vincentdarley Exp $ +# RCS: @(#) $Id: text.test,v 1.41 2005/12/02 17:23:44 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -2857,7 +2857,7 @@ test text-20.188 {TextSearchCmd, strict limits} { .t2 search -strictlimits -- "world" 1.3 1.11 } {1.6} -test text-20.1189 {TextSearchCmd, strict limits backwards} { +test text-20.189 {TextSearchCmd, strict limits backwards} { deleteWindows pack [text .t2] .t2 insert 1.0 "Hello world!\nThis is a test\n" @@ -2878,14 +2878,14 @@ test text-20.191 {TextSearchCmd, strict limits backwards} { .t2 search -strictlimits -backward -- "world" 2.3 1.7 } {} -test text-20.188 {TextSearchCmd, strict limits} { +test text-20.192 {TextSearchCmd, strict limits} { deleteWindows pack [text .t2] .t2 insert 1.0 "Hello world!\nThis is a test\n" .t2 search -regexp -strictlimits -- "world" 1.3 1.8 } {} -test text-20.189 {TextSearchCmd, strict limits} { +test text-20.193 {TextSearchCmd, strict limits} { deleteWindows pack [text .t2] .t2 insert 1.0 "Hello world!\nThis is a test\n" |