From da329e27654313678d3523ce21cbe354f7236bd3 Mon Sep 17 00:00:00 2001 From: hobbs Date: Thu, 13 Jan 2000 02:07:20 +0000 Subject: * tests/text.test: changed test to reflect change of -hidden to -elide in search options. --- tests/text.test | 4 ++-- 1 file 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} -- cgit v0.12