diff options
| author | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
| commit | 535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6 (patch) | |
| tree | 44da117febb11bc69d260540340f018933aa8b45 /tests/bind.test | |
| parent | 8daba6660a12dce054485bf87cef227741ac76a0 (diff) | |
| download | tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.zip tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.gz tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.bz2 | |
fix [2021443] inconsistant "wrong # args" messages (for Tk)
Diffstat (limited to 'tests/bind.test')
| -rw-r--r-- | tests/bind.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/bind.test b/tests/bind.test index 7e0257c..77b8373 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.19 2007/05/16 15:23:44 dgp Exp $ +# RCS: @(#) $Id: bind.test,v 1.20 2008/07/23 23:24:26 nijtmans Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -1595,7 +1595,7 @@ test bind-17.6 {event command: add with error} { } {1 {bad event type or keysym "xyz"} {<Button-2> <Control-Key-v> abc}} test bind-17.7 {event command: delete} { list [catch {event delete} msg] $msg -} {1 {wrong # args: should be "event delete virtual ?sequence sequence ...?"}} +} {1 {wrong # args: should be "event delete virtual ?sequence ...?"}} test bind-17.8 {event command: delete many} { setup event add <<Paste>> <3> <1> <2> t @@ -1630,7 +1630,7 @@ test bind-17.13 {event command: info error} { } {1 {wrong # args: should be "event info ?virtual?"}} test bind-17.14 {event command: generate} { list [catch {event generate} msg] $msg -} {1 {wrong # args: should be "event generate window event ?options?"}} +} {1 {wrong # args: should be "event generate window event ?-option value ...?"}} test bind-17.15 {event command: generate} { setup bind .b.f <1> "lappend x 1" |