summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-08-23 23:04:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-08-23 23:04:42 (GMT)
commit188e67ee2b08d7869fe3e6c48532f8d7f5578c57 (patch)
treeab9e2230c7ea0b35ab9b0cd97f9ee4e7b0b3d49f /tests/text.test
parent5e02c0866c025bb53b351b38b6abef70444c4775 (diff)
downloadtk-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.test4
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 {}}