diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-08-23 23:04:42 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-08-23 23:04:42 (GMT) |
commit | 188e67ee2b08d7869fe3e6c48532f8d7f5578c57 (patch) | |
tree | ab9e2230c7ea0b35ab9b0cd97f9ee4e7b0b3d49f /tests/text.test | |
parent | 5e02c0866c025bb53b351b38b6abef70444c4775 (diff) | |
download | tk-188e67ee2b08d7869fe3e6c48532f8d7f5578c57.zip tk-188e67ee2b08d7869fe3e6c48532f8d7f5578c57.tar.gz tk-188e67ee2b08d7869fe3e6c48532f8d7f5578c57.tar.bz2 |
Punctuation fix in error message.
Diffstat (limited to 'tests/text.test')
-rw-r--r-- | tests/text.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/text.test b/tests/text.test index 306dee4..e25e71b 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.38 2005/04/04 21:59:00 vincentdarley Exp $ +# RCS: @(#) $Id: text.test,v 1.39 2005/08/23 23:04:42 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -330,7 +330,7 @@ test text-8.17 {TextWidgetCmd procedure, "replace" option} { } {1 {wrong # args: should be ".t replace index1 index2 chars ?tagList chars tagList ...?"}} test text-8.18 {TextWidgetCmd procedure, "replace" option} { list [catch {.t replace 3.1 2.3 foo} err] $err -} {1 {Index "2.3" before "3.1" in the text.}} +} {1 {Index "2.3" before "3.1" in the text}} test text-8.19 {TextWidgetCmd procedure, "replace" option} { list [catch {.t replace 2.1 2.3 foo} err] $err } {0 {}} |