summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-12-14 06:53:11 (GMT)
committerhobbs <hobbs>1999-12-14 06:53:11 (GMT)
commitcc105ac04d3d06c27918887b8157b2fa3f8f9e62 (patch)
tree9cf936e1b6b3abcdf9ad5fd0f58caa549f438d21 /tests/text.test
parent62e9e6611d2da6b8113210d5002611c40909231e (diff)
downloadtk-cc105ac04d3d06c27918887b8157b2fa3f8f9e62.zip
tk-cc105ac04d3d06c27918887b8157b2fa3f8f9e62.tar.gz
tk-cc105ac04d3d06c27918887b8157b2fa3f8f9e62.tar.bz2
* tests/bind.test:
* tests/canvImg.test: * tests/canvPsArc.tcl: * tests/canvPsImg.tcl: (new file) * tests/canvRect.test: * tests/canvText.test: * tests/canvas.test: * tests/defs.tcl: * tests/entry.test: * tests/event.test: * tests/font.test: * tests/frame.test: * tests/imgPhoto.test: * tests/safe.test: * tests/scale.test: * tests/scrollbar.test: * tests/select.test: * tests/text.test: * tests/textDisp.test: * tests/textTag.test: * tests/unixFont.test: * tests/unixWm.test: * tests/visual_bb.test: * tests/winClipboard.test: tests for the dash patch changes
Diffstat (limited to 'tests/text.test')
-rw-r--r--tests/text.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/text.test b/tests/text.test
index df19c04..7dd6ff6 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.5 1999/04/21 21:53:30 rjohnson Exp $
+# RCS: @(#) $Id: text.test,v 1.6 1999/12/14 06:53:14 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -81,10 +81,10 @@ foreach test {
{-spacing2 -1 0 bogus}
{-spacing3 20 20 bogus}
{-spacing3 -10 0 bogus}
- {-state disabled disabled foo}
+ {-state d disabled foo}
{-tabs {1i 2i 3i 4i} {1i 2i 3i 4i} bad_tabs}
{-width 73 73 2.4}
- {-wrap word word bad_wrap}
+ {-wrap w word bad_wrap}
} {
test text-1.[incr i] {text options} {
set result {}
@@ -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, or --}}
+} {1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, -hidden, or --}}
test text-20.2 {TextSearchCmd procedure, -backwards option} {
.t search -backwards xyz 1.4
} {1.1}