diff options
Diffstat (limited to 'tests/entry.test')
| -rw-r--r-- | tests/entry.test | 26 |
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 .] |