diff options
| author | hobbs <hobbs> | 2000-01-13 02:07:20 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-01-13 02:07:20 (GMT) |
| commit | da329e27654313678d3523ce21cbe354f7236bd3 (patch) | |
| tree | a02e5312fbccd3e65493b5e92a854bf9d024f4ae | |
| parent | 62d7b7db73ba85f767609d5b5dde1de23d0561dd (diff) | |
| download | tk-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.test | 4 |
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} |