summaryrefslogtreecommitdiffstats
path: root/tests/entry.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/entry.test')
-rw-r--r--tests/entry.test26
1 files changed, 10 insertions, 16 deletions
diff --git a/tests/entry.test b/tests/entry.test
index a44d1d4..ecaf4f3 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -6,20 +6,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: entry.test,v 1.9 2000/05/17 22:23:26 ericm Exp $
+# RCS: @(#) $Id: entry.test,v 1.10 2000/05/29 01:43:15 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
-if {[lsearch [image types] test] < 0} {
- puts "This application hasn't been compiled with the \"test\""
- puts "image, so I can't run this test. Are you sure you're using"
- puts "tktest instead of wish?"
- ::tcltest::cleanupTests
- return
-}
-
foreach i [winfo children .] {
destroy $i
}
@@ -78,6 +70,8 @@ foreach test {
{-insertborderwidth 1.3 1 2.6x {bad screen distance "2.6x"}}
{-insertofftime 100 100 3.2 {expected integer but got "3.2"}}
{-insertontime 100 100 3.2 {expected integer but got "3.2"}}
+ {-invalidcommand "any string" "any string" {} {}}
+ {-invcmd "any string" "any string" {} {}}
{-justify right right bogus {bad justification "bogus": must be left, right, or center}}
{-readonlybackground green green non-existent
{unknown color name "non-existent"}}
@@ -444,7 +438,7 @@ test entry-3.62 {EntryWidgetCmd procedure, "selection range" widget command} {
.e select to 5
.e select range 4 4
list [catch {.e index sel.first} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-3.63 {EntryWidgetCmd procedure, "selection range" widget command} {
.e delete 0 end
.e insert end 0123456789
@@ -952,7 +946,7 @@ test entry-8.7 {DeleteChars procedure} {
.e select to 8
.e delete 1 8
list [catch {.e index sel.first} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-8.8 {DeleteChars procedure} {
.e delete 0 end
.e insert 0 0123456789abcde
@@ -971,7 +965,7 @@ test entry-8.9 {DeleteChars procedure} {
.e select to 8
.e delete 3 8
list [catch {.e index sel.first} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-8.10 {DeleteChars procedure} {
.e delete 0 end
.e insert 0 0123456789abcde
@@ -1080,7 +1074,7 @@ test entry-10.2 {EntrySetValue procedure, updating selection} {
.e selection range 4 10
set x "a"
list [catch {.e index sel.first} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-10.3 {EntrySetValue procedure, updating selection} {
catch {destroy .e}
entry .e -textvariable x
@@ -1212,7 +1206,7 @@ test entry-13.10 {GetEntryIndex procedure} {unixOnly} {
# selection range is reset.
list [catch {.e index sel.first} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-13.11 {GetEntryIndex procedure} {macOrPc} {
# On mac and pc, when selection is cleared, entry widget remembers
# last selected range. When selection ownership is restored to
@@ -1222,7 +1216,7 @@ test entry-13.11 {GetEntryIndex procedure} {macOrPc} {
} {1 1}
test entry-13.12 {GetEntryIndex procedure} {unixOnly} {
list [catch {.e index sbogus} msg] $msg
-} {1 {selection isn't in entry}}
+} {1 {selection isn't in widget .e}}
test entry-13.13 {GetEntryIndex procedure} {macOrPc} {
list [catch {.e index sbogus} msg] $msg
} {1 {bad entry index "sbogus"}}
@@ -1383,7 +1377,7 @@ test entry-17.4 {EntryUpdateScrollbar procedure} {
} {{invalid command name "thisisnotacommand"} {invalid command name "thisisnotacommand"
while executing
"thisisnotacommand 0 1"
- (horizontal scrolling command executed by entry)}}
+ (horizontal scrolling command executed by .e)}}
set l [interp hidden]
eval destroy [winfo children .]