diff options
Diffstat (limited to 'tests/textTag.test')
-rw-r--r-- | tests/textTag.test | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/textTag.test b/tests/textTag.test index ae0d33a..4cc6fd4 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textTag.test 1.30 97/11/06 16:57:02 +# SCCS: @(#) textTag.test 1.31 97/12/16 16:20:48 if {[string compare test [info procs test]] == 1} then \ {source defs} @@ -183,7 +183,14 @@ test textTag-3.7 {TkTextTagCmd - "bind" option} { .t tag bind x <Enter> } {script1 script2} - +test textTag-3.7 {TkTextTagCmd - "bind" option} { + .t tag delete x + list [catch {.t tag bind x <Enter>} msg] $msg +} {0 {}} +test textTag-3.8 {TkTextTagCmd - "bind" option} { + .t tag delete x + list [catch {.t tag bind x <} msg] $msg +} {1 {no event type or button # or keysym}} test textTag-4.1 {TkTextTagCmd - "cget" option} { list [catch {.t tag cget a} msg] $msg |