summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-01-13 02:07:20 (GMT)
committerhobbs <hobbs>2000-01-13 02:07:20 (GMT)
commitda329e27654313678d3523ce21cbe354f7236bd3 (patch)
treea02e5312fbccd3e65493b5e92a854bf9d024f4ae
parent62d7b7db73ba85f767609d5b5dde1de23d0561dd (diff)
downloadtk-da329e27654313678d3523ce21cbe354f7236bd3.zip
tk-da329e27654313678d3523ce21cbe354f7236bd3.tar.gz
tk-da329e27654313678d3523ce21cbe354f7236bd3.tar.bz2
* tests/text.test: changed test to reflect change of -hidden
to -elide in search options.
-rw-r--r--tests/text.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/text.test b/tests/text.test
index 7dd6ff6..be30b29 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.6 1999/12/14 06:53:14 hobbs Exp $
+# RCS: @(#) $Id: text.test,v 1.7 2000/01/13 02:07:20 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -854,7 +854,7 @@ test text-19.3 {TkTextLostSelection procedure} {
.t insert end "xxyz xyz x. the\nfoo -forward bar xxxxx BaR foo\nxyz xxyzx"
test text-20.1 {TextSearchCmd procedure, argument parsing} {
list [catch {.t search -} msg] $msg
-} {1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, -hidden, or --}}
+} {1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, -elide, or --}}
test text-20.2 {TextSearchCmd procedure, -backwards option} {
.t search -backwards xyz 1.4
} {1.1}