diff options
| author | hobbs <hobbs@noemail.net> | 2000-01-13 02:07:20 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-01-13 02:07:20 (GMT) |
| commit | 0ce5bdf4dc3abbdb9566eda16a347f988d816b27 (patch) | |
| tree | a02e5312fbccd3e65493b5e92a854bf9d024f4ae /tests/text.test | |
| parent | 8529db5a90286b0bcdfc575cc65b425707e21a69 (diff) | |
| download | tk-0ce5bdf4dc3abbdb9566eda16a347f988d816b27.zip tk-0ce5bdf4dc3abbdb9566eda16a347f988d816b27.tar.gz tk-0ce5bdf4dc3abbdb9566eda16a347f988d816b27.tar.bz2 | |
* tests/text.test: changed test to reflect change of -hidden
to -elide in search options.
FossilOrigin-Name: 42c6e76990a3db057d24ff2db6475ca9effa02af
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 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} |